Saòve a tutti ho modificato questo script per farlo funzionare ma devo imparare ancora tanto e perciò vi chiedo una mano
allora io ho inpostato la ricerca dalla prima del mese ma in realtà deve cercare su qualsiasi ruota l'uscita di un gruppo di spie
in una qualsiasi estrazione in una qualsiasi ruota bisogna rintracciare la presenza di almeno un ambo
generato in una delle seguenti formazioni
e sono queste
Formazione spia a =06-77-89
Formazione spia b =33-39-60
Formazione spia c=33-60-83
Formazione spia d=33-77-88
Formazione spia e=86-87-88
es. su roma venivano estratti 33-83 previsione in gioco su roma e tutte esito al quarto colpo
verificate voi stessi
chi ha buona volotà e conoscenza può completare e migliorare i mio script
grazie
verificate e grazie
allora io ho inpostato la ricerca dalla prima del mese ma in realtà deve cercare su qualsiasi ruota l'uscita di un gruppo di spie
in una qualsiasi estrazione in una qualsiasi ruota bisogna rintracciare la presenza di almeno un ambo
generato in una delle seguenti formazioni
e sono queste
Formazione spia a =06-77-89
Formazione spia b =33-39-60
Formazione spia c=33-60-83
Formazione spia d=33-77-88
Formazione spia e=86-87-88
es. su roma venivano estratti 33-83 previsione in gioco su roma e tutte esito al quarto colpo
verificate voi stessi
chi ha buona volotà e conoscenza può completare e migliorare i mio script
grazie
Sub Main()
ColoreTesto 1
Scrivi
Scrivi "TUTTE 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST SIMO",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(1): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim nn6(5)im nn7(5): Dim poste(5)
poste(2) = .50
poste(3) = 1
klp = 10
ini = 9500
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 12
ruote(2) = 11
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = 90
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = 11
nn2(2) = 49
nn2(3) = 90
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = 14
nn3(2) = 20
nn3(3) = 90
ImpostaGiocata 3,nn3,ruote,poste,klp
nn4(1) = 14
nn4(2) = 63
nn4(3) = 90
ImpostaGiocata 4,nn4,ruote,poste,klp
nn5(1) = 20
nn5(2) = 63
nn5(3) = 90
ImpostaGiocata 5,nn5,ruote,poste,klp
nn6(1) = 35
nn6(2) = 63
nn6(3) = 90
ImpostaGiocata 6,nn6,ruote,poste,klp
nn7(1) = 35
nn7(2) = 63
nn7(3) = 90
ImpostaGiocata 7,nn7,ruote,poste,klp
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub
ColoreTesto 1
Scrivi
Scrivi "TUTTE 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST SIMO",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(1): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim nn6(5)im nn7(5): Dim poste(5)
poste(2) = .50
poste(3) = 1
klp = 10
ini = 9500
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 12
ruote(2) = 11
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = 90
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = 11
nn2(2) = 49
nn2(3) = 90
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = 14
nn3(2) = 20
nn3(3) = 90
ImpostaGiocata 3,nn3,ruote,poste,klp
nn4(1) = 14
nn4(2) = 63
nn4(3) = 90
ImpostaGiocata 4,nn4,ruote,poste,klp
nn5(1) = 20
nn5(2) = 63
nn5(3) = 90
ImpostaGiocata 5,nn5,ruote,poste,klp
nn6(1) = 35
nn6(2) = 63
nn6(3) = 90
ImpostaGiocata 6,nn6,ruote,poste,klp
nn7(1) = 35
nn7(2) = 63
nn7(3) = 90
ImpostaGiocata 7,nn7,ruote,poste,klp
Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub
verificate e grazie