Unerklährlicher Fehler

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von Myrax.

    Unerklährlicher Fehler

    Hallo Liebe Com.,
    Ich bin gerade echt am verzweifeln und zwar versuche ich die Festplatten und andere Computer Komponenten auszulesen, ich habe weil ich schon lange auf der Fehlersuche bin eine Try schleife eingesetzt und der Fehler der dabei zu tage kam war dieser

    Quellcode

    1. Ungültige Konvertierung von der Zeichenfolge Festplatte in Typ Integer

    Hier mal mein Code ( Bis zur relevanten stelle )

    VB.NET-Quellcode

    1. Imports System.Management.Instrumentation
    2. Imports System.Management
    3. Imports System.IO
    4. Public Class Form1
    5. Dim Rams As Double
    6. Dim Rames As String
    7. Dim CPUS As String
    8. Dim Greka As String
    9. Dim Grekas As String
    10. Dim Greekas As String
    12. [...]
    13. Try
    14. 'Festplatte
    15. For Each mydrive As IO.DriveInfo In IO.DriveInfo.GetDrives
    16. Dim Listinfo As String = "Gesammter Speicher : " & (mydrive.TotalSize / 1024 / 1024 / 1024).ToString("N") & " GB, " & "Verfügbarer Speicher : " & (mydrive.TotalFreeSpace / 1024 / 1024 / 1024).ToString("N") & " GB "
    17. Dim listitem As String = mydrive.Name & " (" & mydrive.VolumeLabel & ", "
    18. Select Case mydrive.DriveType
    19. Case IO.DriveType.CDRom
    20. listitem &= "CD / DVD"
    21. Case IO.DriveType.Fixed
    22. listitem &= "Feste Größe"
    23. Case IO.DriveType.Network
    24. listitem &= "Netzwerk"
    25. Case IO.DriveType.Removable
    26. listitem &= "Externes Peripheriegerät"
    27. Case Else
    28. listitem &= "Unlesbar"
    29. End Select
    30. listitem &= ")"
    31. ListBox1.Items.Add(listitem & Listinfo)
    32. Next
    33. Catch ex As Exception
    34. MsgBox(ErrorToString, "Festplatte")
    35. End Try


    Kann mir jemand helfen ?
    Ich verstehe diesen Fehler nicht und weiß nicht wo ich suchen soll....

    LG

    EDIT:

    Das merkwürdige daran ist , wenn ich einen Code darüber lege wird der ausgeführt liegt er darunter wird er es nicht, was dazu kommt ist das meine Festplatten angezeigt werden... ?(

    Code-Fresser schrieb:

    Ich verstehe diesen Fehler nicht

    Ein Integer ist eine Ganzzahl. Ist "Festplatte" eine Zahl? Nein. Also wird sie auch nie ein Integer sein können. Das sagt der Fehler.
    Mfg
    Vincent

    Die einzige Stelle, an der die Zeichenfolge "Festplatte" auftaucht, ist Zeile 34, also muss der Fehler folglich auch dort liegen. Verwende einfach mal MessageBox.Show statt MsgBox, dass solltest du aber ohnehin tun.

    Das merkwürdige daran ist , wenn ich einen Code darüber lege wird der ausgeführt liegt er darunter wird er es nicht
    Das ist überhaupt nicht merkwürdig. Der Code wird halt soweit ausgeführt, bis der Fehler auftritt.

    Schau dir einfach mal die Parameter von MsgBox an:

    Quellcode

    1. Public Function MsgBox( _
    2. ByVal Prompt As Object, _
    3. Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
    4. Optional ByVal Title As Object = Nothing _
    5. ) As MsgBoxResult
    Der zweite ist vom Typ MsgBoxStyle, du kannst also schwer einen String übergeben.

    Ich übergeb keinen string , das einzige was ich tue ist ErrorToString um mir den fehler anzeigen zu lassen....
    Aber anscheind funktioniert es nun wieder, aber was ist wenn ich die try-schleife entferne- funktioniert es dann immernoch ?

    Weißt du überhaupt, was Typen sind?
    "Festplatte" ist natürlich ein String, und das ist es auch immer noch, wenn du diesen String als Fenstertietel festlegst.
    Nur legst du ihn so gar nicht als Fenstertietel fest, denn wie du in der Signatur aus Post 5 erkennen kannst, ist der Fenstertitel der 3. Parameter.
    Außerdem hab ich nichtmal ein String namens Festplatte
    Das ist richtig, denn ein String hat keinen Namen. Ein String hat nur einen Inhalt, und der ist in deinem Fall "Festplatte".

    Ich meine , wieso zeigt er mir den Fehler unter der Kategorie Festplatten an , normalerweise betrifft das ja Logische Laufwerke ( hab ich auch mit eingebaut, aber unter ganz anderen Kriterien ) oder etwas nicht ?
    Etwas was auch komisch ist, wenn ich den großen Try-Block ( Der jeden Code betrifft ) Weg lasse funktioniert das Prog. garnicht ...

    Überprüfe jedes Laufwerk als allererstes ob es bereit ist mit If mydrive.IsReady Then
    Wenn es bereit, kannst du deinen Code ausführen, wenn nicht, dann kannst du nur den Buchstaben und den Typ ermitteln.
    Grüße,
    Lukas

    Fragen über Themen im Forum per Konversation werden gelöscht und die Absender blockiert...

    Ja, ok ich werde es mal versuchen.
    Hier mal mein ganzes Form-Load Ereignis mit Import etc.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Management.Instrumentation
    3. Imports System.Management
    4. Imports System.IO
    5. Public Class Form1
    6. Dim Rams As Double
    7. Dim Rames As String
    8. Dim CPUS As String
    9. Dim Greka As String
    10. Dim Grekas As String
    11. Dim Greekas As String
    12. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    13. Application.Exit()
    14. End Sub
    16. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    17. Try
    18. OS.Text = My.Computer.Info.OSFullName & My.Computer.Info.InstalledUICulture().ToString
    20. version.Text = System.IO.File.ReadAllText("version.txt")
    21. Rams = My.Computer.Info.TotalPhysicalMemory / 1048576 / 1024
    22. Rames = Rams.ToString("N") & "GB"
    24. Try
    25. 'Laufwerke
    26. For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives
    27. If Drive.DriveType = IO.DriveType.CDRom Then
    28. If Drive.IsReady Then
    29. ListBox2.Items.Add(Drive.Name & " (" & Drive.VolumeLabel & ")")
    30. Else
    31. ListBox2.Items.Add(Drive.Name & " (nicht bereit)")
    32. End If
    33. End If
    34. Next
    35. Catch ex As Exception
    36. MsgBox(ErrorToString, CType("Laufwerk", MsgBoxStyle))
    37. End Try
    39. Try
    40. 'Festplatte
    41. For Each mydrive As IO.DriveInfo In IO.DriveInfo.GetDrives
    42. Dim Listinfo As String = "Gesammter Speicher : " & (mydrive.TotalSize / 1024 / 1024 / 1024).ToString("N") & " GB, " & "Verfügbarer Speicher : " & (mydrive.TotalFreeSpace / 1024 / 1024 / 1024).ToString("N") & " GB "
    43. Dim listitem As String = mydrive.Name & " (" & mydrive.VolumeLabel & ", "
    44. Select Case mydrive.DriveType
    45. Case IO.DriveType.CDRom
    46. listitem &= "CD / DVD"
    47. Case IO.DriveType.Fixed
    48. listitem &= "Feste Größe"
    49. Case IO.DriveType.Network
    50. listitem &= "Netzwerk"
    51. Case IO.DriveType.Removable
    52. listitem &= "Externes Peripheriegerät"
    53. Case Else
    54. listitem &= "Unlesbar"
    55. End Select
    56. listitem &= ")"
    57. If mydrive.IsReady Then
    58. ListBox1.Items.Add(listitem & Listinfo)
    59. Else
    60. MessageBox.Show("Keine Festplatte Gefunden", "Festplatte01")
    61. End If
    63. Next
    64. Catch ex As Exception
    65. MessageBox.Show(ErrorToString, "Festplatte03")
    66. End Try
    67. Try
    68. Dim objQuery As New ObjectQuery("SELECT * FROM Win32_Processor")
    69. Dim ObjSearcher As New ManagementObjectSearcher(objQuery)
    70. For Each memObj As ManagementObject In ObjSearcher.Get()
    71. Dim Des As String = memObj("Name").ToString
    72. CPUS = Des
    73. Next
    74. Catch ex As Exception
    75. MsgBox(ErrorToString, CType("Klein-CPU", MsgBoxStyle))
    76. End Try
    77. Try
    78. Dim objQuery2 As New ObjectQuery("SELECT * FROM Win32_VideoController")
    79. Dim ObjSearcher2 As New ManagementObjectSearcher(objQuery2)
    80. For Each memObj As ManagementObject In ObjSearcher2.Get
    81. Dim GPU As String = memObj("Name").ToString()
    82. Dim Takt As String = Convert.ToInt64(memObj("AdapterRAM")).ToString()
    83. Dim Refresh As String = Convert.ToInt64(memObj("MaxRefreshRate")).ToString()
    84. Greka = GPU
    85. Grekas = CStr(CDbl(Takt) / 1024 / 1024)
    86. Greekas = Refresh
    87. Next
    88. Catch ex As Exception
    89. MsgBox(ErrorToString, CType("Klein-GPU", MsgBoxStyle))
    90. End Try
    92. Try
    93. 'CPU
    94. Dim objQuery5 As New ObjectQuery("SELECT * FROM Win32_Processor")
    95. Dim ObjSearcher5 As New ManagementObjectSearcher(objQuery5)
    96. For Each memObj As ManagementObject In ObjSearcher5.Get
    97. Dim Name As String = memObj("Name").ToString()
    98. Dim MaxTakt As String = Convert.ToInt64(memObj("MaxClockSpeed")).ToString()
    99. Dim Takt As String = Convert.ToInt64(memObj("CurrentClockSpeed")).ToString()
    100. Dim Hersteller As String = memObj("Manufacturer").ToString()
    101. Dim Beschreibung As String = memObj("Description").ToString()
    102. CPU_Name.Text = "Name des Prozessors : " + Name
    103. CPU_Takt.Text = "Takt des Prozessors : " + Takt
    104. CPU_MaxTakt.Text = "Maximaler Takt des Prozessors : " + MaxTakt
    105. CPU_Hersteller.Text = "Hersteller des Prozessors : " + Hersteller
    106. CPU_Des.Text = "Beschreibung des Prozessors : " + Beschreibung
    107. Next
    108. Catch ex As Exception
    109. MsgBox(ErrorToString, CType("CPU", MsgBoxStyle))
    110. End Try
    111. Try
    112. 'GPU
    113. Dim objQuery6 As New ObjectQuery("SELECT * FROM Win32_VideoController")
    114. Dim ObjSearcher6 As New ManagementObjectSearcher(objQuery6)
    115. For Each memObj As ManagementObject In ObjSearcher6.Get
    116. Dim GPU As String = memObj("Name").ToString()
    117. Dim Takt As String = Convert.ToInt64(memObj("AdapterRAM")).ToString()
    118. Dim Refresh As String = Convert.ToInt64(memObj("MaxRefreshRate")).ToString()
    119. Greka = GPU
    120. Grekas = CStr(CDbl(Takt) / 1024 / 1024)
    121. Greekas = Refresh
    122. Next
    123. Catch ex As Exception
    124. MsgBox(ErrorToString, CType("GPU", MsgBoxStyle))
    125. End Try
    126. All.Text = CPUS + " , " + Rames + " , " + Greka + " @" + Greekas + "Hz " + Grekas + "MB"
    127. Catch ex As Exception
    128. MsgBox(ErrorToString, CType("FEHLER!", MsgBoxStyle))
    129. End Try
    130. End Sub


    LG

Facebook
Telefonspende