Novità

Per Salvo50

sorujoe

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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


Codice:
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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
BYRON;n2174830 ha scritto:
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

Advanced Member
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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
BYRON;n2174843 ha scritto:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto