daniellotto
Junior Member
ciao gastone il 17 marzo esce il 38 cadenza 8 in quinta posizione su bari si puo fare??
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
JOBBY il metodo mi e'molto chiaro,
invece ho trovato un qualcosa in piu' che restringe il rarissimo caso di esito negativo.
Per questo mi sto prolungando nel riportare le 4 regolette.
Grazie per l'interessamento ma sono convinto
che appena sara' possibile e il quadro estrazionale lo permettera'
potremmo beccare qualche eurino.
Sub Main()
Dim ruota(1),num1(1),posta(1)
posta(1) = 5
ce = InputBox(" estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",10)
p = InputBox("quale posizione?","posizione",1)
c = InputBox("quale cadenza?","cadenza",2)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r = 1 To 1
a = Estratto(es,BA_,p)
c1 = c + 0
c2 = c1 + 10
c3 = c1 + 20
c4 = c1 + 30
c5 = c1 + 40
c6 = c1 + 50
c7 = c1 + 60
c8 = c1 + 70
c9 = c1 + 80
If a = c1 Or a = c2 Or a = c3 Or a = c4 Or a = c5 Or a = c6 Or a = c7 Or a = c8 Or a = c9 Then
casi = casi + 1
Scrivi String(60,"-")
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
" ] [ " & Format2(a) & " ] Cadenza " &(c) & " In pos. " &(p)
ColoreTesto 0
Scrivi String(60,"-") & " caso n°" & casi
ruota(1) = r
n1 = Fuori90(123 - a)
n2 = Vert(n1)
num1(1) = n1
ColoreTesto 1
Scrivi "Il vertibile " & n2 & " da giocare nel posto numerale " & n1,1,,4
ColoreTesto 0
ImpostaGiocata 1,num1,ruota,posta,k
Gioca es,True
End If
Next
Next
ScriviResoconto
End Sub
Sveglia,l'isotopia riguarda tutte le ruote.
Occhio all'altra metodologia.
Ciao.
Non mi fido quando e'presente nella stessa estrazione di calcolo.
Vai a controllare pure nelle posizioni 3......4......e 5.