R
Roby
Guest
Salve a tutti
Questo è un metodo che ricava 2 ambate su bari e su un altra ruota.
Niente di straordinario, ma mi ha inspirato per una versione ambo molto interessante che troverete piu in basso
Versione Ambata
Questo è un metodo che ricava 2 ambate su bari e su un altra ruota.
Niente di straordinario, ma mi ha inspirato per una versione ambo molto interessante che troverete piu in basso
Versione Ambata
Codice:
Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,ok,p1,p2
Dim ruota(12)
Dim posta(10)
Dim am(2)
Dim a,b,co
Dim Importi(1,4)
Dim nprogryn
Dim nprogr(4)
posta(1) = 1
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"4"))
nprogryn = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO",,"1"))
If nprogryn = 1 Then
nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro ",,"2"))
nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 2 = 1 Euro ",,"4"))
nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 3 = 1 Euro ",,"6"))
nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 4 = 1 Euro ",,"8"))
Importi(1,1) = nprogr(1)
Importi(1,2) = nprogr(2)
Importi(1,3) = nprogr(3)
Importi(1,4) = nprogr(4)
End If
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ok = 0
For r0 = 1 To 1
For r1 = r0 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r0,p1)
b = Estratto(es,r1,p2)
'--------------------
If b >(a - 1) Then
ok = 0
End If
If b <(a - 1) Then
ok = 0
End If
If b =(a - 1) Then
am(1) =(b - 1)
am(2) =(b - 2)
ok = 1
End If
If ok = 1 Then
ruota(1) = r0
ruota(2) = r1
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Primo Elemento " & a & " In Pos. " & p1,1,,,1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ] " & " Secondo Elemento " & b & " in Pos. " & p2,1,,,1
ImpostaGiocata 1,am,ruota,posta,Clp,1,,1
ImpostaProgressione 1,Importi
'Scrivi "puntate eseguite " & Clp
'Scrivi " - .1 colpo - " & Importi(1,1) & " euro x Ambata "
'Scrivi " - .2 colpo - " & Importi(1,2) & " euro x Ambata"
'Scrivi " - .3 colpo - " & Importi(1,3) & " euro x Ambata"
'Scrivi " - .4 colpo - " & Importi(1,4) & " euro x Ambata"
'Scrivi " - .5 colpo - " & Importi(1,5) & " euro x Ambata"
'Scrivi " - .6 colpo - " & Importi(1,6) & " euro x Ambata"
'Scrivi " - .7 colpo - " & Importi(1,7) & " euro x Ambata"
'Scrivi " - .8 colpo - " & Importi(1,8) & " euro x Ambata"
'Scrivi " - .9 colpo - " & Importi(1,9) & " euro x Ambata"
Gioca es,True,,1
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" D A U N I D E A D I C E R B E R U S "),1,3,0
ScriviResoconto,False
End Sub
