Novità

Per Mike58

trivellatomariotretre33

Super Member >PLATINUM<
Ciao Mike58 mi servirebbe uno script che mi somma i primi 2 estratti di una ruota a scelta e dalla somma che esce aggiungere un numero a scelta esempio il 29 gennaio
Roma 36+9= 45 e poi a scelta aggiungere al totale 45
+1 =46
O + ciò che si vuole a scelta
questa e l'ambata
X ambo aggiungere 4 fissi con imput e metterli in gioco su ruota a scelta
Grazie Mike58
una stretta di mano chilometrica.
 
Ultima modifica:
Ciao Mike58 scusami per l'insistenza
per te e facile realizzarlo perché non me lo posti e di Oscar voglio verificarlo a modo mio con fissi diversi ti ringrazio e ancora grazie.
 
Ciao Trivelato Ahimè il tempo è quello che è, e non si può celermente rispondere a tutto.

Si lo script è semplice da fare, ma proprio perché è semplice si presta a diverse interpretazioni.

detto questo prova cosi e se ci sarà bisogno di correttivi vediamo di intervenire.

Ciao (in questo giorni lavoro r impegni vari mi terranno lontani dal forum !!!)

Codice:
Sub Main
	Dim nu(1),ru(1),nn(90),posta(1),poste(3)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 1
	qt = InputBox("QUANTE ESTRAZIONI",,100)
	r = InputBox("QUALE RUOTA",,1)
	Ad = CInt(InputBox("QUALE ADDIZIONATORE",,1))
	p1 = InputBox("QUALE POSIZIONE 1",,1)
	p2 = InputBox("QUALE POSIZIONE 2",,2)
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	ScegliNumeri(nn)
	Scrivi "Numeri scelti per abbinamento Ambi..... " & StringaNumeri(nn,,1),1
	Scrivi
	For es = Ini To fin
		a = Estratto(es,r,p1)
		b = Estratto(es,r,p2)
		nu(1) = Fuori90((a + b) + ad)
		ru(1) = r
		Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab,0,0
		Scrivi Format2(a) & " + " & Format2(b) & " = ",0,0
		Scrivi StringaNumeri(nu,,1),1,0
		Scrivi vbTab & StringaEstratti(es,r) & vbTab,0,0
		Call VerificaEsitoTurbo(nu,ru,es + 1,1,10,,esito,clp,estratti,id)
		If esito <> "" Then Scrivi vbTab & estratti,0,0
		If esito = "" Then Scrivi "        .................",0,0
		nn(0) = nu(1)
		Scrivi vbTab & StringaNumeri(nn,,1) & vbTab,0,0
		Call VerificaEsitoTurbo(nn,ru,es + 1,2,1,,esitoA,clpA,estrattiA,idA)
		If esitoA <> "" Then Scrivi vbTab & estrattiA
		If esitoA = "" Then Scrivi "        ................."
		ImpostaGiocata 1,nu,ru,posta,10,1
		ImpostaGiocata 2,nn,ru,poste,1,2
		Gioca es,,,,,False
	Next
	ScriviResoconto
End Sub
 
Ciao Micke58 per la ambata e ok
ma per gli abbinamenti non va
voglio mettere 4 numeri fissi
esempio sommare
1 di Mil +2 di Mil + 1
ambata come ai fatto è ok
gli abbinamenti
1 abbinamento 3
2 abbinamento 17
3 abbinamento 54
4 abbinamento 84
si gioca ambata più i quattro abbinamenti su Milano Napoli
Per ambo e terno
ultimo terno in cinquina e uscito a Napoli il 31/01/2015 al 1 Colpo
90.3.84.
 
vedi un pò cosi

Codice:
Sub Main
	Dim nu(1),ru(1),nn,posta(1),poste(3),rg(2)
	posta(1) = 1
	poste(2) = 1
	poste(3) = 1
	qt = InputBox("QUANTE ESTRAZIONI",,100)
	r = InputBox("QUALE RUOTA eseguo i calcoli",,5)
	Ad = CInt(InputBox("QUALE ADDIZIONATORE",,1))
	p1 = InputBox("QUALE POSIZIONE 1",,1)
	p2 = InputBox("QUALE POSIZIONE 2",,2)
	rg1 = InputBox(" 1° ruota di gioco ",,5)
	rg2 = InputBox(" 2° ruota di gioco ",,6)
	rg(1) = rg1
	rg(2) = rg2
	ReDim T(9)
	T(1) = " Info estrazione "
	T(2) = " Ruota di calcolo "
	T(3) = " Calcoli "
	T(4) = " Ambata "
	T(5) = " colpo ab "
	T(6) = " Estratti "
	T(7) = "  "
	T(8) = " abbinamenti scelti "
	T(9) = " esito ambi "
	Call InitTabella(T,2,,3,5)
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	nn = Array(0,3,17,54,84)
	Scrivi "Ruota di calcolo      : " & SiglaRuota(r),1
	Scrivi "posizioni scelte      : " & p1 & "/" & p2,1
	Scrivi "Addizionatore scelto    : " & ad,1
	Scrivi "Ruota di gioco        : " & StringaRuote(rg),1
	Scrivi "Numeri scelti per abbinamento Ambi..... " & StringaNumeri(nn,,1),1
	Scrivi
	For es = Ini To fin
		a = Estratto(es,r,p1)
		b = Estratto(es,r,p2)
		nu(1) = Fuori90((a + b) + ad)
		ru(1) = r
		nn(0) = nu(1)
		Call VerificaEsitoTurbo(nu,rg,es + 1,1,10,,esito,clp,estratti,id)
		Call VerificaEsitoTurbo(nn,rg,es + 1,2,1,,esitoA,clpA,estrattiA,idA)
		ReDim V(9)
		V(1) = GetInfoEstrazione(es)
		V(2) = SiglaRuota(r)
		V(3) = Format2(a) & " + " & Format2(b)
		V(4) = StringaNumeri(nu,,1)
		V(5) = clp
		If esito <> "" Then V(6) = estratti
		If esito = "" Then V(6) = " -- "
		V(8) = StringaNumeri(nn,,1)
		V(9) = estrattiA
		Call AddRigaTabella(V,,,3)
		ImpostaGiocata 1,nu,rg,posta,10,1
		ImpostaGiocata 2,nn,rg,poste,1,2
		Gioca es,,,,,False
	Next
	CreaTabella()
	ScriviResoconto
End Sub
 
ciao trivellato

se pensi che può servire io l'ho costruito x L8 ( per spaziometria non riesco )

Codice:
'calcolato su ogni estrazione e quindi Gioca la successiva. 
Sub main()
Dim ruote(2)
Dim ruot(3)
Dim nu(1)
Dim nu1(5)
Dim poste(1)
Dim post(5)
poste(1)=1 
post(2)=1 : post(3)=1 
ini=EstrazioneFin -100
For es=ini To EstrazioneFin

ruote(1)=5 : ruote(2)=6

nu(1)=Fuori90(Estratto(es,5,1)+(Estratto(es,5,2)+1))
ImpostaGiocata 1,nu,ruote,poste,12,0

ruot(1)=5 : ruot(2)=6 : ruot(3)=11 
nu1(1)=nu(1) 
nu1(2)=3
nu1(3)=17
nu1(4)=54
nu1(5)=84
ImpostaGiocata 2,nu1,ruot,post,12,0

Gioca es
Next
ScriviResoconto
End Sub

io lo leggo pure su spaziometria.

e questo è il terno che dici tu

Codice:
gio 29.01.2015  [8957]
  G  1:  M       90               Mi Na       1/12    
     M  90               su Na    1° colpo   [8958/31.01.2015]
     in corso (1° su 12)
  G  2:  AT      90.03.17.54.84   Mi Na Tu    1/12    
     A  90.03.84         su Na    1° colpo   [8958/31.01.2015]
     T  90.03.84         su Na    1° colpo   [8958/31.01.2015]
     A  90.03.84         su Tu (Na)    1° colpo   [8958/31.01.2015]
     T  90.03.84         su Tu (Na)    1° colpo   [8958/31.01.2015]
     A  03.54            su Tu (Pa)    1° colpo   [8958/31.01.2015]
     in corso (1° su 12)

buona giornata
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 03 maggio 2025
    Bari
    31
    33
    53
    57
    73
    Cagliari
    40
    20
    72
    19
    16
    Firenze
    71
    44
    61
    70
    46
    Genova
    50
    36
    59
    25
    46
    Milano
    70
    85
    38
    83
    01
    Napoli
    28
    55
    58
    48
    24
    Palermo
    14
    62
    40
    12
    53
    Roma
    65
    36
    39
    57
    25
    Torino
    27
    43
    66
    22
    34
    Venezia
    09
    45
    58
    90
    66
    Nazionale
    68
    89
    14
    39
    25
    Estrazione Simbolotto
    Milano
    34
    02
    32
    09
    07
Indietro
Alto