Visual Basic Problem

Visual Basic Problem (10 Beiträge, 82 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hi Leute
ich hab ein kleines problem mit einem simplen visual basic programm
hie is mal der source code

Private Sub Command1_Click()
Dim a1 As Long
Dim a2 As Single
Dim a3 As Long
Dim a4 As Long
Dim a5 As Single
Dim a6 As Single
Dim a7 As Single
Dim a8 As Long
Dim a9 As Long

a1 = Metall.Text
a2 = a1 * 7 * 24
If a2 < 134000 Then
a9 = 0
ElseIf 134000 < a2 < 536000 Then
a3 = a2
a9 = a3 * 0.05
ElseIf a2 > 536000 Then
a3 = a2
a4 = a3 - 134000

End If
metallsteuer.Text = a3
End Sub

gut eigentlich sollte die letzte sachleife anders aussehen, aba da ich das Problem da schon habe habe ich nur den Teil geschrieben
das Problem. Eigentlöich sollt er in der metallsteuer box 655200 minus 134000 ausspucken.
das problem ist, er tuts nicht. Er schreibt in die Box immer 655200 aus, also den Wert der Variable a2
das Problem existiert nur bei Zahlen die grösser als 536000 sind, also für die die letzt if Bedingung gilt. Hat wer eine Ahnung warum er als a3 nicht 655200-134000 ausgibt, sondern nur 655200 (=a2) ??
ich komm auf keinen grünen zweig
- - - - - - - - - - - - - - - - - - - - - - - -
1.PC
AthlonXP 2400+
MSI Geforce 4 TI 4200
512 MB DDR-RAM
Gigabyte GA-7VTXE+
Samsung Syncmaster 959NF

2.PC
AthlonXP1600+
Asusu V7700 - Geforce2 GTS
384 MB SDR-RAM
MSI K7T-Ultra
Samsung Syncmaster 959NF

Re: Visual Basic Problem (Somnatic am 17.06.2004, 00:27:07)

Re(2): Visual Basic Problem (PINKY am 17.06.2004, 00:31:24)

Re(3): Visual Basic Problem (Somnatic am 17.06.2004, 00:33:11)

Re(4): Visual Basic Problem (PINKY am 17.06.2004, 00:50:04)

Re(3): Visual Basic Problem (PINKY am 17.06.2004, 00:33:52)

Re(4): Visual Basic Problem (PINKY am 17.06.2004, 00:57:52)

Re(5): Visual Basic Problem (Somnatic am 17.06.2004, 00:59:40)

Re(4): Visual Basic Problem (Somnatic am 17.06.2004, 00:58:44)

Re(5): Visual Basic Problem (PINKY am 17.06.2004, 07:06:11)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung