Per salvo50 o chi voglia cimentarsi cortesemente :-)

Matematico · 21 Aprile 2023

Buongiorno salvo50 , un saluto a tutti, non ricordo se questo script me lo avevi realizzato tu , avrei bisogno di una modifica , anzichè la ricerca su 2 ruote la vorrei fare su ruota secca , anche indietro fino a 30 estrazioni , grazie sempre di cuore.

'RICERCA CONDIZIONE SOMMA 90 per il Byron by ILMatematico
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
poste(3)=1
'poste(4)=1

fin=EstrazioneFin
ini=fin-300 '9532'esempio
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 12
If r1=11 Then r1=12
a1=Estratto(es,r1,1):a2=90:a3=Estratto(es,r1,3):a4=90:a5=Estratto(es,r1,5)
For r2=1 To 12:If r2=11 Then r2=12
b1=90:b2=Estratto(es,r2,2):b3=90:b4=Estratto(es,r2,4):b5=90
som=Fuori90(a1+a3+a5+b2+b4)
If r1<>r2 And som=90 Then

k1=Fuori90(a1+a2+a3+a4+a5)
If k1<10 Then k1=k1+90
If k1=90 Then k1=99
k2=Fuori90(a2+a3+a4+a5+b1)
If k2<10 Then k2=k2+90
If k2=90 Then k2=99
k3=Fuori90(a3+a4+a5+b1+b2)
If k3<10 Then k3=k3+90
If k3=90 Then k3=99
k4=Fuori90(a4+a5+b1+b2+b3)
If k4<10 Then k4=k4+90
If k4=90 Then k4=99
k5=Fuori90(a5+b1+b2+b3+b4)
If k5<10 Then k5=k5+90
If k5=90 Then k5=99
k6=Fuori90(b1+b2+b3+b4+b5)
If k6<10 Then k6=k6+90
If k6=90 Then k6=99
j1=Fuori90((90+a1)-a2):j2=Fuori90((90+a2)-a3):j3=Fuori90((90+a3)-a4):j4=Fuori90((90+a4)-a5):j5=Fuori90((90+a5)-b1)
:j6=Fuori90((90+b1)-b2)
w1=Fuori90((90+k1)-k2):w2=Fuori90((90+k2)-k3):w3=Fuori90((90+k3)-k4):w4=Fuori90((90+k4)-k5):w5=Fuori90((90+k5)-k6)
k7=Fuori90(j1+j2+j3+j4+j5+j6+w1+w2+w3+w4+w5)
y1=Fuori90(k1+k2+k3+k4+k5+k6):y2=Fuori90(y1+k7)
If y2=<90 Then
y3=Fuori90(k7+b1)
Scrivi
casi=casi+1:'Scrivi String(75,"="),1
Scrivi String(65,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&". "& Format2(a1)&" + "& Format2(a3)&" + "& Format2(a5),1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&". "& Format2(b2)&" + "& Format2(b4)&" Somma=90 ",1
Scrivi 'String(65,"-")
Scrivi " a b c d e f g",1
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a5)&"."&Format2(b1)&_
"."&Format2(b2)&". H"
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."& Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&_
"."&Format2(b3)&". I"
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."& Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&_
"."&Format2(b4)&". L"
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."& Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&_
"."&Format2(b5)&". M"
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."& Format2(b3)&"."&Format2(b4)&"."_
&Format2(b5)&".("&Format2(y3)&"). N"
Scrivi String(20,"-")&" somme delle colonne a b c d e f "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."& Format2(k4)&"."&Format2(k5)&"."&Format2(k6)&" O"
Scrivi String(20,"-")&" Differenze Colonna H"
Scrivi " "&Format2(j1)&"."&Format2(j2)&"."&Format2(j3)&"."& Format2(j4)&"."&Format2(j5)&"."&Format2(j6)
Scrivi String(20,"-")&" Differenze Colonna O"
Scrivi " "&Format2(w1)&"."&Format2(w2)&"."&Format2(w3)&"."& Format2(w4)&"."&Format2(w5)&"."
Scrivi String(20,"-")&" Somma delle Differenze "&Format2(k7)&" ."
If y2=90 Then Scrivi String(20,"-")&" 1° Equazione a 90 > "&Format2(k7)&" Somma Differenze + Colonna < O > "&Format2(y1)&_
" = "&Format2(y2)&" .",1
If y2<90 Then Scrivi String(20,"-")&" 1° Equazione inferiore a 90 > "&Format2(k7)&" Somma Differenze + Colonna < O > "&Format2(y1)&_
" = "&Format2(y2)&" .",1
Scrivi
k=13:co=0
ruote(1)=r1:ruote(2)=r2:ruote(3)=11:ruote(4)=12

'ruote(1)=r2:ruote(2)=DiametraleD(r2):ruote(3)=11-r2
'ruote(4)=r1:ruote(5)=DiametraleD(r1):ruote(6)=11-r1

'If r1=5 Then ruote(5)=10
'If r1=10 Then ruote(5)=5
'If r2=5 Then ruote(2)=10
'If r2=10 Then ruote(2)=5
'If r1=12 Then ruote(5)=3:ruote(6)=8':ruote(4)=7
'If r2=12 Then ruote(2)=3:ruote(3)=8':ruote(4)=7
nu2(1)=Fuori90(j1+w1)
nu2(2)=k7
nu2(3)=y1
nu2(4)=y2
nu2(5)=90
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
Next
ScriviResoconto

End Sub

salvo50 · 21 Aprile 2023

Ciao a Tutti.

Ciao Matematico

Non è un mio script, sarebbe più corretto che lo modificasse chi l'ha fatto,
Comunque appena posso te lo faccio

Matematico · 21 Aprile 2023

salvo50 ha scritto:
Ciao a Tutti.

Ciao Matematico

Non è un mio script, sarebbe più corretto che lo modificasse chi l'ha fatto,
Comunque appena posso te lo faccio

Ciao salvo50 , te ne sarei davvero molto grato , tranquillo quando puoi caro ...

salvo50 · 22 Aprile 2023

Ciao a Tutti

Ciao Matematico

L'ho modificato il minimo indispensabile per esaudire la tua richiesta
in più ho aggiunto la riga

Ind = 30

che fa la ricerca della stessa ruota a ritroso fino a 30 estrazioni indietro

naturalmente quel 30 lo puoi cambiare

Codice:

Sub Main()
   Dim nu1(10),nu2(10)
   Dim ruote(10),ruota(10)
   Dim poste(5)
   poste(2) = 1
   poste(3) = 1
   'poste(4)=1
   fin = EstrazioneFin
   ini = fin - 300 '9532'esempio
   Ind = 30
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 12
         If r1 = 11 Then r1 = 12
         a1 = Estratto(es,r1,1)
         a2 = 90
         a3 = Estratto(es,r1,3)
         a4 = 90
         a5 = Estratto(es,r1,5)
         Es3 =(es - Ind)
         For Es2 = Es To Es3 Step - 1
            r2 = r1
            b1 = 90
            b2 = Estratto(Es2,r2,2)
            b3 = 90
            b4 = Estratto(Es2,r2,4)
            b5 = 90
            som = Fuori90(a1 + a3 + a5 + b2 + b4)
            If som = 90 Then
               k1 = Fuori90(a1 + a2 + a3 + a4 + a5)
               If k1 < 10 Then k1 = k1 + 90
               If k1 = 90 Then k1 = 99
               k2 = Fuori90(a2 + a3 + a4 + a5 + b1)
               If k2 < 10 Then k2 = k2 + 90
               If k2 = 90 Then k2 = 99
               k3 = Fuori90(a3 + a4 + a5 + b1 + b2)
               If k3 < 10 Then k3 = k3 + 90
               If k3 = 90 Then k3 = 99
               k4 = Fuori90(a4 + a5 + b1 + b2 + b3)
               If k4 < 10 Then k4 = k4 + 90
               If k4 = 90 Then k4 = 99
               k5 = Fuori90(a5 + b1 + b2 + b3 + b4)
               If k5 < 10 Then k5 = k5 + 90
               If k5 = 90 Then k5 = 99
               k6 = Fuori90(b1 + b2 + b3 + b4 + b5)
               If k6 < 10 Then k6 = k6 + 90
               If k6 = 90 Then k6 = 99
               j1 = Fuori90((90 + a1) - a2)
               j2 = Fuori90((90 + a2) - a3)
               j3 = Fuori90((90 + a3) - a4)
               j4 = Fuori90((90 + a4) - a5)
               j5 = Fuori90((90 + a5) - b1)
               j6 = Fuori90((90 + b1) - b2)
               w1 = Fuori90((90 + k1) - k2):w2 = Fuori90((90 + k2) - k3):w3 = Fuori90((90 + k3) - k4):w4 = Fuori90((90 + k4) - k5):w5 = Fuori90((90 + k5) - k6)
               k7 = Fuori90(j1 + j2 + j3 + j4 + j5 + j6 + w1 + w2 + w3 + w4 + w5)
               y1 = Fuori90(k1 + k2 + k3 + k4 + k5 + k6):y2 = Fuori90(y1 + k7)
               If y2 <= 90 Then
                  y3 = Fuori90(k7 + b1)
                  Scrivi
                  casi = casi + 1:'Scrivi String(75,"="),1
                  Scrivi String(65,"=") & " caso n° " &(casi),1
                  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & ".     " & Format2(a1) & " + " & Format2(a3) & " + " & Format2(a5),1
                  Scrivi DataEstrazione(es2,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es2,r2) & ".     " & Format2(b2) & " + " & Format2(b4) & " Somma=90 ",1
                  Scrivi 'String(65,"-")
                  Scrivi " a b c d e f g",1
                  Scrivi " " & Format2(a1) & "." & Format2(a2) & "." & Format2(a3) & "." & Format2(a5) & "." & Format2(b1) & _
                  "." & Format2(b2) & ". H"
                  Scrivi " " & Format2(a2) & "." & Format2(a3) & "." & Format2(a4) & "." & Format2(a5) & "." & Format2(b1) & "." & Format2(b2) & _
                  "." & Format2(b3) & ". I"
                  Scrivi " " & Format2(a3) & "." & Format2(a4) & "." & Format2(a5) & "." & Format2(b1) & "." & Format2(b2) & "." & Format2(b3) & _
                  "." & Format2(b4) & ". L"
                  Scrivi " " & Format2(a4) & "." & Format2(a5) & "." & Format2(b1) & "." & Format2(b2) & "." & Format2(b3) & "." & Format2(b4) & _
                  "." & Format2(b5) & ". M"
                  Scrivi " " & Format2(a5) & "." & Format2(b1) & "." & Format2(b2) & "." & Format2(b3) & "." & Format2(b4) & "."_
                  & Format2(b5) & ".(" & Format2(y3) & "). N"
                  Scrivi String(20,"-") & " somme delle colonne a b c d e f "
                  Scrivi " " & Format2(k1) & "." & Format2(k2) & "." & Format2(k3) & "." & Format2(k4) & "." & Format2(k5) & "." & Format2(k6) & " O"
                  Scrivi String(20,"-") & " Differenze Colonna H"
                  Scrivi " " & Format2(j1) & "." & Format2(j2) & "." & Format2(j3) & "." & Format2(j4) & "." & Format2(j5) & "." & Format2(j6)
                  Scrivi String(20,"-") & " Differenze Colonna O"
                  Scrivi " " & Format2(w1) & "." & Format2(w2) & "." & Format2(w3) & "." & Format2(w4) & "." & Format2(w5) & "."
                  Scrivi String(20,"-") & " Somma delle Differenze " & Format2(k7) & " ."
                  If y2 = 90 Then Scrivi String(20,"-") & " 1° Equazione a 90 > " & Format2(k7) & " Somma Differenze + Colonna < O > " & Format2(y1) & _
                  " = " & Format2(y2) & " .",1
                  If y2 < 90 Then Scrivi String(20,"-") & " 1° Equazione inferiore a 90 > " & Format2(k7) & " Somma Differenze + Colonna < O > " & Format2(y1) & _
                  " = " & Format2(y2) & " .",1
                  Scrivi
                  k = 13
                  ruote(1) = r1:ruote(2) = r2:ruote(3) = 11:ruote(4) = 12
                  'ruote(1)=r2:ruote(2)=DiametraleD(r2):ruote(3)=11-r2
                  'ruote(4)=r1:ruote(5)=DiametraleD(r1):ruote(6)=11-r1
                  'If r1=5 Then ruote(5)=10
                  'If r1=10 Then ruote(5)=5
                  'If r2=5 Then ruote(2)=10
                  'If r2=10 Then ruote(2)=5
                  'If r1=12 Then ruote(5)=3:ruote(6)=8':ruote(4)=7
                  'If r2=12 Then ruote(2)=3:ruote(3)=8':ruote(4)=7
                  nu2(1) = Fuori90(j1 + w1)
                  nu2(2) = k7
                  nu2(3) = y1
                  nu2(4) = y2
                  nu2(5) = 90
                  ImpostaGiocata 1,nu2,ruote,poste,k
                  Gioca es
               End If
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub

Matematico · 22 Aprile 2023

Grazie di cuore salvo50 , sei il Top !

Cerca

Cerca

Per salvo50 o chi voglia cimentarsi cortesemente :-)

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi