Novità

aiuto per aver realizzato uno script

margot

Super Member >GOLD<
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
 
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


Codice:
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
 
Ultima modifica di un moderatore:
da un controllo
a ruota mi sembra risponda meglio la posizione 1 e la 3, che la 1 e la 5.
 
va bene.

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

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 02 maggio 2025
    Bari
    71
    09
    03
    80
    50
    Cagliari
    32
    75
    30
    70
    40
    Firenze
    72
    16
    32
    70
    90
    Genova
    33
    34
    60
    75
    59
    Milano
    23
    82
    28
    03
    41
    Napoli
    87
    26
    22
    77
    39
    Palermo
    53
    11
    16
    22
    48
    Roma
    20
    31
    84
    79
    40
    Torino
    79
    78
    27
    04
    51
    Venezia
    20
    36
    76
    17
    88
    Nazionale
    15
    22
    51
    27
    18
    Estrazione Simbolotto
    Milano
    20
    11
    41
    05
    04
Indietro
Alto