Novità

SCRIPT DI RETE

trivellatomariotretre33

Super Member >PLATINUM<
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.
 
Codice:
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
 
Ultima modifica:
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(n) = 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
 
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
 
Ultima modifica:
prova questo... il resoconto ruote è in fondo
ciao


Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto