Ciao frate' Mike58 , chiedo aiuto.

[antopun]

Ciao frate' , l'ultima volta che ci siamo sentiti era prima di natale quindi la prima cosa e' che ti auguro un grande anno nuovo, secondo: frate' gentilmente dato che gli script che avete posto nell'ultima discussione (script per 10elotto ogni 5min esistono?? ) non mi funzionano , nonostante io abbia la penultima versione 1,3,25 volevo chiederti cortesemente se puoi fare uno script (ho provato a fare uno script tutto mio ma anche seguendo le lezioni di baffo non ci sono riuscito) al 10e' l8 5min con queste indicazioni. Deve cercare la distanza tra il primo numero (es:2) con il secondo, poi con il terzo e' cosi' via, poi chiaramente devi passare dal primo al secondo (primo numero 2 secondo numero 5, quindi distanza tra il secondo con il terzo ,poi quarto e' cosi' via. fatto questo (scusami lo so che ti sto chiedendo troppo, ti chiedo gentilmente scusa frate') dovresti fare in modo che prosegue calcolando anche la somma , sempre come sopra. Mi auguro di non romperti i cosidetti con questo mio script, ma sappi che io veramente non so neanche da dove incominciare te lo giuro e' credimi mi sono arreso perche' stavo impazzendo. Spero che a tempo perso, quando avrai la possibbilita' di dedicarti anche solo per 5 min ogni tanto tu lo possa costruire, anche perche' credo che come idea di calcolo per questo gioco possa essere non dico buono ma abbastanza benino per ricerche su combinazioni che si possono ripetere dando qualche piccola soddisfazione. Credo che come tutti gli altri script da te composti devono portare il tuo nome come "marchio fabbrica" in modo che in futuro l'ideatore mike58 abbia l'onore di prendersi tutti gli elogi di noi tutti che frequentiamo il forum, ma sopratutto che oltre ad imparare , contribuiamo a qualche piccola idea. Concludendo ti RIPORGO le mie scuse e' ti saluto con affetto . antonio.

[Mike58]

Ciao Antonio, grazie per gli elogi e speriamo che sia un anno migliore per tutti.
Purtroppo in questi giorni sono un pò impegnato con problemi famigliari dei miei vecchi e mi restano poche energie per dedicarmi attivamente al forum.
Quanto chiedi non mi sembra difficile da realizzare mi serve solo la dovuta concentrazione unitamente al tempo, vedrò di fare il possibile.
Per gli altri script che non funzionano mi sembra strano, hai provato ad aggiornare gli archivi ed avere almeno le estrazioni aggiornate all'ultima settimana?
perchè altrimenti possono andare in conflitto con la lettura degli archivi.
Comunque abbi un pò di pazienza e se altri amici scripter vogliono partecipare sono i ben accetti.

Un Saluto carissimo

Mike58

[keeper]

ciao mike58 volevo chiederti qual'è la funzione per impostare l'archiviowfl

[keeper]

per output
questo script calcola la distanza da primo numero ma puoi cambiare
idea dell'amico rubino

Sub
Main

	
''''metodo 10 e lotto

	
'--------------------------------------------------------

	
Dimnum(2)

	
Dimnm(20)

	
Dimdis(89)

	
ImpostaArchivio10ELotto(2)

	fin 
=EstrazioniArchivioDL

	Storia 
=InputBox("estrazione iniziale..",,fin)

	qe 
=InputBox("quante estrazioni analizzare..",,750)

	p 
=InputBox("Posizione fissa..",,1)

	qt 
=CInt(InputBox("quanti Distanze vuoi..",,10))

	Ini 
= storia -Int(qe)

	
For Ini = Ini + 1 To fin

		idestr 
= Ini

		
'''scrivi ini

		
'''carica schiera 20 numeri estratti

		
For h = 2 To 20

			di 
=EstrattoDL(idestr - 1,h) -EstrattoDL(idestr - 1,p)

			
dis(di) =dis(di) + 1

		
Next

	
Next

	k 
= 201

	
For kk = 1 To 20

		K 
= k - 1

		
If ct <= qt Then

			
For t = 1 To 89

				
Ifdis(t) = K Then

					
Scrivi "Distanza " &Format2(t) & "" &dis(t)

					ct 
= ct + 1

				
EndIf

			
Next

		
EndIf

	
Next

End
Sub

[Mike58]

[ciao mike58 volevo chiederti qual'è la funzione per impostare l'archiviowfl[/QUOTE]

Ciao Keeper come sopra non ho molto tempo prendi spunto dall'esempio script di evidenzia numeri


Sub Main()
'EVIDENZIA ARCHIVI WINFORLIFE
Dim Nn(10)
QT = InputBox("Quanti Numeri","Numeri",10)
ScegliNumeri(Nn)
Ini = EstrazioneFin - 20
Fin = EstrazioneFin
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 6
If ToT =>7 Or ToT <=3 Then Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1:End If
ColoreTesto 7
If Tot =>4 Or Tot <=6 Then Scrivi " - Punteggio max -> " & tot,1:End If
ColoreTesto 0
Next
Scrivi String(120,"-")
End Sub

[LuigiB]

attenzione , le funzioni EstrazioneFin ed EstrazioneIni sono per il lotto ...

[keeper]

me lo ero postoanche io il problema ma sull'hlep non riesco a trovare coe impostare l'archivio

[LuigiB]

alt !! ancora piu attenzione ... Keeper lo script è tutt giusto solo che le funzioni EstrazioneIni ed estrazioneFin non servono per impostare l'archivio ma il range di analisi (prendendolo da quello impostato nel programma)
Queste funzioni come avevo detto servono per il lotto e si riferiscono al range per il lotto.
Nel winforlife vanno sostituite mettendo o dei numeri in chiaro oppure usando EstrazioniArchivioWF che da il numero di estrazioni contenute nell'archivio winforlife
Ciao !

[Mike58]

Ciao luigi, e grazie sempre per le precisasazioni, avevo fatto di fretta lo script lo riposto in modo corretto a benificio di chi voglia utilizzarlo.

Sub Main()
 'EVIDENZIA ARCHIVI WINFORLIFE
 Dim Nn(10)
 QT = InputBox("Quanti Numeri","Numeri",10)
 ScegliNumeri(Nn)
 Ini = EstrazioniArchivioWF - 20
 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 6
  If ToT >= 7 Or ToT <= 3 Then
   Scrivi " - Punteggio max -> " & tot & " - Attenzione vincita ",1
  Else
   ColoreTesto 7
   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

[LuigiB]

grazie a te .. mi sa che sei uno dei pochi che utilizza gli script per il WF e almeno rendi onore al mio lavoro :-) ciao