Novità

Win For Life

Buongiorno,
è da molto tempo che non entravo nel forum, ed è da quattro giorni che mi leggo i vecchi post, ma a forza di leggere tanto, ho tanta confusione in testa, oramai con spaziometria si va a script, perciò qui bisogna adeguarsi, volevo sapere alcune cose, si può usare l'archivio del WFL o gli script fanno riferimento a quello del lotto? leggendo mi sembra che si debba esportare l'archivio in un un file txt, se si, come procedo? Io usavo il file excel del MEGA LUIGIB, ma adesso con le estrazioni ogni 5 min non funziona più, ho provato a vedere se si poteva intuire qualcosa ma per i miei limiti è meglio non toccare, io sono rimasto ai file basic e nemmeno complicati dello spectrum, se qualcuno mi da qualche dritta lo ringrazio anticipatamente.

PS. Spaziometria è diventato un programma PRO, dobbiamo inchinarci a LuigiB che veramente è un maestro non solo di programmazione ma di altruismo e disponibilità ad aiutare gli altri. GRAZIE LUIGIB

Paolo
 
ciao . ci sono delle istruzioni apposite . tutte le istruzioni che si riferiscono al winforlife terminano con WF
 
Buongiorno,
chiedo scusa in anticipo a LuigiB, forse non ho interpretato bene, ma leggendo l'help non ci sono istruzioni in finale WF o si deve aggiungere il suddetto all'istruzione che si vuole usare.
Saluti Paolo
 
Buongiorno,
grazie keeper per la risposta, quello l'avevo intuito, perciò se ho capito bene uso le istruzioni per il 10elotto cambiando in WF al posto di DL (es. AmboFrequenzaDL in AmboFrequenzaWF).
Saluti Paolo
 
Salve a tutti,
volevo chiedere a LuigiB o a chi lo sapesse, se esiste la possibilità come nel QBasic di procedere passo a passo con lo script.
Grazie in anticipo
 
Salve a tutti,
posto questo script per la statistica delle coppie in WFL, premetto che lo script in questione l'ho trovato nella cartella Vari di Spaziometria, l'ho solo modificato per mio uso e consumo, avendo appena cominciato a scriptare.
Codice:
Sub
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Statistica Ambi per Win For Life di ____________ modificato da Paomultipla[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](190,1)[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Rit[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RitMax[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Freq[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Statistica ambi[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 20[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 20[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StatAmboWF[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Rit[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RitMax[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],0,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Freq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneIni[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Rit[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],0) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Rit[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],6,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]RitMax[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],6,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Freq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],6,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriptInterrotto[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriptInterrotto[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AvanzamentoElab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1,19,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ordinamento[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,1)[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Scrivo output[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Range da [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazioneWF[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Ini) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] fino a [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]GetInfoEstrazioneWF[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](Fin))[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] AMBO [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Rit[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",9,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]RitMax[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",6,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]FormatSpace[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Freq[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",6,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]True[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]))[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 190[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]aValori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]k[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],0))[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ScriptInterrotto[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Exit[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
Ciao a tutti
 
ciao paomultipla prima che baffoblu ti bacchetti
riposto lo script con la formattazione corretta altrimenti non funziona
Codice:
Sub Main
 'Statistica Ambi per Win For Life di ____________ modificato da Paomultipla
 Dim k
 ReDim aValori(190,1)
 Dim n1,n2
 Dim Rit,RitMax,Freq
 Call Messaggio("Statistica ambi")
 For n1 = 1 To 20
  For n2 = n1 + 1 To 20
   k = k + 1
   Call StatAmboWF(n1,n2,Rit,RitMax,0,Freq,EstrazioneIni,EstrazioneFin)
   aValori(k,1) = Rit
   aValori(k,0) = Format2(n1) & " - " & Format2(n2) & _
   Space(4) & FormatSpace(Rit,6,True) & _
   Space(4) & FormatSpace(RitMax,6,True) & Space(4) & FormatSpace(Freq,6,True)
   If ScriptInterrotto Then Exit For
  Next
  If ScriptInterrotto Then Exit For
  Call AvanzamentoElab(1,19,n1)
 Next
 Call Messaggio("Ordinamento")
 Call OrdinaMatrice(aValori,- 1,1)
 Call Messaggio("Scrivo output")
 Call Scrivi("Range da " & GetInfoEstrazioneWF(Ini) & " fino a " & GetInfoEstrazioneWF(Fin))
 Call Scrivi(" AMBO " & Space(2) & FormatSpace("Rit",9,True) & Space(4) & FormatSpace("RitMax",6,True) & Space(4) & FormatSpace("Freq",6,True))
 For k = 1 To 190
  Call Scrivi(aValori(k,0))
  If ScriptInterrotto Then Exit For
 Next
End Sub
 
Ciao keeper
la formattazione l'avevo fatta come spiegato nella guida di Baffoblu, ma quando l'ho inserito è venuto così, per quanto riguarda cosa ci trovo in questo gioco, ...niente, penso che tutti giochino per vincere qualcosa, qui a mio parere dovendo sbagliare solo 2 possibilita su 10, posso avere più possibilità di rimetterci di meno.
Saluti Paolo
 
secondo me conviene sempre il 10elotto5m
per la formattazione copialo prima nel notepad e poi sul forum
 
Ciao keeper
la formattazione l'avevo fatta come spiegato nella guida di Baffoblu, ma quando l'ho inserito è venuto così, per quanto riguarda cosa ci trovo in questo gioco, ...niente, penso che tutti giochino per vincere qualcosa, qui a mio parere dovendo sbagliare solo 2 possibilita su 10, posso avere più possibilità di rimetterci di meno.
Saluti Paolo



Se hai seguito fedelmente la guida,
e lo stesso hai problemi,
allora hai lo stesso problema di alcuni
qui sul forum.
Sembra che sia da imputare ad una
combinazione dell'uso di
Windows 7 e alcuni browser Internet.

Hai provato ad usare Mozzilla Firefox
come browser ?
 
Salve a tutti,
no non ho provato mozilla firefox, uso di solito explorer 9 perchè ormai ho tutti i preferiti memorizzati li, per questa risposta ho provato Chrome vediamo un po'.
Questo script è di Mike58 e serve a controllare le vincite (o perdite) ho solo aggiunto la vincita col 5 e cambiato colore, il celeste originale lo vedevo poco.


Codice:
Sub Main()'EVIDENZIA ARCHIVI WINFORLIFE
    Dim Nn(10)
    QT = InputBox("Quanti Numeri","Numeri",10)
    ScegliNumeri(Nn)
    Ini = EstrazioniArchivioWF - 57
    Fin = EstrazioniArchivioWF
    Scrivi "........ Da " & DataEstrazioneWF(Ini) & " a " & DataEstrazioneWF(fin),1
    'Scrivi
    Scrivi String(120,"="),1
    ColoreTesto 1
    Scrivi "Evidenzia numeri giocati sulla combinazione win for life ",1
    ColoreTesto 0
    Scrivi String(120,"-")
    ColoreTesto 2
    Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
    ColoreTesto 0
    Scrivi String(120,"-")
    For Es = Ini To Fin
        tot = 0
        Scrivi DataEstrazioneWF(es) & " ",0,0
        For P = 1 To 10
            ColoreTesto 1
            For x = 1 To Qt
                If EstrattoWF(Es,P) = Nn(x) Then
                    ColoreTesto 2
                    tot = tot + 1
                End If
            Next
            Scrivi Format2(EstrattoWF(Es,P)),1,0
            ColoreTesto 0
            Scrivi ".",0,0
        Next
        ColoreTesto 3
        If ToT >= 7 Or ToT <= 3 Or Tot = 5 Then
            Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1
        Else
            ColoreTesto 2
            If Tot >= 4 Or Tot <= 6 Then Scrivi " - Punteggio max -> " & tot,1
        End If
        ColoreTesto 0
    Next
    Scrivi String(120,"-")
    Scrivi " listed by Mike58",1
End Sub

Ciao Paolo
 
Salve,
sto cercando di aggiungere l'indice di convenienza al primo script che ho postato, i conti li fa ma è tutto sballato e ormai a forza di battere la testa sul muro sono un bernoccolo,per questo avevo chiesto se si potesse far girare lo script riga per riga per vedere dove si pianta o cosa fa. Se qualcuno mi da una dritta magari riesco a capire dove sbaglio e lo ringrazio anticipatamente.


Codice:
Sub Main	'Statistica Ambi per Win For Life di ____________ modificato da Paomultipla
	Dim idest
	Dim k
	ReDim aValori(190,1)
	Dim n1,n2
	Dim Rit,RitMax,Freq,Conto
	ReDim aConto(190,1)
	Call Messaggio("Statistica ambi")
	For n1 = 1 To 20
		For n2 = n1 + 1 To 20
			k = k + 1
			Call StatAmboWF(n1,n2,Rit,RitMax,0,Freq,EstrazioneIni,EstrazioneFin)
			idest = EstrazioneFin
			aConto(k,1) = Freq/idest*Rit
			aValori(k,1) = aConto
			aValori(k,0) = Format2(n1) & " - " & Format2(n2) & _
			Space(4) & FormatSpace(Rit,6,True) & _
			Space(4) & FormatSpace(RitMax,6,True) & Space(4) & FormatSpace(Freq,6,True) & Space(4) & FormatSpace(Conto,6,True)
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(1,19,n1)
	Next
	Call Messaggio("Ordinamento")
	Call OrdinaMatrice(aValori,- 1,1)
	Call Messaggio("Scrivo output")
	Call Scrivi("Range da " & GetInfoEstrazioneWF(Ini) & " fino a " & GetInfoEstrazioneWF(Fin))
	Call Scrivi(" AMBO " & Space(2) & FormatSpace("Rit",9,True) & Space(4) & FormatSpace("RitMax",6,True) & Space(4) & FormatSpace("Freq",6,True) & Space(8) & FormatSpace("Conto",6,True))
	For k = 1 To 190
		Call Scrivi(aValori(k,0) &("      ") & aConto(k,1))
		If ScriptInterrotto Then Exit For
	Next
End Sub
Dove sbaglio, probabile un approccio sbagliato di fondo.
Comunque un GRAZIE a chi mi bacchetta.
Ciao Paolo
 
Ultima modifica:
Ciao Paolo,non so e non ho approfondito quello che vuoi ottenere o come ricalcolare l'indice di convenienza ma dal tuo script per WF non devi usare come indice di estrazioni - ESTRAZIONE-INI-FIN , ma EstrazioniArchivioWF come indice fine.
Ti ho fatto delle modifiche al tuo script vedi se puoi ricavarci qualcosa.


Codice:
Sub Main 'Statistica Ambi per Win For Life di ____________ modificato da Paomultipla
 Dim idest,fine
 Dim k
 ReDim aValori(190,1)
 Dim n1,n2
 Dim Rit,RitMax,Freq,Conto
 ReDim aConto(190,1)
 Call Messaggio("Statistica ambi")
 idest = EstrazioniArchivioWF - 500
 fine = EstrazioniArchivioWF
  For n1 = 1 To 20
  For n2 = n1 + 1 To 20
   k = k + 1
   Call (Messaggio(" Elaborazioni... by poalo " ))
   Call AvanzamentoElab(idest,fine,n1)
   Call StatAmboWF(n1,n2,Rit,RitMax,0,Freq,idest,fine)
   If ScriptInterrotto Then Exit For
   aConto(k,1) = (Freq/idest*Rit)
   aValori(k,1) = aConto
   aValori(k,0) = Format2(n1) & " - " & Format2(n2) & _
   Space(4) & FormatSpace(Rit,6,True) & _
   Space(4) & FormatSpace(RitMax,6,True) & Space(4) & FormatSpace(Freq,6,True) & Space(4) & FormatSpace(Conto,6,True)
   
  Next
  
  
 Next
 Call Messaggio("Ordinamento")
 Call OrdinaMatrice(aValori,- 1,1)
 Call Messaggio("Scrivo output")
  Scrivi"         Range da " & DataEstrazioneWF(idest) & " fino a " & DataEstrazioneWF(fine),1
  Scrivi(" AMBO " & Space(2) & FormatSpace("Rit",9,True) & Space(4) & FormatSpace("RitMax",6,True) & Space(4) & FormatSpace("Freq",6,True) & Space(18) & FormatSpace("   Conto",6,True))
 For k = 1 To 190
  Call Scrivi(aValori(k,0) &("      ") & aConto(k,1))
  
 Next
 
End Sub
 
Ciao,
Mike58 intanto ti ringrazio per l'attenzione e il tuo interessamento, praticamente alle statistiche che ottenevo col primo script volevo aggiungere l'indice di convenienza e che venisse ordinato con quello, nel primo modificando "aValori(k,1)= Rit si ordina il tutto in base al ritardo oppure Freq ordina la frequenza, mettendo aConto si ordina in base agli ambi come li sviluppa ma non lo ordina. Comprendo che forse non sapendo granchè andare ad incasinarmi su uno script già fatto non è il massimo, ho già cominciato uno script exnovo (ma ho appena cominciato) non vedrà la luce molto presto.

Ti Saluto
Paolo
 
Ciao Paolo mi spiace ma con l'ordima matrice anch'io faccio confusione e ho le mie difficolta.
Se posso invece suggerire perchè non metti tutti i valori in una tabella(creatabella) cosi puoi poi ordinarli come meglio credi ed in base alla colonna che vuoi.

Ciao
 
Tabella WF

Tabella WF

Ciao Paolo ho voluto cimentarmi solo per curiosità sul tuo script vedi se ti può essere utile l'ordinamento con le tabelle.

Codice:
Sub Main 'Statistica Ambi per Win For Life di ____________ modificato da Paomultipla
 Dim Inizio,fine
 Dim n1,n2
 Dim Rit,RitMax,Freq,Indice
 Inizio = EstrazioniArchivioWF - 500
 fine = EstrazioniArchivioWF
 Tot = fine - Inizio
 Scrivi "Statistica Ambi per WINFORLIFE ",1,0,4
 Scrivi " - Tot estrazioni -> " & Tot,1,- 1,2
 Scrivi" Range da " & DataEstrazioneWF(Inizio) & " fino a  " & DataEstrazioneWF(fine),1,- 1,3
 Scrivi
 ReDim atitoli(5)
 atitoli(1) = "    Ambi    "
 atitoli(2) = "  Ritardo  "
 atitoli(3) = "  Ritardo Max  "
 atitoli(4) = "  Frequenza   "
 atitoli(5) = " Indice di convenienza "
 Call InitTabella(atitoli,vbYellow)
 For n1 = 1 To 20
  For n2 = n1 + 1 To 20
   '
   Call StatAmboWF(n1,n2,Rit,RitMax,0,Freq,Inizio,fine)
   If ScriptInterrotto Then Exit For
   ReDim aval(5)
   aval(1) = n1 & "-" & n2
   aval(2) = Rit
   aval(3) = RitMax
   aval(4) = Freq
   aval(5) =(Freq/Tot*Rit)
   Call AddRigaTabella(aval)
   Call SetColoreCella(5,vbGreen)
   'Call SetColoreCella(1,vbMagenta)
  Next
 Next
 Call CreaTabella(5)' ordina tabella per colonna
 
 Scrivi "  Listed by Mike58   ",1,-1,6
End Sub
 
Ciao Mike58,
era proprio quello che cercavo di fare, però lo volevo dalla 1a estrazione all'ultima in archivio, mi sono scervellato anch'io e mi sono piantato proprio su quello, visto che sul tuo script postato ieri sono riuscito anch'io a ordinare, avevamo dimenticato solamente una variabile con un'altro nome, su questo che funziona (hai dimenticato di dimensionare "tot") si dovrebbe cambiare il -500 con l'ultima, bon meglio di niente vado così.
Grazie mille e a buon rendere.
Saluti Paolo
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto