|
|
|
Una terzina( o quartina) su 2 ruote es. :
1a estrazione del mese
4° torino + fissi 3-59-67
Ruote di Gioco: Palermo-Torino:
CODICE Sub main()
Dim rt(2),pt(3)
Dim n1(4),n2(4),n3(4),n4(4)
pt(2)=1
pt(3)=1
clp=10 'colpi di gioco
rt(1)=7 '1a ruota di gioco
rt(2)=9 '2a ruota di gioco
ini=EstrazioneFin -200
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)= 1 Then
Scrivi String (60,"=")
co=co+1
a=Estratto (es,9,4)
'------------------------------Terzina (o Quartina)
n1(1)=Fuori90 (a+3)
n1(2)=Fuori90 (a+59)
n1(3)=Fuori90 (a+67)
'n1(4)=Fuori90 (a+67) 'per giocare quartina togliere apice ' davanti a n1
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Questo e' risultato in breve:
============================================================
mar 03.09.2019 [9677]
G 1: AT 06.62.70 Pa To 10/10
A 06.62 su Pa 7° colpo [9684/19.09.2019]
============================================================
mar 01.10.2019 [9689]
G 1: AT 80.46.54 Pa To 10/10
A 80.54 su To 3° colpo [9692/08.10.2019]
A 80.54 su Pa 7° colpo [9696/17.10.2019]
Una terzina(o quartina) su 2 ruote es.:
1a estrazione del mese:
1° bari + fisso 1
2° bari + fisso 2
3° bari + fisso 3
4° bari + fisso 4
Ruote di Gioco: Palermo-Torino
CODICE Sub main()
Dim rt(2),pt(3)
Dim n1(4),n2(4),n3(4),n4(4)
pt(2)=1
pt(3)=1
clp=10 'colpi di gioco
rt(1)=7 '1a ruota di gioco
rt(2)=9 '2a ruota di gioco
ini=EstrazioneFin -200
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)= 1 Then
Scrivi String (60,"=")
co=co+1
a=Estratto (es,1,1)
b=Estratto (es,1,2)
c=Estratto (es,1,3)
'd=Estratto (es,1,4) 'per giocare quartina togliere apice ' davanti a d
'------------------------------Terzina (o Quartina)
n1(1)=Fuori90 (a+1)
n1(2)=Fuori90 (a+2)
n1(3)=Fuori90 (a+3)
'n1(4)=Fuori90 (a+4) 'per giocare quartina togliere apice ' davanti a n1
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Questo e' risultato in breve:
============================================================
mar 02.07.2019 [9650]
G 1: AT 09.10.11 Pa To 10/10
============================================================
gio 01.08.2019 [9663]
G 1: AT 11.12.13 Pa To 10/10
============================================================
Saluti,sean69!!!!
Edited by sean69 - 19/1/2020, 18:09
|
|
.
Offline
Web