Richiesta di Script

[jure]

Per LuigiB
Se possibile vorrei uno script in cui partendo da una Ruota, giocare a colpo ad ogni estrazione
il consecutivo magari arrivando al 14° Colpo e mi visualizzi a ogni estrasione
la situazione.


BARi 28/06/2012 - 06 - 68 - 18 - 21 - 69 -ESTRAZIONE
BARI 30/06/2012 -07 - 69 - 19 - 22 - 70
BARI 03/07/2012 - 08 - 70 - 20 - 23 - 71 - uscita Ambata 08 al 3° colpo
BARI 05/07/2012 - 09 -71 - 21 - 24 - 72
BARI 07/07/2012 - 10 - 72 -22 - 25 - 73 - uscita Ambata 22 al 4° colpo
BARI 10/07/2012 - 11 - 73 - 23 - 26 - 74
BARI 12/07/2012 - 12 - 74 - 24 - 27 - 75
BARI 14/07/2012 - 13 - 75 - 25 - 28 - 76
BARI 17/07/2012 - 14 - 76 - 26 - 29 - 77
BARI 19/07/2012 - 15 - 77 - 27 - 30 - 78 - uscita Ambata 78 al 9° colpo
BARI 21/07/2012 - 16 - 78 - 28 - 31 - 79 - uscita ambata 78 al 10 colpo
Quando si arriva al 90 si riparte con il numero 01.

 

[LuigiB]

ciao , ecco qui

Option Explicit
Sub Main
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim k,n
	ReDim aPoste(1)
	ReDim aRuote(1)
	ReDim aNum(5)
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Ruota = ScegliRuota
	If Ruota > 0 Then
		aRuote(1) = Ruota
		aPoste(1) = 1
		For idEstr = Inizio To Fine
			' inserire qui il codice che analizza l'estrazione corrente
			
			Call Scrivi (StringaEstratti( idEstr ,Ruota ) , True )
			For k = 1 To 5
				aNum(k) = Fuori90(Estratto(idEstr,Ruota,k)+1)
			Next
			n = n +1 
			Call ImpostaGiocata(n,aNum,aRuote,aPoste,14)
			Call Gioca(idEstr)
			Call AvanzamentoElab(Inizio,Fine,idEstr)
			If ScriptInterrotto Then Exit For
		Next
	End If
End Sub

 

[jure]

Consecutivi

Consecutivi

Ciao LuigiB per 14 estrazioni non ci deve essere lo stesso numero
.
A ogni estrazione successiva deve essere messo il suo Consecutivo sino
ad arrivare a 14 estrazioni.es.
.
BARi 28/06/2012 06 68 18 -21 69 -ESTRAZIONE del 28/06/2012
BARI 30/06/2012 -07 - 69 - 19 - 22 - 70
BARI 03/07/2012 - 08 - 70 - 20 - 23 - 71 - uscita Ambata 08 al 3° colpo
BARI 05/07/2012 - 09 -71 - 21 - 24 - 72
BARI 07/07/2012 - 10 - 72 -22 - 25 - 73 - uscita Ambata 22 al 4° colpo
BARI 10/07/2012 - 11 - 73 - 23 - 26 - 74
BARI 12/07/2012 - 12 - 74 - 24 - 27 - 75
BARI 14/07/2012 - 13 - 75 - 25 - 28 - 76
BARI 17/07/2012 - 14 - 76 - 26 - 29 - 77
BARI 19/07/2012 - 15 - 77 - 27 - 30 - 78 - uscita Ambata 78 al 9° colpo
BARI 21/07/2012 - 16 - 78 - 28 - 31 - 79 - uscita ambata 78 al 10 colpo
Quando si arriva al 90 si riparte con il numero 01.

BARI 30/06/2012 - 35 - 89 -13 -61- 51 - Estrazione del 30/06/2012
BARI 03/07/2012 - 36 - 90 -14 - 62- 52
BARI 05/07/2012 - 37 - 01 - 15 -63 - 53 - uscita Ambata 63 al 2° Colpo
BARI 07/07/2012 - 38 - 02 - 16 -64 - 54
BARI 10/07/2012 - 39 - 03 - 17 -65 - 55
BARI 12/07/2012 - 40 - 04 - 18 -66 - 56
BARI 14/07/2012 - 41 - 05 - 19 -67 - 57
BARI 17/07/2012 - 42 - 06 - 20 -68 - 58 - uscita Ambata 20 al 7°
BARI 19/07/2012 - 43 - 07 - 21 - 69 -59
BARI 21/07/2012 - 44 - 08 - 22 - 70 - 60

 

[LuigiB]

nell'unico punto dove vedi scritto 14 sostituisci con 1 , in qesto modo per ogni estrazione lui vedra a colpo ovverro all'estrazione immediatamente successiva se è uscito un numero di quelli precedenti sommato di 1.

 

[jure]

Consecutivi

Consecutivi

Ciao LuigiB ho fatto la modifica che mi hai suggerito ma non è come
mi serve. Così mi controlla solo la prima estrazione di tutte le
estrazioni successive
A ogni Ruota e a ogni estrazione se non 14 almeno per 9 estrazioni
di controllare il consecutivo dell'estrazione fittizia precedente.La prima
è quella reale le altre si aggiunge +1 ai 5 numeri . Sarebbe un gioco a Colpo
a ogni estrazione si fa il + 1 di quella fittizia.

BARi 28/06/2012 06 68 18 -21 69 -ESTRAZIONE del 28/06/2012
BARI 30/06/2012 -07 - 69 - 19 - 22 - 70
BARI 03/07/2012 - 08 - 70 - 20 - 23 - 71 - uscita Ambata 08 al 3° colpo
BARI 05/07/2012 - 09 -71 - 21 - 24 - 72
BARI 07/07/2012 - 10 - 72 -22 - 25 - 73 - uscita Ambata 22 al 4° colpo
BARI 10/07/2012 - 11 - 73 - 23 - 26 - 74
BARI 12/07/2012 - 12 - 74 - 24 - 27 - 75
BARI 14/07/2012 - 13 - 75 - 25 - 28 - 76
BARI 17/07/2012 - 14 - 76 - 26 - 29 - 77
BARI 19/07/2012 - 15 - 77 - 27 - 30 - 78 - uscita Ambata 78 al 9° colpo
BARI 21/07/2012 - 16 - 78 - 28 - 31 - 79 - uscita ambata 78 al 10 colpo
Quando si arriva al 90 si riparte con il numero 01.

BARI 30/06/2012 - 35 - 89 -13 -61- 51 - Estrazione del 30/06/2012
BARI 03/07/2012 - 36 - 90 -14 - 62- 52
BARI 05/07/2012 - 37 - 01 - 15 -63 - 53 - uscita Ambata 63 al 2° Colpo
BARI 07/07/2012 - 38 - 02 - 16 -64 - 54
BARI 10/07/2012 - 39 - 03 - 17 -65 - 55
BARI 12/07/2012 - 40 - 04 - 18 -66 - 56
BARI 14/07/2012 - 41 - 05 - 19 -67 - 57
BARI 17/07/2012 - 42 - 06 - 20 -68 - 58 - uscita Ambata 20 al 7°
BARI 19/07/2012 - 43 - 07 - 21 - 69 -59
BARI 21/07/2012 - 44 - 08 - 22 - 70 - 60

BARI 03/07/2012 - 49 - 43 -08 - 59- 02 Estrazione Reale del 03 07 2012
BARI 05/07/2012 - 50 - 44 -09 - 60 -03 -
BARI 07/07/2012 - 51 - 45 -10 - 61 - 04
BARI 10/07/2012 - 52 - 46 - 11 -62 - 05
BARI 12/07/2012 - 53 - 47 - 12 -63 - 06
BARI 14/07/2012 - 54 - 48 - 13 -64 - 07
BARI 17/07/2012 - 55 - 49 - 14 -65 - 08 -uscita Ambata 14 al 6°
BARI 19/07/2012 - 56 - 50 - 15 -66 - 09 -uscita Ambata 9° al 7°
BARI 21/07/2012 - 57 - 51 - 16 -67 - 10

Se ad esempio a bari scelgo il terzo estratto dell'estrazione del 03/07/2012 che è il n.08
per la prossima giochero' come ambata il 9 per la prossima il 10
poi per la prossima ancora l'11 poi il 12 il 13 e il 14 che e' uscito.