Studium, Ausbildung und Beruf
 StudiumHome   FAQFAQ   RegelnRegeln   SuchenSuchen    RegistrierenRegistrieren   LoginLogin

Fehlerhandling vb
Neues Thema eröffnen   Neue Antwort erstellen
Foren-Übersicht -> Informatik-Forum -> Fehlerhandling vb
 
Autor Nachricht
b0db0y
Full Member
Benutzer-Profile anzeigen
Full Member


Anmeldungsdatum: 10.09.2006
Beiträge: 109

BeitragVerfasst am: 14 Jun 2008 - 15:18:28    Titel: Fehlerhandling vb

Hallo,

hab folgens Problem. Die Infobox soll nur bestimmte Eingaben akzeptieren. Funktioniert auch, anber leider nur bei einem Schleifendurchlauf ! Hat jemand da eine Idee ?
Besten schon mal im voraus!

Zitat:
Option Explicit
Sub Modul4()

Dim zahlentyp As String
Dim zahlentyp2 As String
Dim eingabe1 As String
Dim eingabe2 As String
Dim eingabe3 As String
Dim e_zahl As String
Dim e_zahl_uw As String
Dim infobox As Integer
Dim Ausgabe As String
Dim basis As Integer
Dim basis2 As Integer
Dim rest As Long
Dim d As String
Dim b As String
Dim o As String
Dim h As String

Dim oct2dec As Long
Dim bin2dec As Long
Dim länge_ezahl_uw As Long
Dim z: z = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F")
Dim mask As Long: mask = 1
Dim xxx As String

Dim hex2dec As Long
Dim e_zahl_uw2 As Integer
eingabe1 = "d"

' Abfangen von faschen Eingaben in der (2) Infobox
If eingabe1 = "h" Then
xxx = ""
End If
If eingabe1 = "d,b,o,h" Then
xxx = 0
End If


'(2) Infobox für die Eingabe der Zahl die umgewandelt werden soll.
Do

AnfangB:

eingabe2 = ""
e_zahl = ""
eingabe2 = InputBox("Bitte geben Sie eine Zahl ein", "Zahl ")
If StrPtr(eingabe2) = 0 Then
MsgBox "Das Programm wird beendet..."
GoTo ende
Else
If eingabe2 = "" Then
MsgBox "Es wurde nichts eingegeben"
GoTo AnfangB
End If
End If
e_zahl = eingabe2
On Error GoTo AnfangB
Loop Until e_zahl <> x
ende:
Debug.Print e_zahl
End Sub
Beiträge der letzten Zeit anzeigen:   
Foren-Übersicht -> Informatik-Forum -> Fehlerhandling vb
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

Chat :: Nachrichten:: Lexikon :: Bücher :: Impressum