in viaggio per il natale
CONDIZIONI
--------------------
Indice mensile: 1
Ruote di gioco: TO;VE;
Colpi: 13
sviluppo numeri
--------------------
1) Ambata : 1° di NA + 33 [0] -> TO,VE;
2) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 1° di TO + 31 [0] -> TO,VE;
3) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 5° di PA + 60 [0] -> TO,VE;
4) lunghetta : 1° di NA + 33 [0] -> TO,VE; Abb. : 1° di TO + 31 [0] -> TO,VE; Abb. : 1° di NA + 2 [0] -> TO,VE; Abb. : 4° di NA + 30 [0] -> TO,VE;
NON SONO MOLTO BRAVO CON GLI SCRIPT MA CI PROVO
Option Explicit
Sub Main
' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
Const BA_ = 1
Const CA_ = 2
Const FI_ = 3
Const GE_ = 4
Const MI_ = 5 ' ? Milano = 5
Const NA_ = 6 ' ? Napoli = 6
Const PA_ = 7
Const RM_ = 8
Const TO_ = 9
Const VE_ = 10
Const NZ_ = 11 ' ? Nazionale = 11
Const TT_ = 12 ' ? Tutte = 12
Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,N5,N6,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,E,F,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Ambo2(5),Ambo3(3),Posta(1),Poste(2),Ruo(3),Ruo1(2),Ruo3(3)
FIn = EstrazioneFin
If FIn < 1 Then
MsgBox "Archivio estrazioni non disponibile!",vbCritical
Exit Sub
End If
' --- Input utente ---
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 200)
If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
Ini = CLng(Ini)
Clp = InputBox("Per quanti colpi vuoi giocare?",,13)
If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 13
Clp = CInt(Clp)
Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 13)",,1)
If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
Ind_Me = CInt(Ind_Me)
Posta(1) = 1
Poste(2) = 1
Ruo(1) = TO_ : Ruo(2) = VE_: Ruo3(1) = NZ_
Casi = 0
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Dim tA,tB,tC,tD,tE,tF
tA = Estratto(Es,NA_,1) ' NA, 1° estratto
tB = Estratto(Es,TO_,1) ' TO, 1° estratto
tC = Estratto(Es,PA_,5) ' PA, 5° estratto
tD = Estratto(Es,NA_,4) ' NA, 4° estratto
tE = Estratto(Es,PA_,1) ' PA , 1° estratto
tF = Estratto(Es,RM_,2) ' RM, 2° estratto
If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Or IsNull(tE) Or IsNull(tF) Then
Continue
End If
A = CInt(tA)
B = CInt(tB)
C = CInt(tC)
D = CInt(tD)
E = CInt(tE)
F = CInt(tF)
N1 = Fuori90(A + 33)
N2 = Fuori90(B + 31)
N3 = Fuori90(C + 60)
N4 = Fuori90(A + 2)
N5 = Fuori90(D + 30)
Caso = Caso + 1
Casi = Casi + 1
' --- Stampa ---
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " & Es & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0
Scrivi " INDICE MENSILE: " & Ind_Me & " | Gruppo1=" & N1 & "." & N2 & "." & N3 & " | Gruppo2=" & N4 & "." & N5 & "." & N6,1
Scrivi
If N1 Then
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,3
End If
If N1 <> N2 And N1 <> N3 And N2 <> N3 Then
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
End If
If N1 <> N3 Then
Ambo1(1) = N1 : Ambo1(2) = N3 :
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,3
End If
If N1 <> N2 <> N3 <> N4 <> N5 Then
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 :Ambo2(4) = N4 :Ambo2(5) = N5 :
ImpostaGiocata 4,Ambo2,Ruo3,Poste,Clp,3
End If
Gioca Es
Scrivi Space(20) & "VERIFICA AMBETTI",1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
CONDIZIONI
--------------------
Indice mensile: 1
Ruote di gioco: TO;VE;
Colpi: 13
sviluppo numeri
--------------------
1) Ambata : 1° di NA + 33 [0] -> TO,VE;
2) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 1° di TO + 31 [0] -> TO,VE;
3) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 5° di PA + 60 [0] -> TO,VE;
4) lunghetta : 1° di NA + 33 [0] -> TO,VE; Abb. : 1° di TO + 31 [0] -> TO,VE; Abb. : 1° di NA + 2 [0] -> TO,VE; Abb. : 4° di NA + 30 [0] -> TO,VE;
NON SONO MOLTO BRAVO CON GLI SCRIPT MA CI PROVO
Option Explicit
Sub Main
' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
Const BA_ = 1
Const CA_ = 2
Const FI_ = 3
Const GE_ = 4
Const MI_ = 5 ' ? Milano = 5
Const NA_ = 6 ' ? Napoli = 6
Const PA_ = 7
Const RM_ = 8
Const TO_ = 9
Const VE_ = 10
Const NZ_ = 11 ' ? Nazionale = 11
Const TT_ = 12 ' ? Tutte = 12
Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,N5,N6,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,E,F,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Ambo2(5),Ambo3(3),Posta(1),Poste(2),Ruo(3),Ruo1(2),Ruo3(3)
FIn = EstrazioneFin
If FIn < 1 Then
MsgBox "Archivio estrazioni non disponibile!",vbCritical
Exit Sub
End If
' --- Input utente ---
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 200)
If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
Ini = CLng(Ini)
Clp = InputBox("Per quanti colpi vuoi giocare?",,13)
If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 13
Clp = CInt(Clp)
Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 13)",,1)
If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
Ind_Me = CInt(Ind_Me)
Posta(1) = 1
Poste(2) = 1
Ruo(1) = TO_ : Ruo(2) = VE_: Ruo3(1) = NZ_
Casi = 0
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Dim tA,tB,tC,tD,tE,tF
tA = Estratto(Es,NA_,1) ' NA, 1° estratto
tB = Estratto(Es,TO_,1) ' TO, 1° estratto
tC = Estratto(Es,PA_,5) ' PA, 5° estratto
tD = Estratto(Es,NA_,4) ' NA, 4° estratto
tE = Estratto(Es,PA_,1) ' PA , 1° estratto
tF = Estratto(Es,RM_,2) ' RM, 2° estratto
If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Or IsNull(tE) Or IsNull(tF) Then
Continue
End If
A = CInt(tA)
B = CInt(tB)
C = CInt(tC)
D = CInt(tD)
E = CInt(tE)
F = CInt(tF)
N1 = Fuori90(A + 33)
N2 = Fuori90(B + 31)
N3 = Fuori90(C + 60)
N4 = Fuori90(A + 2)
N5 = Fuori90(D + 30)
Caso = Caso + 1
Casi = Casi + 1
' --- Stampa ---
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " & Es & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0
Scrivi " INDICE MENSILE: " & Ind_Me & " | Gruppo1=" & N1 & "." & N2 & "." & N3 & " | Gruppo2=" & N4 & "." & N5 & "." & N6,1
Scrivi
If N1 Then
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,3
End If
If N1 <> N2 And N1 <> N3 And N2 <> N3 Then
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
End If
If N1 <> N3 Then
Ambo1(1) = N1 : Ambo1(2) = N3 :
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,3
End If
If N1 <> N2 <> N3 <> N4 <> N5 Then
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 :Ambo2(4) = N4 :Ambo2(5) = N5 :
ImpostaGiocata 4,Ambo2,Ruo3,Poste,Clp,3
End If
Gioca Es
Scrivi Space(20) & "VERIFICA AMBETTI",1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
