Visual Basic Problem

Re(5): Visual Basic Problem

PINKY — Thu, 17 Jun 2004 05:06:11 GMT

Ok habs jetzt sleber gelöst, trotzdem vielen Dank

Re(5): Visual Basic Problem

Somnatic — Wed, 16 Jun 2004 22:59:40 GMT

if ((a2>134000) && (a2<536000)) then

Re(4): Visual Basic Problem

Somnatic — Wed, 16 Jun 2004 22:58:44 GMT

was gibst denn eigentlich ein ?
welche zah l.. vielleicht kann mans dann besser nachvollziehen

Re(4): Visual Basic Problem

PINKY — Wed, 16 Jun 2004 22:57:52 GMT

ok ich weiss dass das Problem bei dem ersten elseif liegt, da er nicht checkt, dass das nur für zahlen zwischen 134000 und 536000 gilt, aba wie kann ich das schreiben??

Re(4): Visual Basic Problem

PINKY — Wed, 16 Jun 2004 22:50:04 GMT

dann spuckt er 26060 aus, was auch irgendwie blödsinn ist

Re(3): Visual Basic Problem

PINKY — Wed, 16 Jun 2004 22:33:52 GMT

Private Sub Command1_Click()
Dim a1 As Long
Dim a2 As Long
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 * 168
If a2 < 134000 Then
a9 = 0
ElseIf 134000 < a2 < 536001 Then
a3 = a2
a9 = a3 * 0.05
ElseIf 536000 < a2 Then
a3 = a2 - 134000
End If
metallsteuer.Text = a3
End Sub

so jetzt stehts so da, und er gibt trotzdem 655200 aus und zieht die 134000 ned ab
- - - - - - - - - - - - - - - - - - - - - - - -
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(3): Visual Basic Problem

Somnatic — Wed, 16 Jun 2004 22:33:11 GMT

was passiert wennst statt dem letzten elseIf einfahc ein else machst ?

Re(2): Visual Basic Problem

PINKY — Wed, 16 Jun 2004 22:31:24 GMT

jo bledsinn, das hab ich nur im forum ned ausgbessert, habs eh so gschrieben, dass er a4 ausgiebt, es geht aba trotzdem ned

Re: Visual Basic Problem

Somnatic — Wed, 16 Jun 2004 22:27:07 GMT

du musst a4 ausgeben, nicht a3 .. .

bei a3 wird ja noch nix abgezogen ...

Visual Basic Problem

PINKY — Wed, 16 Jun 2004 22:20:53 GMT

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