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
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02

Ultimi Messaggi

Indietro
Alto