Aiuto mike58-di saronno-magia blackmore-ramco

[antonio65]

Ciao a tutti, chiederei un aiutino per uno script che mi ha bloccato...ho già uno script che mi è stato programmato da grandi esperti Mike 58 ,di saronno moro 80 e magia...lo script funziona perfettamente e cerca i migliori algoritmi sia per 10&lotto 5 minuti sia per quello serale...una volta scelti i migliori algoritmi devo usare un altro script per giocare e con la funzione imposta gioco le utilità etc etc...mi sono accorto però che lo script che uso per giocare inizia sempre un estrazione indietro faccio un esempio : ad esempio inizio a fare le previsioni su tutte le prime estrazioni e l'algoritmo parte il conteggio dalla 288 se inizio dalla 2 parte dalla 1...mi sono messo a dura ho provato (non sono esperto) smanettato ma niente...quindi tra lo script che cerca gli algoritmi e il secondo script che uso per giocare c'è uno sfasamento il primo è corretto il secondo script inizia il calcolo un estrazione prima...insomma vi chiedo un aiuto cortesemente anche a pagare il lavoro...(non ne posso più) per quello che ho capitto l'errore potrebbe essere in questa dicitura Scrivi Format2(EstrattoDL(n + 00,P)),1,0
in tutti i casi vi allego lo script per capire da voi stessi o magari fallo ex novo...

Scrivi String(47,32) & "ANTONIO65",1
ColoreTesto 0
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,RetIdEs tr)
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

 

[antonio65]

Se nessuno ti aiuta che senso ha stare in forum...speriamo qualcuno mi aiuti

 

[vincenzo4221]

Ciao Antonio , purtroppo , alcune volte , sembra che nessuno ti ascolti , io, ancora una volta , purtroppo non ne sono capace ,; ognuno cerca di contribuire come può, e chi ha le conoscenze scriptiche di sicuro è avvantagiato , però non deve illudersi : Finora ho visto DARE le conoscenze/opportunità MIGLIORI da persone che sfruttano in maniera diversa IL LORO CERVELLO , e sono le persone più seguite del forum .
QUINDI , consapevoli dei propri limiti , non facciamo i furbi e collaboriamo fino in fondo , ognuno con le propie capacità , chi matematiche , chi fantasiose, chi informatiche ecc. ecc.

 

[antonio65]

Ciao Vincenzo4221 hai perfettamente ragione..io nella vita mi occupo di musica (insegno canto e flauto traverso) ho una bambina di 18 mesi..ho anche la passione del lotto...in questo forum mi hanno programmato alcune mie idee..però è da tempo che cerco un aiuto e nessuno me lo da...aspetterò con pazienza....