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