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
      martedì 25 settembre 2018
      Bari
      75
      17
      73
      59
      77
      Cagliari
      89
      10
      43
      30
      66
      Firenze
      01
      56
      51
      55
      84
      Genova
      72
      33
      70
      58
      79
      Milano
      89
      12
      76
      43
      13
      Napoli
      27
      88
      85
      52
      68
      Palermo
      80
      05
      17
      81
      90
      Roma
      48
      64
      11
      34
      21
      Torino
      67
      42
      46
      52
      20
      Venezia
      16
      61
      66
      26
      80
      Nazionale
      77
      52
      58
      86
      11
      Sto operando...
      X