Hey Com,
Ich weiß, is mein erster Beitrag hier, drum kurz was über mich. Wer das nicht lesen will, kann ab Problem: weiterlesen. Ich programmiere fast ein Jahr mit VB, anfangs mit 2005, jetzt mit VS 2010 Ultimate. Rein Softwaretechnisches, ohne Hardware geht schon recht flüssig, und jetzt hab ich mit Hardwareprogrammierung begonnen. Mit Schleifen, BGW oder Threads habe ich auch noch nicht gearbeitet.
Problem:
Ich habe folgenden Code, bei dem die Form bei dem Event Button1.Click immer einfriert. Woran es liegt, keine Ahnung. IntelliTrace hilft mir auch nicht, ebensowenig wie die Fehlercodes, die mir Windows ausspuckt. Hier der Code:
Hier die Fehlermeldung von Windows:
Ich weiß, is mein erster Beitrag hier, drum kurz was über mich. Wer das nicht lesen will, kann ab Problem: weiterlesen. Ich programmiere fast ein Jahr mit VB, anfangs mit 2005, jetzt mit VS 2010 Ultimate. Rein Softwaretechnisches, ohne Hardware geht schon recht flüssig, und jetzt hab ich mit Hardwareprogrammierung begonnen. Mit Schleifen, BGW oder Threads habe ich auch noch nicht gearbeitet.
Problem:
Ich habe folgenden Code, bei dem die Form bei dem Event Button1.Click immer einfriert. Woran es liegt, keine Ahnung. IntelliTrace hilft mir auch nicht, ebensowenig wie die Fehlercodes, die mir Windows ausspuckt. Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Public Declare Function Inp Lib "inpout32.dll" Alias _
- "Inp32" (ByVal PortAddress As Integer) As Integer
- Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" _
- (ByVal PortAddress As Integer, ByVal Value As Integer)
- Dim Klick As Int64
- Dim an As Integer
- Dim Stufe As Integer
- Dim Prüfen As Integer
- Dim Laufzeit As Integer = 0
- Dim Gestartet As Integer = 0
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Watcher()
- Laufzeit = 1
- If Klick = 0 Then
- Out(&H378, 1)
- End If
- If Klick = 100 Then
- Out(&H378, 4)
- End If
- While Laufzeit = 1
- If Gestartet = 1 Then Label2.Text = "Gestartet"
- If Gestartet = 0 Then Label2.Text = "Gestoppt"
- End While
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Klick += 1
- End Sub
- Private Function Watcher()
- While Laufzeit = 1
- If Inp(&H378) = True Then
- an = 1
- Else
- an = 0
- End If
- If an = 1 Then Gestartet = 1
- If an = 0 Then Gestartet = 0
- End While
- End Function
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Out(&H378, 0)
- Klicks = 0
- Timer1.Stop()
- End Sub
- End Class
Hier die Fehlermeldung von Windows:
Hoffe mir kann jemand helfen, und bei Fragen meldenProblemsignatur:
Problemereignisname: AppHangB1
Anwendungsname: LPT-Test.vshost.exe
Anwendungsversion: 10.0.30319.1
Anwendungszeitstempel: 4ba2084b
Absturzsignatur: 25bd
Absturztyp: 256
Betriebsystemversion: 6.1.7600.2.0.0.256.1
Gebietsschema-ID: 1031
Zusätzliche Absturzsignatur 1: 25bd01f1522658d69f1a6d244ab5f0f0
Zusätzliche Absturzsignatur 2: 2374
Zusätzliche Absturzsignatur 3: 2374d5237476afa966cb046612679a5d
Zusätzliche Absturzsignatur 4: 25bd
Zusätzliche Absturzsignatur 5: 25bd01f1522658d69f1a6d244ab5f0f0
Zusätzliche Absturzsignatur 6: 2374
Zusätzliche Absturzsignatur 7: 2374d5237476afa966cb046612679a5d