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
    sabato 03 maggio 2025
    Bari
    31
    33
    53
    57
    73
    Cagliari
    40
    20
    72
    19
    16
    Firenze
    71
    44
    61
    70
    46
    Genova
    50
    36
    59
    25
    46
    Milano
    70
    85
    38
    83
    01
    Napoli
    28
    55
    58
    48
    24
    Palermo
    14
    62
    40
    12
    53
    Roma
    65
    36
    39
    57
    25
    Torino
    27
    43
    66
    22
    34
    Venezia
    09
    45
    58
    90
    66
    Nazionale
    68
    89
    14
    39
    25
    Estrazione Simbolotto
    Milano
    34
    02
    32
    09
    07

Ultimi Messaggi

Indietro
Alto