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

[Blackmore]

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

 

[claudio8]

ti ho risposto, ciao