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, 16:54.

    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