per luigi aiuto script

[trylli]

Aiuto script

Vorrei realizzare uno script
Allora rileva ambata e vertibile sulle due ruote di ricerca per 10 colpi
La decina del 4 di bari e la decina del 1 di cagliari si accoppiano e determinano l ambata e rispettivo vertibile. Poca toba no? Se si puo!

 

[LuigiB]

ciao Trilly .. talemente poca roba che non ho capito molto bene.. io di solito gli script li faccio di mia spontanea volonta ogni tanto èer passatempo . Questa volta visto che ti sei rivolta direttamente a me e anche per dovere di cavalleria ho intenzione di aiutarti ma non essendo un giocatore alcune cose che tra di voi capite al volo a me me le dovete spiegare bene, mi puoi fare un paio di esempi anche inventati ?

 

[trylli]

Ciao luigi! Allora si calcola ad ogni estrazione dunque il quarto estratto di bari e' 39 prendiamo il 3
Poi il primo di cagliari e' 36 prendiamo il 3 quindi ambate in giovo 33.39 ba ca
L estrazione precedenteesempio
Bari 83 prendiamo 8
Cagliari 39 prendiamo il 3 quindi ambate in gioco 83/38 ba ca dieci colpi

 

[LuigiB]

ciao Trylli , jo fatto questo semplice script.
Alcune specifiche :
- lo script analizza il range impostato nella barra princiaple del programma (quella rosa in basso)
- Lo script durante i 10 colpi di gioco non rileva altre condizioni , aspetta che siano finiti i 10 colpi
- Si verificano alcuni casi particolari dove la decina diventa 9 creando dei numeri superiori a 90
questi nuemeri vengono esclusi , eventualemte si puo modificare e fare il fuori 90

verifica se ti torna.

Option Explicit
 
Sub Main
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim nDecinaB,nDecinaC
	Dim n1,n2
	Dim nColpi
	ReDim aNumInGioco(1)
	ReDim aRuote(2)
	ReDim aPoste(1)
	
	
	aRuote(1) = BA_
	aRuote(2) = CA_
	aPoste(1) = 1
	nColpi = 10
	
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	
	For idEstr = Inizio To Fine Step nColpi
		nDecinaB = Left(Estratto(idEstr,BA_,4),1)
		nDecinaC = Left(Estratto(idEstr,BA_,1),1)
		n1 = Int(nDecinaB & nDecinaC)
		n2 = Vert(n1)
		
		
		If n1 <= 90 Then 
			aNumInGioco(1) = n1
			Call ImpostaGiocata (1 , aNumInGioco , aRuote ,aPoste , nColpi ,1,,1)
			aNumInGioco(1) = n2
			Call ImpostaGiocata (2 , aNumInGioco , aRuote ,aPoste , nColpi ,1,,1)
			
			Call Gioca (idEstr )
		End If 	
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	
	Call ScriviResoconto
	
 
End Sub