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!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 Richiesta Script Somma 90
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

Raimbow58
Utente Nuovo

2 invii

Spedito - 25 dicembre 2019 :  15:57:05  Mostra profilo  Rispondi con citazione
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.

Modificato da - Raimbow58 su 26 dicembre 2019 09:27:53

franca46
Amministratore

Italy
24038 invii

Spedito - 27 dicembre 2019 :  08:06:36  Mostra profilo  Rispondi con citazione
buongiorno raimbow , speriamo qualcuno possa aiutarti

buone feste

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 02 gennaio 2020 :  08:50:38  Mostra profilo  Rispondi con citazione

'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
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
24038 invii

Spedito - 02 gennaio 2020 :  08:55:29  Mostra profilo  Rispondi con citazione
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
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000