annuncio

Comprimi
Ancora nessun annuncio.

script da sviluppare

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • script da sviluppare

    in qualsiasi estrazione, rintracciata su qualsiasi ruota un ambo di somma 90 in 1° e 2° e 3° posizione, ricaveremo l'ambata da giocare sulle ruote di GE e TO sommando il fisso 65 al 2° estratto di BA.
    1 abbinamento: 1° di RO + il fisso 65
    2 abbinamento: 1° di NA + il fisso 34

    giocare x 6 colpi


    grazie a chi mi aiuta a svilupparlo

  • #2
    codice:
    Sub Main
        ColoreTesto 2
        Scrivi "AMBI SOMMA 90"
        Scrivi "METODO BY Margot"
        ColoreTesto 0
        Dim ruote(2)
        Dim posta(1)
        Dim poste(2)
        Dim ambata(1)
        Dim ambo1(2)
        Dim ambo2(2)
        posta(1) = 1
        poste(2) = 1
        k = CInt(InputBox("Quante estrazioni controllare?",,400))
        clp = CInt(InputBox("Quanti colpi di gioco?",,6))
        s = CInt(InputBox("Quale somma devono avere gli ambi?",,90))
        Ini = EstrazioneFin - k
        fin = EstrazioneFin
        co = 0
        For es = Ini To fin
            Messaggio "Script by Edo"
            Call AvanzamentoElab(Ini,fin,es)
            For r = 1 To 10
                a = Estratto(es,r,1)
                b = Estratto(es,r,2)
                c = Estratto(es,r,3)
                ok = 0
                If(a + b) = s Or(a + c) = s Or(b + c) = s Then
                    ambata(1) = Fuori90((Estratto(es,BA_,2)) + 65)
                    ambo1(1) = ambata(1)
                    ambo1(2) = Fuori90((Estratto(es,RO_,1)) + 65)
                    ambo2(1) = ambata(1)
                    ambo2(2) = Fuori90((Estratto(es,BA_,1)) + 34)
                    ok = 1
                End If
                If ok = 1 Then
                    co = co + 1
                    ColoreTesto 1
                    Scrivi String(100,"=") & " Caso n°" & co,1
                    Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  Ambo somma novanta rilevato "
                    Scrivi String(100,"=")
                    ColoreTesto 0
                    ruote(1) = GE_ : ruote(2) = TO_
                    ImpostaGiocata 1,ambata,ruote,posta,clp
                    ImpostaGiocata 2,ambo1,ruote,poste,clp
                    ImpostaGiocata 3,ambo2,ruote,poste,clp
                    Gioca es
                End If
            Next
        Next
        ScriviResoconto
    End Sub

    Commenta


    • #3
      Spero di esserti stato utile

      Commenta

      Unconfigured Ad Widget

      Comprimi

      Ultima estrazione del lotto

      Comprimi

      Estrazione del lotto
      giovedì 13 dicembre 2018
      Bari
      04
      81
      31
      30
      14
      Cagliari
      79
      21
      70
      11
      48
      Firenze
      69
      19
      80
      81
      54
      Genova
      23
      41
      82
      89
      72
      Milano
      64
      63
      46
      10
      38
      Napoli
      21
      01
      69
      71
      19
      Palermo
      86
      88
      50
      45
      03
      Roma
      53
      50
      24
      46
      33
      Torino
      35
      34
      33
      12
      26
      Venezia
      30
      02
      40
      58
      83
      Nazionale
      83
      27
      39
      25
      87
      Sto operando...
      X