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

Ultimi Messaggi

Indietro
Alto