per ,sospetto

[milan65]

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

 

[Mike58]

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

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

 

[milan65]

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

 

[keeper]

lo script funziona e dovresti aggiornare all'ultima cmq non da risultati sperati

 

[Mike58]

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
+----------------------------------------+

 

[milan65]

grazie mike tutto ok istallata nuova versione