[VB] Fehler bei Division durch Null

- WebmasterWork »
- Grafik & Programmierung »
- Sonstige Programmiersprachen »
- [VB] Fehler bei Division durch Null »

LSSJ Brolly

unregistriert

Montag, 17. Mai 2004, 21:30

Hi
der Code des Moduls

Quellcode

Sub Dividieren()
    Dim nZahl1
    Dim nZahl2
    Dim nErgebnis 'Variable des Ergebnisses
    
    nZahl1 = Val(InputBox(DEF_MSG_Eingabe1, DEF_Titel)) 'Eingabemöglichkeit für die 1. Zahl
    nZahl2 = Val(InputBox(DEF_MSG_Eingabe2, DEF_Titel)) 'Eingabemöglichkeit für die 2. Zahl
    If nZahl2 = 0 Then
    MsgBox "Division durch Null", vbCritical, "Fehler!"
    Unload
    Else: nErgebnis = nZahl1 / nZahl2 'Division durchführen
    End If
    MsgBox DEF_MSG_Ergebnis & nZahl1 & " / " & nZahl2 & _
            " = " & nErgebnis, vbInformation, DEF_Titel 'Ergebnis ausgeben
End Sub

Ich will wenn eine Division durch Null auftritt, dass die

	Quellcode
1	MsgBox "Division durch Null", vbCritical, "Fehler!"

angezeigt wird, und wenn man auf OK klickt soll das Modul geschlossen werden.
Ich bin totaler anfänger bitte helft mir!!!

Fichy

Doppel-As

Dabei seit: 23.02.2003

Beiträge: 143

Montag, 17. Mai 2004, 22:16

Hi,

versuchs mal mit:

	Quellcode
1	Unload Me

oder

	Quellcode
1	End

wenn das Programm komplett beendet werden.

Hab zwar lang nix mehr mit VB gemacht. Aber so müsste es gehen.

Mfg
Fichy

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Fichy« (17. Mai 2004, 22:17)

LSSJ Brolly

unregistriert

Montag, 17. Mai 2004, 22:28

also mit Unload Me ging es nicht ich probier mal obs mit End geht.........
bei End beendet es das ganze programm und kehr nicht mehr zum hauptprogramm zurück

NEO76

Routinier

Dabei seit: 03.03.2003

Beiträge: 353

Montag, 17. Mai 2004, 23:10

Hi,

Du solltest mal versuchen Deinen Variablen Datentypen zuzuordnen.
Wenn Du nämlich nichts angibst, deklariert der Editor es als Variant... und das kann schon mal zu Fehlern in Berechnungen führen, mal abgesehen davon das es eine Speicherverschwendung ist.

	Quellcode
1 2 3 4 5 6	Sub Dividieren() Dim nZahl1 As Integer Dim nZahl2 As Integer Dim nErgebnis As Single ...

Hoffe es klappt jetzt...

Greetz
Neo

Phantasie ist wichtiger als Wissen,
denn Wissen ist begrenzt! Albert Einstein

jperl

Super Moderator

Dabei seit: 09.04.2003

Beiträge: 3 453

Dienstag, 18. Mai 2004, 08:52

du könntest auch eine zeilenmarke setzen

also wenn ne division durch null ist

	Quellcode
1	GOTO Ende

und am ende setzt du das ende

	Quellcode
1	Ende:

jperl

Konfuzius [chinesischer Philosoph (551 - 479 v. Chr.)]
Das Entscheidende am Wissen ist, daß man es beherzigt und anwendet.

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

Mittwoch, 19. Mai 2004, 08:23

RE: [VB] Fehler bei Division durch Null

Hallo,

das Sub beenden kannst Du ganz einfach mit "Exit Sub".

Denk bei der Abfrage auf "0" auch daran, dass ja evtl. überhaupt kein Wert eingegeben wurde. Das kannst Du mit "if isnull(Variable) then..." überprüfen.

Gruss
Marty

Losegarten

waso-matic

Routinier

Dabei seit: 20.02.2003

Beiträge: 372

Mittwoch, 19. Mai 2004, 12:09

Du kannst das auch einfach mit einem errorhandler lösen! Ganz oben im sub kommt

	Quellcode
1	On Error GoTo errorhandler

und ganz unten im sub packst du dann

	Quellcode
1 2 3 4 5 6 7	errorhandler: Select Case Err.Number Case 11 MsgBox "Division durch Null", vbCritical, "Fehler!" Exit Sub End Select End Sub

hin

Web Design Brighton

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »waso-matic« (19. Mai 2004, 12:26)