2 Antworten in diesem Thema

[Terrafaux]

†‹Liebe Members, ich bitte um geistige Unterstuetzung:

†‹

†‹Ein Programm wirft mir den Fehler "Ihr Zaehler ist schon aus.", welche Bedingung muss ich erfuellen, damit der Fehler nicht erscheint und das Programm weiter arbeitet?

†‹

†‹Festplattenplatz ist nicht das Problem > 2.147 MB und die "Maske Wave.PSD" wird beim Start von der Anwendung generiert und hat die Groesse von 106.000 Bytes.

Private Sub WievielWirklich()
    
    If dFree >= 2147000000 Then
        nPossible = nTotal
    Else
        nPossible = (dFree - BYTES_FOR_PHOTOSHOP) \ lBytesProBild
    End If
    If nPossible < 0 Then
        nPossible = 0
    End If
    If nPossible > nTotal - nSchlecht Then
        nPossible = nTotal - nSchlecht
    End If
    lErlaubt = (GetFileSize("C:\Bilder\Hintergrund\Maske Wave.PSD") - 106002) \ 2
    Read_ms_xxx
    Write_ms_xxx
    If lErlaubt <= 0 Then
        MsgBox "Ihr Zaehler ist schon aus."
        End
    End If
    If nPossible >= lErlaubt Then
        If bMessageZaehler = False Then
            If nPossible = 1 Then
                MsgBox "Ihrer Zaehler hat als Rest nur " & lErlaubt & " Bild."
            Else
                MsgBox "Ihrer Zaehler hat als Rest nur " & lErlaubt & " Bilder."
            End If
            bMessageZaehler = True
        End If
        lblWann.BackColor = vbRed
        lblWann.ForeColor = vbWhite
        nPossible = lErlaubt
    Else
        lblWann.BackColor = vbWindowBackground
        lblWann.ForeColor = vbActiveTitleBar
    End If

End Sub

[Cube]

Hast du nun den kompletten Sourcecode vor dir liegen und kannst das Tool selbst erneut kompilieren?

Wenn ja streich doch einfach die if abfragen bezüglich der Fehlermeldungen?

[Terrafaux]

[Erledigt]

Loesung gefunden,

lErlaubt = (106000 - 106002) \ 2  [-2 / 2 = -1 ] darf nicht -1

lErlaubt = (106000 - 105000) \ 2  [-2 / 2 =>0]

 

Dank geht an smc2014 und Cube

†‹

†‹

†‹

Bearbeitet von Terrafaux, 09 July 2015 - 21:30 Uhr.