METODO AMBATA DIAMETRALE 43 SU FIRENZE E ROMA by N.Maniccia

Rispondi
Avatar utente
DjNomade
Messaggi: 584
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

METODO AMBATA DIAMETRALE 43 SU FIRENZE E ROMA by N.Maniccia

Messaggio da DjNomade » 23/06/2015, 21:10

METODO DI AMBATA DIAMETRALE 43 SU FIRENZE E ROMA by Nando Manicccia ,per le spiegazioni andate QUI

Ciauz



Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=57&t=5395
'22/06/2015
Scrivi "=============================SE ESCE SPIA 43  FIRENZE E ROMA  by  NANDO MANICCIA",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(10),ruota(5)

Dim am(10),cinq(10)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
postee(4)=0.5
cont=0
casi=0
k=9
fin=EstrazioneFin
ini=5396
For es=ini To fin



a=43 'numero spia
amb=68
amb1=57
abb1=03 
abb2=39
abb3=70


 If Posizione(es,3,a)>0 And Posizione(es,8,a)>0 Then

cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

If Posizione(es,3,a)>0  Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(3) & " " & StringaEstratti(es,3),1

If Posizione(es,8,a)>0  Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(8) & " " & StringaEstratti(es,8),1




ruote(1)=3
ruote(2)=8  'si puo'aggiungere altre ruote
'ruote(3)=11  
ruota(1)=3
ruota(2)=8


am(1)=amb
am(2)=amb1
EliminaRipetuti am
ImpostaGiocata 1,am,ruota,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)=amb1
am(2)=abb1

ImpostaGiocata 5,am,ruote,poste,k
am(1)=amb1
am(2)=abb2
ImpostaGiocata 6,am,ruote,poste,k
am(1)=amb1
am(2)=abb3
ImpostaGiocata 7,am,ruote,poste,k
cinq(1)=amb
cinq(2)=amb1
cinq(3)=abb1
cinq(4)=abb2
cinq(5)=abb3

ImpostaGiocata 8,cinq,ruote,postee,k


Gioca es
casi=casi+1
End If

Next

ScriviResoconto
Scrivi "=============================SE ESCE SPIA 43  FIRENZE E ROMA  by  NANDO MANICCIA",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
End Sub

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite