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ì 23 maggio 2025
    Bari
    39
    64
    33
    15
    03
    Cagliari
    06
    77
    64
    63
    30
    Firenze
    37
    88
    61
    14
    10
    Genova
    73
    18
    41
    07
    80
    Milano
    70
    78
    77
    79
    52
    Napoli
    33
    44
    39
    01
    22
    Palermo
    25
    45
    15
    39
    73
    Roma
    04
    15
    82
    41
    06
    Torino
    30
    09
    18
    13
    10
    Venezia
    15
    61
    84
    52
    64
    Nazionale
    66
    71
    61
    35
    80
    Estrazione Simbolotto
    Milano
    02
    30
    44
    07
    31
Indietro
Alto