antonio65
Super Member >PLATINUM<
Salve, mi chiamo Antonio avrei bisogno di un aiuto anche pagando se è possibile...mi spiego: in pratica ho uno script che mi è stato fatto in questo sito
riguardo il 10&lotto 5minuti e 10&lotto serale...lo script funziona benissimo ed è stato creato per cercare i migliori logaritmi.Una volta trovato i logaritmi migliori
apro un nuovo script per verificare l'indice di convenienza etc etc...quest'ultimo script che userei per giocare ha delle anomalie mi spiego: lo script dei logaritmi ad esempio esaminando solo la fascia 1 del 10&lotto 5 minuti una volta individuato il miglior logaritmo mi fa il calcolo corretto cioè individuato il migliore per la prima fascia per giocarlo nell'estrazione successiva e cioè la 2....fin qua tutto ok....quando apro il succesivo script si presentano delle anomalie cioe' anche se impostando i vari parametrici giusti( mi riferisco alle fascie) questo script mi inizia a fare i calcoli un estrazione precedente e quindi tutto sballa...allego lo script con le anomalie...la ringrazio se può aiutarmi....
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main()
Dim Tipoarchivio
Dim Nn(5)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
arch = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",500))
ImpostaArchivio10ELotto(arch)
ini = EstrazioneIniDL - EstrRic
fin = EstrazioneFinDL
Orarin = 1
Orarfi = 1
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
'EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",1000))
ncg = InputBox("QUANTE ESTRAZIONI",,1)
Ini = EstrazioniArchivioDL - EstrRic
Fin = EstrazioniArchivioDL
If arch = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
If arch = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
Call Scrivi
End If
For n = ini To fin
tot = 0
If IndiceAnnualeDL
>= kin And IndiceAnnualeDL <= kfi Then
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
nu1 = Fuori90(Abs(34 + EstrattoDL(n - 1,1)))
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL,1
Scrivi " Estratti in gioco-",1
'Scrivi "ANALISI Dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),1
Scrivi
'If arch = 00 Then Scrivi " solo x 10Lotto5M Range Orario da n.:",1
'If arch > 00 Then Scrivi " solo x 10Lotto5M Range Orario a n. ",1
'Scrivi "COLPI DI GIOCO : " & ncg,1
ColoreTesto 2
'Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi
''''
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,ncg,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n + 1,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoDL(n + - 1,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,ncg,nSorte)
Call GiocaDL(n,True)
End If
End If
Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,01,"Secegli archivio") + 01
End Function
riguardo il 10&lotto 5minuti e 10&lotto serale...lo script funziona benissimo ed è stato creato per cercare i migliori logaritmi.Una volta trovato i logaritmi migliori
apro un nuovo script per verificare l'indice di convenienza etc etc...quest'ultimo script che userei per giocare ha delle anomalie mi spiego: lo script dei logaritmi ad esempio esaminando solo la fascia 1 del 10&lotto 5 minuti una volta individuato il miglior logaritmo mi fa il calcolo corretto cioè individuato il migliore per la prima fascia per giocarlo nell'estrazione successiva e cioè la 2....fin qua tutto ok....quando apro il succesivo script si presentano delle anomalie cioe' anche se impostando i vari parametrici giusti( mi riferisco alle fascie) questo script mi inizia a fare i calcoli un estrazione precedente e quindi tutto sballa...allego lo script con le anomalie...la ringrazio se può aiutarmi....
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main()
Dim Tipoarchivio
Dim Nn(5)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
arch = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",500))
ImpostaArchivio10ELotto(arch)
ini = EstrazioneIniDL - EstrRic
fin = EstrazioneFinDL
Orarin = 1
Orarfi = 1
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
'EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",1000))
ncg = InputBox("QUANTE ESTRAZIONI",,1)
Ini = EstrazioniArchivioDL - EstrRic
Fin = EstrazioniArchivioDL
If arch = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
If arch = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
Call Scrivi
End If
For n = ini To fin
tot = 0
If IndiceAnnualeDL
>= kin And IndiceAnnualeDL <= kfi ThenMessaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
nu1 = Fuori90(Abs(34 + EstrattoDL(n - 1,1)))
Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL
,1Scrivi " Estratti in gioco-",1
'Scrivi "ANALISI Dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),1
Scrivi
'If arch = 00 Then Scrivi " solo x 10Lotto5M Range Orario da n.:",1
'If arch > 00 Then Scrivi " solo x 10Lotto5M Range Orario a n. ",1
'Scrivi "COLPI DI GIOCO : " & ncg,1
ColoreTesto 2
'Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi
''''
Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,ncg,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n + 1,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoDL(n + - 1,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,ncg,nSorte)
Call GiocaDL(n,True)
End If
End If
Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,01,"Secegli archivio") + 01
End Function
