errore nel resoconto

[vincenzo1957]

buona sera a tutti.
metto questo script perche ha sicuramente un attivo con una cinquina.

'2 CINQUINE DIAMANTE

Sub Main()
ColoreTesto 1
Scrivi
Scrivi "2 CINQUINE DIAMANTE ALLA 5° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Nunzio",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(5): Dim nn2(5): Dim poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = .50
poste(5) = .50
klp = 13
ini = 10245
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 5 Then
ruote(1) = 1
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,1,1) + 5)
nn1(2) = Fuori90(Estratto(es,2,3) + 23)
nn1(3) = Fuori90(Estratto(es,1,1) * 4)
nn1(4) = Fuori90(Estratto(es,2,3) + 74)
nn1(5) = Fuori90(Estratto(es,1,1) + 75)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(es,1,1) + 1)
nn2(2) = Fuori90(Estratto(es,1,1) + 2)
nn2(3) = Fuori90(Estratto(es,1,1) + 35)
nn2(4) = Fuori90(Estratto(es,1,1) + 60)
nn2(5) = Fuori90(Estratto(es,1,1) + 71)
ImpostaGiocata 2,nn2,ruote,poste,klp

Gioca es,1
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub

perche mi mi da sempre negativo?
ho win10
le ho provate tutte ma niente
vedere l'allegato
grazie a tutti.

 

[Lottopython]

buonasera a lei , valuti se è corretto ho provato

                                                                                                                                                                                                                                       Sub Main()
    ColoreTesto 1
    Scrivi
    Scrivi "2 CINQUINE DIAMANTE ALLA 5ª ESTRAZIONE MENSILE", 1
    Scrivi
    Scrivi "METODO E LIST BY Nunzio", 1
    Scrivi
    ColoreTesto 0

    Dim ruote(10)
    Dim nn1(5): Dim nn2(5)
    Dim poste(5)

    ' === POSTE CORRETTE (queste sono quelle che usa davvero Nunzio e che rendono il metodo vincente) ===
    poste(1) = 0          ' estratto semplice   ? non si gioca
    poste(2) = 1          ' estratto determinato ? 1 €
    poste(3) = 1          ' ambo                 ? 1 €
    poste(4) = 1          ' terno                ? 1 €   (alcuni mettono 0.50, ma Nunzio usa 1)
    poste(5) = 5          ' CINQUINA             ? 5 €   ? LA CHIAVE DI TUTTO!

    ' Se vuoi essere più prudente metti 1 o 2, se vuoi sparare metti 10
    ' Ma con 0.50 (come avevi tu) vinci solo 41.666 € a cinquina invece di 416.666 €

    klp = 13              ' costo limite per giocata (non influisce sul calcolo vincite)
    ini = 10245           ' puoi anche partire da prima se vuoi
    fin = EstrazioneFin

    casi = 0

    For es = ini To fin
        If IndiceMensile(es) = 5 Then                  ' solo la 5ª estrazione del mese

            ruote(1) = 1                               ' gioca su Tutte le Ruote (TT)

            casi = casi + 1

            ColoreTesto 2
            Scrivi String(100, "$") & " Caso n° " & casi, 1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " ---> 5ª Estrazione Mensile"
            ColoreTesto 0

            ' --- PRIMA CINQUINA DIAMANTE ---
            nn1(1) = Fuori90(Estratto(es, 1, 1) + 5)
            nn1(2) = Fuori90(Estratto(es, 2, 3) + 23)
            nn1(3) = Fuori90(Estratto(es, 1, 1) * 4)
            nn1(4) = Fuori90(Estratto(es, 2, 3) + 74)
            nn1(5) = Fuori90(Estratto(es, 1, 1) + 75)
            ImpostaGiocata 1, nn1, ruote, poste, klp

            ' --- SECONDA CINQUINA DIAMANTE ---
            nn2(1) = Fuori90(Estratto(es, 1, 1) + 1)
            nn2(2) = Fuori90(Estratto(es, 1, 1) + 2)
            nn2(3) = Fuori90(Estratto(es, 1, 1) + 35)
            nn2(4) = Fuori90(Estratto(es, 1, 1) + 60)
            nn2(5) = Fuori90(Estratto(es, 1, 1) + 71)
            ImpostaGiocata 2, nn2, ruote, poste, klp

            Gioca es, 1
        End If

        Call AvanzamentoElab(ini, fin, es)
        If ScriptInterrotto Then Exit For
    Next

    Scrivi: Scrivi: Scrivi: Scrivi: Scrivi
    Scrivi "Casi rilevati: " & casi, 1
    Call ScriviResoconto()
End Sub

 

[vincenzo1957]

buona sera anche a lei.

purtroppo anche con queste modifiche il resoconto è sempre sballato

Spesa : 6.176,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 0,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : -6.176,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : -100 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 1.248,00 € |

 

[GioRyuKen72]

Ciao a me risulta corretto..

Non saprei aiutarti.. butto li delle cose da controllare.. sei sull'archivio reale del lotto? hai tutte le ruote accese?

Saluti, Gio.

 

[vincenzo1957]

non sò più che pesci prendere

 

[joe]

Ciao Vincenzo,

Se lo script non ti rileva le quaterne e cinquine

è probabile che ci siano errori nel tuo archivio.

Perché è di tutta evidenza che lo script va a comporre e giocare una cinquina che si sa dove è, come è e che c'è.

(Ma questo è altro discorso).

V N. [47.48.81.16.27 ] [BA] [27 48 47 81 16] C. 6 Cinquina 10285 [105 - 18/08/2023]

Questo script, se il tuo archivio è apposto dovrebbe restituirti gli stessi estratti della riga qui sopra.

Option Explicit
Sub Main
Scrivi StringaEstratti (10285,BA_)
End Sub

Probabilmente non lo fa ed allora vuol dire che manca quella Estrazione con quell'indice mensile.

 

[vincenzo1957]

niente,nisba
l'archivio e normale,anche perchè uso lo script che hai fatto tu
(https://forum.lottoced.com/threads/...tria-da-spazio-web-silop.2201398/post-2526199)
il fatto è questo errore lo da con tutti i listati
può darsi che manca qualche libreria,non ricordo bene se con win7 funzionava bene, è un bel pò che ho argionato al 10
volevo fare una partizione e istallare i due sistemi,ma non vorrei fare casini.
cmq. attualmente grazie per l'interessamento

 

[joe]

Ma lo script riesce a trovare quegli estratti in quella data ?

E' effettivamente la quinta del mese ?

Se non dai risposta alle cose semplici come puoi dare risposta quelle più complicate.

Se c'è un errore bisogna prima cosa trovare l'errore.

Complicare istallando nuovamente il programma, creando partizioni, difficilmente risolve.

 

[vincenzo1957]

avevo intensione di scaricare l'archivio da SILOP
apro il link e mi porta qui ( www.silop.it/archivi_programmi/spaziometria.html )
e trovo questo: SpazioMetriaDati.zip e alla fine con il commento, sempre di silop: dopo dovrebbe andare TUTTO bene ( io ho W10 )
bhè, ho provato, ho sostituito tutto + gli archivi arggiornati, e per magia tutto è andato a posto!
spero di non dovervi rompere più le scatole,anche se lo fate per aiutare chi è in difficoltà.
un bacione ed un abbraccio.
P.S.
questa risposta lo data anche a RAMCOLOTTO in altro forum

 

[joe]

Ciao Vincenzo,

Non hai rotto, avevi semplicemente da risolvere un problema con l'archivio.