SCRIPT DI RETE

[trivellatomariotretre33]

SALVE BUONGIORNO AVREI BISOGNO DI QUESTO SCRIPT ...
CALCOLO
ALLA PRIMA ESTRAZIONE DI OGNI MESE
SOMMARE IL PRIMO DI BARI IL QUINTO DI BARI E IL TERZO DI VENEZIA IL RISULTATO E IL CAPOGIOCO
PER AMBO ABBINARE AL CAPOGIOCO I TRE NUMERI DI CALCOLO, FORMANDO TRE AMBI SECCHI DA GIOCARE A TUTTE LE RUOTE. ESEMPIO IL 3\2\2015 IL PRIMO DI BARI 52 IL QUINTO DI BARI 85 IL TERZO DI VENEZIA 18
SOMMARE 52+85+18 totale 155-90 Ambata capolista 65
x abblnare gli ambi
65 52
65 85
65 18
infine un resocondo di verifica di dove sono usciti gli ambi a ruota secca
grazie di cuore.

 

[vengio]

Sub Main()
	Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruotadigioco(11),Poste(4)
	Ruotadigioco(1) = 1
	Ruotadigioco(2) = 2
	Ruotadigioco(3) = 3
	Ruotadigioco(4) = 4
	Ruotadigioco(5) = 5
	Ruotadigioco(6) = 6
	Ruotadigioco(7) = 7
	Ruotadigioco(8) = 8
	Ruotadigioco(9) = 9
	Ruotadigioco(10) = 10
	Ruotadigioco(11) = 12
	'Poste(1) = 2
	Poste(2) = 1
	For Es = EstrazioneFin - 500 To EstrazioneFin
		If IndiceMensile(es) = 1 Then 'prima del Mese
			n = Estratto(Es,1,1)
			n1 = Estratto(Es,1,5)
			n2 = Estratto(Es,10,3)
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			Ambo1(1) = Fuori90(n + n1 + n2)
			Ambo1(2) = n
			Ambo2(1) = Fuori90(n + n1 + n2)
			Ambo2(2) = n1
			Ambo3(1) = Fuori90(n + n1 + n2)
			Ambo3(2) = n2
			ImpostaGiocata 1,Ambo1,Ruotadigioco,Poste,13
			ImpostaGiocata 2,Ambo2,Ruotadigioco,Poste,13
			ImpostaGiocata 3,Ambo3,Ruotadigioco,Poste,13
			Gioca Es,1,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[rossonero8]

listato

listato

SALVE BUONGIORNO AVREI BISOGNO DI QUESTO SCRIPT ...
CALCOLO
ALLA PRIMA ESTRAZIONE DI OGNI MESE
SOMMARE IL PRIMO DI BARI IL QUINTO DI BARI E IL TERZO DI VENEZIA IL RISULTATO E IL CAPOGIOCO
PER AMBO ABBINARE AL CAPOGIOCO I TRE NUMERI DI CALCOLO, FORMANDO TRE AMBI SECCHI DA GIOCARE A TUTTE LE RUOTE. ESEMPIO IL 3\2\2015 IL PRIMO DI BARI 52 IL QUINTO DI BARI 85 IL TERZO DI VENEZIA 18
SOMMARE 52+85+18 totale 155-90 Ambata capolista 65
x abblnare gli ambi
65 52
65 85
65 18
infine un resocondo di verifica di dove sono usciti gli ambi a ruota secca
grazie di cuore.

######################################

Sub Main()
Dim ruote(10)
Dim nu(5)
Dim nu1(10)
Dim posta(2)
Dim poste(5)
posta(1) = 1
'posta(2) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
k = 13
y = 3
ruote(1) = 11
ruote(2) = 12 ' puoi mettere la ruota che vuoi
For n = 8600 To EstrazioneFin
If IndiceMensile = 1 Then
a=Estratto(n,1,1)
b=Estratto(n,1,5)
c=Estratto(n,10,3)

nu(1) = Fuori90(a+b+c)

ImpostaGiocata 1,nu,ruote,posta,k,y
nu1(1) = nu(1)
nu1(2) = a
nu1(3) = b
nu1(4) = c

ImpostaGiocata 2,nu1,ruote,poste,k,y
Scrivi "====================================================================================================="
Gioca n
End If
Next
ScriviResoconto


End Sub

 

[trivellatomariotretre33]

VENGIO LO SCRIPT MI DA ERRORE NON SO COME SIA MA GLI AMBI DEVONO ESSERE SEPARATI E NON IN QUARTINA COME A FATTO ROSSONERO8
ROSSONERO8 GLI AMBI DEVONO ESSERE COSI NON IN QUARTINA E SE SI PUO STATISTICA SU CHE RUOTA SI SVILUPPANO GLI AMBI GRAZE

65 52
65 85
65 18

 

[Master]

prova questo... il resoconto ruote è in fondo
ciao

Sub Main()
Dim ruote(12)
Dim numeri1(5)
Dim numeri2(5)
Dim posta(3)
Dim poste(3)
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(11) = 12
ruote(12) = 11
posta(2) = 1
poste(1) = 1
k = 9
fin = EstrazioneFin
ini = EstrazioneFin - 150
For es = ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 1 Then
casi = casi + 1:Scrivi String(40,"=") & " Script di rete " & String(35,"=  ") & " caso n°  " &(casi),1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " ] [ " & _
Format2(Estratto(es,1,1)) & " + " & Format2(Estratto(es,1,5)) & " ] "
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(10) & " - " & StringaEstratti(es,10) & " ] [ +  " & _
Format2(Estratto(es,10,3)) & " ]" & " [ " & " Somma " & Format2(Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + Estratto(es,10,3))) & " ] "
Scrivi
numeri2(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + Estratto(es,10,3))
ImpostaGiocata 1,numeri2,ruote,poste,k,1
numeri1(1) = numeri2(1)
numeri1(2) = Estratto(es,1,1)
ImpostaGiocata 2,numeri1,ruote,posta,k,2
numeri1(2) = Estratto(es,1,5)
ImpostaGiocata 3,numeri1,ruote,posta,k,2
numeri1(2) = Estratto(es,10,3)
ImpostaGiocata 4,numeri1,ruote,posta,k,2
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[trivellatomariotretre33]

GRAZIE MASTER E OK OTTIMO COME LO VOLEVO UNA STRETTA DI MANO CHILOMETRICA PER TE , UNITAMENTE A Vengio E ROSSONERO8 BUONA DOMENICA E GRAZIE .

 

[vengio]

Scusami tivellato ho corretto lo script, ma comunque è valido anche quello di Master.

 

[trivellatomariotretre33]

SI VENGIO E OK ANCHE IL TUO GRAZIE INFINITE