per favore aiuto grazie di cuore!!!

[antonio65]

Salve, qualcuno di buon animo può correggermi uno script? in pratica riguarda il gioco 10&lotto 5 minuti e serale..
lo script funziona ma ha un anomalia che non riesco a risolvere mi spiego: con un altro script vado a cercare i migliori algoritmi sommativi ad esempio 1° estratto+5 quante volte mi da l'uscita x per le prossime estrazioni(colpi etc etc) e fin qui tutto ok...solo che lo script che presenta anomalie una volta inserito il miglior algoritmo non mi da le stesse percentuali con lo script programmato per le ricerche appunto dei miglior algoritmi...ora mi sono accorto che hanno un punto di partenza differente di un estrazione.
esempio script che cerca gli algoritmi inizio il conteggio dalla stessa estrazione in cui inizio la ricerca esempio: cerco miglior algoritmo per la fascia n1 quindi una volta scelto il miglior algoritmo andrà per le estrazioni successive quindi 2/3 etc etc in base ai colpi che scelgo..lo script che presenta anomalie invece gioca i migliori algoritmi ma inizia il conteggio un estrazione prima esempio se devo giocare il miglior algoritmo per la fascia1 quindi 1 estrazione del 10&lotto 5 minuti inizia a fare il conteggio (calcolo) dalla 288 estrazione quindi estrazione precedente...qualcuno può risolvere questo problema? anche a pagare...o magari da fare exnovo che sarebbre cosi molto semplice:esempio 1° estratto +5 ed ottengo il risultato da giocare nelle successive estrazioni(semplice no?) allego lo script che mi da problemi...
grazie da Antonio65 !!!


Sub Main
Dim Tipoarchivio
Dim Nn(5)

Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
QN = InputBox("QUANTE ESTRAZIONI",,1)
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
Call ImpostaArchivio10ELotto(Tipoarchivio)
If Tipoarchivio = 01 Then
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",250))

xa = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(xa)

ini = EstrazioneIniDL - EstrRic
fin = EstrazioneFinDL
End If
If Tipoarchivio = 02 Then
'If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
'Call AggiornaArchivioDL
'End If
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",2000))
Ini = EstrazioniArchivioDL - EstrRic
Fin = EstrazioniArchivioDL
End If
For n = ini To fin
tot = 0
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
If IndiceAnnualeDL >= kin And IndiceAnnualeDL <= kfi Then


nu1 = Fuori90(Abs (34+EstrattoDL(n - 1,1)))

Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL,1


Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,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 + 00,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next

Scrivi Format2(EstrattoDL(n + 00,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,QN,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