Vb Programm funzt nciht

Dieses Thema Vb Programm funzt nciht im Forum "Windows XP Forum" wurde erstellt von Black Panter, 19. Nov. 2007.

Thema: Vb Programm funzt nciht bei folgendem code Public Class Form1 Public Function Round(ByVal Number As Double, _ ByVal Digits As...

  1. bei folgendem code
    Code:
    Public Class Form1
    
      Public Function Round(ByVal Number As Double, _
      ByVal Digits As Integer) As Double
        Round = Int(Number * 10 ^ Digits + 0.5) / 10 ^ Digits
      End Function
    
      Private Sub Button1_Click()
        Dim com_state, lbl_output, txt_input As Object
        Dim speed, indexzahl, way, state, speed_input As Single
        Dim zustand(4) As String
        zustand(0) = 1
        zustand(1) = 0.5
        zustand(2) = 0.35
        zustand(3) = 0.15
    
        indexzahl = com_state.ListIndex
        state = zustand(indexzahl)
    
        speed_input = txt_input.Text / 3.6
    
        If Not IsNumeric(speed) Then
          MsgBox(Falsche Eingabe)
          GoTo theEnd
        Else
    
          way = Round((speed ^ 2) / (2 * 12 * state), 5)
    
          If speed < 0 Or speed > 400 Then
            MsgBox(speed & km/h ist keine gültige Eingabe! Der wert muss zwischen 0 und 400 km/h liegen!)
          Else
            If way < 1 Then
              lbl_output.Caption = Der Bremsweg beträgt  & Round(way * 100, 2) &  cm
            Else : lbl_output.Caption = Der Bremsweg beträgt  & Round(way, 2) &  m
            End If
          End If
        End If
    
    theEnd:
      End Sub
    
    
    End Class
    
    wird mir
    Code:
    Warnung	1	Die com_state-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten.	D:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Visual Studio 2005\Projects\Form1.vb	17	21	Bremswegrechner
    was is and em code falsch?
    die bezeichnungen stimmen alle.

    com_state ist eine Combobox
    txt_input ist eine TextBox
    lbl_output ist Label
    und cmd_button ist ein Button
     
  2. Warum diese Zeile?
    Code:
    Dim com_state, lbl_output, txt_input As Object
    Eddie
     
Die Seite wird geladen...

Vb Programm funzt nciht - Ähnliche Themen

Forum Datum
Deinstallation von Programm funzt nicht Windows 8 Forum 10. Dez. 2013
Kontextmenü "Open bzw. Explore"von "Start\Programme" funzt nicht mehr Windows XP Forum 5. Feb. 2005
Dateien mit bestimmten Programmen öffnen, z.B. pdf oder jpg Windows 10 Forum 10. Nov. 2016
KB 958559 / Eigenständiges Windows Update-Installationsprogramm Windows 7 Forum 30. Okt. 2016
Downloads und Programme installieren verbieten Windows 10 Forum 28. Sep. 2016