help mik58 scriptinoinoino

[samsung444]

ciao mike
mi faresti gentilmente uno scriptino tipo

prima estrazione del mese

sommare al 3 estratto di cagliari il fisso 2

alla somma uscita del 3 estr di cagliari +2

abbinare il 1° di bari e il 3° di cagliari per ambo

tank !!

 

[SeeLe8]

Non ho capito su quale ruota si gioca (ho messo BA-CA e tutte)
nè per quanti colpi di gioco (ho messo 12)
Verifica se è giusto

Sub Main()
ColoreTesto 2
Scrivi String(17,32) & " Bari - Cagliari 1° del mese   by  samsung444 ",1
Scrivi String(17,32) & "",1
Scrivi String(45,32) & "listato by SeeLe8",1
ColoreTesto 0

Dim n(10),n1(3),n2(3)
Dim r(2),r1(3)
Dim posta(1), poste(2)
posta(1) = 1
poste(2) = 1
r(1) = 1
r(2)= 2
r1(1) = 1
r1(2)= 2
r1(3)=11

ini = 8800
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then

Scrivi String(65,"=")

n(1) = Fuori90(Estratto(es,2,3) + 2)
ImpostaGiocata 1,n,r,posta,12,1

n1(1) = Fuori90(Estratto(es,2,3) + 2)
n1(2) = Estratto(es,1,1)
ImpostaGiocata 2,n1,r1,poste,12,2

n2(1) = Fuori90(Estratto(es,2,3) + 2)
n2(2) = Estratto(es,2,3)
ImpostaGiocata 3,n2,r1,poste,12,2

Gioca es

End If
Next
ColoreTesto 2
Scrivi String(50,"=") & "listato by SeeLe8 ",1
ColoreTesto 0
ScriviResoconto
End Sub

 

[Mike58]

Ciao Samsung444, forse non è cosi, prova a controllare !!!

Sub Main
	'prima estrazione del Mese
	'sommare al 3 Estratto di cagliari il fisso 2
	'alla somma uscita del 3 estr di cagliari +2
	'abbinare il 1° di bari e il 3° di cagliari per ambo
	Dim nu(3),ru(1),posta(5)
	posta(1) = 1
	posta(2) = 1
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	r = 2
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			k = k + 1
			Scrivi String(100,"=") & " Caso N. " & k,1
			a = Fuori90(Estratto(es,CA_,3)+2)
			b = Estratto(es,BA_,1)
			c = Estratto(es,CA_,3)
			nu(1) = a
			nu(2) = b
			nu(3) = c
			ru(1) = r
			ImpostaGiocata 1,nu,ru,posta,13
			Gioca es
		End If
	Next
	ScriviResoconto
End Sub

 

[Mike58]

Ciao SeeLe8, brava(mi sembra di ricordare Femminuccia) vedo che hai imparato a scriptare, mi fa piacere.
Abbiamo postato in contemporanea.

Benvenuta negli aiuti scripter.

Ciao

 

[samsung444]

Esatto mik58 e quello che cercavo,grazie a entrambi cmq
gentilissimi!!