kostenloser Webspace werbefrei: lima-city

VB Fehlermeldung

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   computerfreak1

   

   computerfreak1 hat kostenlosen Webspace.

   18:16, 2.4.2006

   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. b*********t

   19:09, 2.4.2006

   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

   cbhp hat kostenlosen Webspace.

   14:31, 3.4.2006

   
   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?