Novità

Metodo/Listato sommativo: 1° e 7° Estrazione mensile

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
B

Blackmore

Guest
Codice:
Sub Main()
	Dim aruo(1)
	Dim ambata(1)
	Dim anum(2)
	Dim anum2(2)
	Dim aposta(1)
	Dim aposte(2)
	aposta(1) = 2
	aposte(2) = 2
	Scrivi
	ColoreTesto 1
	TestoInBandaPassante " AMBATA + ABBINAMENTI PER AMBO ALLA 1° E 7° DEL MESE SU BARI ",1,4,1
	Scrivi String(49," ") & " METODO BY BLACKMORE ",1
	ColoreTesto 0
	Scrivi
	ru = InputBox("SCEGLI LA RUOTA SU CUI GIOCARE",,1)
	rs = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE? ",,80)
	k = InputBox("SCEGLI I COLPI DI GIOCO",,5)
	im = InputBox("INSERISCI L'INDICE MENSILE" & Chr(10) & "1 = PRIMA DEL MESE" & Chr(10) & "7 = SETTIMA DEL MESE",,1)
	im = CInt(im)
	If im = 1 Or im = 7 Then
		ini = EstrazioneFin - rs
		fin = EstrazioneFin
		aruo(1) = ru
		For es = ini To fin
			If IndiceMensile(es) = im Then
				If im = 1 Then
					ambata(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,TO_,2) + 03)
					ImpostaGiocata 1,ambata,aruo,aposta,k,1
					anum(1) = ambata(1)
					anum(2) = Fuori90(Estratto(es,CA_,4) + 24)
					ImpostaGiocata 2,anum,aruo,aposte,k,2
					anum2(1) = ambata(1)
					anum2(2) = Fuori90(Estratto(es,CA_,4) + 67)
					ImpostaGiocata 3,anum2,aruo,aposte,k,2
				End If
				'----------------------------------------------------------------------
				If im = 7 Then
					ambata(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,CA_,5) + 65)
					ImpostaGiocata 1,ambata,aruo,aposta,k,1
					anum(1) = ambata(1)
					anum(2) = Fuori90(Estratto(es,RO_,4) + 06)
					ImpostaGiocata 2,anum,aruo,aposte,k,2
					anum2(1) = ambata(1)
					anum2(2) = Fuori90(Estratto(es,RO_,4) + 72)
					ImpostaGiocata 3,anum2,aruo,aposte,k,2
				End If
				For x = 1 To 3
					For xx = 1 To 3
						ImpostaInterruzioni x,2,2
						ImpostaInterruzioni xx,3,2
					Next
				Next
				casi = casi + 1
				Scrivi String(96,"*") & " Caso n° " & casi,1
				ColoreTesto 1
				Scrivi "Indice Mensile: " & im & "°",1
				ColoreTesto 0
				Call DisegnaEstrazione(es)
				Gioca es
			End If
		Next
		ScriviResoconto
	End If
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto