'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]?",,9572)
cp=InputBox("Per quanti colpi vuoi giocare?",,14)
fin=EstrazioneFin
For n=ini To fin
If Indicemensile
=1 Then
Messaggio DataEstrazione
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