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.
    Controllare Sempre .
    Salvo Errori ed Omissis .

    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