kostenloser Webspace werbefrei: lima-city


VB Fehlermeldung

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    computerfreak1

    Kostenloser Webspace von computerfreak1

    computerfreak1 hat kostenlosen Webspace.

    Ich hab mal folgenden Code aus so nem Buch abgeschrieben, weil ich gerade am Lernen von VB bin:

    Private Sub cmdUmrechnen_Click( _
    ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles cmdUmrechnen.Click
    Dim euro As Single
    Const Umrechnungskurs As Single = 1.95583
    euro = Val(txtDMBetrag.Text) / Umrechnungskurs
    txtEuroBetrag.Text = Format(euro, "#.##")
    End Sub

    Aber immmer wenn ich dann das starten will kommt "Fehler beim Kompilieren: Erwarte Anweisungsende:"
    Wieso funzt das denn nich?
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. ich habe das hier gemacht:
    txtdmbetrag, txteurobetrag und cmdberechnen erstellt.
    in die sub des buttons geschrieben:
    Dim euro As Single
    Const Umrechnungskurs As Single = 1.95583
    euro = Val(txtDMBetrag.Text) / Umrechnungskurs
    txtEuroBetrag.Text = Format(euro, "#.##")

    und es funktioniert einwandfrei
  4. cbhp

    Co-Admin Kostenloser Webspace von cbhp

    cbhp hat kostenlosen Webspace.


    Ich hab mal folgenden Code aus so nem Buch abgeschrieben, weil ich gerade am Lernen von VB bin:

    Private Sub cmdUmrechnen_Click( _
    ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles cmdUmrechnen.Click
    Dim euro As Single
    Const Umrechnungskurs As Single = 1.95583
    euro = Val(txtDMBetrag.Text) / Umrechnungskurs
    txtEuroBetrag.Text = Format(euro, "#.##")
    End Sub

    Aber immmer wenn ich dann das starten will kommt "Fehler beim Kompilieren: Erwarte Anweisungsende:"
    Wieso funzt das denn nich?


    ich glaube, dass du einfach einen Tippfehler im Code hattest, denn ich hab den Code oben genau so eingef?gt und er funktioniert.
    Hier nochmal ohne Zeilenwechsel ("_"):

    Private Sub cmdUmrechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUmrechnen.Click
    Dim euro As Single
    Const Umrechnungskurs As Single = 1.95583
    euro = Val(txtDMBetrag.Text) / Umrechnungskurs
    txtEuroBetrag.Text = Format(euro, "#.##")
    End Sub
  5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!