Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
x djnomade
- Creatore Discussione franca46
- Data di inizio
grazie ti metto il listato e poi ti dico cosa vorrei modificare
in questo tu cerchi un numero ripetuto in 1° e 5° posizione in due estrazioni consecutive ( listato per Marco).
io vorrei che il numero di ricerca sia la somma degli estratti di una ruota .
si può fare?
grazie
Codice:
Sub main()
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim numeri(5),numeri1(5),numeri2(5),amb(5)
Dim posta(2)
Dim poste(2),postee(5)
posta(1)=1
posta(2)=1
poste(2)=1
postee(2)=1
postee(3)=1
tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",12))
co=0
ini=EstrazioneFin -tmp
For n=ini To EstrazioneFin
Messaggio (n)
For r1=1 To 10
For p1=1 To 5
For p2=1 To 5
a=Estratto(n-1,r1,p1)
b=Estratto(n,r1,p2)
If a=b And (p1=1 Or p1=3 Or p1=5) And(p2=1 Or p2=3 Or p2=5) Then
n1=a
co=co+1
Scrivi String(70,"="): ColoreTesto 9
Scrivi NomeRuota(r1)&_
" Numero----"& a &"--- estratto al "&p1&"°-e al-"&p2&"° posto",1
Scrivi DataEstrazione(n-1,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(n-1,r1)&" ] ",1
Scrivi DataEstrazione(n,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(n,r1)&" ]",1
Scrivi : ColoreTesto 0
ruota(1)=r1
If n1 =1 Then amb(1)=7:amb(2)=13:amb(3)=78:amb(4)=90
If n1 =2 Then amb(1)=14:amb(2)=26:amb(3)=65:amb(4)=89
If n1 =3 Then amb(1)=21:amb(2)=39:amb(3)=52:amb(4)=88
If n1 =4 Then amb(1)=28:amb(2)=52:amb(3)=39:amb(4)=87
If n1 =5 Then amb(1)=35:amb(2)=65:amb(3)=26:amb(4)=86
If n1 =6 Then amb(1)=42:amb(2)=78:amb(3)=13:amb(4)=85
If n1 =7 Then amb(1)=49:amb(2)=1:amb(3)=90:amb(4)=84
If n1 =8 Then amb(1)=56:amb(2)=14:amb(3)=77:amb(4)=83
If n1 =9 Then amb(1)=63:amb(2)=27:amb(3)=64:amb(4)=82
If n1 =10 Then amb(1)=70:amb(2)=40:amb(3)=51:amb(4)=81
If n1 =11 Then amb(1)=77:amb(2)=53:amb(3)=38:amb(4)=80
If n1 =12 Then amb(1)=84:amb(2)=66:amb(3)=25:amb(4)=79
If n1 =13 Then amb(1)=1:amb(2)=79:amb(3)=12:amb(4)=78
If n1 =14 Then amb(1)=8:amb(2)=2:amb(3)=89:amb(4)=77
If n1 =15 Then amb(1)=15:amb(2)=15:amb(3)=76:amb(4)=76
If n1 =16 Then amb(1)=22:amb(2)=28:amb(3)=63:amb(4)=75
If n1 =17 Then amb(1)=29:amb(2)=41:amb(3)=50:amb(4)=74
If n1 =18 Then amb(1)=36:amb(2)=54:amb(3)=37:amb(4)=73
If n1 =19 Then amb(1)=43:amb(2)=67:amb(3)=24:amb(4)=72
If n1 =20 Then amb(1)=50:amb(2)=11:amb(3)=11:amb(4)=71
If n1 =21 Then amb(1)=57:amb(2)=3:amb(3)=88:amb(4)=70
If n1 =22 Then amb(1)=64:amb(2)=16:amb(3)=75:amb(4)=69
If n1 =23 Then amb(1)=71:amb(2)=29:amb(3)=62:amb(4)=68
If n1 =24 Then amb(1)=78:amb(2)=42:amb(3)=49:amb(4)=67
If n1 =25 Then amb(1)=85:amb(2)=55:amb(3)=36:amb(4)=66
If n1 =26 Then amb(1)=2:amb(2)=68:amb(3)=23:amb(4)=65
If n1 =27 Then amb(1)=9:amb(2)=81:amb(3)=10:amb(4)=64
If n1 =28 Then amb(1)=16:amb(2)=4:amb(3)=87:amb(4)=63
If n1 =29 Then amb(1)=23:amb(2)=17:amb(3)=74:amb(4)=62
If n1 =30 Then amb(1)=30:amb(2)=30:amb(3)=61:amb(4)=61
If n1 =31 Then amb(1)=37:amb(2)=43:amb(3)=48:amb(4)=60
If n1 =32 Then amb(1)=44:amb(2)=56:amb(3)=35:amb(4)=59
If n1 =33 Then amb(1)=51:amb(2)=69:amb(3)=22:amb(4)=58
If n1 =34 Then amb(1)=58:amb(2)=82:amb(3)=9:amb(4)=57
If n1 =35 Then amb(1)=65:amb(2)=5:amb(3)=86:amb(4)=56
If n1 =36 Then amb(1)=72:amb(2)=18:amb(3)=73:amb(4)=55
If n1 =37 Then amb(1)=79:amb(2)=31:amb(3)=60:amb(4)=54
If n1 =38 Then amb(1)=86:amb(2)=44:amb(3)=47:amb(4)=53
If n1 =39 Then amb(1)=3:amb(2)=57:amb(3)=34:amb(4)=52
If n1 =40 Then amb(1)=10:amb(2)=70:amb(3)=21:amb(4)=51
If n1 =41 Then amb(1)=17:amb(2)=83:amb(3)=8:amb(4)=50
If n1 =42 Then amb(1)=24:amb(2)=6:amb(3)=85:amb(4)=49
If n1 =43 Then amb(1)=31:amb(2)=19:amb(3)=72:amb(4)=48
If n1 =44 Then amb(1)=38:amb(2)=32:amb(3)=59:amb(4)=47
If n1 =45 Then amb(1)=45:amb(2)=45:amb(3)=46:amb(4)=46
If n1 =46 Then amb(1)=52:amb(2)=58:amb(3)=33:amb(4)=45
If n1 =47 Then amb(1)=59:amb(2)=71:amb(3)=20:amb(4)=44
If n1 =48 Then amb(1)=66:amb(2)=84:amb(3)=7:amb(4)=43
If n1 =49 Then amb(1)=73:amb(2)=7:amb(3)=84:amb(4)=42
If n1 =50 Then amb(1)=80:amb(2)=20:amb(3)=71:amb(4)=41
If n1 =51 Then amb(1)=87:amb(2)=33:amb(3)=58:amb(4)=40
If n1 =52 Then amb(1)=4:amb(2)=46:amb(3)=45:amb(4)=39
If n1 =53 Then amb(1)=11:amb(2)=59:amb(3)=32:amb(4)=38
If n1 =54 Then amb(1)=18:amb(2)=72:amb(3)=19:amb(4)=37
If n1 =55 Then amb(1)=25:amb(2)=85:amb(3)=6:amb(4)=36
If n1 =56 Then amb(1)=32:amb(2)=8:amb(3)=83:amb(4)=35
If n1 =57 Then amb(1)=39:amb(2)=21:amb(3)=70:amb(4)=34
If n1 =58 Then amb(1)=46:amb(2)=34:amb(3)=57:amb(4)=33
If n1 =59 Then amb(1)=53:amb(2)=47:amb(3)=44:amb(4)=32
If n1 =60 Then amb(1)=60:amb(2)=31
If n1 =61 Then amb(1)=67:amb(2)=73:amb(3)=18:amb(4)=30
If n1 =62 Then amb(1)=74:amb(2)=86:amb(3)=5:amb(4)=29
If n1 =63 Then amb(1)=81:amb(2)=9:amb(3)=82:amb(4)=28
If n1 =64 Then amb(1)=88:amb(2)=22:amb(3)=69:amb(4)=27
If n1 =65 Then amb(1)=5:amb(2)=35:amb(3)=56:amb(4)=26
If n1 =66 Then amb(1)=12:amb(2)=48:amb(3)=43:amb(4)=25
If n1 =67 Then amb(1)=19:amb(2)=61:amb(3)=30:amb(4)=24
If n1 =68 Then amb(1)=26:amb(2)=74:amb(3)=17:amb(4)=23
If n1 =69 Then amb(1)=33:amb(2)=87:amb(3)=4:amb(4)=22
If n1 =70 Then amb(1)=40:amb(2)=10:amb(3)=81:amb(4)=21
If n1 =71 Then amb(1)=47:amb(2)=23:amb(3)=68:amb(4)=20
If n1 =72 Then amb(1)=54:amb(2)=36:amb(3)=55:amb(4)=19
If n1 =73 Then amb(1)=61:amb(2)=49:amb(3)=42:amb(4)=18
If n1 =74 Then amb(1)=68:amb(2)=62:amb(3)=29:amb(4)=17
If n1 =75 Then amb(1)=75:amb(2)=75:amb(3)=16:amb(4)=16
If n1 =76 Then amb(1)=82:amb(2)=88:amb(3)=3:amb(4)=15
If n1 =77 Then amb(1)=89:amb(2)=11:amb(3)=80:amb(4)=14
If n1 =78 Then amb(1)=6:amb(2)=24:amb(3)=67:amb(4)=13
If n1 =79 Then amb(1)=13:amb(2)=37:amb(3)=54:amb(4)=12
If n1 =80 Then amb(1)=20:amb(2)=50:amb(3)=41:amb(4)=11
If n1 =81 Then amb(1)=27:amb(2)=63:amb(3)=28:amb(4)=10
If n1 =82 Then amb(1)=34:amb(2)=76:amb(3)=15:amb(4)=9
If n1 =83 Then amb(1)=41:amb(2)=89:amb(3)=2:amb(4)=8
If n1 =84 Then amb(1)=48:amb(2)=12:amb(3)=79:amb(4)=7
If n1 =85 Then amb(1)=55:amb(2)=25:amb(3)=66:amb(4)=6
If n1 =86 Then amb(1)=62:amb(2)=38:amb(3)=53:amb(4)=5
If n1 =87 Then amb(1)=69:amb(2)=51:amb(3)=40:amb(4)=4
If n1 =88 Then amb(1)=76:amb(2)=64:amb(3)=27:amb(4)=3
If n1 =89 Then amb(1)=83:amb(2)=77:amb(3)=14:amb(4)=2
If n1 =90 Then amb(1)=90:amb(2)=90:amb(3)=1:amb(4)=1
numeri1(1)=amb(1)
numeri1(2)=amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1)=amb(1)
numeri1(2)=amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1)=amb(1)
numeri1(2)=amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1)=amb(2)
numeri1(2)=amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1)=amb(2)
numeri1(2)=amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1)=amb(3)
numeri1(2)=amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1)=amb(1)
numeri2(2)=amb(2)
numeri2(3)=amb(3)
numeri2(4)=amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
End If
Next
Next : Next
Next
'Next
Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
End Subin questo tu cerchi un numero ripetuto in 1° e 5° posizione in due estrazioni consecutive ( listato per Marco).
io vorrei che il numero di ricerca sia la somma degli estratti di una ruota .
si può fare?
grazie
R
Roby
Guest
Ciao Franca, in attesa di Dj, prova questo....
Codice:
Sub Main()
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim numeri(5),numeri1(5),numeri2(5),amb(5)
Dim posta(2)
Dim poste(2),postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
somma = CInt(InputBox("Inserisci la somma dei 5 estratti",,326))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
For r1 = 1 To 10
For p1 = 1 To 5
For p2 = 2 To 5
For p3 = 3 To 5
For p4 = 4 To 5
For p5 = 5 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)
c = Estratto(n,r1,p3)
d = Estratto(n,r1,p4)
e = Estratto(n,r1,p5)
If somma = SommaEstratti(n,r1) Then
If SommaEstratti(n,r1) =(a + b + c + d + e) Then
co = co + 1
Scrivi String(60,"="),1
ColoreTesto 1
Scrivi DataEstrazione(n) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " Somma --> " &(Format2(Somma)),1
ColoreTesto 0
Scrivi String(60,"="),1
Scrivi
ColoreTesto 0
ruota(1) = r1
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If
If n1 = 2 Then
amb(1) = 14
amb(2) = 26
amb(3) = 65
amb(4) = 89
End If
If n1 = 3 Then
amb(1) = 21
amb(2) = 39
amb(3) = 52
amb(4) = 88
End If
If n1 = 4 Then
amb(1) = 28
amb(2) = 52
amb(3) = 39
amb(4) = 87
End If
If n1 = 5 Then
amb(1) = 35
amb(2) = 65
amb(3) = 26
amb(4) = 86
End If
If n1 = 6 Then
amb(1) = 42
amb(2) = 78
amb(3) = 13
amb(4) = 85
End If
If n1 = 7 Then
amb(1) = 49
amb(2) = 1
amb(3) = 90
amb(4) = 84
End If
If n1 = 8 Then
amb(1) = 56
amb(2) = 14
amb(3) = 77
amb(4) = 83
End If
If n1 = 9 Then
amb(1) = 63
amb(2) = 27
amb(3) = 64
amb(4) = 82
End If
If n1 = 10 Then
amb(1) = 70
amb(2) = 40
amb(3) = 51
amb(4) = 81
End If
If n1 = 11 Then
amb(1) = 77
amb(2) = 53
amb(3) = 38
amb(4) = 80
End If
If n1 = 12 Then
amb(1) = 84
amb(2) = 66
amb(3) = 25
amb(4) = 79
End If
If n1 = 13 Then
amb(1) = 1
amb(2) = 79
amb(3) = 12
amb(4) = 78
End If
If n1 = 14 Then
amb(1) = 8
amb(2) = 2
amb(3) = 89
amb(4) = 77
End If
If n1 = 15 Then
amb(1) = 15
amb(2) = 15
amb(3) = 76
amb(4) = 76
End If
If n1 = 16 Then
amb(1) = 22
amb(2) = 28
amb(3) = 63
amb(4) = 75
End If
If n1 = 17 Then
amb(1) = 29
amb(2) = 41
amb(3) = 50
amb(4) = 74
End If
If n1 = 18 Then
amb(1) = 36
amb(2) = 54
amb(3) = 37
amb(4) = 73
End If
If n1 = 19 Then
amb(1) = 43
amb(2) = 67
amb(3) = 24
amb(4) = 72
End If
If n1 = 20 Then
amb(1) = 50
amb(2) = 11
amb(3) = 11
amb(4) = 71
End If
If n1 = 21 Then
amb(1) = 57
amb(2) = 3
amb(3) = 88
amb(4) = 70
End If
If n1 = 22 Then
amb(1) = 64
amb(2) = 16
amb(3) = 75
amb(4) = 69
End If
If n1 = 23 Then
amb(1) = 71
amb(2) = 29
amb(3) = 62
amb(4) = 68
End If
If n1 = 24 Then
amb(1) = 78
amb(2) = 42
amb(3) = 49
amb(4) = 67
End If
If n1 = 25 Then
amb(1) = 85
amb(2) = 55
amb(3) = 36
amb(4) = 66
End If
If n1 = 26 Then
amb(1) = 2
amb(2) = 68
amb(3) = 23
amb(4) = 65
End If
If n1 = 27 Then
amb(1) = 9
amb(2) = 81
amb(3) = 10
amb(4) = 64
End If
If n1 = 28 Then
amb(1) = 16
amb(2) = 4
amb(3) = 87
amb(4) = 63
End If
If n1 = 29 Then
amb(1) = 23
amb(2) = 17
amb(3) = 74
amb(4) = 62
End If
If n1 = 30 Then
amb(1) = 30
amb(2) = 30
amb(3) = 61
amb(4) = 61
End If
If n1 = 31 Then
amb(1) = 37
amb(2) = 43
amb(3) = 48
amb(4) = 60
End If
If n1 = 32 Then
amb(1) = 44
amb(2) = 56
amb(3) = 35
amb(4) = 59
End If
If n1 = 33 Then
amb(1) = 51
amb(2) = 69
amb(3) = 22
amb(4) = 58
End If
If n1 = 34 Then
amb(1) = 58
amb(2) = 82
amb(3) = 9
amb(4) = 57
End If
If n1 = 35 Then
amb(1) = 65
amb(2) = 5
amb(3) = 86
amb(4) = 56
End If
If n1 = 36 Then
amb(1) = 72
amb(2) = 18
amb(3) = 73
amb(4) = 55
End If
If n1 = 37 Then
amb(1) = 79
amb(2) = 31
amb(3) = 60
amb(4) = 54
End If
If n1 = 38 Then
amb(1) = 86
amb(2) = 44
amb(3) = 47
amb(4) = 53
End If
If n1 = 39 Then
amb(1) = 3
amb(2) = 57
amb(3) = 34
amb(4) = 52
End If
If n1 = 40 Then
amb(1) = 10
amb(2) = 70
amb(3) = 21
amb(4) = 51
End If
If n1 = 41 Then
amb(1) = 17
amb(2) = 83
amb(3) = 8
amb(4) = 50
End If
If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If
If n1 = 43 Then
amb(1) = 31
amb(2) = 19
amb(3) = 72
amb(4) = 48
End If
If n1 = 44 Then
amb(1) = 38
amb(2) = 32
amb(3) = 59
amb(4) = 47
End If
If n1 = 45 Then
amb(1) = 45
amb(2) = 45
amb(3) = 46
amb(4) = 46
End If
If n1 = 46 Then
amb(1) = 52
amb(2) = 58
amb(3) = 33
amb(4) = 45
End If
If n1 = 47 Then
amb(1) = 59
amb(2) = 71
amb(3) = 20
amb(4) = 44
End If
If n1 = 48 Then
amb(1) = 66
amb(2) = 84
amb(3) = 7
amb(4) = 43
End If
If n1 = 49 Then
amb(1) = 73
amb(2) = 7
amb(3) = 84
amb(4) = 42
End If
If n1 = 50 Then
amb(1) = 80
amb(2) = 20
amb(3) = 71
amb(4) = 41
End If
If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If
If n1 = 52 Then
amb(1) = 4
amb(2) = 46
amb(3) = 45
amb(4) = 39
End If
If n1 = 53 Then
amb(1) = 11
amb(2) = 59
amb(3) = 32
amb(4) = 38
End If
If n1 = 54 Then
amb(1) = 18
amb(2) = 72
amb(3) = 19
amb(4) = 37
End If
If n1 = 55 Then
amb(1) = 25
amb(2) = 85
amb(3) = 6
amb(4) = 36
End If
If n1 = 56 Then
amb(1) = 32
amb(2) = 8
amb(3) = 83
amb(4) = 35
End If
If n1 = 57 Then
amb(1) = 39
amb(2) = 21
amb(3) = 70
amb(4) = 34
End If
If n1 = 58 Then
amb(1) = 46
amb(2) = 34
amb(3) = 57
amb(4) = 33
End If
If n1 = 59 Then
amb(1) = 53
amb(2) = 47
amb(3) = 44
amb(4) = 32
End If
If n1 = 60 Then
amb(1) = 60
amb(2) = 31
End If
If n1 = 61 Then
amb(1) = 67
amb(2) = 73
amb(3) = 18
amb(4) = 30
End If
If n1 = 62 Then
amb(1) = 74
amb(2) = 86
amb(3) = 5
amb(4) = 29
End If
If n1 = 63 Then
amb(1) = 81
amb(2) = 9
amb(3) = 82
amb(4) = 28
End If
If n1 = 64 Then
amb(1) = 88
amb(2) = 22
amb(3) = 69
amb(4) = 27
End If
If n1 = 65 Then
amb(1) = 5
amb(2) = 35
amb(3) = 56
amb(4) = 26
End If
If n1 = 66 Then
amb(1) = 12
amb(2) = 48
amb(3) = 43
amb(4) = 25
End If
If n1 = 67 Then
amb(1) = 19
amb(2) = 61
amb(3) = 30
amb(4) = 24
End If
If n1 = 68 Then
amb(1) = 26
amb(2) = 74
amb(3) = 17
amb(4) = 23
End If
If n1 = 69 Then
amb(1) = 33
amb(2) = 87
amb(3) = 4
amb(4) = 22
End If
If n1 = 70 Then
amb(1) = 40
amb(2) = 10
amb(3) = 81
amb(4) = 21
End If
If n1 = 71 Then
amb(1) = 47
amb(2) = 23
amb(3) = 68
amb(4) = 20
End If
If n1 = 72 Then
amb(1) = 54
amb(2) = 36
amb(3) = 55
amb(4) = 19
End If
If n1 = 73 Then
amb(1) = 61
amb(2) = 49
amb(3) = 42
amb(4) = 18
End If
If n1 = 74 Then
amb(1) = 68
amb(2) = 62
amb(3) = 29
amb(4) = 17
End If
If n1 = 75 Then
amb(1) = 75
amb(2) = 75
amb(3) = 16
amb(4) = 16
End If
If n1 = 76 Then
amb(1) = 82
amb(2) = 88
amb(3) = 3
amb(4) = 15
End If
If n1 = 77 Then
amb(1) = 89
amb(2) = 11
amb(3) = 80
amb(4) = 14
End If
If n1 = 78 Then
amb(1) = 6
amb(2) = 24
amb(3) = 67
amb(4) = 13
End If
If n1 = 79 Then
amb(1) = 13
amb(2) = 37
amb(3) = 54
amb(4) = 12
End If
If n1 = 80 Then
amb(1) = 20
amb(2) = 50
amb(3) = 41
amb(4) = 11
End If
If n1 = 81 Then
amb(1) = 27
amb(2) = 63
amb(3) = 28
amb(4) = 10
End If
If n1 = 82 Then
amb(1) = 34
amb(2) = 76
amb(3) = 15
amb(4) = 9
End If
If n1 = 83 Then
amb(1) = 41
amb(2) = 89
amb(3) = 2
amb(4) = 8
End If
If n1 = 84 Then
amb(1) = 48
amb(2) = 12
amb(3) = 79
amb(4) = 7
End If
If n1 = 85 Then
amb(1) = 55
amb(2) = 25
amb(3) = 66
amb(4) = 6
End If
If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If
If n1 = 87 Then
amb(1) = 69
amb(2) = 51
amb(3) = 40
amb(4) = 4
End If
If n1 = 88 Then
amb(1) = 76
amb(2) = 64
amb(3) = 27
amb(4) = 3
End If
If n1 = 89 Then
amb(1) = 83
amb(2) = 77
amb(3) = 14
amb(4) = 2
End If
If n1 = 90 Then
amb(1) = 90
amb(2) = 90
amb(3) = 1
amb(4) = 1
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
End Sub
Ultima modifica:
B
Baffoblu
Guest
Penso che così ti vada più che bene....
Opps, vedo che...hanno già
provveduto....
Beh, usa quello che ti è piu utile...
Opps, vedo che...hanno già
provveduto....
Beh, usa quello che ti è piu utile...
Codice:
Sub Main()
'in questo tu cerchi un numero ripetuto in 1° e 5° posizione in due estrazioni consecutive
'io vorrei che il numero di ricerca sia la somma degli estratti di una ruota .
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
ColoreTesto 1
Scrivi "========================================= Modifica by Baffoblu ===============================",1
Scrivi
ColoreTesto 0
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim amb(5)
Dim posta(2)
Dim poste(2)
Dim postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
a = Fuori90(SommaEstratti(n,r))
n1 = a
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi NomeRuota(r) & _
" SOMMA fuori 90 dei cinque estratti----> " & a,1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
Scrivi
ColoreTesto 0
ruota(1) = r
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If
If n1 = 2 Then
amb(1) = 14
amb(2) = 26
amb(3) = 65
amb(4) = 89
End If
If n1 = 3 Then
amb(1) = 21
amb(2) = 39
amb(3) = 52
amb(4) = 88
End If
If n1 = 4 Then
amb(1) = 28
amb(2) = 52
amb(3) = 39
amb(4) = 87
End If
If n1 = 5 Then
amb(1) = 35
amb(2) = 65
amb(3) = 26
amb(4) = 86
End If
If n1 = 6 Then
amb(1) = 42
amb(2) = 78
amb(3) = 13
amb(4) = 85
End If
If n1 = 7 Then
amb(1) = 49
amb(2) = 1
amb(3) = 90
amb(4) = 84
End If
If n1 = 8 Then
amb(1) = 56
amb(2) = 14
amb(3) = 77
amb(4) = 83
End If
If n1 = 9 Then
amb(1) = 63
amb(2) = 27
amb(3) = 64
amb(4) = 82
End If
If n1 = 10 Then
amb(1) = 70
amb(2) = 40
amb(3) = 51
amb(4) = 81
End If
If n1 = 11 Then
amb(1) = 77
amb(2) = 53
amb(3) = 38
amb(4) = 80
End If
If n1 = 12 Then
amb(1) = 84
amb(2) = 66
amb(3) = 25
amb(4) = 79
End If
If n1 = 13 Then
amb(1) = 1
amb(2) = 79
amb(3) = 12
amb(4) = 78
End If
If n1 = 14 Then
amb(1) = 8
amb(2) = 2
amb(3) = 89
amb(4) = 77
End If
If n1 = 15 Then
amb(1) = 15
amb(2) = 15
amb(3) = 76
amb(4) = 76
End If
If n1 = 16 Then
amb(1) = 22
amb(2) = 28
amb(3) = 63
amb(4) = 75
End If
If n1 = 17 Then
amb(1) = 29
amb(2) = 41
amb(3) = 50
amb(4) = 74
End If
If n1 = 18 Then
amb(1) = 36
amb(2) = 54
amb(3) = 37
amb(4) = 73
End If
If n1 = 19 Then
amb(1) = 43
amb(2) = 67
amb(3) = 24
amb(4) = 72
End If
If n1 = 20 Then
amb(1) = 50
amb(2) = 11
amb(3) = 11
amb(4) = 71
End If
If n1 = 21 Then
amb(1) = 57
amb(2) = 3
amb(3) = 88
amb(4) = 70
End If
If n1 = 22 Then
amb(1) = 64
amb(2) = 16
amb(3) = 75
amb(4) = 69
End If
If n1 = 23 Then
amb(1) = 71
amb(2) = 29
amb(3) = 62
amb(4) = 68
End If
If n1 = 24 Then
amb(1) = 78
amb(2) = 42
amb(3) = 49
amb(4) = 67
End If
If n1 = 25 Then
amb(1) = 85
amb(2) = 55
amb(3) = 36
amb(4) = 66
End If
If n1 = 26 Then
amb(1) = 2
amb(2) = 68
amb(3) = 23
amb(4) = 65
End If
If n1 = 27 Then
amb(1) = 9
amb(2) = 81
amb(3) = 10
amb(4) = 64
End If
If n1 = 28 Then
amb(1) = 16
amb(2) = 4
amb(3) = 87
amb(4) = 63
End If
If n1 = 29 Then
amb(1) = 23
amb(2) = 17
amb(3) = 74
amb(4) = 62
End If
If n1 = 30 Then
amb(1) = 30
amb(2) = 30
amb(3) = 61
amb(4) = 61
End If
If n1 = 31 Then
amb(1) = 37
amb(2) = 43
amb(3) = 48
amb(4) = 60
End If
If n1 = 32 Then
amb(1) = 44
amb(2) = 56
amb(3) = 35
amb(4) = 59
End If
If n1 = 33 Then
amb(1) = 51
amb(2) = 69
amb(3) = 22
amb(4) = 58
End If
If n1 = 34 Then
amb(1) = 58
amb(2) = 82
amb(3) = 9
amb(4) = 57
End If
If n1 = 35 Then
amb(1) = 65
amb(2) = 5
amb(3) = 86
amb(4) = 56
End If
If n1 = 36 Then
amb(1) = 72
amb(2) = 18
amb(3) = 73
amb(4) = 55
End If
If n1 = 37 Then
amb(1) = 79
amb(2) = 31
amb(3) = 60
amb(4) = 54
End If
If n1 = 38 Then
amb(1) = 86
amb(2) = 44
amb(3) = 47
amb(4) = 53
End If
If n1 = 39 Then
amb(1) = 3
amb(2) = 57
amb(3) = 34
amb(4) = 52
End If
If n1 = 40 Then
amb(1) = 10
amb(2) = 70
amb(3) = 21
amb(4) = 51
End If
If n1 = 41 Then
amb(1) = 17
amb(2) = 83
amb(3) = 8
amb(4) = 50
End If
If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If
If n1 = 43 Then
amb(1) = 31
amb(2) = 19
amb(3) = 72
amb(4) = 48
End If
If n1 = 44 Then
amb(1) = 38
amb(2) = 32
amb(3) = 59
amb(4) = 47
End If
If n1 = 45 Then
amb(1) = 45
amb(2) = 45
amb(3) = 46
amb(4) = 46
End If
If n1 = 46 Then
amb(1) = 52
amb(2) = 58
amb(3) = 33
amb(4) = 45
End If
If n1 = 47 Then
amb(1) = 59
amb(2) = 71
amb(3) = 20
amb(4) = 44
End If
If n1 = 48 Then
amb(1) = 66
amb(2) = 84
amb(3) = 7
amb(4) = 43
End If
If n1 = 49 Then
amb(1) = 73
amb(2) = 7
amb(3) = 84
amb(4) = 42
End If
If n1 = 50 Then
amb(1) = 80
amb(2) = 20
amb(3) = 71
amb(4) = 41
End If
If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If
If n1 = 52 Then
amb(1) = 4
amb(2) = 46
amb(3) = 45
amb(4) = 39
End If
If n1 = 53 Then
amb(1) = 11
amb(2) = 59
amb(3) = 32
amb(4) = 38
End If
If n1 = 54 Then
amb(1) = 18
amb(2) = 72
amb(3) = 19
amb(4) = 37
End If
If n1 = 55 Then
amb(1) = 25
amb(2) = 85
amb(3) = 6
amb(4) = 36
End If
If n1 = 56 Then
amb(1) = 32
amb(2) = 8
amb(3) = 83
amb(4) = 35
End If
If n1 = 57 Then
amb(1) = 39
amb(2) = 21
amb(3) = 70
amb(4) = 34
End If
If n1 = 58 Then
amb(1) = 46
amb(2) = 34
amb(3) = 57
amb(4) = 33
End If
If n1 = 59 Then
amb(1) = 53
amb(2) = 47
amb(3) = 44
amb(4) = 32
End If
If n1 = 60 Then
amb(1) = 60
amb(2) = 31
End If
If n1 = 61 Then
amb(1) = 67
amb(2) = 73
amb(3) = 18
amb(4) = 30
End If
If n1 = 62 Then
amb(1) = 74
amb(2) = 86
amb(3) = 5
amb(4) = 29
End If
If n1 = 63 Then
amb(1) = 81
amb(2) = 9
amb(3) = 82
amb(4) = 28
End If
If n1 = 64 Then
amb(1) = 88
amb(2) = 22
amb(3) = 69
amb(4) = 27
End If
If n1 = 65 Then
amb(1) = 5
amb(2) = 35
amb(3) = 56
amb(4) = 26
End If
If n1 = 66 Then
amb(1) = 12
amb(2) = 48
amb(3) = 43
amb(4) = 25
End If
If n1 = 67 Then
amb(1) = 19
amb(2) = 61
amb(3) = 30
amb(4) = 24
End If
If n1 = 68 Then
amb(1) = 26
amb(2) = 74
amb(3) = 17
amb(4) = 23
End If
If n1 = 69 Then
amb(1) = 33
amb(2) = 87
amb(3) = 4
amb(4) = 22
End If
If n1 = 70 Then
amb(1) = 40
amb(2) = 10
amb(3) = 81
amb(4) = 21
End If
If n1 = 71 Then
amb(1) = 47
amb(2) = 23
amb(3) = 68
amb(4) = 20
End If
If n1 = 72 Then
amb(1) = 54
amb(2) = 36
amb(3) = 55
amb(4) = 19
End If
If n1 = 73 Then
amb(1) = 61
amb(2) = 49
amb(3) = 42
amb(4) = 18
End If
If n1 = 74 Then
amb(1) = 68
amb(2) = 62
amb(3) = 29
amb(4) = 17
End If
If n1 = 75 Then
amb(1) = 75
amb(2) = 75
amb(3) = 16
amb(4) = 16
End If
If n1 = 76 Then
amb(1) = 82
amb(2) = 88
amb(3) = 3
amb(4) = 15
End If
If n1 = 77 Then
amb(1) = 89
amb(2) = 11
amb(3) = 80
amb(4) = 14
End If
If n1 = 78 Then
amb(1) = 6
amb(2) = 24
amb(3) = 67
amb(4) = 13
End If
If n1 = 79 Then
amb(1) = 13
amb(2) = 37
amb(3) = 54
amb(4) = 12
End If
If n1 = 80 Then
amb(1) = 20
amb(2) = 50
amb(3) = 41
amb(4) = 11
End If
If n1 = 81 Then
amb(1) = 27
amb(2) = 63
amb(3) = 28
amb(4) = 10
End If
If n1 = 82 Then
amb(1) = 34
amb(2) = 76
amb(3) = 15
amb(4) = 9
End If
If n1 = 83 Then
amb(1) = 41
amb(2) = 89
amb(3) = 2
amb(4) = 8
End If
If n1 = 84 Then
amb(1) = 48
amb(2) = 12
amb(3) = 79
amb(4) = 7
End If
If n1 = 85 Then
amb(1) = 55
amb(2) = 25
amb(3) = 66
amb(4) = 6
End If
If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If
If n1 = 87 Then
amb(1) = 69
amb(2) = 51
amb(3) = 40
amb(4) = 4
End If
If n1 = 88 Then
amb(1) = 76
amb(2) = 64
amb(3) = 27
amb(4) = 3
End If
If n1 = 89 Then
amb(1) = 83
amb(2) = 77
amb(3) = 14
amb(4) = 2
End If
If n1 = 90 Then
amb(1) = 90
amb(2) = 90
amb(3) = 1
amb(4) = 1
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co),1
ScriviResoconto
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto idea di Mirco63 =================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi "========================================= Modifica by Baffoblu ===============================",1
End Sub
Ultima modifica di un moderatore:
B
Baffoblu
Guest
X blackmore
Nella tua modifica,
Occhio che queste 2 linee
fanno a cazzotti fra loro.....
a = Estratto(n,r1,p1)
n1 = a
Nella tua modifica,
Occhio che queste 2 linee
fanno a cazzotti fra loro.....
a = Estratto(n,r1,p1)
n1 = a
R
Roby
Guest
X blackmore
Nella tua modifica,
Occhio che queste 2 linee
fanno a cazzotti fra loro.....
a = Estratto(n,r1,p1)
n1 = a
Hai ragione Baffo, ho modificato solo il necessario, lasciando tutto il resto com'era
ma quello mi è sfuggito, ora correggo
PS: il tuo listato è molto più ben fatto....
R
Roby
Guest
B
Baffoblu
Guest
Hai ragione Baffo, ho modificato solo il necessario, lasciando tutto il resto com'era
ma quello mi è sfuggito, ora correggo
PS: il tuo listato è molto più ben fatto....
Elimina anche quei cicli For per le ruote
e per le posizioni, che a quanto sembra
non servono a Franca46.
La somma deve essere fuori 90.....
Ps : Quando ho iniziato ad imparare gli script
ho usato i tuoi listati, che per me sono stati preziosi.....
Ciao
Ultima modifica di un moderatore:
DjNomade
Advanced Member >PLATINUM PLUS<
Ciauz sono appena rientrato,innanzitutto ringrazio Black e Baffo per il loro gradito intervento,
e questo è la mia interpretazione della richiesta di Franca46
Ciauz..............
e questo è la mia interpretazione della richiesta di Franca46
Ciauz..............
Codice:
Sub Main()
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo idea di Franca46 =================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim numeri(5),numeri1(5),numeri2(5),amb(5)
Dim posta(2)
Dim poste(2),postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
n1 = Fuori90(SommaEstratti(n,r1))
If n1 = a Then
co = co + 1
Scrivi String(70,"=")
ColoreTesto 9
Scrivi NomeRuota(r1) & _
" Somma estratti----" & SommaEstratti(n,r1) & "----> " & n1 & " ---rintracciato estratto al " & p1 & "° posto",1
Scrivi
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ]",1
Scrivi
ColoreTesto 0
ruota(1) = r1
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If
If n1 = 2 Then
amb(1) = 14
amb(2) = 26
amb(3) = 65
amb(4) = 89
End If
If n1 = 3 Then
amb(1) = 21
amb(2) = 39
amb(3) = 52
amb(4) = 88
End If
If n1 = 4 Then
amb(1) = 28
amb(2) = 52
amb(3) = 39
amb(4) = 87
End If
If n1 = 5 Then
amb(1) = 35
amb(2) = 65
amb(3) = 26
amb(4) = 86
End If
If n1 = 6 Then
amb(1) = 42
amb(2) = 78
amb(3) = 13
amb(4) = 85
End If
If n1 = 7 Then
amb(1) = 49
amb(2) = 1
amb(3) = 90
amb(4) = 84
End If
If n1 = 8 Then
amb(1) = 56
amb(2) = 14
amb(3) = 77
amb(4) = 83
End If
If n1 = 9 Then
amb(1) = 63
amb(2) = 27
amb(3) = 64
amb(4) = 82
End If
If n1 = 10 Then
amb(1) = 70
amb(2) = 40
amb(3) = 51
amb(4) = 81
End If
If n1 = 11 Then
amb(1) = 77
amb(2) = 53
amb(3) = 38
amb(4) = 80
End If
If n1 = 12 Then
amb(1) = 84
amb(2) = 66
amb(3) = 25
amb(4) = 79
End If
If n1 = 13 Then
amb(1) = 1
amb(2) = 79
amb(3) = 12
amb(4) = 78
End If
If n1 = 14 Then
amb(1) = 8
amb(2) = 2
amb(3) = 89
amb(4) = 77
End If
If n1 = 15 Then
amb(1) = 15
amb(2) = 15
amb(3) = 76
amb(4) = 76
End If
If n1 = 16 Then
amb(1) = 22
amb(2) = 28
amb(3) = 63
amb(4) = 75
End If
If n1 = 17 Then
amb(1) = 29
amb(2) = 41
amb(3) = 50
amb(4) = 74
End If
If n1 = 18 Then
amb(1) = 36
amb(2) = 54
amb(3) = 37
amb(4) = 73
End If
If n1 = 19 Then
amb(1) = 43
amb(2) = 67
amb(3) = 24
amb(4) = 72
End If
If n1 = 20 Then
amb(1) = 50
amb(2) = 11
amb(3) = 11
amb(4) = 71
End If
If n1 = 21 Then
amb(1) = 57
amb(2) = 3
amb(3) = 88
amb(4) = 70
End If
If n1 = 22 Then
amb(1) = 64
amb(2) = 16
amb(3) = 75
amb(4) = 69
End If
If n1 = 23 Then
amb(1) = 71
amb(2) = 29
amb(3) = 62
amb(4) = 68
End If
If n1 = 24 Then
amb(1) = 78
amb(2) = 42
amb(3) = 49
amb(4) = 67
End If
If n1 = 25 Then
amb(1) = 85
amb(2) = 55
amb(3) = 36
amb(4) = 66
End If
If n1 = 26 Then
amb(1) = 2
amb(2) = 68
amb(3) = 23
amb(4) = 65
End If
If n1 = 27 Then
amb(1) = 9
amb(2) = 81
amb(3) = 10
amb(4) = 64
End If
If n1 = 28 Then
amb(1) = 16
amb(2) = 4
amb(3) = 87
amb(4) = 63
End If
If n1 = 29 Then
amb(1) = 23
amb(2) = 17
amb(3) = 74
amb(4) = 62
End If
If n1 = 30 Then
amb(1) = 30
amb(2) = 30
amb(3) = 61
amb(4) = 61
End If
If n1 = 31 Then
amb(1) = 37
amb(2) = 43
amb(3) = 48
amb(4) = 60
End If
If n1 = 32 Then
amb(1) = 44
amb(2) = 56
amb(3) = 35
amb(4) = 59
End If
If n1 = 33 Then
amb(1) = 51
amb(2) = 69
amb(3) = 22
amb(4) = 58
End If
If n1 = 34 Then
amb(1) = 58
amb(2) = 82
amb(3) = 9
amb(4) = 57
End If
If n1 = 35 Then
amb(1) = 65
amb(2) = 5
amb(3) = 86
amb(4) = 56
End If
If n1 = 36 Then
amb(1) = 72
amb(2) = 18
amb(3) = 73
amb(4) = 55
End If
If n1 = 37 Then
amb(1) = 79
amb(2) = 31
amb(3) = 60
amb(4) = 54
End If
If n1 = 38 Then
amb(1) = 86
amb(2) = 44
amb(3) = 47
amb(4) = 53
End If
If n1 = 39 Then
amb(1) = 3
amb(2) = 57
amb(3) = 34
amb(4) = 52
End If
If n1 = 40 Then
amb(1) = 10
amb(2) = 70
amb(3) = 21
amb(4) = 51
End If
If n1 = 41 Then
amb(1) = 17
amb(2) = 83
amb(3) = 8
amb(4) = 50
End If
If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If
If n1 = 43 Then
amb(1) = 31
amb(2) = 19
amb(3) = 72
amb(4) = 48
End If
If n1 = 44 Then
amb(1) = 38
amb(2) = 32
amb(3) = 59
amb(4) = 47
End If
If n1 = 45 Then
amb(1) = 45
amb(2) = 45
amb(3) = 46
amb(4) = 46
End If
If n1 = 46 Then
amb(1) = 52
amb(2) = 58
amb(3) = 33
amb(4) = 45
End If
If n1 = 47 Then
amb(1) = 59
amb(2) = 71
amb(3) = 20
amb(4) = 44
End If
If n1 = 48 Then
amb(1) = 66
amb(2) = 84
amb(3) = 7
amb(4) = 43
End If
If n1 = 49 Then
amb(1) = 73
amb(2) = 7
amb(3) = 84
amb(4) = 42
End If
If n1 = 50 Then
amb(1) = 80
amb(2) = 20
amb(3) = 71
amb(4) = 41
End If
If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If
If n1 = 52 Then
amb(1) = 4
amb(2) = 46
amb(3) = 45
amb(4) = 39
End If
If n1 = 53 Then
amb(1) = 11
amb(2) = 59
amb(3) = 32
amb(4) = 38
End If
If n1 = 54 Then
amb(1) = 18
amb(2) = 72
amb(3) = 19
amb(4) = 37
End If
If n1 = 55 Then
amb(1) = 25
amb(2) = 85
amb(3) = 6
amb(4) = 36
End If
If n1 = 56 Then
amb(1) = 32
amb(2) = 8
amb(3) = 83
amb(4) = 35
End If
If n1 = 57 Then
amb(1) = 39
amb(2) = 21
amb(3) = 70
amb(4) = 34
End If
If n1 = 58 Then
amb(1) = 46
amb(2) = 34
amb(3) = 57
amb(4) = 33
End If
If n1 = 59 Then
amb(1) = 53
amb(2) = 47
amb(3) = 44
amb(4) = 32
End If
If n1 = 60 Then
amb(1) = 60
amb(2) = 31
End If
If n1 = 61 Then
amb(1) = 67
amb(2) = 73
amb(3) = 18
amb(4) = 30
End If
If n1 = 62 Then
amb(1) = 74
amb(2) = 86
amb(3) = 5
amb(4) = 29
End If
If n1 = 63 Then
amb(1) = 81
amb(2) = 9
amb(3) = 82
amb(4) = 28
End If
If n1 = 64 Then
amb(1) = 88
amb(2) = 22
amb(3) = 69
amb(4) = 27
End If
If n1 = 65 Then
amb(1) = 5
amb(2) = 35
amb(3) = 56
amb(4) = 26
End If
If n1 = 66 Then
amb(1) = 12
amb(2) = 48
amb(3) = 43
amb(4) = 25
End If
If n1 = 67 Then
amb(1) = 19
amb(2) = 61
amb(3) = 30
amb(4) = 24
End If
If n1 = 68 Then
amb(1) = 26
amb(2) = 74
amb(3) = 17
amb(4) = 23
End If
If n1 = 69 Then
amb(1) = 33
amb(2) = 87
amb(3) = 4
amb(4) = 22
End If
If n1 = 70 Then
amb(1) = 40
amb(2) = 10
amb(3) = 81
amb(4) = 21
End If
If n1 = 71 Then
amb(1) = 47
amb(2) = 23
amb(3) = 68
amb(4) = 20
End If
If n1 = 72 Then
amb(1) = 54
amb(2) = 36
amb(3) = 55
amb(4) = 19
End If
If n1 = 73 Then
amb(1) = 61
amb(2) = 49
amb(3) = 42
amb(4) = 18
End If
If n1 = 74 Then
amb(1) = 68
amb(2) = 62
amb(3) = 29
amb(4) = 17
End If
If n1 = 75 Then
amb(1) = 75
amb(2) = 75
amb(3) = 16
amb(4) = 16
End If
If n1 = 76 Then
amb(1) = 82
amb(2) = 88
amb(3) = 3
amb(4) = 15
End If
If n1 = 77 Then
amb(1) = 89
amb(2) = 11
amb(3) = 80
amb(4) = 14
End If
If n1 = 78 Then
amb(1) = 6
amb(2) = 24
amb(3) = 67
amb(4) = 13
End If
If n1 = 79 Then
amb(1) = 13
amb(2) = 37
amb(3) = 54
amb(4) = 12
End If
If n1 = 80 Then
amb(1) = 20
amb(2) = 50
amb(3) = 41
amb(4) = 11
End If
If n1 = 81 Then
amb(1) = 27
amb(2) = 63
amb(3) = 28
amb(4) = 10
End If
If n1 = 82 Then
amb(1) = 34
amb(2) = 76
amb(3) = 15
amb(4) = 9
End If
If n1 = 83 Then
amb(1) = 41
amb(2) = 89
amb(3) = 2
amb(4) = 8
End If
If n1 = 84 Then
amb(1) = 48
amb(2) = 12
amb(3) = 79
amb(4) = 7
End If
If n1 = 85 Then
amb(1) = 55
amb(2) = 25
amb(3) = 66
amb(4) = 6
End If
If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If
If n1 = 87 Then
amb(1) = 69
amb(2) = 51
amb(3) = 40
amb(4) = 4
End If
If n1 = 88 Then
amb(1) = 76
amb(2) = 64
amb(3) = 27
amb(4) = 3
End If
If n1 = 89 Then
amb(1) = 83
amb(2) = 77
amb(3) = 14
amb(4) = 2
End If
If n1 = 90 Then
amb(1) = 90
amb(2) = 90
amb(3) = 1
amb(4) = 1
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
End If
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================con ricerca somma estratti nell'estrazione di calcolo idea di Franca46 =================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
End Sub
R
Roby
Guest
Sarei curioso di capire come calcoli (se la calcoli) la virtù di ogni numero con il fuori90
Ultima modifica:
B
Baffoblu
Guest
Ciao
da quello che scrive Franca46 :
"io vorrei che il numero di ricerca sia la somma degli estratti di una ruota" .
In pratica :
If n1 = (numero ricerca) Then
fino a....
If n90 = (numero ricerca) Then
Da li il mio script con :
a = Fuori90(SommaEstratti(n,r))' (Numero ricerca)
n1 = a
Escludendo sia il ciclo delle ruote
che quello delle posizioni degli estratti,
a mio parere inutile perchè non richiesto.
-----------------------------------
Anche in quello di DJNomade :
For p1 = 1 To 5' questo ciclo non serve
a = Estratto(n,r1,p1)' questo fa a cazzotti con ( n1= ).
n1 = Fuori90(SommaEstratti(n,r1))' questo fa a cazzotti con ( a = )
If n1 = a Then
----------------------------------
Ragazzi, non mi prendete per il saputello di turno,
la logica mi dice questo, ma potrei anche sbagliarmi....
da quello che scrive Franca46 :
"io vorrei che il numero di ricerca sia la somma degli estratti di una ruota" .
In pratica :
If n1 = (numero ricerca) Then
fino a....
If n90 = (numero ricerca) Then
Da li il mio script con :
a = Fuori90(SommaEstratti(n,r))' (Numero ricerca)
n1 = a
Escludendo sia il ciclo delle ruote
che quello delle posizioni degli estratti,
a mio parere inutile perchè non richiesto.
-----------------------------------
Anche in quello di DJNomade :
For p1 = 1 To 5' questo ciclo non serve
a = Estratto(n,r1,p1)' questo fa a cazzotti con ( n1= ).
n1 = Fuori90(SommaEstratti(n,r1))' questo fa a cazzotti con ( a = )
If n1 = a Then
----------------------------------
Ragazzi, non mi prendete per il saputello di turno,
la logica mi dice questo, ma potrei anche sbagliarmi....
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Baffo, purtroppo devo contraddirti ma nel listato di dj le istruzioni con i cicli for next e if then servono tutte.
Infatti DJ dice una mia libera interpretazione della richiesta di Franca.
Lo script calcola la somma su tutte le ruote ed a ogni estrazione solo nel caso la somma ha come risultato un mumero presente negli estratti da sommare.
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
n1 = Fuori90(SommaEstratti(n,r1))
If n1 = a Then
Torino Somma estratti----273----> 3 ---rintracciato estratto al 4° posto
giovedì, mar 15 2012 [ TO - 58.78.46.03.88 ]
Invece negli altri casi citati hai tutte le ragioni.
Un saluti a tutti gli amici del forum.
Infatti DJ dice una mia libera interpretazione della richiesta di Franca.
Lo script calcola la somma su tutte le ruote ed a ogni estrazione solo nel caso la somma ha come risultato un mumero presente negli estratti da sommare.
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
n1 = Fuori90(SommaEstratti(n,r1))
If n1 = a Then
Torino Somma estratti----273----> 3 ---rintracciato estratto al 4° posto
giovedì, mar 15 2012 [ TO - 58.78.46.03.88 ]
Invece negli altri casi citati hai tutte le ragioni.
Un saluti a tutti gli amici del forum.
R
Roby
Guest
Franca non ho capito, ma a te interessa solo la somma di ogni singola ruota in ogni estrazione?
Esempio:
23-03-2010
Bari = somma 68
Cagliari = somma 49
etc.....
25-03-2010
Bar = somma 38
Cagliari = somma 27
Etc...
Esempio:
23-03-2010
Bari = somma 68
Cagliari = somma 49
etc.....
25-03-2010
Bar = somma 38
Cagliari = somma 27
Etc...
si , sicuramente mi sono espressa male.
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 17 gennaio 2025Bari1087772360Cagliari7533602415Firenze4534664117Genova0565155386Milano2084747601Napoli9029385268Palermo3336022068Roma6812590774Torino0322299028Venezia8124351803Nazionale0631358974Estrazione Simbolotto
Bari
1424171308
