CIAO A TUTTI, AVREI UNA RICHIESTA SEMPRE CHE SI POSSA FARE UNA MODIFICA IN QUESTO SCRIPT, VORREI CHE OLTRE LA RICERCA COME GIA E ORA, POSSA ESSERE GIOCATA SOLO DI SABATO ESCLUDENTE GLI ALTRI GIORNI E COLPI
DI GIOCO, CIOÈ CHE IL CONTEGGIO DEI COLPI DI GIOCO TENGA PRESENTE QUELLI DI SABATO.
TANTE GRAZIE PER LA TUA PAZIENZA.
CIAO LEO
************************************************** ************************************************** ********************
'Ramco ricerca 3num spia+gioco Ruote determinate(25-09-2008)_con il Sabato
'25/09/2008 x LEO
Sub Main()
Dim rt(2),rtt(1),rtn(1)
Dim n1(2),nn(1),n2(7),n3(6)
Dim pt(5),ptt(5)
pt(1) = 1
ptt(2) = 1.5 : ptt(3) = 0.5
rtt(1) = 11 : rtn(1) = 12
gr=CInt(InputBox("Quale giorno vuoi attivare?"& Chr(10)& riga & Chr(10)& " - Inserisci il numero 7 = Sabato",,7))
tmp = CInt(InputBox("Quante estrazioni vuoi esaminare ?","ESTRAZIONI",4000))
rut1 = CInt(InputBox("Inserisci la prima ruota ","PRIMA RUOTA",2))
rut2 = CInt(InputBox("Inserisci la seconda ruota ","SECONDA RUOTA",6))
'----------------------in sp1,sp2,sp3 vanno le spie
sp1 = 30
sp2 = 64
sp3 = 47
'----------------------abt=ambata
abt = 51
abt0 = 54
'----------------------ab..=abbinamenti
ab1 = 30
ab2 = 40
ab3 = 64
ab4 = 52
ab5 = 00
'----------------------
ab6 = 5
ab7 = 33
ab8 = 8
ab9 = 69
ab10 = 83
ab11 = 48
'----------------------
ini = EstrazioneFin - tmp : fin = EstrazioneFin
For es = ini To Fin
If WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es)))= gr Then
gx=WeekDayName(WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es))))
Messaggio(es)
For r = 1 To 11
If r = 11 Then r = 12
If r = rut1 Or r = rut2 Then
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
If((a = sp1 And b = sp2)Or(a = sp2 And b = sp1)Or(a = sp1 And b = sp3)Or(a = sp3 And b = sp1)Or(a = sp2 And b = sp3)Or(a = sp3 And b = sp2)) Then
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
If r1 = rut1 Or r1 = rut2 Then
For pp = 1 To 5
c = Estratto(es,r1,pp)
'---------------------------------------------------------------------------------------------
If(r <> r1 And c <> a And c <> b) And(c = sp1 Or c = sp2 Or c = sp3) Then
nn(1) = c
prt = SerieFreq(es,es,nn,rtt,1) : prn = SerieFreq(es,es,nn,rtn,1)
'If (prt+prn)=1 Then
Scrivi String(65,"*")
Scrivi "" & DataEstrazione(es,1) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & nn(1)
rt(1) = r : rt(2) = r1
n1(1) = abt : n1(2) = abt0
rit = SerieRitardo(es - 250,es,n1,rt,1)
Scrivi "L'Ambata è sortita in una delle due ruote " & rit & " colpi fà ",1
n2(1) = abt : n2(2) = abt0 : n2(3) = ab1 : n2(4) = ab2
n2(5) = ab3 : n2(6) = ab4 : n2(7) = ab5
rit2 = SerieRitardo(es - 1000,es,n2,rt,2)
n3(1) = ab6 : n3(2) = ab7 : n3(3) = ab8 : n3(4) = ab9
n3(5) = ab10 : n3(6) = ab11 ': n3(7)=ab5
rit3 = SerieRitardo(es - 1000,es,n3,rt,2)
Scrivi "L'Ambo in sestina è sortito in una delle due ruote " & rit2 & " colpi fà ",1
Scrivi
ImpostaGiocata 1,n1,rt,pt,9,1
ImpostaGiocata 2,n2,rt,ptt,12,3
ImpostaGiocata 3,n3,rt,ptt,12,3
Gioca es
End If
'End If
Next
End If
Next
End If
Next
Next
End If
Next
End If
Next
ScriviResoconto
End Sub
DI GIOCO, CIOÈ CHE IL CONTEGGIO DEI COLPI DI GIOCO TENGA PRESENTE QUELLI DI SABATO.
TANTE GRAZIE PER LA TUA PAZIENZA.
CIAO LEO
************************************************** ************************************************** ********************
'Ramco ricerca 3num spia+gioco Ruote determinate(25-09-2008)_con il Sabato
'25/09/2008 x LEO
Sub Main()
Dim rt(2),rtt(1),rtn(1)
Dim n1(2),nn(1),n2(7),n3(6)
Dim pt(5),ptt(5)
pt(1) = 1
ptt(2) = 1.5 : ptt(3) = 0.5
rtt(1) = 11 : rtn(1) = 12
gr=CInt(InputBox("Quale giorno vuoi attivare?"& Chr(10)& riga & Chr(10)& " - Inserisci il numero 7 = Sabato",,7))
tmp = CInt(InputBox("Quante estrazioni vuoi esaminare ?","ESTRAZIONI",4000))
rut1 = CInt(InputBox("Inserisci la prima ruota ","PRIMA RUOTA",2))
rut2 = CInt(InputBox("Inserisci la seconda ruota ","SECONDA RUOTA",6))
'----------------------in sp1,sp2,sp3 vanno le spie
sp1 = 30
sp2 = 64
sp3 = 47
'----------------------abt=ambata
abt = 51
abt0 = 54
'----------------------ab..=abbinamenti
ab1 = 30
ab2 = 40
ab3 = 64
ab4 = 52
ab5 = 00
'----------------------
ab6 = 5
ab7 = 33
ab8 = 8
ab9 = 69
ab10 = 83
ab11 = 48
'----------------------
ini = EstrazioneFin - tmp : fin = EstrazioneFin
For es = ini To Fin
If WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es)))= gr Then
gx=WeekDayName(WeekDay (DateSerial (Anno(es), Mese (es), Giorno (es))))
Messaggio(es)
For r = 1 To 11
If r = 11 Then r = 12
If r = rut1 Or r = rut2 Then
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1) : b = Estratto(es,r,p2)
If((a = sp1 And b = sp2)Or(a = sp2 And b = sp1)Or(a = sp1 And b = sp3)Or(a = sp3 And b = sp1)Or(a = sp2 And b = sp3)Or(a = sp3 And b = sp2)) Then
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
If r1 = rut1 Or r1 = rut2 Then
For pp = 1 To 5
c = Estratto(es,r1,pp)
'---------------------------------------------------------------------------------------------
If(r <> r1 And c <> a And c <> b) And(c = sp1 Or c = sp2 Or c = sp3) Then
nn(1) = c
prt = SerieFreq(es,es,nn,rtt,1) : prn = SerieFreq(es,es,nn,rtn,1)
'If (prt+prn)=1 Then
Scrivi String(65,"*")
Scrivi "" & DataEstrazione(es,1) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & nn(1)
rt(1) = r : rt(2) = r1
n1(1) = abt : n1(2) = abt0
rit = SerieRitardo(es - 250,es,n1,rt,1)
Scrivi "L'Ambata è sortita in una delle due ruote " & rit & " colpi fà ",1
n2(1) = abt : n2(2) = abt0 : n2(3) = ab1 : n2(4) = ab2
n2(5) = ab3 : n2(6) = ab4 : n2(7) = ab5
rit2 = SerieRitardo(es - 1000,es,n2,rt,2)
n3(1) = ab6 : n3(2) = ab7 : n3(3) = ab8 : n3(4) = ab9
n3(5) = ab10 : n3(6) = ab11 ': n3(7)=ab5
rit3 = SerieRitardo(es - 1000,es,n3,rt,2)
Scrivi "L'Ambo in sestina è sortito in una delle due ruote " & rit2 & " colpi fà ",1
Scrivi
ImpostaGiocata 1,n1,rt,pt,9,1
ImpostaGiocata 2,n2,rt,ptt,12,3
ImpostaGiocata 3,n3,rt,ptt,12,3
Gioca es
End If
'End If
Next
End If
Next
End If
Next
Next
End If
Next
End If
Next
ScriviResoconto
End Sub
