Novità

SIMBOLOTTO

vinci

vinci

Super Member >GOLD<
Ciao a tutti.
Ho modificato un vecchio listato trovato in rete adattandolo al SIMBOLOTTO.
Ogni mese il metodo ricava una cinquina abbinata alla ruota del simbolotto stesso
con 12 metodi diversi uno dall'altro nell'arco dell'anno.
Ho preso un periodo di 36 mesi dove nell'arco dei 10 colpi ha dato anche 1 quaterna,
qualche terno e un po di ambi e però anche tanti esiti negativi.
Se a qualcuno piacesse l'idea, si potrebbe cimentare nel ricavare una metodologia
che fornisca molti più casi positivi che in questo caso si attestano a circa il 20%
Grazie in anticipo e a seguire lo script
======================================================================





Sub Main()
Scrivi " 1 CINQUINA ALLA 3°DEL MESE (OGNI MESE CONTIENE UN METODO DIVERSO)SIMBOLOTTO ",1,,1,5,4:Scrivi
Scrivi " MATEMATICA SOMMATIVA : METODO E SCRIPT ROBERTO VINCI MODIFICATO ",1,,1,5,4:Scrivi:Scrivi
Scrivi
Scrivi " LEGENDA COLORI RUOTE ",1,,0,5,2 : Scrivi
Scrivi " RUOTA DI BARI ",1,,2,vbYellow,3
Scrivi " RUOTA DI CAGLIARI ",1,,1,vbYellow,3
Scrivi " RUOTA DI FIRENZE ",1,,RGB(128,64,0),5,3
Scrivi " RUOTA DI GENOVA ",1,,vbGreen,0,3
Scrivi " RUOTA DI MILANO ",1,,vbMagenta,5,3
Scrivi " RUOTA DI NAPOLI ",1,,2,vbYellow,3
Scrivi " RUOTA DI PALERMO ",1,,1,vbYellow,3
Scrivi " RUOTA DI ROMA ",1,,RGB(128,64,0),5,3
Scrivi " RUOTA DI TORINO ",1,,vbGreen,0,3
Scrivi " RUOTA DI VENEZIA ",1,,vbMagenta,5,3
Scrivi " RUOTA DI NAZIONALE ",1,,vbGreen,0,3


Scrivi:Scrivi
Dim ruota(1)
Dim num(5),anum(5)
Dim poste(5)
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.05
poste(5) = 0.05
klp = InputBox("QUANTI COLPI DI GIOCO ? "," B Y BY ",10)
ini = InputBox("INZIO RICERCA DALL' ESTRAZIONE N° ? "," B Y BY ",9764)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio " ========> MATEMATICA SOMMATIVA BY BY <======== "
If IndiceMensile(es) = 3 Then
m = Mese(es)
Select Case(m)
Case(01): n1 = Fuori90(Estratto(es,BA_,5) + Estratto(es,PA_,3) + 03):n2 = Fuori90(Estratto(es,CA_,2) - Estratto(es,NA_,4) + 88):n3 = Fuori90(Estratto(es,GE_,2) + Estratto(es,RO_,2) + 38):n4 = Fuori90(Estratto(es,NA_,1) + Estratto(es,TO_,5) + 02):n5 = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,RO_,3) + 01):r = BA_
Case(02): n1 = Fuori90(Estratto(es,PA_,2) - Estratto(es,CA_,5) + 24):n2 = Fuori90(Estratto(es,RO_,1) + Estratto(es,RO_,4) + 18):n3 = Fuori90(Estratto(es,PA_,3) - Estratto(es,MI_,4) + 71):n4 = Fuori90(Estratto(es,GE_,2) - Estratto(es,CA_,4) + 81):n5 = Fuori90(Estratto(es,GE_,1) + Estratto(es,RO_,2) + 02):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,4) + 01):r = CA_
Case(03): n1 = Fuori90(Estratto(es,VE_,3) - Estratto(es,GE_,4) + 38):n2 = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,3) + 54):n3 = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,2) + 86):n4 = Fuori90(Estratto(es,NA_,1) + Estratto(es,NA_,4) + 02):n5 = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,4) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,1) + 01):r = FI_
Case(04): n1 = Fuori90(Estratto(es,CA_,1) + Estratto(es,CA_,4) + 73):n2 = Fuori90(Estratto(es,GE_,2) + Estratto(es,MI_,4) + 34):n3 = Fuori90(Estratto(es,NA_,4) + Estratto(es,PA_,4) + 15):n4 = Fuori90(Estratto(es,TO_,2) - Estratto(es,NA_,2) + 15):n5 = Fuori90(Estratto(es,CA_,1) + Estratto(es,TO_,4) + 10):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,5) + 01):r = GE_
Case(05): n1 = Fuori90(Estratto(es,GE_,1) + Estratto(es,VE_,1) + 09):n2 = Fuori90(Estratto(es,RO_,5) + Estratto(es,VE_,1) + 09):n3 = Fuori90(Estratto(es,PA_,4) - Estratto(es,GE_,2) + 45):n4 = Fuori90(Estratto(es,TO_,1) - Estratto(es,PA_,5) + 68):n5 = Fuori90(Estratto(es,BA_,2) + Estratto(es,PA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,4) + 01):r = MI_
Case(06): n1 = Fuori90(Estratto(es,FI_,4) - Estratto(es,CA_,1) + 27):n2 = Fuori90(Estratto(es,FI_,5) + Estratto(es,RO_,4) + 16):n3 = Fuori90(Estratto(es,MI_,5) + Estratto(es,TO_,4) + 06):n4 = Fuori90(Estratto(es,BA_,2) + Estratto(es,NA_,3) + 13):n5 = Fuori90(Estratto(es,BA_,5) + Estratto(es,CA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,3) + 01):r = NA_
Case(07): n1 = Fuori90(Estratto(es,CA_,3) + Estratto(es,TO_,5) + 68):n2 = Fuori90(Estratto(es,BA_,2) + Estratto(es,FI_,3) + 02):n3 = Fuori90(Estratto(es,NA_,5) + Estratto(es,VE_,2) + 42):n4 = Fuori90(Estratto(es,PA_,4) + Estratto(es,TO_,3) + 63):n5 = Fuori90(Estratto(es,FI_,2) + Estratto(es,MI_,1) + 12):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,1) + 01):r = NZ_
Case(08): n1 = Fuori90(Estratto(es,NA_,1) + Estratto(es,RO_,5) + 59):n2 = Fuori90(Estratto(es,MI_,5) + Estratto(es,RO_,3) + 72):n3 = Fuori90(Estratto(es,MI_,2) + Estratto(es,NA_,2) + 04):n4 = Fuori90(Estratto(es,NA_,3) + Estratto(es,VE_,2) + 02):n5 = Fuori90(Estratto(es,TO_,5) + Estratto(es,VE_,1) + 71):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,2) + 01):r = NZ_
Case(09): n1 = Fuori90(Estratto(es,GE_,2) + Estratto(es,GE_,5) + 15):n2 = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,2) + 79):n3 = Fuori90(Estratto(es,GE_,1) - Estratto(es,VE_,1) + 42):n4 = Fuori90(Estratto(es,RO_,5) - Estratto(es,MI_,4) + 34):n5 = Fuori90(Estratto(es,BA_,3) + Estratto(es,PA_,2) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,3) + 01):r = PA_
Case(10): n1 = Fuori90(Estratto(es,CA_,5) + Estratto(es,VE_,4) + 84):n2 = Fuori90(Estratto(es,NA_,5) + Estratto(es,TO_,2) + 50):n3 = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,2) + 64):n4 = Fuori90(Estratto(es,MI_,5) - Estratto(es,BA_,5) + 83):n5 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,4) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,GE_,4) + 01):r = RO_
Case(11): n1 = Fuori90(Estratto(es,MI_,3) + Estratto(es,PA_,1) + 56):n2 = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,4) + 62):n3 = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 30):n4 = Fuori90(Estratto(es,FI_,4) + Estratto(es,TO_,2) + 01):n5 = Fuori90(Estratto(es,CA_,5) + Estratto(es,VE_,2) + 10):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,3) + 01):r = TO_
Case(12): n1 = Fuori90(Estratto(es,FI_,4) + Estratto(es,TO_,2) + 61):n2 = Fuori90(Estratto(es,CA_,5) - Estratto(es,PA_,1) + 62):n3 = Fuori90(Estratto(es,FI_,1) + Estratto(es,GE_,1) + 32):n4 = Fuori90(Estratto(es,BA_,5) + Estratto(es,VE_,4) + 37):n5 = Fuori90(Estratto(es,CA_,4) + Estratto(es,FI_,1) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,4) + 01):r = VE_
End Select
ruota(1) = r
cs = cs + 1
Scrivi String(110,"¤") & " Caso n°" & Format2(cs),1,,RGB(234,255,255),0,2 :ColoreTesto 1
If r = BA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,2,vbYellow,4
If r = CA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,1,vbYellow,4
If r = FI_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,RGB(128,64,0),5,4
If r = GE_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
If r = MI_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbMagenta,5,4
If r = NA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,2,vbYellow,4
If r = PA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,1,vbYellow,4
If r = RO_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,RGB(128,64,0),5,4
If r = TO_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
If r = VE_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbMagenta,5,4
If r = NZ_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
num(1) = n1
num(2) = n2
num(3) = n3
num(4) = n4
num(5) = n5
EliminaRipetuti num
ImpostaGiocata 1,num,ruota,poste,klp
Gioca es,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi
Scrivi:ScriviResoconto
End Sub
 
vinci

vinci

Super Member >GOLD<
Questa risposta è solo per riproporre di nuovo la mia richiesta.
Grazie a chi potrà interessare
 
vinci

vinci

Super Member >GOLD<
Nuova previsione per maggio

MILANO
19.37.66.72.86

Per ambo,terno,quaterna e cinquina per i prossimi 10 colpi
 
C

cavaleri

Super Member >GOLD<
vinci ha scritto:
Ciao a tutti.
Ho modificato un vecchio listato trovato in rete adattandolo al SIMBOLOTTO.
Ogni mese il metodo ricava una cinquina abbinata alla ruota del simbolotto stesso
con 12 metodi diversi uno dall'altro nell'arco dell'anno.
Ho preso un periodo di 36 mesi dove nell'arco dei 10 colpi ha dato anche 1 quaterna,
qualche terno e un po di ambi e però anche tanti esiti negativi.
Se a qualcuno piacesse l'idea, si potrebbe cimentare nel ricavare una metodologia
che fornisca molti più casi positivi che in questo caso si attestano a circa il 20%
Grazie in anticipo e a seguire lo script
======================================================================





Sub Main()
Scrivi " 1 CINQUINA ALLA 3°DEL MESE (OGNI MESE CONTIENE UN METODO DIVERSO)SIMBOLOTTO ",1,,1,5,4:Scrivi
Scrivi " MATEMATICA SOMMATIVA : METODO E SCRIPT ROBERTO VINCI MODIFICATO ",1,,1,5,4:Scrivi:Scrivi
Scrivi
Scrivi " LEGENDA COLORI RUOTE ",1,,0,5,2 : Scrivi
Scrivi " RUOTA DI BARI ",1,,2,vbYellow,3
Scrivi " RUOTA DI CAGLIARI ",1,,1,vbYellow,3
Scrivi " RUOTA DI FIRENZE ",1,,RGB(128,64,0),5,3
Scrivi " RUOTA DI GENOVA ",1,,vbGreen,0,3
Scrivi " RUOTA DI MILANO ",1,,vbMagenta,5,3
Scrivi " RUOTA DI NAPOLI ",1,,2,vbYellow,3
Scrivi " RUOTA DI PALERMO ",1,,1,vbYellow,3
Scrivi " RUOTA DI ROMA ",1,,RGB(128,64,0),5,3
Scrivi " RUOTA DI TORINO ",1,,vbGreen,0,3
Scrivi " RUOTA DI VENEZIA ",1,,vbMagenta,5,3
Scrivi " RUOTA DI NAZIONALE ",1,,vbGreen,0,3


Scrivi:Scrivi
Dim ruota(1)
Dim num(5),anum(5)
Dim poste(5)
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.05
poste(5) = 0.05
klp = InputBox("QUANTI COLPI DI GIOCO ? "," B Y BY ",10)
ini = InputBox("INZIO RICERCA DALL' ESTRAZIONE N° ? "," B Y BY ",9764)
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio " ========> MATEMATICA SOMMATIVA BY BY <======== "
If IndiceMensile(es) = 3 Then
m = Mese(es)
Select Case(m)
Case(01): n1 = Fuori90(Estratto(es,BA_,5) + Estratto(es,PA_,3) + 03):n2 = Fuori90(Estratto(es,CA_,2) - Estratto(es,NA_,4) + 88):n3 = Fuori90(Estratto(es,GE_,2) + Estratto(es,RO_,2) + 38):n4 = Fuori90(Estratto(es,NA_,1) + Estratto(es,TO_,5) + 02):n5 = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,RO_,3) + 01):r = BA_
Case(02): n1 = Fuori90(Estratto(es,PA_,2) - Estratto(es,CA_,5) + 24):n2 = Fuori90(Estratto(es,RO_,1) + Estratto(es,RO_,4) + 18):n3 = Fuori90(Estratto(es,PA_,3) - Estratto(es,MI_,4) + 71):n4 = Fuori90(Estratto(es,GE_,2) - Estratto(es,CA_,4) + 81):n5 = Fuori90(Estratto(es,GE_,1) + Estratto(es,RO_,2) + 02):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,4) + 01):r = CA_
Case(03): n1 = Fuori90(Estratto(es,VE_,3) - Estratto(es,GE_,4) + 38):n2 = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,3) + 54):n3 = Fuori90(Estratto(es,BA_,2) + Estratto(es,TO_,2) + 86):n4 = Fuori90(Estratto(es,NA_,1) + Estratto(es,NA_,4) + 02):n5 = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,4) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,1) + 01):r = FI_
Case(04): n1 = Fuori90(Estratto(es,CA_,1) + Estratto(es,CA_,4) + 73):n2 = Fuori90(Estratto(es,GE_,2) + Estratto(es,MI_,4) + 34):n3 = Fuori90(Estratto(es,NA_,4) + Estratto(es,PA_,4) + 15):n4 = Fuori90(Estratto(es,TO_,2) - Estratto(es,NA_,2) + 15):n5 = Fuori90(Estratto(es,CA_,1) + Estratto(es,TO_,4) + 10):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,FI_,5) + 01):r = GE_
Case(05): n1 = Fuori90(Estratto(es,GE_,1) + Estratto(es,VE_,1) + 09):n2 = Fuori90(Estratto(es,RO_,5) + Estratto(es,VE_,1) + 09):n3 = Fuori90(Estratto(es,PA_,4) - Estratto(es,GE_,2) + 45):n4 = Fuori90(Estratto(es,TO_,1) - Estratto(es,PA_,5) + 68):n5 = Fuori90(Estratto(es,BA_,2) + Estratto(es,PA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,VE_,4) + 01):r = MI_
Case(06): n1 = Fuori90(Estratto(es,FI_,4) - Estratto(es,CA_,1) + 27):n2 = Fuori90(Estratto(es,FI_,5) + Estratto(es,RO_,4) + 16):n3 = Fuori90(Estratto(es,MI_,5) + Estratto(es,TO_,4) + 06):n4 = Fuori90(Estratto(es,BA_,2) + Estratto(es,NA_,3) + 13):n5 = Fuori90(Estratto(es,BA_,5) + Estratto(es,CA_,5) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,3) + 01):r = NA_
Case(07): n1 = Fuori90(Estratto(es,CA_,3) + Estratto(es,TO_,5) + 68):n2 = Fuori90(Estratto(es,BA_,2) + Estratto(es,FI_,3) + 02):n3 = Fuori90(Estratto(es,NA_,5) + Estratto(es,VE_,2) + 42):n4 = Fuori90(Estratto(es,PA_,4) + Estratto(es,TO_,3) + 63):n5 = Fuori90(Estratto(es,FI_,2) + Estratto(es,MI_,1) + 12):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,1) + 01):r = NZ_
Case(08): n1 = Fuori90(Estratto(es,NA_,1) + Estratto(es,RO_,5) + 59):n2 = Fuori90(Estratto(es,MI_,5) + Estratto(es,RO_,3) + 72):n3 = Fuori90(Estratto(es,MI_,2) + Estratto(es,NA_,2) + 04):n4 = Fuori90(Estratto(es,NA_,3) + Estratto(es,VE_,2) + 02):n5 = Fuori90(Estratto(es,TO_,5) + Estratto(es,VE_,1) + 71):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,2) + 01):r = NZ_
Case(09): n1 = Fuori90(Estratto(es,GE_,2) + Estratto(es,GE_,5) + 15):n2 = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,2) + 79):n3 = Fuori90(Estratto(es,GE_,1) - Estratto(es,VE_,1) + 42):n4 = Fuori90(Estratto(es,RO_,5) - Estratto(es,MI_,4) + 34):n5 = Fuori90(Estratto(es,BA_,3) + Estratto(es,PA_,2) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,3) + 01):r = PA_
Case(10): n1 = Fuori90(Estratto(es,CA_,5) + Estratto(es,VE_,4) + 84):n2 = Fuori90(Estratto(es,NA_,5) + Estratto(es,TO_,2) + 50):n3 = Fuori90(Estratto(es,BA_,4) + Estratto(es,MI_,2) + 64):n4 = Fuori90(Estratto(es,MI_,5) - Estratto(es,BA_,5) + 83):n5 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,4) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,GE_,4) + 01):r = RO_
Case(11): n1 = Fuori90(Estratto(es,MI_,3) + Estratto(es,PA_,1) + 56):n2 = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,4) + 62):n3 = Fuori90(Estratto(es,RO_,1) + Estratto(es,VE_,2) + 30):n4 = Fuori90(Estratto(es,FI_,4) + Estratto(es,TO_,2) + 01):n5 = Fuori90(Estratto(es,CA_,5) + Estratto(es,VE_,2) + 10):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,3) + 01):r = TO_
Case(12): n1 = Fuori90(Estratto(es,FI_,4) + Estratto(es,TO_,2) + 61):n2 = Fuori90(Estratto(es,CA_,5) - Estratto(es,PA_,1) + 62):n3 = Fuori90(Estratto(es,FI_,1) + Estratto(es,GE_,1) + 32):n4 = Fuori90(Estratto(es,BA_,5) + Estratto(es,VE_,4) + 37):n5 = Fuori90(Estratto(es,CA_,4) + Estratto(es,FI_,1) + 01):m1 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,4) + 01):r = VE_
End Select
ruota(1) = r
cs = cs + 1
Scrivi String(110,"¤") & " Caso n°" & Format2(cs),1,,RGB(234,255,255),0,2 :ColoreTesto 1
If r = BA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,2,vbYellow,4
If r = CA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,1,vbYellow,4
If r = FI_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,RGB(128,64,0),5,4
If r = GE_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
If r = MI_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbMagenta,5,4
If r = NA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,2,vbYellow,4
If r = PA_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,1,vbYellow,4
If r = RO_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,RGB(128,64,0),5,4
If r = TO_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
If r = VE_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbMagenta,5,4
If r = NZ_ Then Scrivi FormatSpace(DataEstrazione(es),10) & " " & IndiceMensile(es) & "°Del Mese: 1 Cinquina Su " & NomeRuota(r) & " Per " & klp & " Colpi Nel Mese di [" & UCase(MeseNome(m)) & "]",1,,vbGreen,0,4
num(1) = n1
num(2) = n2
num(3) = n3
num(4) = n4
num(5) = n5
EliminaRipetuti num
ImpostaGiocata 1,num,ruota,poste,klp
Gioca es,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi
Scrivi:ScriviResoconto
End Sub
Clicca per espandere...
Grazie, lo puoi far adattare al programma L8+?
Ancora grazie.
 
vinci

vinci

Super Member >GOLD<
Ciao cavalieri, io ho solo spaziometria e non conosco l8+ quindi non posso aiutarti mi dispiace. Giriamo la richiesta a chi lo sa fare anche se il metodo andrebbe migliorato come già richiesto in precedenza.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 03 maggio 2024
    Bari
    38
    11
    08
    19
    81
    Cagliari
    69
    50
    27
    65
    06
    Firenze
    60
    05
    42
    75
    84
    Genova
    17
    29
    71
    48
    80
    Milano
    02
    33
    81
    85
    63
    Napoli
    12
    10
    29
    51
    84
    Palermo
    04
    21
    69
    79
    50
    Roma
    62
    72
    84
    30
    90
    Torino
    41
    33
    46
    03
    68
    Venezia
    03
    29
    10
    85
    33
    Nazionale
    72
    03
    82
    37
    58
    Estrazione Simbolotto
    Milano
    19
    22
    24
    08
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto