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 24 maggio 2025
    Bari
    72
    84
    53
    64
    12
    Cagliari
    63
    59
    22
    39
    65
    Firenze
    69
    78
    13
    20
    61
    Genova
    62
    48
    82
    03
    65
    Milano
    44
    66
    04
    21
    40
    Napoli
    13
    70
    03
    38
    45
    Palermo
    52
    18
    04
    69
    70
    Roma
    12
    34
    17
    07
    79
    Torino
    27
    44
    49
    05
    32
    Venezia
    72
    62
    87
    34
    02
    Nazionale
    32
    65
    12
    30
    18
    Estrazione Simbolotto
    Milano
    45
    30
    11
    28
    06

Ultimi Messaggi

Indietro
Alto