Win For Life

paomultipla · 5 Marzo 2012

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

LuigiB · 5 Marzo 2012

ciao . ci sono delle istruzioni apposite . tutte le istruzioni che si riferiscono al winforlife terminano con WF

paomultipla · 5 Marzo 2012

Ciao OK grazie mille per la risposta, se combino qualcosa lo farò sapere.
Ancora GRAZIE
Paolo

paomultipla · 7 Marzo 2012

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

keeper · 7 Marzo 2012

se per 10elotto usi EstrazioniArchivioDL per wfl EstrazioniArchivioWF

paomultipla · 8 Marzo 2012

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

paomultipla · 9 Marzo 2012

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

paomultipla · 10 Marzo 2012

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

keeper · 10 Marzo 2012

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

keeper · 10 Marzo 2012

scusa una domanda ma cosa ci trovi di interessante in questo gioco?

paomultipla · 11 Marzo 2012

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

keeper · 11 Marzo 2012

secondo me conviene sempre il 10elotto5m
per la formattazione copialo prima nel notepad e poi sul forum

Baffoblu · 11 Marzo 2012

paomultipla ha scritto:
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 ?

paomultipla · 11 Marzo 2012

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

paomultipla · 11 Marzo 2012

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

Mike58 · 11 Marzo 2012

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

paomultipla · 11 Marzo 2012

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

Mike58 · 11 Marzo 2012

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

Mike58 · 12 Marzo 2012

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

paomultipla · 12 Marzo 2012

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

Win For Life

Member

LuigiB

Guest

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Member

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member