LA STELLA MIRACOLOSA-5° PARTE

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

LA STELLA MIRACOLOSA-5° PARTE

Messaggio da DjNomade » 08/01/2014, 0:13

LA STELLA MIRACOLOSA-5° PARTE ,per le spiegazioni andate QUI

Ciauz

Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=46&t=4197&sid=461ea668888702da79c173b518916dac#p21264
ColoreTesto 1 :Scrivi "--------------LA STELLA MIRACOLOSA-5° PARTE---",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0
Sub main()
Dim k(2),kk(8),k1(3)
Dim ruota(10),ruote(10)
Dim posta(5),poste(5),postee(5),poste1(5),ptt(10)
posta(1)=1  :posta(2)=1  :poste(2)=1 
poste1(2)=1  :poste1(3)=1
postee(2)=2  :postee(3)=1.5 :postee(4)=0.5        
tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",20))
clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",18))
co=0
ini=EstrazioneFin -tmp 
For es=ini To EstrazioneFin
Messaggio (es)
For r1=1 To 12
If r1=11 Then r2=12
For r2=1 To 12
If r2=11 Then r2=12
For p1=1 To 4
For p2=p1+1 To 5
For p3=1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n3=Estratto(es,r2,p3)


aa=Fuori90(n1+n2)'CHIAVE + FUTURO ABB
bb=(36-aa)
If aa>35 Then bb=Fuori90(90-aa+36)'ambata
If((Figura(n1)=4 And Figura(n2)=9) Or (Figura(n1)=9 And Figura(n2)=4))And ( p3=p1 Or p3=p2)  Then
If (n3=36 And Figura(n1)=4 And Figura(n2)=9 And p3=p1)Or(n3=36 And Figura(n2)=4 And Figura(n1)=9  And p3=p2) Then 
If (n3=36 And Figura(n1)=4 And Figura(n2)=9 And p3=p1)Or(n3=36 And Figura(n2)=4 And Figura(n1)=9  And p3=p2) Then nu1=bb

ab1=Fuori90(bb+90)
ab2=Fuori90(bb+36)
ab3=Fuori90(bb+22)
ab4=Fuori90(bb+57)
ab5=Fuori90(bb+37)
ab6=Fuori90(bb+26)




co=co+1
Scrivi String(70,"="): ColoreTesto 2
Scrivi DataEstrazione(es)&" - "&SiglaRuota(r1)&" - "&StringaEstratti (es,r1),1
Scrivi DataEstrazione(es)&" - "&SiglaRuota(r2)&" - "&StringaEstratti (es,r2),1
Scrivi " AMBO            ---> "&format2(n1)&" - "&format2(n2),1
Scrivi "                    ---> "&format2(n3),1

Scrivi : ColoreTesto 0

ruota(1)=r1
ruota(2)=r2

ruote(1)=r1
ruote(2)=r2

ruote(4)=11


k(1)=bb
k(2)=bb
EliminaRipetuti k1
Erase ptt
ptt(1)=1
ImpostaGiocata 1, k, ruota, ptt,clp

k(1)=bb
k(2)=ab2
ImpostaGiocata 2, k, ruote, poste,clp
k(1)=bb
k(2)=ab3
ImpostaGiocata 3, k, ruote, poste,clp
k(1)=bb
k(2)=ab4
ImpostaGiocata 4, k, ruote, poste,clp
k(1)=bb
k(2)=ab5
ImpostaGiocata 5, k, ruote, poste,clp
k(1)=bb
k(2)=ab6
ImpostaGiocata 6, k, ruote, poste,clp

k1(1)=bb
k1(2)=n1
k1(3)=n2
ImpostaGiocata 7, k1, ruote, poste1,clp

kk(1)=bb
kk(2)=ab2
kk(3)=ab3
kk(4)=ab4
kk(5)=ab5
kk(6)=ab6
kk(7)=n1
kk(8)=n2
ImpostaGiocata 8, kk, ruote, postee,clp
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
End Sub


Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite