'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
Dim ruota(10)
Dim ambata(10)
Dim ambo(2)
Dim posta(10)
Dim poste(2)
posta(1) = 1
poste(2) = 1
co = 0
rr = InputBox("Scegli la ruota degli estratti",,1) 'Qui cambi la ruota di ricerca degli estratti
r = InputBox("Ruota di gioco?",,1) 'Qui cambi la ruota di gioco
r2 = InputBox("2°Ruota di gioco?",,2) 'Qui cambi la 2° ruota di gioco
'r3= InputBox("3°Ruota di gioco?",,3) 'Se vuoi anche una 3° ruota togli l'apice prima di r3
x = InputBox("Estrazione di partenza?",,8500)
k = InputBox("Colpi di gioco?",,10)
ini = x
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio(es)
p1 = 1 ' posizione = 1°
p2 = 2 ' posizione = 2°
ruota(1) = r 'questa è la ruota di gioco in impostagiocata
' se vuoi aggiungere le ruote nelle inputbox devi riportarle anche qui, in questo modo:
ruota(2) = r2
casi = casi + 1
a = Estratto(es - 1,rr,p1) : b = Estratto(es,rr,p1)
c = Estratto(es - 1,rr,p2) : d = Estratto(es,rr,p2)
Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
co = co + 1
ColoreTesto 1
Scrivi DataEstrazione(es - 1) & " " & SiglaRuota(rr) & " " & StringaEstratti(es - 1,rr) & " " & p1 & "°Estratto = " & Format2(a) & " " & p2 & "°Estratto = " & Format2(c),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " " & p1 & "°Estratto = " & Format2(b) & " " & p2 & "°Estratto = " & Format2(d),1
ColoreTesto 0
ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
ImpostaGiocata 1,ambata,ruota,poste,k,2 'mettendo poste al posto di posta giochi solo l'ambo
' se invece vuoi giocare sia la doppia ambata che l'ambo, in alto devi aggiungere posta(2)= 1
'e In ImpostaGiocata metti posta e togli poste
' il 2 finale in impostagiocata significa che al momento lo script si interrompe solo per la sortita
' dell'ambo (o per fine range colpi) e non dell'ambata, per quest'ultima devi mettere 1, che sta per estratto
'-----------------------------------------------------------------------
'ambo(1) = ambata(1) ' togli l'apice all'inizio
'ambo(2) = qui metti il numero che vuoi, poi togli l'apice all'inizio della stringa ambo(2) = etc...
'ImpostaGiocata 2,ambo,ruota,poste,k,2 ' stesso discorso, togli l'apice all'inizio
Gioca es,1
Next
Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub
0309373039
