LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
ambi - Estratti ed Ambi + Frequenti dopo spia in posizione EmptyMar 2 Apr - 20:57:27 Da DjNomade


Estratti ed Ambi + Frequenti dopo spia in posizione

2 partecipanti

Andare in basso

ambi - Estratti ed Ambi + Frequenti dopo spia in posizione Empty Estratti ed Ambi + Frequenti dopo spia in posizione

Messaggio Da Blackmore Sab 13 Set - 14:43:12

Estratti ed Ambi + frequenti dopo spia in posizione
Con parametri e condizioni tramite inputbox

Gira su Spaziometria e Lottodesk


Codice:
Sub Main()
 ColoreTesto 1:Scrivi "Estratti ed Ambi + Frequenti dopo spia in Posizione... Listed By Blackmore":Scrivi: ColoreTesto 0
 Dim num(90,2)
 Dim ambo(89,90)
 Dim ruota(10)
 casi = CInt(InputBox("QUANTI CASI VUOI ESAMINARE","By Blackmore",10))
 rr = CInt(InputBox("RUOTA SPIA ?","By Blackmore",1))
 nspia = CInt(InputBox("NUMERO SPIA ?","By Blackmore",90))
 psz = CInt(InputBox("POSIZIONE SPIA ?","By Blackmore",5))
 r1 = CInt(InputBox("RUOTA DI VERIFICA N° 1","By Blackmore",1))
 r2 = CInt(InputBox("RUOTA DI VERIFICA N° 2","By Blackmore",2))
 k = CInt(InputBox("COLPI DI VERIFICA ?","By Blackmore",10))
 tot = CInt(InputBox("QUANTE AMBATA E AMBI VUOI TROVARE","By Blackmore",10))
 infoE = CInt(InputBox("VUOI VEDERE I CASI NELL'OUTPUT ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO","By Blackmore",1))
 mass_fre = 0
 ini = EstrazioneFin - casi
 conta = 0
 For es = EstrazioneFin To 1 Step - 1
 If conta < casi Then
 a = Estratto(es,rr,psz)
 If a = nspia Then
 conta = conta + 1
 infoEX infoE,conta,es,rr,nspia,psz
 w = es + 1 : ww = w + k - 1
 For ess = w To ww
 If ess <= EstrazioneFin Then
 For r = 1 To 10
 If r = r1 Or r = r2 Then
 For p = 1 To 5
 cn = 0
 n = Estratto(ess,r,p)
 num(n,1) = n
 num(n,2) = num(n,2) + 1
 cn = cn + 1
 Next
 For p1 = 1 To 4
 a = Estratto(ess,r,p1)
 For p2 = p1 + 1 To 5
 b = Estratto(ess,r,p2)
 If a < b Then
 ambo(a,b) = ambo(a,b) + 1
 If ambo(a,b) > mass_fre Then mass_fre = ambo(a,b)
 Else
 ambo(b,a) = ambo(b,a) + 1
 If ambo(b,a) > mass_fre Then mass_fre = ambo(b,a)
 End If
 Next
 Next
 End If
 Next
 End If
 Next
 End If
 End If
 Next
 Scrivi:ColoreTesto 1
 Scrivi "CASI ESAMINATI " & Space(6) & "" & casi
 Scrivi "SPIA " & Space(16) & "" & nspia
 Scrivi "POSIZIONE " & Space(11) & "" & psz & "°"
 Scrivi "RUOTA DI RICERCA " & Space(4) & "" & NomeRuota(rr)
 Scrivi "RUOTE DI VERIFICA " & Space(3) & "" & NomeRuota(r1) & "-" & NomeRuota(r2)
 Scrivi "COLPI SUCESSIVI " & Space(5) & "" & k
 Scrivi:ColoreTesto 0
 OrdinaMatrice num,- 1,2
 Scrivi
 Scrivi "ESTRATTI + frequenti su " & NomeRuota(r1) & "-" & NomeRuota(r2) & " negli ultimi " & casi & " casi esaminati",1
 Scrivi
 Scrivi "ESTRATTI    FREQ",1
 Scrivi
 For x = 1 To Tot
 Scrivi "  " & Format2(num(x,1)) & "" & Space(9) & "" & Format2(num(x,2))
 Next
 Scrivi
 Scrivi "AMBI + frequenti su " & NomeRuota(r1) & "-" & NomeRuota(r2) & " negli ultimi " & casi & " casi esaminati",1
 Scrivi
 Scrivi "AMBI        FREQ",1
 Scrivi
 cont = 0
 For x = mass_fre To 0 Step - 1
 For a1 = 1 To 89
 For b1 = a1 + 1 To 90
 If ambo(a1,b1) = x Then
 cont = cont + 1
 If cont <= tot Then
 Scrivi Format2(a1) & "." & Format2(b1) & "" & Space(8) & "" & Format2(ambo(a1,b1))
 End If
 End If
 Next
 Next
 Next
End Sub
Function infoEX(infoE,conta,es,rr,nspia,psz)
 If infoE = 1 Then Scrivi Format2(conta) & ") " & DataEstrazione(es) & "  " & SiglaRuota(rr) & "  " & StringaEstratti(es,rr) & "  Spia " & Format2(nspia) & " in " & psz & "° Pos"
End Function

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

ambi - Estratti ed Ambi + Frequenti dopo spia in posizione Empty Re: Estratti ed Ambi + Frequenti dopo spia in posizione

Messaggio Da Marco Sab 13 Set - 16:05:27

Grazie Black Very Happy
Marco
Marco
amministratore

Messaggi : 843
Data d'iscrizione : 26.12.13

https://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.