Buongiorno Salvo e tutti voi,
Grazie per la spiegazione dettagliata
Quindi se noi inseriamo tutte le ruote
Funziona lo stesso?
Se è così va bene , anche se gli esiti non sono le migliori,
Quindi riepilogando:
Imputbox. Per la ruota
Per dire x ( Venezia)
Imputbox per la decina di calcolo
Mantenendo gli stessi criterio dei calcoli sulle ruote di Ba Ca Fi Ge Mi
Sempre sé possibile,
Grazie mille e buona giornata
Forse così....
Sub Main()
Dim rt(5), pt(2), nu(2)
Dim es, ini, fin, clp, casi
Dim n(5), d
ini = 6877
fin = EstrazioneFin
clp = 13
' Ruote di gioco: BA-CA-FI-GE-MI
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
'pt(1)=0
pt(2)=1 ' Ambo
For es = ini To fin
AvanzamentoElab ini,fin,es
For k = 1 To 5
n(k) = Estratto(es,1,k) ' Bari
Next
d = DecinaTerzina
If d > 0 Then
casi = casi + 1
Scrivi String(70,"="),1
Scrivi "Caso n° " & casi & " - Estrazione " & es & " - Terzina su Bari decina " & d,1
Select Case d
Case 1 ' 01-09
x1 = Fuori90(Estratto(es,6,3)+66)
x2 = Fuori90(Estratto(es,3,1)+46)
x3 = Fuori90(Estratto(es,5,4)+11)
x4 = Fuori90(Estratto(es,10,5)+50)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
Case 2 ' 11-19
x1 = Fuori90(Estratto(es,8,2)+75)
x2 = Fuori90(Estratto(es,5,2)+48)
x3 = Fuori90(Estratto(es,9,1)+9)
x4 = Fuori90(Estratto(es,3,2)+87)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
Case 3 ' 21-29
x1 = Fuori90(Estratto(es,3,4)+5) ' 4° FI + 5
x2 = Fuori90(Estratto(es,10,5)+80)
x3 = Fuori90(Estratto(es,7,1)+44)
x4 = Fuori90(Estratto(es,3,2)+55)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)
Case 4 ' 31-39
x1 = Fuori90(Estratto(es,12,3)+59)
x2 = Fuori90(Estratto(es,5,3)+68)
x3 = Fuori90(Estratto(es,2,2)+81)
x4 = Fuori90(Estratto(es,5,4)+29)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
Case 5 ' 41-49
x1 = Fuori90(Estratto(es,8,2)+83)
x2 = Fuori90(Estratto(es,8,5)+41)
x3 = Fuori90(Estratto(es,7,3)+24)
x4 = Fuori90(Estratto(es,9,3)+22)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)
Case 6 ' 51-59
x1 = Fuori90(Estratto(es,4,3)+15)
x2 = Fuori90(Estratto(es,5,5)+17)
x3 = Fuori90(Estratto(es,4,1)+19)
x4 = Fuori90(Estratto(es,5,4)+36)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
Case 7 ' 61-69
x1 = Fuori90(Estratto(es,10,1)+83)
x2 = Fuori90(Estratto(es,3,2)+53)
x3 = Fuori90(Estratto(es,8,4)+11)
x4 = Fuori90(Estratto(es,3,1)+60)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
Case 8 ' 71-79
x1 = Fuori90(Estratto(es,4,3)+27)
x2 = Fuori90(Estratto(es,3,4)+57)
x3 = Fuori90(Estratto(es,7,2)+57)
Call GiocaAmbi(es,x1,x3,x2,x3,rt,pt,nu,clp)
Case 9 ' 81-89
x1 = Fuori90(Estratto(es,3,1)+72)
x2 = Fuori90(Estratto(es,6,3)+3)
x3 = Fuori90(Estratto(es,7,2)+36)
x4 = Fuori90(Estratto(es,6,1)+35)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)
End Select
Gioca es,2
End If
Next
Scrivi
Scrivi "Casi rilevati: " & casi,1
ScriviResoconto
End Sub
Function DecinaTerzina
Dim i, c, a, b
DecinaTerzina = 0
For d = 1 To 9
a = ((d-1)*10)+1
b = a+8
c = 0
For i = 1 To 5
If n(i) >= a And n(i) <= b Then c = c + 1
Next
If c >= 3 Then
DecinaTerzina = d
Exit Function
End If
Next
End Function
Sub GiocaAmbi(es,a,b,c,d,rt,pt,nu,clp)
If Decina(a)=Decina(b) Then
Scrivi "Ambo 1: " & a & "." & b, 1
nu(1)=a
nu(2)=b
ImpostaGiocata 1,nu,rt,pt,clp,2
If Decina(c)=Decina(d) Then
Scrivi "Ambo 2: " & c & "." & d, 1
nu(1)=c
nu(2)=d
ImpostaGiocata 2,nu,rt,pt,clp,2
End If
End If
End Sub