Per Salvo50

[sorujoe]

Mi hai fatto questo script perfetto e ti ringrazio ancora, ti chiedo gentilmente questa ottimizzazione:
Al momento mi da in modo coatto 2 formazioni su cui fare lo spoglio
io ti chiedo un box in cui mi domanda: Formazioni da analizzare 1 o 2
Perche spesso lavoro su 1 sola formazione. GRAZIE

Option Explicit
Sub Main
Dim Fig1,Fig2,Fig3,Fig4,FIn,Ini,Clp
Dim R1,R2,P1,P2,P3,P4,P5,P6,Es,Caso,Casi
Dim E1,E2,A,B,C,D,FA,FB,FC,FD,Sp,Sorte
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruote(2),Ru(2),Post(5)
ReDim aNum1(10),aNum2(10)
'Post(1) = 1
Post(2) = 1
Post(3) = 1
'Post(4) = 1
'Post(5) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
P1 = CInt(InputBox(" Indica la posizione del primo estratto della prima ruota",,1))
Fig1 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della prima ruota",,1))
'
P2 = CInt(InputBox(" Indica la posizione del secondo estratto della prima ruota",,3))
Fig2 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della prima ruota",,2))
'
P3 = CInt(InputBox(" Indica la posizione del primo estratto della seconda ruota",,4))
Fig3 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della seconda ruota",,8))
'
P4 = CInt(InputBox(" Indica la posizione del secondo estratto della seconda ruota",,2))
Fig4 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della seconda ruota",,7))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,5))
'Sorte = CInt(InputBox(" Per qualè sorte? 1 per Ambata, 2 per Ambo, ecc... ",,3))
Call ScegliNumeri(aNum1)
Call ScegliNumeri(aNum2)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " CHIESTO DA BYRON - SCELTA FIGURE E POSIZIONI ESTRATTI - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
FA = Figura(A) : FB = Figura(B)
If Fig1 = FA And Fig2 = FB Then
For R2 = R1 + 1 To 12
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
FC = Figura(C) : FD = Figura(D)
If Fig3 = FC And Fig4 = FD Then
Ru(1) = R1
Ru(2) = R2
'Ru(3) = TU_
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <--in Rosso Figure scelte " & FA & " " & FB,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <--in Rosso Figure scelte " & FC & " " & FD,1
Scrivi
Scrivi " Numeri scelti per 1ª Giocata " & StringaNumeri(aNum1,Sp,True),1,,,1
Scrivi " Numeri scelti per 2ª Giocata " & StringaNumeri(aNum2,Sp,True),1,,,2
Scrivi
ImpostaGiocata 1,aNum1,Ru,Post,Clp
ImpostaGiocata 2,aNum2,Ru,Post,Clp
Gioca Es,,,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

 

[sorujoe]

Se non si puo fare mettimi gentilmente 1 sola formazione di riscontro GRAZIE

 

[salvo50]

Ciao a Tutti.

Ciao Byron, alla seconda domanda se rispondi 1 esegue solo la prima formazione, se rispondi 2 esegue solo la seconda formazione.


Modificato, alla seconda domanda se rispondi 1 esegue solo la prima formazione, con qualsiasi altro numero li fa tutti e due

Option Explicit
Sub Main
   Dim Fig1,Fig2,Fig3,Fig4,FIn,Ini,Clp
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Es,Caso,Casi
   Dim E1,E2,A,B,C,D,FA,FB,FC,FD,Sp,Sorte
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruote(2),Ru(2),Post(5),Scelta
   ReDim aNum1(10),aNum2(10)
   'Post(1) = 1
   Post(2) = 1
   Post(3) = 1
   'Post(4) = 1
   'Post(5) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Scelta = InputBox(" Per scelta formazione 1 metti 1, per tutte e 2 le  formazione metti un qualsiasi altro numero ",,1)
   P1 = CInt(InputBox(" Indica la posizione del primo estratto della prima ruota",,1))
   Fig1 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della prima ruota",,1))
   '
   P2 = CInt(InputBox(" Indica la posizione del secondo estratto della prima ruota",,3))
   Fig2 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della prima ruota",,2))
   '
   P3 = CInt(InputBox(" Indica la posizione del primo estratto della seconda ruota",,4))
   Fig3 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della seconda ruota",,8))
   '
   P4 = CInt(InputBox(" Indica la posizione del secondo estratto della seconda ruota",,2))
   Fig4 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della seconda ruota",,7))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,5))
   'Sorte = CInt(InputBox(" Per qualè sorte? 1 per Ambata, 2 per Ambo, ecc... ",,3))
   If Scelta = 1 Then
      Call ScegliNumeri(aNum1)
   Else
      Call ScegliNumeri(aNum1)
      Call ScegliNumeri(aNum2)
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " CHIESTO DA BYRON - SCELTA FIGURE E POSIZIONI ESTRATTI CON SCELTA FORMAZIONI - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         A = Estratto(Es,R1,P1)
         B = Estratto(Es,R1,P2)
         FA = Figura(A) : FB = Figura(B)
         If Fig1 = FA And Fig2 = FB Then
            For R2 = R1 + 1 To 12
               C = Estratto(Es,R2,P3)
               D = Estratto(Es,R2,P4)
               FC = Figura(C) : FD = Figura(D)
               If Fig3 = FC And Fig4 = FD Then
                  Ru(1) = R1
                  Ru(2) = R2
                  'Ru(3) = TU_
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R1) & " ",1,0
                  For P5 = 1 To 5
                     E1 = Estratto(Es,R1,P5)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi " <--in Rosso Figure scelte " & FA & " " & FB,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R2) & " ",1,0
                  For P6 = 1 To 5
                     E2 = Estratto(Es,R2,P6)
                     If E2 = C Or E2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi " <--in Rosso Figure scelte " & FC & " " & FD,1
                  Scrivi
                  If Scelta = 1 Then
                     Scrivi " Numeri scelti per 1ª Giocata " & StringaNumeri(aNum1,Sp,True),1,,,1
                  Else
                     Scrivi " Numeri scelti per 1ª Giocata " & StringaNumeri(aNum1,Sp,True),1,,,1
                     Scrivi " Numeri scelti per 2ª Giocata " & StringaNumeri(aNum2,Sp,True),1,,,2
                  End If
                  Scrivi
                  If Scelta = 1 Then
                     ImpostaGiocata 1,aNum1,Ru,Post,Clp
                  Else
                     ImpostaGiocata 1,aNum1,Ru,Post,Clp
                     ImpostaGiocata 2,aNum2,Ru,Post,Clp
                  End If
                  Gioca Es,,,1
               End If
            Next
         End If
      Next
   Next
   ScriviResoconto
End Sub

 

[sorujoe]

Thanks

 

[sorujoe]

Salvo non so se sbaglio io ma o metto 1 o metto 2 sempre 1 sola fomrazione fa ...mah???

 

[salvo50]

Salvo non so se sbaglio io ma o metto 1 o metto 2 sempre 1 sola fomrazione fa ...mah???

Allora ci siamo capiti male, per formazione cosa intendi? Io ho capito che sono le combinazioni di numeri per la ricerca e prima ne cercava 2 ed adesso ne cerca 1 o la prima o la seconda.

Forse tu volevi che in un modo ne cercasse una qualsiasi e nell'altro modo tutti e due, dimmi se è così, oppure spiegami con più particolari quello che intendi.

 

[sorujoe]

Con 1 fa lo spoglio vincite su 1 combinazione che inputerò nella fase di avviamento script
se metto 2 lo spoglio lo farà su 2 combinazioni diverse che inputerò sempre alla fase di avvio script.
In pratica se metto 1 quando avvio lo script mi farà mettere una sola lunghetta
se invece metto due quando imposto lo script mi farà mettere 2 combinazioni e poi premerò avvio e farà lo spoglio sulle due distinte

 

[salvo50]

Con 1 fa lo spoglio vincite su 1 combinazione che inputerò nella fase di avviamento script
se metto 2 lo spoglio lo farà su 2 combinazioni diverse che inputerò sempre alla fase di avvio script.
In pratica se metto 1 quando avvio lo script mi farà mettere una sola lunghetta
se invece metto due quando imposto lo script mi farà mettere 2 combinazioni e poi premerò avvio e farà lo spoglio sulle due distinte

Ho corretto

 

[sorujoe]

Al solito PERFETTO
Grazie