Novità

per ,sospetto

milan65

Member
chiedo scusa sospetto per caso se hai tempo e voglia visto la tua disponibilita' nelle altre discussioni a fare script,ti vorrei chiedere se pui realizzarmene uno per me, ho fatto delle prove su di un metodo che non so dove ho preso che sembra funzionare, allora alla sesta del mese si sommano tutti e 5 i numeri di bari , ma non si fa il fuori 90 ma si prendono solo le prime 2 cifre e piu' il vertibile si giocano per 13 estrazioni su ba es se la somma fa 345 si gioca 34 43 ,ora se e' fattibile quando si lancia lo script io devo avere la possibilita' di impostare la ruota di calcolo lindice di estrazione colpi e su che ruota va giocata, cosi da provare il metodo in altre ruote e estrazioni sperando in una tua collaborazione ti ringrazio. ps se ce' qualche altra anima gentile la ringrazio anticipata
mente :o
 
ciao milan65 visto che avevo un po' di tempo ho fatto lo script secondo la tua richiesta.
spero che sospetto a cui era rivolta la richiesta non se ne abbia a male.

Ciao

Codice:
Sub Main
    Dim ruote(1),ruota(1),num(2)
    Dim posta(2)
    posta(1) = 1
    'posta(2) = 1
    Call Scrivi(" ***** Metodo by milan65  ***** Forum Lottoced ***** Listed by Mike58 ***** ",True,True,2,4,3)
    estr = InputBox("Quante estrazioni vuoi considerare",,100)
    r1 = InputBox("Quale ruota di calcolo",,1)
    r2 = InputBox("Quale ruota di gioco",,1)
    Ind = CInt(InputBox("Quale indice mensile",,1))
    clp = InputBox("Quanti colpi di gioco",,13)
    Ini = EstrazioneFin - estr
    fin = EstrazioneFin
    ruote(1) = r1
    ruota(1) = r2
    For es = Ini To fin
        If IndiceMensile(es) = Ind Then
            co = co + 1
            sommaE = SommaEstratti(es,r1)
            Scrivi String(100,"="),1
            ColoreTesto 1
            Scrivi "Data di rilevamento " & DataEstrazione(es) & " - Ruota di " & NomeRuota(r1) & " - " & StringaEstratti(es,r1) & " - Indice mensile " & Ind,1
            ColoreTesto 2
            Scrivi "Somma estratti " & sommaE,1
            ColoreTesto 1
            Scrivi "Ruota di gioco " & NomeRuota(r2) & " Per colpi... " & clp,1
            ColoreTesto 0
            Scrivi String(90,"-") & " Casi n° " & co
            a = Left(sommaE,2)
            num(1) = a
            num(2) = Vert(a)
            Scrivi num(1)
            Scrivi num(2)
            ImpostaGiocata 1,num,ruota,posta,clp,1
            Gioca es,,,1
            Scrivi String(40,"-")
            Scrivi "Spesa............." & GetSpesa(True)
            Scrivi "Vincita..........." & GetVincita(True)
            Scrivi "Guadagno.........." & GetGuadagno(True)
            Scrivi
            If GetGuadagno > 0 Then Call Scrivi("Giocata in attivo",True,True,3,1,3)
            If GetGuadagno < 0 Then Call Scrivi("Giocata in negativo",True,True,2,4,3)
        End If
    Next
    ScriviResoconto
End Sub
 
mike, grazie per la tua gentilezza e il tuo tempo che dedichi a quelli come me, comunque ho provato lo script, ma quando e' ora che deve calcolare esce una scritta 6-overflow e non mi fa fare piu niente neanche uscire dal programma,non e' la prima volta che succede quindi potrebbe essere il programma dovro chiedere a luigi la versione e' la 1,4,20 comunque grazie
 
lo script funziona e dovresti aggiornare all'ultima cmq non da risultati sperati
 
Ciao milan65, io ho la ultima versione è funziona anche ricopiando dal forum ( x vedere se ci fossero errori di copia-incolla) è funziona correttamente.
Con la versione che hai dovrebbe funzionare infatti l'errore che dici non è un errore di codice vecchi o nuovi ma un errore overflow.
Ho provato lo script x + estrazioni e funziona devi vedere se hai impostato il range nella barra sotto alle ultime estrazioni e vedere anche se altri script funzionano oppure aggiornare alle ultime versioni.

Sicuramente è un problema nella impostazione tua del programma .

***** Metodo by milan65 ***** Forum Lottoced ***** Listed by Mike58 *****


Data di rilevamento 02.04.2013 - Ruota di Bari - 41.17.08.54.48 - Indice mensile 1
Somma estratti 168
Ruota di gioco Bari Per colpi... 13
------------------------------------------------------------------------------------------ Casi n° 77
Estrazione generatrice del pronostico 08672 [ 40 - 02/04/2013]
G 0001
Numeri in gioco : 16.61 su BA per Estratto
N. [16.61 ] [BA] [.. .. .. .. ..] C. 1 08673 [ 41 - 04/04/2013] [60.58.23.27.30]

In corso per altre 12 estrazioni
----------------------------------------
Spesa.............1
Vincita...........0
Guadagno..........-1

Giocata in negativo
+----------------------------------------+
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto