SE ESCE SPIA 90 A BARI

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

SE ESCE SPIA 90 A BARI

Messaggio da DjNomade » 20/03/2015, 20:53

SE ESCE SPIA 90 A BARI ,per le spiegazioni andate QUI

Ciauz

Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=22&t=5302

Scrivi "============================= SE ESCE SPIA 90 A BARI  ",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=12
fin=EstrazioneFin
ini=8323
For es=ini To fin



a=90 'numero spia
amb=Fuori90 (Estratto (es,9,1)+78)
abb1=Fuori90 (90+Estratto (es,10,3)-Estratto (es,5,4)+0) 
abb2=Fuori90 (90+Estratto (es,1,3)-33)
abb3=Fuori90 (Estratto (es,6,5)+Estratto (es,8,5)+0)
abb4=Fuori90 (Estratto (es,3,2)+Estratto (es,7,3)+0)


 If Posizione(es,1,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(1) & " " & StringaEstratti(es,1),1
Scrivi

ruote(1)=1
'ruote(2)=6  '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 90 A BARI  ",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3901
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SE ESCE SPIA 90 A BARI

Messaggio da Tatoo64 » 21/03/2015, 11:02

GRANDE Djnomade come sempre GRAZIE
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti