| Autore |
 Discussione  |
|
|
neriana
Utente Fedelissimo
Italy
755 invii |
 Spedito - 28 dicembre 2018 : 20:06:54
|
ho ideato questa formula x identificare ambata determinata nel giro di pochi colpi
Scrivi"==========================="
Sub Main()
Dim num(1)
Dim num1(5)
Dim num2(3)
Dim num3(3)
Dim num4(3)
Dim ruote(10)
Dim poste(3)
Dim post1(10),post2(10),post3(10),post4(10),post5(10)
post1(1) = 1:post1(6) = 1
post2(1) = 1:post2(7) = 1
post3(1) = 1:post3(8) = 1
post4(1) = 1:post4(9) = 1
post5(1) = 1:post5(10) = 1
poste(2) = 1
k=10
tmp = CInt(InputBox("Quante estrazioni controllo?","",10))
r1=InputBox ("Scegli Ruota Calcolo","Ruota Calcolo",1)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
a1 = Estratto(es-1,r1,1)
a11 = Estratto(es,r1,1)
a111=91-Fuori90(a1+ a11)
a2 = Estratto(es-1,r1,2)
a22 = Estratto(es,r1,2)
a222=91-Fuori90(a2+ a22)
a3 = Estratto(es-1,r1,3)
a33 = Estratto(es,r1,3)
a333=91-Fuori90(a3+ a33)
a4 = Estratto(es-1,r1,4)
a44 = Estratto(es,r1,4)
a444=91-Fuori90(a4+ a44)
a5 = Estratto(es-1,r1,5)
a55 = Estratto(es,r1,5)
a555=91-Fuori90(a5+ a55)
Scrivi DataEstrazione(es-1) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es-1,r1) ,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) ,1
ColoreTesto 1
Scrivi"=================",1
Scrivi"S V I L U P P O",1
Scrivi"=================",1
ruote(1) = r1
num(1) = a111
ImpostaGiocata 1,num,ruote,post1,k
num(1) = a222
ImpostaGiocata 2,num,ruote,post2,k
num(1) = a333
ImpostaGiocata 3,num,ruote,post3,k
num(1) = a444
ImpostaGiocata 4,num,ruote,post4,k
num(1) = a555
ImpostaGiocata 5,num,ruote,post5,k
num1(1) = a111
num1(2) = a222
num1(3) = a333
num1(4) = a444
num1(5) = a555
ImpostaGiocata 6,num1,ruote,poste,k
Gioca es
Scrivi"*****************************************************************"
'End If
Next
'Next
'Next
'Next
'Next
'Next
'Next
ScriviResoconto
End Sub
|
sincerità |
Modificato da - neriana su 28 dicembre 2018 20:08:42 |
|
|
franca46
Amministratore
Italy
24536 invii |
Spedito - 28 dicembre 2018 : 21:09:42
|
|
Ciao neriana, bentornata , grazie!!! |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
 |
|
| |
Discussione |
|
|
|
programma l8script determinate
