L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 - quasi alias - PROCEDIMENTO DISTICON

L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 - quasi alias - PROCEDIMENTO DISTICON

Per questo metodo ho messo quasi alias, un altro metodo perche sono quasi uguali, cambia solo la regola n8, infatti i primi due esempi negli articoli sono uguali, con la regola n4 in tutti e due cambia il procedimento, quindi per ogni metodo devo fare 2 script, la regola n8 nel PROCEDIMENTO DISTICON recita la ricerca contemporanea di 7 numeri, quindi dato che nell'altro metodo la regola n8 cambia, non c'è la ricerca dei 7 numeri, poi la regola n8 dice di modificare ancora il tipo di ricerca, ecco il perchè dei 4 script.







L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 (senza regola n 4)

'PROGETTO - L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 (senza regola 4)- BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim fin,es,esq,clp,col,esqcol,idestr
Dim posta(2),ruote(3),ruota(1),poste(5)
Dim p1,p2,p3,p4,r1,r2,caso,casi
Dim estra,estrb,estrc,estrd,X
Dim d1,d2,d3,d4,d5,s1,s2,s3,s4,di1,es2,num(2)
Redim Xnum(10)
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9415)
clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
'posta(1) = 1
posta(2) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For es2 = es To(es - 3) Step - 1
For r1 = 1 To 9
For p1 = 1 To 4
p2 = p1 + 1
estra = Estratto(es,r1,p1)
estrb = Estratto(es,r1,p2)
d1 = Distanza(estra,estrb)
s1 = d1 + estra
s2 = d1 + estrb
If s1 < 45 Or s2 < 45 Then
If s1 < 45 Then d2 = s1
If s2 < 45 Then d2 = s2
For r2 = 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estrc = Estratto(es2,r2,p3)
estrd = Estratto(es2,r2,p4)
d3 = Distanza(estrc,estrd)
If d2 = d3 Then
di1 = Abs(d1-d3)
If di1 =(estra) Or di1 =(estrb) Or di1 =(estrc) Or di1 =(estrd) Then
If di1 = estrc Or di1 = estrd Then ruota(1) = r2
If di1 = estra Or di1 = estrb Then ruota(1) = r1
s3 = Fuori90(estra + estrb)
s4 = Fuori90(estrc + estrd)
d4 = Distanza(estra,estrd)
d5 = Distanza(estrb,estrc)
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es2) & " del " & DataEstrazione(es2)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es2,r2),2
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi Space(35) & Left(NomeRuota(r2),2) & " " & Format2(estrc) & " " & Format2(estrd),0,0
Scrivi "|" & Format2(d3) & "|" & Format2(s4) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d4),2
ColoreTesto 1
Scrivi Space(35) & Left(NomeRuota(r1),2) & " " & Format2(estra) & " " & Format2(estrb),0,0
Scrivi "|" & Format2(d1) & "|" & Format2(s3) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d5),2
ColoreTesto 0
Scrivi Space(43) & "|" & Format2(di1) & "|"
Scrivi
Scrivi " Ruota principale " & NomeRuota(ruota(1))
Scrivi
ruote(1) = r1
ruote(2) = r2
Xnum(1) = estra
Xnum(2) = estrb
Xnum(3) = estrc
Xnum(4) = estrd
Xnum(5) = d1
Xnum(6) = d3
Xnum(7) = s3
Xnum(8) = s4
Xnum(9) = d4
Xnum(10) = d5
EliminaRipetuti Xnum',True
For X = 1 To UBound(Xnum)
If Xnum(X) > 0 And Xnum(X) <> di1 Then
num(1) = di1 : num(2) = Xnum(X)
ImpostaGiocata X,num,ruota,posta,clp
End If
Gioca es
Next
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - L'AMBO SECCO SULLA RUOTA (senza regola 4)- BY FABARRI"
Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub

L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 (con regola n 4)

'PROGETTO - L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 (con regola 4) - BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim fin,es,esq,clp,col,esqcol,idestr
Dim posta(2),ruote(3),ruota(1),poste(5)
Dim p1,p2,p3,p4,r1,r2,caso,casi
Dim estra,estrb,estrc,estrd,X
Dim d1,d2,d3,d4,s1,s2,di1,es2,num(2)
Redim Xnum(10)
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9415)
clp = InputBox("Per quanti colpi vuoi giocare?",,7)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
'posta(1) = 1
posta(2) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For es2 = es To(es - 3) Step - 1
For r1 = 1 To 9
For p1 = 1 To 4
p2 = p1 + 1
estra = Estratto(es,r1,p1)
estrb = Estratto(es,r1,p2)
d1 = Distanza(estra,estrb)
For r2 = 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estrc = Estratto(es2,r2,p3)
estrd = Estratto(es2,r2,p4)
If d1 = estrc Or d1 = estrd Then
d2 = Distanza(estrc,estrd)
di1 = Abs(d1-d2)
If di1 =(estra) Or di1 =(estrb) Or di1 =(estrc) Or di1 =(estrd) Then
If d1 =(estra) Or d1 =(estrb) Or d1 =(estrc) Or d1 =(estrd) Then
If di1 = estrc Or di1 = estrd Then ruota(1) = r2
If di1 = estra Or di1 = estrb Then ruota(1) = r1
s1 = Fuori90(estra + estrb)
s2 = Fuori90(estrc + estrd)
d3 = Distanza(estra,estrd)
d4 = Distanza(estrb,estrc)
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es2) & " del " & DataEstrazione(es2)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es2,r2),2
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi Space(35) & Left(NomeRuota(r2),2) & " " & Format2(estrc) & " " & Format2(estrd),0,0
Scrivi "|" & Format2(d2) & "|" & Format2(s2) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d3),2
ColoreTesto 1
Scrivi Space(35) & Left(NomeRuota(r1),2) & " " & Format2(estra) & " " & Format2(estrb),0,0
Scrivi "|" & Format2(d1) & "|" & Format2(s1) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d4),2
ColoreTesto 0
Scrivi Space(43) & "|" & Format2(di1) & "|"
Scrivi
Scrivi " Ruota principale " & NomeRuota(ruota(1))
Scrivi
ruote(1) = r1
ruote(2) = r2
Xnum(1) = estra
Xnum(2) = estrb
Xnum(3) = estrc
Xnum(4) = estrd
Xnum(5) = d1
Xnum(6) = d2
Xnum(7) = s1
Xnum(8) = s2
Xnum(9) = d3
Xnum(10) = d4
EliminaRipetuti Xnum',True
For X = 1 To UBound(Xnum)
If Xnum(X) > 0 And Xnum(X) <> di1 Then
num(1) = di1 : num(2) = Xnum(X)
ImpostaGiocata X,num,ruota,posta,clp
End If
Gioca es
Next
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - L'AMBO SECCO SULLA RUOTA: I VALORI 1-44 (con regola 4) - BY FABARRI"
Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub

PROCEDIMENTO DISTICON (senza regola n4)

'PROGETTO - PROCEDIMENTO DISTICON (senza regola 4)- BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim fin,es,esq,clp,col,esqcol,idestr
Dim posta(2),ruote(3),ruota(1),poste(5)
Dim p1,p2,p3,p4,r1,r2,caso,casi
Dim estra,estrb,estrc,estrd,X
Dim d1,d2,d3,d4,d5,s1,s2,s3,s4,di1,es2,num(2),num7(7)
Redim Xnum(10)
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9415)
clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
'posta(1) = 1
posta(2) = 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 es2 = es To(es - 3) Step - 1
For r1 = 1 To 9
For p1 = 1 To 4
p2 = p1 + 1
estra = Estratto(es,r1,p1)
estrb = Estratto(es,r1,p2)
d1 = Distanza(estra,estrb)
s1 = d1 + estra
s2 = d1 + estrb
If s1 < 45 Or s2 < 45 Then
If s1 < 45 Then d2 = s1
If s2 < 45 Then d2 = s2
For r2 = 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estrc = Estratto(es2,r2,p3)
estrd = Estratto(es2,r2,p4)
d3 = Distanza(estrc,estrd)
If d2 = d3 Then
di1 = Abs(d1-d3)
If di1 =(estra) Or di1 =(estrb) Or di1 =(estrc) Or di1 =(estrd) Then
If di1 = estrc Or di1 = estrd Then ruota(1) = r2
If di1 = estra Or di1 = estrb Then ruota(1) = r1
s3 = Fuori90(estra + estrb)
s4 = Fuori90(estrc + estrd)
d4 = Distanza(estra,estrd)
d5 = Distanza(estrb,estrc)
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es2) & " del " & DataEstrazione(es2)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es2,r2),2
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi Space(35) & Left(NomeRuota(r2),2) & " " & Format2(estrc) & " " & Format2(estrd),0,0
Scrivi "|" & Format2(d3) & "|" & Format2(s4) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d4),2
ColoreTesto 1
Scrivi Space(35) & Left(NomeRuota(r1),2) & " " & Format2(estra) & " " & Format2(estrb),0,0
Scrivi "|" & Format2(d1) & "|" & Format2(s3) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d5),2
ColoreTesto 0
Scrivi Space(43) & "|" & Format2(di1) & "|"
Scrivi
Scrivi " Ruota principale " & NomeRuota(ruota(1))
Scrivi
ruote(1) = r1
ruote(2) = r2
Xnum(1) = estra
Xnum(2) = estrb
Xnum(3) = estrc
Xnum(4) = estrd
Xnum(5) = d1
Xnum(6) = d3
Xnum(7) = s3
Xnum(8) = s4
Xnum(9) = d4
Xnum(10) = d5
EliminaRipetuti Xnum',True
For X = 1 To UBound(Xnum)
If Xnum(X) > 0 And Xnum(X) <> di1 Then
num(1) = di1 : num(2) = Xnum(X)
ImpostaGiocata X,num,ruota,posta,clp
End If
If X = UBound(Xnum) Then
num7(1) = estra
num7(2) = estrb
num7(3) = estrc
num7(4) = estrd
num7(5) = d1
num7(6) = d3
num7(7) = di1
EliminaRipetuti num7
ImpostaGiocata 11,num7,ruote,poste,clp
End If
Gioca es
Next
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - PROCEDIMENTO DISTICON (senza regola 4)- BY FABARRI"
Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub

PROCEDIMENTO DISTICON (con regola n4)


'PROGETTO - PROCEDIMENTO DISTICON (con regola 4) - BY FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
Dim fin,es,esq,clp,col,esqcol,idestr
Dim posta(2),ruote(3),ruota(1),poste(5)
Dim p1,p2,p3,p4,r1,r2,caso,casi
Dim estra,estrb,estrc,estrd,X
Dim d1,d2,d3,d4,s1,s2,di1,es2,num(2),num7(7)
Redim Xnum(10)
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9415)
clp = InputBox("Per quanti colpi vuoi giocare?",,7)
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,fin))
'posta(1) = 1
posta(2) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol
Messaggio es
AvanzamentoElab esq,esqcol,es
caso = 0
For es2 = es To(es - 3) Step - 1
For r1 = 1 To 9
For p1 = 1 To 4
p2 = p1 + 1
estra = Estratto(es,r1,p1)
estrb = Estratto(es,r1,p2)
d1 = Distanza(estra,estrb)
For r2 = 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
estrc = Estratto(es2,r2,p3)
estrd = Estratto(es2,r2,p4)
If d1 = estrc Or d1 = estrd Then
d2 = Distanza(estrc,estrd)
di1 = Abs(d1-d2)
If di1 =(estra) Or di1 =(estrb) Or di1 =(estrc) Or di1 =(estrd) Then
If di1 = estrc Or di1 = estrd Then ruota(1) = r2
If di1 = estra Or di1 = estrb Then ruota(1) = r1
s1 = Fuori90(estra + estrb)
s2 = Fuori90(estrc + estrd)
d3 = Distanza(estra,estrd)
d4 = Distanza(estrb,estrc)
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),2
ColoreTesto 2
Scrivi(" Estrazione n." & Format2(es2) & " del " & DataEstrazione(es2)),0,0
Scrivi " " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es2,r2),2
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi Space(35) & Left(NomeRuota(r2),2) & " " & Format2(estrc) & " " & Format2(estrd),0,0
Scrivi "|" & Format2(d2) & "|" & Format2(s2) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d3),2
ColoreTesto 1
Scrivi Space(35) & Left(NomeRuota(r1),2) & " " & Format2(estra) & " " & Format2(estrb),0,0
Scrivi "|" & Format2(d1) & "|" & Format2(s1) & Space(5),0,0
ColoreTesto 0
Scrivi Format2(d4),2
ColoreTesto 0
Scrivi Space(43) & "|" & Format2(di1) & "|"
Scrivi
Scrivi " Ruota principale " & NomeRuota(ruota(1))
Scrivi
ruote(1) = r1
ruote(2) = r2
Xnum(1) = estra
Xnum(2) = estrb
Xnum(3) = estrc
Xnum(4) = estrd
Xnum(5) = d1
Xnum(6) = d2
Xnum(7) = s1
Xnum(8) = s2
Xnum(9) = d3
Xnum(10) = d4
EliminaRipetuti Xnum',True
For X = 1 To UBound(Xnum)
If Xnum(X) > 0 And Xnum(X) <> di1 Then
num(1) = di1 : num(2) = Xnum(X)
ImpostaGiocata X,num,ruota,posta,clp
End If
If X = UBound(Xnum) Then
num7(1) = estra
num7(2) = estrb
num7(3) = estrc
num7(4) = estrd
num7(5) = d1
num7(6) = d2
num7(7) = di1
EliminaRipetuti num7
ImpostaGiocata 11,num7,ruote,poste,clp
End If
Gioca es
Next
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi Space(50) & "PROGETTO - PROCEDIMENTO DISTICON (con regola 4) - BY FABARRI"
Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub