hilfe

Dieses Thema hilfe im Forum "Windows XP Forum" wurde erstellt von _SnakE_, 19. März 2005.

Thema: hilfe Private Sub Form_Load() Dim Kapital, Zinssatz, Laufzeit, Jahre Me.AutoRedraw = True Kapital = InputBox(Prompt:=Geben...

  1. Private Sub Form_Load()
    Dim Kapital, Zinssatz, Laufzeit, Jahre
    Me.AutoRedraw = True
    Kapital = InputBox(Prompt:=Geben Sie das Kapital ein:)
    Zinssatz = InputBox(Prompt:=Wie hoch ist der Zinssatz?, Default:=5,5)
    Laufzeit = InputBox(Prompt:=Wieviele Jahre ist die Laufzeit?, Default:=10)
    Me.Print Z i n s b e r e c h n u n g
    Me.Print =======================
    For Jahre = 1 To Laufzeit
    Kapital = Kapital * (1 + Zinssatz / 100)
    Me.Print Tab(1); Jahre; .te Jahr; Tab(16);
    Format(Kapital, Currency);
    Next
    End Sub

    Fehler beim Komprilieren:
    Erwartet: Anweisungsende

    Weiß jemand warum das rot makierte falsch ist ?
     
  2. Ich würde mal das Semikolon am Zeilenende löschen!
    BASIC ist nicht Pascal oder C/C++.

    Gruss

    Reiner
     
  3. Zudem soll das Kapital auch auf der Form ausgegeben werden. Also gehört die Zeile an die obige gehängt. Die Formatanweisung ist zudem falsch (vermute ich). Von welchem Basic Dialekt sprechen wir eigendlich?
    Code:
    Me.Print Tab(1); Jahre; .te Jahr; Tab(16);Format(Kapital, Currency)

    Es wär auch geschickter die Variable Kapital von vornherein als Currency zu deklarieren
    Code:
    Dim Kapital as currency
    
    und dann
    Code:
    Format(Kapital,0.00)
     
Die Seite wird geladen...

hilfe - Ähnliche Themen

Forum Datum
BOOTMGR fehlt HILFE Windows 7 Forum 7. Nov. 2016
probleme mit windows 7 update bitte um hilfe. Windows 7 Forum 4. Nov. 2016
Windows 8.1 Neuinstallation auf neuer Festplatte nicht möglich. Hilfe! Windows 8 Forum 11. Okt. 2016
Bitte Hilfe :( Driver_Verifier_Detected_violation (excsd.sys) Windows 10 Forum 30. Aug. 2016
HILFE!!!!! mitten in win10 neu Installation hängengeblieben Windows 10 Forum 24. Juli 2016