| R E V I S I O N E D E L L A D I S C U S S I O N E |
| franca46 |
Posted - 21 aprile 2023 : 11:34:23
ciao djnomade come si aggiunge il gioco di ambetto in questo listato?
'1° mese Nando52 Una Ambata e Un Ambo Secco su Bari/Cagliari
'https://forum.lottoced.com/threads/solo-una-ambata-e-un-ambo-secco-ba-ca.2190539/
ColoreTesto 1
Scrivi String(37,32) & " - 1° mese Nando52 Un Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0
Sub main()
Dim ruote(10)
Dim numeri1(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
ini=InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10000)
cp=InputBox("Per quanti colpi vuoi giocare?",,14)
fin=EstrazioneFin
For n=ini To fin
If IndiceMensile (n)=1 Then
Messaggio DataEstrazione (n)
ruote(1)=1
ruote(2)=2
ruote(3)=0
ColoreTesto 2 :Scrivi "--1°estrazione del mese Nando52 Ambata e Ambo Secco Bari-Cagliari-----------script by Jai.Jai",1
app=CStr (Estratto(n,1,4))
e=Len(app)
app1=Mid (app,1,1)
app2=Mid (app,2,1)
If e=1 Then
app3=CInt (app1)
Else
app3=CInt (CInt (app1)+CInt (app2))
End If
numeri3(1)=Fuori90(app3+Estratto(n,7,4)+23)
numeri3(2)=0
ImpostaGiocata 1,numeri3,ruote,posta,eval(cp)
ruote(3)=11
numeri3(2)=Fuori90(Estratto(n,6,2)*Estratto(n,6,2)+Estratto(n,9,2)+80)
ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
'ScriviResoconto 1
'ScriviResoconto 2
ColoreTesto 2
End Sub
|
| 3 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 22 aprile 2023 : 21:28:13
Grazie |
| DjNomade |
Posted - 22 aprile 2023 : 21:10:33
Vedi cosi
Ciauz
'1° mese Nando52 Una Ambata e Un Ambo Secco su Bari/Cagliari
'https://forum.lottoced.com/threads/solo-una-ambata-e-un-ambo-secco-ba-ca.2190539/
ColoreTesto 1
Scrivi String(37,32) & " - 1° mese Nando52 Un Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0
Sub main()
Dim ruota(10),ruote(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
ini=InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10000)
cp=InputBox("Per quanti colpi vuoi giocare?",,14)
fin=EstrazioneFin
For n=ini To fin
If IndiceMensile (n)=1 Then
Messaggio DataEstrazione (n)
ruota(1)=1
ruota(2)=2
ruote(1)=1
ruote(2)=2
ruote(3)=11
ColoreTesto 2 :Scrivi "--1°estrazione del mese Nando52 Ambata e Ambo Secco Bari-Cagliari-----------script by Jai.Jai",1
app=CStr (Estratto(n,1,4))
e=Len(app)
app1=Mid (app,1,1)
app2=Mid (app,2,1)
If e=1 Then
app3=CInt (app1)
Else
app3=CInt (CInt (app1)+CInt (app2))
End If
numeri1(1)=Fuori90(app3+Estratto(n,7,4)+23)
ImpostaGiocata 1,numeri1,ruota,posta,eval(cp)
numeri3(1)=Fuori90(app3+Estratto(n,7,4)+23)
numeri3(2)=Fuori90(Estratto(n,6,2)*Estratto(n,6,2)+Estratto(n,9,2)+80)
ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)
numeri4(1)=numeri3(1)
numeri4(2)=Fuori90(numeri3(2)+1)
ImpostaGiocata 3,numeri4,ruote,poste,eval(cp)
numeri5(1)=numeri3(1)
numeri5(2)=Abs(numeri3(2)-1)
ImpostaGiocata 4,numeri5,ruote,poste,eval(cp)
numeri4(1)=Fuori90(numeri3(1)+1)
numeri4(2)=numeri3(2)
ImpostaGiocata 5,numeri4,ruote,poste,eval(cp)
numeri5(1)=Abs(numeri3(1)-1)
numeri5(2)=numeri3(2)
ImpostaGiocata 6,numeri5,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
ScriviResoconto
'ScriviResoconto 2
ColoreTesto 2
End Sub |
| franca46 |
Posted - 21 aprile 2023 : 11:47:57
E' giusto cosi' ?
'1° mese Nando52 Una Ambata e Un Ambo Secco su Bari/Cagliari
'https://forum.lottoced.com/threads/solo-una-ambata-e-un-ambo-secco-ba-ca.2190539/
ColoreTesto 1
Scrivi String(37,32) & " - 1° mese Nando52 Un Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0
Sub main()
Dim ruote(10)
Dim numeri1(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
ini=InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10000)
cp=InputBox("Per quanti colpi vuoi giocare?",,14)
fin=EstrazioneFin
For n=ini To fin
If IndiceMensile (n)=1 Then
Messaggio DataEstrazione (n)
ruote(1)=1
ruote(2)=2
ruote(3)=0
ColoreTesto 2 :Scrivi "--1°estrazione del mese Nando52 Ambata e Ambo Secco Bari-Cagliari-----------script by Jai.Jai",1
app=CStr (Estratto(n,1,4))
e=Len(app)
app1=Mid (app,1,1)
app2=Mid (app,2,1)
If e=1 Then
app3=CInt (app1)
Else
app3=CInt (CInt (app1)+CInt (app2))
End If
numeri3(1)=Fuori90(app3+Estratto(n,7,4)+23)
numeri3(2)=0
ImpostaGiocata 1,numeri3,ruote,posta,eval(cp)
ruote(3)=11
numeri3(2)=Fuori90(Estratto(n,6,2)*Estratto(n,6,2)+Estratto(n,9,2)+80)
ImpostaGiocata 2,numeri3,ruote,poste,eval(cp)
ruote(3)=11
numeri4(1)=numeri3(1)
numeri4(2)=Fuori90(numeri3(2)+1)
ImpostaGiocata 3,numeri4,ruote,poste,eval(cp)
ruote(3)=11
numeri5(1)=numeri3(1)
numeri5(2)=Abs(numeri3(2)-1)
ImpostaGiocata 5,numeri5,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
'ScriviResoconto 1
'ScriviResoconto 2
ColoreTesto 2
End Sub |
|
|
