LA STRUTTURA DEI NUMERI
I calcoli vengono fatti su 2 numeri, l'unica condizione è che i 2 numeri devono essere consecutivi, quindi in ogni estrazione ci sono sempre 44 pronostici 4 per ogni ruota.
'Progetto - LA STRUTTURA DEI NUMERI - by Fabarri
'Scrit by Salvo50
Option Explicit
Sub Main
Dim fin,esq,clp1,clp2,col,esqcol,es,idestr
Dim posta(1),ruota(1),ruote(1),ambata(2),ambo(2),poste(2)
Dim r1,p1,p2,caso,casi
Dim estr1,estr2,estr1a,estr2a
Dim figestr1,figestr2,cadestr1,cadestr2
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,20)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
posta(1) = 1
poste(2) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
ruota(1) = r1
For p1 = 1 To 4
p2 = p1 + 1
estr1 = Estratto(es,r1,p1)
estr2 = Estratto(es,r1,p2)
figestr1 = Figura(estr1)
cadestr1 = Cadenza(estr1)
figestr2 = Figura(estr2)
cadestr2 = Cadenza(estr2)
estr1a = figestr1 & cadestr1
estr2a = figestr2 & cadestr2
ambata(1) = Fuori90(109 - estr1a)
ambata(2) = Fuori90(109 - estr2a)
ambo(1) = ambata(1)
ambo(2) = ambata(2)
ruote(1) = TU_
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(90,"*") & " Casi Totali N " & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),1
Scrivi
Scrivi " Estr.Cons " & Space(10) & " Indice Binario " & Space(10) & " Pronostico "
Scrivi Space(3) & Format2(estr1) & Space(1) & Format2(estr2),0,0
Scrivi Space(18) & Format2(estr1a) & Space(1) & Format2(estr2a),0,0
Scrivi Space(19) & Format2(ambata(1)) & Space(1) & Format2(ambata(2))
ColoreTesto 0
ImpostaGiocata 1,ambata,ruota,posta,clp1
ImpostaGiocata 2,ambo,ruote,poste,clp2
Gioca es
Next
Next
Next
ScriviResoconto
End Sub
