Richeista script

[2011]

Buona gg a tutti

Cerco un anima buona cui possa aiutarmi per una mia esigenza,
ovvero che mi crei uno script cui mi ricavi e principalmente mi tenga aggiornato la presente situazione

Segnalarmi tutti quei numeri e su qualsiasi ruota

che abbiano un multiplo di 3 estrazione per superare lo storico.

Mi spiego supponiamo il numero 1 abbia registrato un ritardo massimo

di 100 colpi e al momento che lancio lo script lo stesso mi segnali

che il numero è a 93 o 96 o 99 colpi ecco lo stesso mi interessa in

quanto sarà da me considerato per un massimo di 9/12 colpi.

Anticipatamente ringrazio chi potrà essermi di aiuto

Un saluto
Genny

 

[LuigiB]

Option Explicit
Sub Main
	Dim Inizio,Fine ,InizioArchivio
	Dim k
	 
	Dim r, n
	Dim ColpiDiGioco , nGioc
	Dim Rit, RitMax , IncrRitMax, Freq
	Dim aPoste(1) 
	Dim aRuota(1)
	
	ColpiDiGioco = 9
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	InizioArchivio = 1
	aPoste(1) = 1
	
	ReDim aRuoteSel(12)
	ReDim abRuoteSel(12)
	
	If ScegliRuote(aRuoteSel,abRuoteSel) >= 1 Then
		If abRuoteSel(11) = 0 And abRuoteSel(12) = 0 Then
			For k = Inizio To Fine
				
				For r = 1 To 10
					nGioc = 0
					
					aRuota(1) = r
									
					If abRuoteSel(r) Then
						For n = 1 To 90
							ReDim aNumeri(1)
							aNumeri(1) = n 
							Call Messaggio ("Estrazione : " & k & " Statistica su " & n & " " & NomeRuota(r))	
							DoEventsEx					
							Call StatisticaFormazione ( aNumeri ,aRuota, 1,Rit,RitMax,IncrRitMax,Freq,InizioArchivio, k)
							
							If  Rit Mod 3 =0 Then 
								If Rit + ColpiDiGioco >= RitMax Then 
									ReDim aNumInGioco(1)
									aNumInGioco(1)= n
									
									nGioc = nGioc +1
									
									Call Scrivi (NomeRuota(r) & " Numero : " & n & " Ritardo : " & Rit & " RitardoMax = " & RitMax )
	
									Call ImpostaGiocata( nGioc,aNumInGioco,aRuota ,aPoste,ColpiDiGioco,1)
									
								
								End If
							End If
							If ScriptInterrotto Then Exit For
							
							
						Next
						If nGioc >0 Then 
							Call Gioca (k )
						End If
						
					End If
				Next
				If ScriptInterrotto Then Exit For
				Call AvanzamentoElab( Inizio , Fine ,k)
			
			Next
			
			Call ScriviResoconto
		Else
			MsgBox "Lo script non prevede ne la nazionale ne tutte",vbExclamation
		End If
	Else
		MsgBox "Selezionare almeno 1 ruota",vbExclamation
	End If
End Sub

 

[2011]

Un grazie di cuore
veramente cosa molto gradita

Appena avremo occasione sentirci di persona lo farò anche in voce
penso dovresti aver compreso chi sono

grazie ancora
Genny

 

[2011]

scusa se importuno ancora
precisando che di questa materia non sono competente manco all'1% ti segnalo che lanciando il programma mi evidenzia una serie di errori a girare partendo da wuesto messaggio 1002 riga 5

Io ho un modesto l8 vecchio un accidenti dipende da quello?

Grazie per la tua collaborazione
Un saluto
Genny

 

[claudio8]

quote:Originally posted by 2011

scusa se importuno ancora
precisando che di questa materia non sono competente manco all'1% ti segnalo che lanciando il programma mi evidenzia una serie di errori a girare partendo da wuesto messaggio 1002 riga 5

Io ho un modesto l8 vecchio un accidenti dipende da quello?

Grazie per la tua collaborazione
Un saluto
Genny

Fai prima a scaricarti Spaziometria vers. 1.2.90 (l'ultima) ti aggiorni l'archivio estrazioni, apri la sezione script e dopo aver impostato il Time Out ad infinito copia lo script e fallo partire.

Tieni conto che l' elaborazione per ogni ruota dura oltre 20 minuti.

Luigi ha considerato anche la possibilità di intrrompere lo script nel caso tu ti stufassi di attendere o volessi cambiare ruota.

Saluti

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[claudio8]

quote:Originally posted by LuigiB

Option Explicit
Sub Main

ecc.ecc..

End Sub

Il tuo script è diverso dai nostri, si vede proprio che hai una certa scioltezza con la programmazione.
DoEventsEx : Consente di rilasciare cicli al processore,. che significa ?

Ps : salvando lo script è apparso un errore: 62-Input oltre la fine del file. Lo ha comunque salvato.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[2011]

quote:Originally posted by claudio8

quote:Originally posted by 2011

scusa se importuno ancora
precisando che di questa materia non sono competente manco all'1% ti segnalo che lanciando il programma mi evidenzia una serie di errori a girare partendo da wuesto messaggio 1002 riga 5

Io ho un modesto l8 vecchio un accidenti dipende da quello?

Grazie per la tua collaborazione
Un saluto
Genny

Fai prima a scaricarti Spaziometria vers. 1.2.90 (l'ultima) ti aggiorni l'archivio estrazioni, apri la sezione script e dopo aver impostato il Time Out ad infinito copia lo script e fallo partire.

Tieni conto che l' elaborazione per ogni ruota dura oltre 20 minuti.

Luigi ha considerato anche la possibilità di intrrompere lo script nel caso tu ti stufassi di attendere o volessi cambiare ruota.

Saluti

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

grz caro
chidendo ad un amico come impostare un'opzione analoga con il programma che solitamente uso ho avuto modo appurare che se pur facendo scorrere la videata e non in un sol canto mi emana quel che cercavo. Grazie anche a te per la gentile collaborazione

Buona fortuna per stasera
Genny

 

[LuigiB]

quote:Originally posted by 2011

Un grazie di cuore
veramente cosa molto gradita

Appena avremo occasione sentirci di persona lo farò anche in voce
penso dovresti aver compreso chi sono

grazie ancora
Genny

eheh non mi viene in mente ... comunque mi fa piacere che ti sia
utile ma usa Spaziometria , lo script l'ho scritto per il mio programma non per lottodesk quindi qualcosa potrebbe differire...
ciao !

 

[LuigiB]

DoEventsEx
è la stessa cosa di doevents in vb6

 

[claudio8]

quote:Originally posted by LuigiB

DoEventsEx
è la stessa cosa di doevents in vb6

Grazie Luigi.... quale lezione devo rivedermi? (non rispondermi tutte perchè alrimenti mi autobanno )...
Sta cosa delle "bacchettate" avrà fine prima o poi?

 

[LuigiB]

nessuna lezione apri l'help di vb6 e scrivi doevents

P.S.
mica bacchettavo ora ...

 

[claudio8]

Grazie Luigi