annuncio

Comprimi
Ancora nessun annuncio.

chi mi aiuta per sviluppare questo script?

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

  • chi mi aiuta per sviluppare questo script?

    in qualsiasi estrazione , rintracciare la sortita del numero 90 su tutte, ricaveremo l'ambata da giocare sulle ruote bari e cagliari moltiplicando la decina con l'unità del 1° di milano, sommando al risultato il fisso 62.

    abbinamenti: moltiplicare per se stesso il 5° di ve+ il fisso 52

    moltiplicare x5 il 2° di pa+il fisso 53
    giocare per 6 volte

    grazie a chi lo svilupperà

  • #2
    Guonasera ,
    salutando tutti ,
    abbiamo modificato il listato , postato nell' altra discussione :
    codice:
    Sub Main
    ColoreTesto 2
    Scrivi "APIA 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))
    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
    For p = 1 To 5
    a = Estratto(es,r,p)
    ok = 0
    If a = 90 Then
    ambata(1) = Fuori90(Decina(Estratto(es,MI_,1))*Cadenza(Estratto(es,MI_,1)) + 62)
    ambo1(1) = ambata(1)
    ambo1(2) = Fuori90((Estratto(es,VE_,5))*(Estratto(es,VE_,5)) + 52)
    ambo2(1) = ambata(1)
    ambo2(2) = Fuori90((Estratto(es,PA_,2))*5 + 53)
    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) & "  Spia novanta rilevata "
    Scrivi String(100,"=")
    ColoreTesto 0
    ruote(1) = BA_ : ruote(2) = CA_
    ImpostaGiocata 1,ambata,ruote,posta,clp
    ImpostaGiocata 2,ambo1,ruote,poste,clp
    ImpostaGiocata 3,ambo2,ruote,poste,clp
    Gioca es
    End If
    Next
    Next
    Next
    ScriviResoconto
    End Sub
    Controllare Sempre .
    salvo Errori ed Omissis .
    Ultima modifica di magia; 14-03-2018, 15:54.

    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