a chi interessa questo è lo script :
'18-12-2018
ColoreTesto 1
Scrivi String(37,32) & " METODO New BARI-CAGLIARI a ogni estrazione",1
Scrivi
Scrivi String(48,32) & "Listato BubùLotto ",1
ColoreTesto 0
Sub Main()
TestoInBandaPassante "************* BubùLotto Production Presenta *****************",1,1,5
Scrivi
ColoreTesto 1
TestoInBandaPassante "===== New BARI & CAGLIARI ad ogni estrazione by BubùLotto ======",1
ColoreTesto 0
Scrivi " ------------------------------------------------------------------",1
ColoreTesto 1
TestoInBandaPassante "================ Listato by BubùLotto ================",1
Scrivi "-------------------------------------------------------------------",1
ColoreTesto 2
TestoInBandaPassante "======= SI_RACCOMANDA_LA_MASSIMA_MODERAZIONE_NELLE_GIOCATE ========",1
ColoreTesto 0
Dim ruote(10)
Dim numeri(10),numeri1(10),numeri3(10),numeri4(10),numeri5(10)
Dim posta(10),posta1(10)
Dim poste(5),postee(5)
posta(1) = 1
poste(5) = 2
posta1(7) = 1
posta1(8) = 1
posta1(9) = 1
es = InputBox("Quante estrazioni vuoi analizzare?",,100)
cp = InputBox("Per quanti colpi vuoi giocare?",,6)
ruote(1) = 1
ruote(2) = 2
ini = EstrazioneFin - eval(es)
fin = EstrazioneFin
For n = ini To fin
'If IndiceMensile
=1 Then
Messaggio DataEstrazione
a = Fuori90(Estratto(n,1,1) + Estratto(n,2,5) + 00) 'ambata
a1 = Vert(a)' Seconda Ambata
b = Fuori90(Abs(Estratto(n,1,2) - Estratto(n,2,2))*7)'Terza Ambata
b1 = Vert(b)' Quarta Ambata
c = Fuori90(Estratto(n,1,1) + Estratto(n,2,1))'Primo abbinamento o (AMBATA per Recupero)
c1 = Diametrale(c)'Secondo abbinamento o (AMBATA per Recupero)
ColoreTesto 2 :Scrivi "-----------------------------",1
numeri(1) = a
numeri(2) = a1
ImpostaGiocata 1,numeri,ruote,posta1,eval(cp)
numeri(1) = b
numeri(2) = b1
ImpostaGiocata 2,numeri,ruote,posta1,eval(cp)
numeri(1) = c
numeri(2) = c1
ImpostaGiocata 3,numeri,ruote,posta1,eval(cp)
numeri1(1) = a
numeri1(2) = a1
numeri1(3) = b
numeri1(4) = b1
ImpostaGiocata 4,numeri1,ruote,posta,eval(cp)
numeri1(1) = a
numeri1(2) = a1
numeri1(3) = c
numeri1(4) = c1
ImpostaGiocata 5,numeri1,ruote,posta,eval(cp)
numeri1(1) = b
numeri1(2) = b1
numeri1(3) = c
numeri1(4) = c1
ImpostaGiocata 6,numeri1,ruote,posta,eval(cp)
Gioca n
'End If
Next
Scrivi
ScriviResoconto
ColoreTesto 2
End Sub
Buona serata
