Il gioco del lotto su NonSoloLotto.com
Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Richiesta Script Somma 90

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
Raimbow58 Posted - 25 dicembre 2019 : 15:57:05
Chiedo se possibile uno script che trovi un ambo di somma 90, trovare la differnza tra i due numeri e cercare lo stesso in maniera isotopa su una delle due ruote di calcolo.
ES: NZ 69 34 56 28 18
FI 81 31 22 51 47
34+56=90 DIFF. 56*34=22
diametrale 22+45=67
Il 22 lo troviamo su a FI in terza posizione

Questo è il primo numero, il diametrale i 2°, la differenza tra i due numeri isotopi sarà il terzo numero. 31-22= 9
Ris: 67 22 9

Spero di aver spiegato bene lo sviluppo.
3     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 02 gennaio 2020 : 08:55:29
ciao raimbow ho visto il listato e l'ho portato qui ,
ho notato che oltre l'ambo escono ambate a raffica

simpatico metodo

buona giornata
franca46 Posted - 02 gennaio 2020 : 08:50:38

'Trovare su qualsiasi estrazione un ambo di somma 90.
'Trovata la condizione, fare la Differenza tra i due numeri che formano l'ambo
'e cercare il risultato in posizione isotopa su una delle due posizioni che formano l'ambo.
'Fare il diametrale che sarà il primo numero, il secondo numero è lo stesso trovato in posizione isotopa.
'Il terzo numero è la Differenza tra il Primo e quello vicino. Provo a fare un esempio.
'ES: FI 81 31 22 51 47
'NZ 60 34 56 28 18
'34+56=90 condizione metodo
'56-34=22 In Posizione isotopa
'Quindi 22+45=67 1°Numero
'2° Numero il 22
'3° Numero 9 Differenza tra il 31 In Posizione isotopa sul 34 meno il 22
Option Explicit
Sub Main
   Dim FIn,Es,Ini,R1,R2,Salvo50,Clp
   Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,DAB,DCD
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9585)) 'ESTRAZIONE 9585 ESEMPIO IN SPIEGAZIONI
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,20))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER RAIMBOW58 - AMBO SOMMA 90 - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
                  DAB = Differenza(A,B)
                  DCD = Differenza(C,D)
                  If(A + B = 90 And DAB = C Or DAB = D) Xor(C + D = 90 And DCD = A Or DCD = B) Then
                     '
                     Call AmboAmbataVersABC(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C,D)
                     Call AmboAmbataVersABD(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D,C)
                     Call AmbataAmboVersACD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D,B)
                     Call AmbataAmboVersBCD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D,A)
                     '
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sub AmboAmbataVersABC(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C,D)
   If A + B = 90 And DAB = C Then
      Caso = Caso + 1 : Casi = Casi + 1
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R1) & " ",1,0)
      For PP1 = 1 To 5
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E1) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi("  <-- Evidenziati Somma 90",1)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R2) & " ",1,0)
      For PP2 = 1 To 5
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E2) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum(3)
      ANum(1) = Diametrale(DAB)
      ANum(2) = DAB
      ANum(3) = Differenza(D,DAB)
      Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DAB),1
      Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(A) & " e " & Format2(B),1
      Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(D) & " e " & Format2(DAB),1
      Call Scrivi()
      Call Giocata(ANum,R1,R2,Es,Clp)
   End If
End Sub
Sub AmboAmbataVersABD(DAB,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D,C)
   If A + B = 90 And DAB = D Then
      Caso = Caso + 1 : Casi = Casi + 1
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R1) & " ",1,0)
      For PP1 = 1 To 5
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E1) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi("  <-- Evidenziati Somma 90",1)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R2) & " ",1,0)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = D Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E2) & " ",1,0)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum(3)
      ANum(1) = Diametrale(DAB)
      ANum(2) = DAB
      ANum(3) = Differenza(C,DAB)
      Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DAB),1
      Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(A) & " e " & Format2(B),1
      Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(C) & " e " & Format2(DAB),1
      Call Scrivi()
      Call Giocata(ANum,R1,R2,Es,Clp)
   End If
End Sub
Sub AmbataAmboVersACD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D,B)
   If C + D = 90 And DCD = A Then
      Caso = Caso + 1 : Casi = Casi + 1
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R1) & " ",1,0)
      For PP1 = 1 To 5
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E1) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R2) & " ",1,0)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E2) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi("  <-- Evidenziati Somma 90",1)
      Call Scrivi()
      Dim ANum(3)
      ANum(1) = Diametrale(DCD)
      ANum(2) = DCD
      ANum(3) = Differenza(B,DCD)
      Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DCD),1
      Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(C) & " e " & Format2(D),1
      Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(B) & " e " & Format2(DCD),1
      Call Scrivi()
      Call Giocata(ANum,R1,R2,Es,Clp)
   End If
End Sub
Sub AmbataAmboVersBCD(DCD,Clp,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D,A)
   If C + D = 90 And DCD = B Then
      Caso = Caso + 1 : Casi = Casi + 1
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R1) & " ",1,0)
      For PP1 = 1 To 5
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E1) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0)
      Call Scrivi("  " & SiglaRuota(R2) & " ",1,0)
      For PP2 = 1 To 5
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = D Then
            Call ColoreTesto(2)
         Else
            Call ColoreTesto(0)
         End If
         Call Scrivi(Format2(E2) & " ",1,0)
         Call ColoreTesto(0)
      Next
      Call Scrivi("  <-- Evidenziati Somma 90",1)
      Call Scrivi()
      Dim ANum(3)
      ANum(1) = Diametrale(DCD)
      ANum(2) = DCD
      ANum(3) = Differenza(A,DCD)
      Scrivi Format2(ANum(1)) & " = Diametrale di " & Format2(DCD),1
      Scrivi Format2(ANum(2)) & " = Differenza tra " & Format2(C) & " e " & Format2(D),1
      Scrivi Format2(ANum(3)) & " = Differenza tra " & Format2(A) & " e " & Format2(DCD),1
      Call Scrivi()
      Call Giocata(ANum,R1,R2,Es,Clp)
   End If
End Sub
Function Giocata(ANum,R1,R2,Es,Clp)
   Dim Ruo(2),Posta(3)
   Ruo(1) = R1 : Ruo(2) = R2
   Posta(2) = 1
   'Posta(3) = 1
   EliminaRipetuti ANum
   ImpostaGiocata 1,ANum,Ruo,Posta,Clp
   Gioca Es
End Function
franca46 Posted - 27 dicembre 2019 : 08:06:36
buongiorno raimbow , speriamo qualcuno possa aiutarti

buone feste

Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000