richiesta per script

[trylli]

chi sa farlo e puo' ... cortesemente sto cercando uno script che riporti gli esiti solo a ruota.. la condizione dev essere numeri consecutivi su due ruote consecutivi. e solamente isotopi..per capirci.. esempio nell' estrazione di giovedi abbiamo ba 34 e ca 35 isotopi.. ecco facendo la somma dei due .. ambata 69 66 ingioco.. esiti??

 

[Roby]

Ciao Trylli le richieste script andrebbero fatte nella sezione download
al limite ci penserà Giuseppa a spostare la discussione

ecco il listato

Sub Main()
	Scrivi:Scrivi "Metodo di Trilly Listato By Blackmore":Scrivi
	Dim ruote(10)
	Dim ambata(2)
	Dim posta(1)
	posta(1) = 1
	ini = InputBox("Estrazione Iniziale N° ",,8500)
	k = InputBox("Colpi Di Gioco ",,9)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "Metodo di Trilly Script By Blackmore"
		For r1 = 1 To 9
			r2 = r1 + 1
			For pos = 1 To 5
				a = Estratto(es,r1,pos) : b = Estratto(es,r2,pos)
				If b = Fuori90(a + 1) Then
					x = Fuori90(a + b)
					ruote(1) = r1 : ruote(2) = r2
					co = co + 1
					Scrivi String(100,"*") & " Caso n°" & Format2(co),1
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "   -->  " & Format2(a),1
					Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "   -->  " & Format2(b),1
					ColoreTesto 1:Scrivi "Ambata n°1: " & Format2(x) & "   Ambata n°2: " & Vert(x),1:ColoreTesto 0
					Scrivi
					ambata(1) = x
					ambata(2) = Vert(x)
					ImpostaGiocata 1,ambata,ruote,posta,k
					Gioca es,1 '-----> Se usate L8 togliete ,1 dopo Gioca es
				End If
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub

 

[trylli]

Grazie e scusate!

 

[trylli]

ciao black saresti cosi gentile da inserire nello script anche l esito della condizione inversa tipo il numero piu grande sopra e il piu piccolo isotopo.. tipo ba ca di martedi cioe' 67 e 66 sotto.. grazie

 

[rudivall]

Ciao Trilly, sperando che Black sia daccordo fai questa piccola modifica
If b = Fuori90(a + 1) Or a = Fuori90(b + 1) Then

 

[trylli]

Ciao Trilly, sperando che Black sia daccordo fai questa piccola modifica
If b = Fuori90(a + 1) Or a = Fuori90(b + 1) Then

scusa mi incolli la parte nuova nello script.. io non riesco...

 

[Duplex]

Trylli....
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
Messaggio "Metodo di Trilly Script By Blackmore"
For r1 = 1 To 9
r2 = r1 + 1
For pos = 1 To 5
a = Estratto(es,r1,pos) : b = Estratto(es,r2,pos)
If b = Fuori90(a + 1) Then If b = Fuori90(a + 1) Or a = Fuori90(b + 1) Then

Questa è una parte le codice. Modifica qui (scritta in rosso)

 

[trylli]

scusa duplex ma lo scipt non gira..

 

[trylli]

scusate amici io non riesco ho bisogno che qualcuno mi rimetta su tutto lo script.. ... con entrambe le condizioni.. per favoreeeee... un aiutino... grazie!