PALERMO-ROMA by XXOMBRAXX

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

PALERMO-ROMA by XXOMBRAXX

Messaggio da DjNomade » 21/05/2014, 22:27

PALERMO-ROMA by XXOMBRAXX ,per le spiegazioni andate QUI

Ciauz




Codice: Seleziona tutto


'http://www.pentambo.info/forum/viewtopic.php?f=22&p=24867&sid=52494ad218ab2e2ba8b7fdf97164d5df#p24867
Sub main()
Dim ruote(2)
Dim n(6),est(7)
Dim ambata(2)
Dim am1(2),am2(2),am3(2),am4(2),am5(2)
Dim posta(1)
Dim poste(2)
Dim poste1(4)

posta(1)=1
poste(2)=1
poste1(2)=1.50
poste1(3)=.50
Scrivi
Scrivi String(40," ")&"*********  PALERMO-ROMA by XXOMBRAXX ******",1
Scrivi String(40," ")&"*******           ******",1
ColoreTesto 2
Scrivi
Scrivi String(50," ")&" DjNomade",1
ColoreTesto 1
Scrivi
Scrivi String(88,"*")&_
"listato da Franco Florindi",1
ColoreTesto 0
t=0
fin=EstrazioneFin
k=InputBox("Quante estrazioni vuoi controllare?",,60)

For es = EstrazioneFin - k To EstrazioneFin
       For r=7 To 7
               For p= 1 To 1
               a=Estratto(es,r,p)
               rr=r+1
               b=Estratto(es,rr,p)
                       If a>b Then
                       n1=(a-b)
                       n2=Vert(n1)
                       n3=Fuori90(n1+2)
                       n4=Fuori90(90+n1-2)
                       n5=Fuori90(n2+2)
                       n6=Fuori90(90+n2-2)

ruote(1)=r
ruote(2)=rr
t=t+1

Scrivi"-------------------------------------------------------------------",1
Scrivi DataEstrazione(es)&"  "& NomeRuota(r)&" "& Format2(a)&"  "& NomeRuota(rr)&" "& Format2(b),1
scrivi"---------------------------------------------------------Giocata n°"& Format2(t),1
ambata(1)=n1
ambata(2)=n2
 ImpostaGiocata 1,ambata,ruote,posta,10,1
am1(1)=n1
am1(2)=n3
 ImpostaGiocata 2,am1,ruote,poste,12,2
am2(1)=n1
am2(2)=n4
 ImpostaGiocata 3,am2,ruote,poste,12,2
am3(1)=n1
am3(2)=n5
 ImpostaGiocata 4,am3,ruote,poste,12,2
am4(1)=n1
am4(2)=n6
 ImpostaGiocata 5,am4,ruote,poste,12,2
am5(1)=n2
am5(2)=n3
 ImpostaGiocata 6,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n4
 ImpostaGiocata 7,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n5
 ImpostaGiocata 8,am5,ruote,poste,12,2
am5(1)=n2
am5(2)=n6
 ImpostaGiocata 9,am5,ruote,poste,12,2

End If
Gioca es
Next
Next
Next    
ScriviResoconto
End Sub

Avatar utente
xxombraxx
Messaggi: 645
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: PALERMO-ROMA by XXOMBRAXX

Messaggio da xxombraxx » 22/05/2014, 16:09

grazieeeeeeeeeeeee
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti