 |
|
 |
|
| AMBO UGUALE 18-38 SU PALERMO E TORINO - |
| Precedente
:: Successivo |
Nando
 Inviato:
Lun 10 Feb, 2014 13:07 |
|
|
|
AMBO UGUALE 18-38 SU PALERMO E TORINO
Ruote di Gioco: Pa-To
Ambata/Capogioco: 64
Abbinamenti per ambo: 5 -14 -43 -70
cinquina per ambo e terno: 5-14-43-64-70
colpi di gioco 12
|
|
Site Admin
Registrato: 10/07/05 20:29
Messaggi: 31531
|
_________________
Tutto è probabile, niente è certo |
|
 |
 |
 |
|
| Enplein
Inviato:
Lun 03 Mar, 2014 19:00 |
|
|
|
Ciao Nando, script....
Ciao, Enplein.
| Codice: |
Sub main()
Dim ruote(2) ,n(2),amb(1),num(2),ab(5)
Dim posta(1),poste(2),poste1(3)
t=0 : cl=12
'-----------------
posta(1)=1
poste(2)=1
poste1(2)=1.50 : poste1(3)=.50
'Ruote
r1=PA_ : r2=TO_
'Ambo spia 18-38
n(1)=18 : n(2)=38
ruote(1)=r1 : ruote(2)=r2
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** L'AMBO 18-38 SU PA TO ****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(85,"=")&"metodo di NANDO listed by Enplein ",1
ColoreTesto 0
rs=InputBox("Da quale estrazione vuoi iniziare?",,4659)
ini= rs
fin= EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi String(40," ")&"****** Rendiconto ****** ",1
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'-------------------------------------------------------------------------------
For es= ini To fin
Messaggio "Elaboro Data "& DataEstrazione (es)
sf=SerieFreq (es,es,n,ruote,2)
If sf=>1 Then
amb(1)=64
ab(1)=05 : ab(2)=14 : ab(3)=43 : ab(4)=70 : ab(5)=64
t=t+1
Scrivi "---------------------------------------------------------------------",1
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)& " - "& SiglaRuota (r2)&" "& StringaEstratti (es,r2)&_
" [" & StringaNumeri (n)&"]",1
Scrivi "-----------------------------------------------------------Giocata n°"&t,1
ImpostaGiocata 1,amb,ruote,posta,cl,1 'imposta giocata per ambata
co=1
num(1)=amb(1)
For i=1 To 4
co=co+1
num(2)=ab(i)
ImpostaGiocata co,num,ruote,poste,cl,2
Next
co=co+1
ImpostaGiocata co,ab,ruote,poste1,cl,3
Gioca es
End If
Next
ScriviResoconto 1
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate
ColoreTesto 1
Scrivi String(70,"=")&"listato da Enplein",1
ColoreTesto 0
End Sub
|
|
|
Studioso
Registrato: 22/02/14 12:09
Messaggi: 61
|
|
|
|
|
|
|
| Nando
Inviato:
Lun 03 Mar, 2014 20:16 |
|
|
|
grazie
|
|
Site Admin
Registrato: 10/07/05 20:29
Messaggi: 31531
|
_________________
Tutto è probabile, niente è certo |
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
|
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.0937s (PHP: 100% - SQL: 0%) - SQL queries: 22 - 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 |
