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ì 19 giugno 2018
      Bari
      20
      77
      25
      48
      41
      Cagliari
      84
      22
      63
      64
      27
      Firenze
      22
      58
      28
      79
      59
      Genova
      55
      42
      04
      77
      29
      Milano
      36
      26
      23
      50
      10
      Napoli
      56
      61
      36
      04
      69
      Palermo
      79
      31
      08
      05
      26
      Roma
      39
      76
      38
      02
      05
      Torino
      11
      59
      23
      80
      06
      Venezia
      08
      13
      89
      52
      88
      Nazionale
      58
      48
      23
      76
      82
      Sto operando...
      X