Per Mike58

[trivellatomariotretre33]

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.

 

[trivellatomariotretre33]

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.

 

[Mike58]

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

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

 

[trivellatomariotretre33]

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.

 

[Mike58]

vedi un pò cosi

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

 

[franca46]

ciao trivellato

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

'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

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

 

[trivellatomariotretre33]

VI RINGRAZIO CORDIALMENTE PER LA VOSTRA BRAVURA E COLLABORAZIONE UNITAMENTE A TUTTI UNA STRETTA DI MANO E GRAZIE DI CUORE I VOSTRI SCRIPT SONO OK E FANTASTICI .