 |
|
 |
|
| METODO: LA DECINA UNO SU VENEZIA - Vai a Precedente 1, 2 |
| Precedente
:: Successivo |
DjNomade
 Inviato:
Gio 15 Mag, 2014 21:59 |
|
|
|
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
| Codice: |
Scrivi "=============================SE ESCE SPIA 15 a VENEZIA by NANDO MANICCIA",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(5)
Dim am(10),cinq(10)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
casi=0
cont=0
k=18
fin=EstrazioneFin
ini=7320
For es=ini To fin
a=15 'numero spia
amb=56
abb1=09
abb2=13
abb3=44
abb4=53
If Posizione(es,10,a)>0 Then
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(10) & " " & StringaEstratti(es,10),1
ruote(1)=10
'ruote(2)=1 'si puo'aggiungere altre ruote
am(1)=amb
am(2)=amb
ImpostaGiocata 1,am,ruote,posta,k
am(1)=amb
am(2)=abb1
ImpostaGiocata 2,am,ruote,poste,k
am(1)=amb
am(2)=abb2
ImpostaGiocata 3,am,ruote,poste,k
am(1)=amb
am(2)=abb3
ImpostaGiocata 4,am,ruote,poste,k
am(1)=amb
am(2)=abb4
ImpostaGiocata 5,am,ruote,poste,k
cinq(1)=amb
cinq(2)=abb1
cinq(3)=abb2
cinq(4)=abb3
cinq(5)=abb4
ImpostaGiocata 6,cinq,ruote,postee,k
Gioca es
End If
Next
ScriviResoconto
Scrivi "=============================SE ESCE SPIA 15 a VENEZIA by NANDO MANICCIA",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
End Sub
|
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 1988
|
|
|
 |
 |
 |
|
|
|
|
|
|
|
 |
|
 |
|
Non puoi inserire nuovi Argomenti
Non puoi rispondere a nessun Argomento
Non puoi modificare i tuoi Messaggi
Non puoi cancellare i tuoi Messaggi
Non puoi votare nei Sondaggi
Non puoi allegare files
Non puoi downloadare gli allegati
|
Page generation time: 0.0982s (PHP: 100% - SQL: 0%) - SQL queries: 21 - GZIP enabled - Debug on
Jasidogdotcom template v.1.0.4 © jasidog.com
Powered by phpBB
2.0.16 © 2001, 2004 phpBB Group
Traduzione Italiana V-0.16 phpBB.it |
