aiuto per aver realizzato uno script

[membro cancellato]

vorrei realizzato lo script del metodo descritto, chi mi aiuta?????
AD OGNI ESTRAZIONE A RUOTE UNITE SI PRENDE IL 1° E IL 5° ESTRATTO E DI QUESTI SI FANNO LE FIGURE E SI UNISCONO FINO A FORMARE UN NUMERO GIOCABILE.

DEI NUMERI RICAVATI SI FA ANCORA LA FIGURA DI OGNUNO E SI UNISCONO LE CIFRE, IL NUMERO CHE ESCE PIU’ IL SUO VERTIBILE SARANNO LE NOSTRE AMBATE; GLI ABBINAMENTI PER AMBO I NUMERI RICAVATI IN PRECEDENZA.

ES: ESTRAZIONE DEL 3-DICEMBRE 1° E 5° ESTRATTI DI MILANO 48 E 60, SI FANNO LE FIGURE QUINDI 3 E 6, SI UNISCONO 36,
1° E 5° DI NAPOLI 13 E 34, SI FANNO LE FIGURE QUINDI 4 E 7, SI UNISCONO, 47.

ADESSO SI PRENDE IL PRIMO NUMERO CIOE’ 36 E LO UNIAMO ALLA FIGURA DEL 47 CIOE’ 92, NUMERO CHE ESCE 2 CHE CON IL VERTIBILE 20 SARANNO LE NOSTRE AMBATE. DA GIOCARE SEMPRE 2-4 POS
LA PREVISIONE SARA’ COSI’ COMPOSTA:
MI-NA AMBATE 02-20
AMBI SECCHI 02-36\ 02-47\20-47\20-36
ESITO AL 9 COLPO DI GIOCO AMBO SECCO A MILANO 20-36

SI POSSONO GIOCARE COSI
QUARTINA 2-20-36-47 OPPURE IN TERZINE VINTI DIVERSI TERNI SECCHI COSI
2-47-36
20-47-36
attendo notizie grazie
margot

 

[Beppignello]

ciao

puoi controllare se calcola giusto?
non sono molto esperto!
è senza elaborazione dell'efficacia del metodo, ma per il momento è per il calcolo dei numeri.

se qualcuno vuole continuare, mi fa un piacere!, grazie

Option Explicit
Sub Main
	Dim r1,r2,Ini,n1,n2,n3,n4,es,n5,n6,n7,n8,a1,a2,a3,a4,Inizio
	r1 = 5
	r2 = 6
	es = EstrazioneFin
	Ini = 8776 : Inizio = EstrazioneIni
	For Ini = Ini + 1 To EstrazioneFin
		n1 = Figura(Estratto(Ini,r1,1))
		n2 = Figura(Estratto(Ini,r1,5))
		n3 = Figura(Estratto(Ini,r2,1))
		n4 = Figura(Estratto(Ini,r2,5))
		n5 = Figura(Fuori90(n1 + n2))
		n6 = Figura(Fuori90(n3 + n4))
		n7 = Figura(Fuori90(n5 + n6)) : n8 = Vert(n7)
		a1 = Format2(n7) & " " & Format2(Fuori90(n1 & n2))
		a2 = Format2(n7) & " " & Format2(Fuori90(n3 & n4))
		a3 = Format2(n8) & " " & Format2(Fuori90(n1 & n2))
		a4 = Format2(n8) & " " & Format2(Fuori90(n3 & n4))
		
		''-----------------------------------------------------------------------------------------'''''
		Scrivi Ini & "/" & DataEstrazione(Ini) & "   " & n1 & " " & n2 & "  -  " & n3 & " " & n4 & "  finale " & 	n5 & " " & n6 & "  Ambate  " & Format2(n7) & " " & Format2(n8) & "   Ambi " & a1 & " * " & a2 & " * " & a3 & " * " & a4 
	Next
End Sub

 

[Roby]

da un controllo
a ruota mi sembra risponda meglio la posizione 1 e la 3, che la 1 e la 5.

 

[Beppignello]

va bene.

Option Explicit
Sub Main
	Dim r1,r2,Ini,n1,n2,n3,n4,es,n5,n6,n7,n8,a1,a2,a3,a4,Inizio,p1,p2
	Dim am1(2),am2(4),AM3(2)
	r1 = InputBox("1 ruota",,5)
	r2 = InputBox("2 ruota",,6)
	p1 = InputBox("1 posizione ",,1)
	p2 = InputBox("2 posizione ",,5)
	es = EstrazioneFin
	Ini = 8776 : Inizio = EstrazioneIni
	For Ini = Ini + 1 To EstrazioneFin
	Messaggio("Estrazione n." & Ini)
		n1 = Figura(Estratto(Ini,r1,p1))
		n2 = Figura(Estratto(Ini,r1,p2))
		n3 = Figura(Estratto(Ini,r2,p1))
		n4 = Figura(Estratto(Ini,r2,p2))
		n5 = Figura(Fuori90(n1 + n2))
		n6 = Figura(Fuori90(n3 + n4))
		n7 = Figura(Fuori90(n5 + n6)) : n8 = Vert(n7)
		a1 = Format2(n7) & " " & Format2(Fuori90(n1 & n2))
		a2 = Format2(n7) & " " & Format2(Fuori90(n3 & n4))
		a3 = Format2(n8) & " " & Format2(Fuori90(n1 & n2))
		a4 = Format2(n8) & " " & Format2(Fuori90(n3 & n4))
		''-----------------------------------------------------------------------------------------'''''
		ColoreTesto(1)
		Scrivi Ini & "/" & DataEstrazione(Ini) & "  " & SiglaRuota(r1) & " - " & SiglaRuota(r2) & "  ( figure 1° 5° Estratto )  " & n1 & " " & n2 & "  -  " & n3 & " " & n4 & "  finale " & 	n5 & " " & n6 & " In gioco Ambate  " & Format2(n7) & " " & Format2(n8) & "   Ambi " & a1 & " * " & a2 & " * " & a3 & " * " & a4,1
		ColoreTesto(0)
		'''imposta ruote e solo ambata
		ReDim POSTA(1)
		POSTA(1) = 1
		ReDim ruote(2)
		ruote(1) = r1
		ruote(2) = r2
		'''CERCA solo ambate
		AM3(1) = n7
		AM3(2) = n8
		ImpostaGiocata 1,AM3,ruote,POSTA,9,1
		ReDim POSTA(2)
		POSTA(2) = 1
		'''imposta 4 ambi secchi
		am1(1) = n7
		am1(2) = Format2(Fuori90(n1 & n2))
		ImpostaGiocata 2,am1,ruote,POSTA,9,1
		am1(1) = n7
		am1(2) = Format2(Fuori90(n3 & n4))
		ImpostaGiocata 3,am1,ruote,POSTA,9,1
		am1(1) = n8
		am1(2) = Format2(Fuori90(n1 & n2))
		ImpostaGiocata 4,am1,ruote,POSTA,9,1
		am1(1) = n8
		am1(2) = Format2(Fuori90(n3 & n4))
		ImpostaGiocata 5,am1,ruote,POSTA,9,1
		''''CERCA SU TUTTE LE RUOTE ALMENO AMBO
		ReDim POSTA(3)
		POSTA(2) = 1
		POSTA(3) = 1
		ReDim ruote(1)
		ruote(1) = 11
		am2(1) = n7
		am2(2) = Format2(Fuori90(n1 & n2))
		am2(3) = n8
		am2(4) = Format2(Fuori90(n3 & n4))
		ImpostaGiocata 6,am2,ruote,POSTA,9
		Gioca Ini
	Next
	ScriviResoconto
End Sub