Novità

chi mi aiuta per lo script?

  • Creatore Discussione Creatore Discussione membro cancellato
  • Data di inizio Data di inizio
M

membro cancellato

Guest
salve, avevo chiesto in sede a chi seguiva se mi aiutava per uno script, ma non ho avuto risposta, allora mi rivolgo qui... non è metodo mio .... lo preciso....

avrei bisogno dello script. grazie
il metodo è questo:
Rintracciare in qualsiasi estrazione un numeretto e un gemello isotopi, ruote consecutive, o non,
Sommare i due numeri rilevati.
Il risultato sarà l'ambata.
Il vertibile dell'ambata sarà la seconda ambata.
Abbinamenti:
Complemento a 91 dei due numeri rintracciati.
Quartina per ambo e terno su ruote di calcolo. Il terno,raramente.
Esempio:
Estr. 01.06
NA 11
PA 9
9+11=20 ambata1
Vertibile 2 ambata 2
91-11=80
91-9=82
Prev. 20-2/80-82
Esito al 4° colpo ambo secco 20-80 PA.
5° colpo 20-80 Na.
Altro esempio,estrazione del 04.06 isotopi 33 e 1 PA-RO.
Prev. 34-43/90-58
Esito 3° colpo ambi secchi 43-90,34-90,34-43 e terno in quartina 34-43-90 RO.
 
Ciao Margot

Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Caso,Casi,Clp
   Dim R1,R2,P1,P2,P5,P6,Salvo50
   Dim A,B,E1,E2,S1,C91_A
   Dim Vert_S1,C91_B
   Dim Ruote(2),Posta(3),Num(4),Amba(2)
   Dim Poste(3)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10400)'
   Clp = InputBox("Per quanti colpi vuoi giocare?",,12)
   Scrivi Space(5) & " Numeretto ed un Gemello Isotopi chiesto da Margot - Script di Salvo50",1,,4,,3,,1
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            If Gemello(A)Or A < 10 Then
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  B = Estratto(Es,R2,P1)
                  If A > 0 And B > 0 Then
                     If Gemello(B)Or B < 10 Then
                        If(Gemello(A) And B < 10) Or(A < 10 And Gemello(B))Then
                           S1 = Fuori90(A + B)
                           Vert_S1 = Vert(S1)
                           C91_A = 91 - A
                           C91_B = 91 - B
                           Amba(1) = S1 : Amba(2) = Vert_S1
                           Num(1) = S1 : Num(2) = Vert_S1 : Num(3) = C91_A : Num(4) = C91_B
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(104,"o") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
                           Scrivi String(94,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
                           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 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           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 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " La Somma Tra " & Format2(A) & " e " & Format2(B) & "      = ",1,0
                           Scrivi Format2(S1),1,,,2
                           Scrivi " Il Vertibile di " & Format2(S1) & "        = ",1,0
                           Scrivi Format2(Vert_S1),1,,,2
                           Scrivi " Il Complemento a 91 di " & Format2(A) & " = ",1,0
                           Scrivi Format2(C91_A),1,,,1
                           Scrivi " Il Complemento a 91 di " & Format2(B) & " = ",1,0
                           Scrivi Format2(C91_B),1,,,1
                           Ruote(1) = R1 : Ruote(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           ImpostaGiocata 2,Num,Ruote,Poste,Clp
                           Gioca Es,1,,1
                        End If
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
salvo50 ha scritto:
Ciao Margot

Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Caso,Casi,Clp
   Dim R1,R2,P1,P2,P5,P6,Salvo50
   Dim A,B,E1,E2,S1,C91_S1
   Dim Vert_S1,C91_Vert_S1
   Dim Ruote(2),Posta(3),Num(4),Amba(2)
   Dim Poste(3)
   Posta(1) = 1
   Posta(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10400)'
   Clp = InputBox("Per quanti colpi vuoi giocare?",,12)
   Scrivi Space(5) & " Numeretto ed un Gemello Isotopi di Margot - Script di Salvo50",1,,4,,3,,1
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            If Gemello(A)Or A < 10 Then
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  B = Estratto(Es,R2,P1)
                  If A > 0 And B > 0 Then
                     If Gemello(B)Or B < 10 Then
                        If(Gemello(A) And B < 10) Or(A < 10 And Gemello(B))Then
                           S1 = Fuori90(A + B)
                           Vert_S1 = Vert(S1)
                           C91_S1 = 91 - S1
                           C91_Vert_S1 = 91 - Vert_S1
                           Amba(1) = S1 : Amba(2) = Vert_S1
                           Num(1) = S1 : Num(2) = Vert_S1 : Num(3) = C91_S1 : Num(4) = C91_Vert_S1
                           '
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(104,"o") & " Casi Totali " & FormattaStringa(Casi,"00000"),1,,,1
                           Scrivi String(94,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"00000"),1,,,2
                           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 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           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 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " La Somma Tra " & Format2(A) & " e " & Format2(B) & "      = ",1,0
                           Scrivi Format2(S1),1,,,2
                           Scrivi " Il Vertibile di " & Format2(S1) & "        = ",1,0
                           Scrivi Format2(Vert_S1),1,,,2
                           Scrivi " Il Complemento a 91 di " & Format2(S1) & " = ",1,0
                           Scrivi Format2(C91_S1),1,,,1
                           Scrivi " Il Complemento a 91 di " & Format2(Vert_S1) & " = ",1,0
                           Scrivi Format2(C91_Vert_S1),1,,,1
                           Ruote(1) = R1 : Ruote(2) = R2
                           Scrivi
                           ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                           ImpostaGiocata 2,Num,Ruote,Poste,Clp
                           Gioca Es,1,,1
                        End If
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
grazie per lo script, ma cè un errore, al 91 si devono sottrarre i numeretti e i gemelli, non le ambate che troviamo....
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 luglio 2026
    Bari
    82
    27
    80
    03
    69
    Cagliari
    23
    01
    08
    88
    72
    Firenze
    89
    69
    62
    56
    54
    Genova
    71
    75
    43
    38
    69
    Milano
    89
    71
    34
    29
    87
    Napoli
    55
    10
    18
    72
    85
    Palermo
    47
    09
    81
    12
    65
    Roma
    60
    35
    58
    68
    67
    Torino
    66
    38
    30
    73
    17
    Venezia
    88
    11
    13
    48
    21
    Nazionale
    79
    56
    73
    05
    39
    Estrazione Simbolotto
    Nazionale
    01
    29
    34
    28
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto