Angesagte Beiträge
Visual Basic, Schaut mal rein wenn ihr Ahnung hab...
Helvete schrieb am 10.6.2010 um 17:52 Uhr 0
Es handelt sich um eine Klausuraufgaben in der man die Hundesteuer berechnen soll.
Die Klausur habe ich hochgeladen und zwar hier:
http://ul.to/tzxj44
Dies ist das program was ich geschrieben habe:
Private Sub startbutton_click()
On Error GoTo fehlerbehandlung
Dim anzahlnormalhunde
Dim AnzahlBFH
Dim anzahlsbh
Dim tierhiem As Boolean
anzahlnormalhunde = wandle_in_int_um(normalhunde100input.Text)
AnzahlBFH = wandle_in_int_um(anzahlbfh200input.Text)
anzahlsbh = wandle_in_int_um(anzahlsbh300input.Text)
prüfepositivnull anzahlnormalhunde
prüfepositivnull AnzahlBFH
prüfepositivnull anzahlsbh
pruefe_anzahl anzahlnormalhunde, AnzahlBFH, anzahlsbh
tierheim = pruefe_tierheimeingabe(tierheim400input.Text)
Steuerinput.Text = berechne_steuer(anzahlnormalhunde, AnzahlBFH, anzahlshb, tierheim)
Exit Sub
fehlerbehandlung: MsgBox ("fehler: " & Err.Description)
End Sub
Function berechne_steuer(ByVal anzahlnormalhunde As Integer, ByVal AnzahlBFH As Integer, ByVal anzahlshb As Integer, ByVal tierheim As String)
Const steuer1 As Double = 120
Const steuer2 As Double = 150
Const steuer3 As Double = 180
Dim rechnung1 As Double
Dim rechnung2 As Double
If anzahlnormalhunde = 1 Then
rechnung = anzahlnormalhunde * steuer1
ElseIf anzahlnormalhunde = 2 Or 3 Then
rechnung = anzahlnormalhunde * steuer2
ElseIf anzahlnormalhunde >= 4 Then
rechnung = anzahlnormalhunde * steuer3
End If
If AnzahlBFH >= 0 And anzahlsbhThen >= 0 Then
rechnung = AnzahlBFH * 0
Else
rechnung = anzahlnormalhunde
End If
If tierheim And rechnung >= 1 Then
rechnung = rechnung - 1
End If
rechnung = berechne_steuer
End Function
Function wandle_in_int_um(ByVal eingabe As String) As Integer
If Not IsNumeric(eingabe) Then
Err.Raise5000 , "wandle_in_int_um", "Bitte Zahlen eingeben"
End If
wandle_in_int_um = CInt(eingabe)
End Function
Sub prüfepositivnull(ByVal wert As Integer)
If wert AnzahlSehbehindert Then
MsgBox ("Sie habe aber viele Blindenführhunde")
End If
End Sub
Function pruefe_tierheimeingabe(ByVal eingabe As String) As Boolean
If eingabe = "j" Then
pruefe_tierheimeingabe = True
ElseIf eingabe = "n" Then
pruefe_tierheimeingabe = False
Else
Err.Raise 5002, "pruefe_tierheimeingabe", "Sie müssen j oder n bei Tierheimhunde eingeben"
End If
End Function
==================================================================
Wenn ich das "userform" formular dafür fertig gemacht habe und das Programm durchlaufen will, sagt er mir
"objekt erforderlich"
Ich steig da nicht ganz durch, da ich die bezeichnungen im der userform eigentlich korrekt übernommen habe.
Die Klausur habe ich hochgeladen und zwar hier:
http://ul.to/tzxj44
Dies ist das program was ich geschrieben habe:
Private Sub startbutton_click()
On Error GoTo fehlerbehandlung
Dim anzahlnormalhunde
Dim AnzahlBFH
Dim anzahlsbh
Dim tierhiem As Boolean
anzahlnormalhunde = wandle_in_int_um(normalhunde100input.Text)
AnzahlBFH = wandle_in_int_um(anzahlbfh200input.Text)
anzahlsbh = wandle_in_int_um(anzahlsbh300input.Text)
prüfepositivnull anzahlnormalhunde
prüfepositivnull AnzahlBFH
prüfepositivnull anzahlsbh
pruefe_anzahl anzahlnormalhunde, AnzahlBFH, anzahlsbh
tierheim = pruefe_tierheimeingabe(tierheim400input.Text)
Steuerinput.Text = berechne_steuer(anzahlnormalhunde, AnzahlBFH, anzahlshb, tierheim)
Exit Sub
fehlerbehandlung: MsgBox ("fehler: " & Err.Description)
End Sub
Function berechne_steuer(ByVal anzahlnormalhunde As Integer, ByVal AnzahlBFH As Integer, ByVal anzahlshb As Integer, ByVal tierheim As String)
Const steuer1 As Double = 120
Const steuer2 As Double = 150
Const steuer3 As Double = 180
Dim rechnung1 As Double
Dim rechnung2 As Double
If anzahlnormalhunde = 1 Then
rechnung = anzahlnormalhunde * steuer1
ElseIf anzahlnormalhunde = 2 Or 3 Then
rechnung = anzahlnormalhunde * steuer2
ElseIf anzahlnormalhunde >= 4 Then
rechnung = anzahlnormalhunde * steuer3
End If
If AnzahlBFH >= 0 And anzahlsbhThen >= 0 Then
rechnung = AnzahlBFH * 0
Else
rechnung = anzahlnormalhunde
End If
If tierheim And rechnung >= 1 Then
rechnung = rechnung - 1
End If
rechnung = berechne_steuer
End Function
Function wandle_in_int_um(ByVal eingabe As String) As Integer
If Not IsNumeric(eingabe) Then
Err.Raise5000 , "wandle_in_int_um", "Bitte Zahlen eingeben"
End If
wandle_in_int_um = CInt(eingabe)
End Function
Sub prüfepositivnull(ByVal wert As Integer)
If wert AnzahlSehbehindert Then
MsgBox ("Sie habe aber viele Blindenführhunde")
End If
End Sub
Function pruefe_tierheimeingabe(ByVal eingabe As String) As Boolean
If eingabe = "j" Then
pruefe_tierheimeingabe = True
ElseIf eingabe = "n" Then
pruefe_tierheimeingabe = False
Else
Err.Raise 5002, "pruefe_tierheimeingabe", "Sie müssen j oder n bei Tierheimhunde eingeben"
End If
End Function
==================================================================
Wenn ich das "userform" formular dafür fertig gemacht habe und das Programm durchlaufen will, sagt er mir
"objekt erforderlich"
Ich steig da nicht ganz durch, da ich die bezeichnungen im der userform eigentlich korrekt übernommen habe.
Helvete schrieb am 10.6.2010 um 18:26 Uhr 0
erste behandlung:
Private Sub startbutton_click()
On Error GoTo fehlerbehandlung
Dim anzahlnormalhunde As Integer
Dim AnzahlBFH As Integer
Dim anzahlsbh As Integer
Dim tierhiem As Boolean
anzahlnormalhunde = wandle_in_int_um(normalhunde100input.Text)
AnzahlBFH = wandle_in_int_um(anzahlbfh200input.Text)
anzahlsbh = wandle_in_int_um(anzahlsbh300input.Text)
prüfepositivnull anzahlnormalhunde
prüfepositivnull AnzahlBFH
prüfepositivnull anzahlsbh
pruefe_anzahl anzahlnormalhunde, AnzahlBFH, anzahlsbh
tierheim = pruefe_tierheimeingabe(tierheim400input.Text)
steuerinput.Text = berechne_steuer(anzahlnormalhunde, AnzahlBFH, anzahlshb, tierheim)
Exit Sub
fehlerbehandlung: MsgBox ("fehler: " & Err.Description)
End Sub
Function berechne_steuer(ByVal anzahlnormalhunde As Integer, ByVal AnzahlBFH As Integer, ByVal anzahlshb As Integer, ByVal tierheim As String)
Const steuer1 As Double = 120
Const steuer2 As Double = 150
Const steuer3 As Double = 180
Dim rechnung1 As Double
Dim rechnung2 As Double
If anzahlnormalhunde = 1 Then
rechnung = anzahlnormalhunde * steuer1
ElseIf anzahlnormalhunde = 2 Or 3 Then
rechnung = anzahlnormalhunde * steuer2
ElseIf anzahlnormalhunde >= 4 Then
rechnung = anzahlnormalhunde * steuer3
End If
If AnzahlBFH >= 0 And anzahlsbhThen >= 0 Then
rechnung = AnzahlBFH * 0
Else
rechnung = anzahlnormalhunde
End If
If tierheim And rechnung >= 1 Then
rechnung = rechnung - 1
End If
rechnung = berechne_steuer
End Function
Function wandle_in_int_um(ByVal eingabe As String) As Integer
If Not IsNumeric(eingabe) Then
Err.Raise5000 , "wandle_in_int_um", "Bitte Zahlen eingeben"
End If
wandle_in_int_um = CInt(eingabe)
End Function
Sub prüfepositivnull(ByVal wert As Integer)
If wert AnzahlSehbehindert Then
MsgBox ("Sie habe aber viele Blindenführhunde")
End If
End Sub
Function pruefe_tierheimeingabe(ByVal eingabe As String) As Boolean
If eingabe = "j" Then
pruefe_tierheimeingabe = True
ElseIf eingabe = "n" Then
pruefe_tierheimeingabe = False
Else
Err.Raise 5002, "pruefe_tierheimeingabe", "Sie müssen j oder n bei Tierheimhunde eingeben"
End If
End Function
Wenn ich es jetzt im formular ausrechnen lassen will funktioniert nichts
Private Sub startbutton_click()
On Error GoTo fehlerbehandlung
Dim anzahlnormalhunde As Integer
Dim AnzahlBFH As Integer
Dim anzahlsbh As Integer
Dim tierhiem As Boolean
anzahlnormalhunde = wandle_in_int_um(normalhunde100input.Text)
AnzahlBFH = wandle_in_int_um(anzahlbfh200input.Text)
anzahlsbh = wandle_in_int_um(anzahlsbh300input.Text)
prüfepositivnull anzahlnormalhunde
prüfepositivnull AnzahlBFH
prüfepositivnull anzahlsbh
pruefe_anzahl anzahlnormalhunde, AnzahlBFH, anzahlsbh
tierheim = pruefe_tierheimeingabe(tierheim400input.Text)
steuerinput.Text = berechne_steuer(anzahlnormalhunde, AnzahlBFH, anzahlshb, tierheim)
Exit Sub
fehlerbehandlung: MsgBox ("fehler: " & Err.Description)
End Sub
Function berechne_steuer(ByVal anzahlnormalhunde As Integer, ByVal AnzahlBFH As Integer, ByVal anzahlshb As Integer, ByVal tierheim As String)
Const steuer1 As Double = 120
Const steuer2 As Double = 150
Const steuer3 As Double = 180
Dim rechnung1 As Double
Dim rechnung2 As Double
If anzahlnormalhunde = 1 Then
rechnung = anzahlnormalhunde * steuer1
ElseIf anzahlnormalhunde = 2 Or 3 Then
rechnung = anzahlnormalhunde * steuer2
ElseIf anzahlnormalhunde >= 4 Then
rechnung = anzahlnormalhunde * steuer3
End If
If AnzahlBFH >= 0 And anzahlsbhThen >= 0 Then
rechnung = AnzahlBFH * 0
Else
rechnung = anzahlnormalhunde
End If
If tierheim And rechnung >= 1 Then
rechnung = rechnung - 1
End If
rechnung = berechne_steuer
End Function
Function wandle_in_int_um(ByVal eingabe As String) As Integer
If Not IsNumeric(eingabe) Then
Err.Raise5000 , "wandle_in_int_um", "Bitte Zahlen eingeben"
End If
wandle_in_int_um = CInt(eingabe)
End Function
Sub prüfepositivnull(ByVal wert As Integer)
If wert AnzahlSehbehindert Then
MsgBox ("Sie habe aber viele Blindenführhunde")
End If
End Sub
Function pruefe_tierheimeingabe(ByVal eingabe As String) As Boolean
If eingabe = "j" Then
pruefe_tierheimeingabe = True
ElseIf eingabe = "n" Then
pruefe_tierheimeingabe = False
Else
Err.Raise 5002, "pruefe_tierheimeingabe", "Sie müssen j oder n bei Tierheimhunde eingeben"
End If
End Function
Wenn ich es jetzt im formular ausrechnen lassen will funktioniert nichts
Ragey schrieb am 11.6.2010 um 11:57 Uhr 0
kann einige sprachen aber visual basic leider nicht.
sly kanns doch bestimmt!
sly kanns doch bestimmt!
slymaerzhase schrieb am 11.6.2010 um 12:03 Uhr 0
iiiich?
ne,hab keinen schimmer von dem kram.
wo ist tom? -der kann das bestimmt.
ne,hab keinen schimmer von dem kram.
wo ist tom? -der kann das bestimmt.
T0m schrieb am 11.6.2010 um 15:18 Uhr 0
Das alles durchlesen? Vielleicht später. Jetzt ist erst mal WM Anpfiff
Vor allem Hundesteuer?? Wayne...
Vor allem Hundesteuer?? Wayne...
hardbeatmanuel schrieb am 11.6.2010 um 18:50 Uhr 0
Das hat damit gar nichts zu tun, es geht darum was man im Kopf hat, und es scheint, hab ich für Technik n bischen mehr im Kopf
hardbeatmanuel schrieb am 11.6.2010 um 18:59 Uhr 0
wer wohl ?
Ich sag nicht das alle Frauen nichts mit Technik anfangen können.
Ich sag nicht das alle Frauen nichts mit Technik anfangen können.
slymaerzhase schrieb am 11.6.2010 um 19:02 Uhr 0
dann hab ich wohl nen sehfehler.
oder steht da etwa sly und technik?
hardbeatmanuel am 11.6.2010 - 18:41
Frauen und Technik
Frauen und Technik
dann hab ich wohl nen sehfehler.
oder steht da etwa sly und technik?
hardbeatmanuel schrieb am 11.6.2010 um 19:11 Uhr 0
habs 'n bisschen umgeändert , hoffe mal jetzt gibts du Ruhe
hardbeatmanuel am 11.6.2010 - 18:50
Das hat damit gar nichts zu tun, es geht darum was man im Kopf hat, und es scheint, hab ich für Technik n bischen mehr im Kopf
Das hat damit gar nichts zu tun, es geht darum was man im Kopf hat, und es scheint, hab ich für Technik n bischen mehr im Kopf
habs 'n bisschen umgeändert , hoffe mal jetzt gibts du Ruhe
hardbeatmanuel schrieb am 11.6.2010 um 19:11 Uhr 0
und so klein bin ich nicht, also größer als du schon
slymaerzhase schrieb am 11.6.2010 um 19:15 Uhr 0
na,das ist ja auch keine kunst.
ja,das hört sich doch schon wesentlich besser an!
ja,das hört sich doch schon wesentlich besser an!
slymaerzhase schrieb am 11.6.2010 um 19:20 Uhr 0
nach dem spruch sollte man doch annehmen,daß du das weißt.
Antwort schreiben
1
2 Der Tipp der Woche
Die besten Beiträge der Woche
Neue Kommentare
Neue Beiträge im Forum
DeLaRosa