hallo
ich habe ein problem bin noch relativ anfänger mit visual basic
Mein Problem:
ich speichere die gedruckten tasten auf der Tastatur in eine txt datei
und die zeit wenn ein tastaturwechsel erfolgt auf eine extra txt datei
einmal Time.txt
und Direction.txt
das auslesen der befehle aus der txt datei funktioniert und die entsprechende case anweisung wird ausgeführt
ich möchte aber dass auch die zeit aus der txt datei ausgelesen wird und nach der zeit die case anweisungen ausgeführt wird
ich wollte das mit der sleep funktion machen aber das funktioniert nicht
die direction anweisungen werden bloss ganz schnell ausgeführt
kann mir da jemand helfen wo das problem liegt
das wäre super
danke
Try
Dim objReader_x As New System.IO.StreamReader("C:\Users\XXX\Desktop\Direction.txt")
Dim objReader_y As New System.IO.StreamReader("C:\Users\XXX\Desktop\Time.txt")
System.Threading.Thread.Sleep(Convert.ToUInt32(objReader_y.ReadLine()))
Do While objReader_x.Peek() <> -1
Select Case objReader_x.ReadLine()
Case "i" 'auto vorwärtz'
Dir = "i"
SendPacket()
txt_read.Text = Dir
Case "k" 'auto rückwärtz'
Dir = "k"
SendPacket()
txt_read.Text = Dir
Case "l" 'auto rechts'
Dir = "l"
SendPacket()
txt_read.Text = Dir
Case "j" 'auto links'
Dir = "j"
SendPacket()
txt_read.Text = Dir
Case Else
Dir = "x"
SendPacket()
txt_read.Text = Dir
End Select
System.Threading.Thread.Sleep(Convert.ToUInt32(objReader_y.ReadLine()))
Loop
objReader_x.Close()
objReader_y.Close()
Catch Ex As Exception
MsgBox(Ex.Message)
End Try
End Sub
ich habe ein problem bin noch relativ anfänger mit visual basic
Mein Problem:
ich speichere die gedruckten tasten auf der Tastatur in eine txt datei
und die zeit wenn ein tastaturwechsel erfolgt auf eine extra txt datei
einmal Time.txt
und Direction.txt
das auslesen der befehle aus der txt datei funktioniert und die entsprechende case anweisung wird ausgeführt
ich möchte aber dass auch die zeit aus der txt datei ausgelesen wird und nach der zeit die case anweisungen ausgeführt wird
ich wollte das mit der sleep funktion machen aber das funktioniert nicht
die direction anweisungen werden bloss ganz schnell ausgeführt
kann mir da jemand helfen wo das problem liegt
das wäre super
danke
Try
Dim objReader_x As New System.IO.StreamReader("C:\Users\XXX\Desktop\Direction.txt")
Dim objReader_y As New System.IO.StreamReader("C:\Users\XXX\Desktop\Time.txt")
System.Threading.Thread.Sleep(Convert.ToUInt32(objReader_y.ReadLine()))
Do While objReader_x.Peek() <> -1
Select Case objReader_x.ReadLine()
Case "i" 'auto vorwärtz'
Dir = "i"
SendPacket()
txt_read.Text = Dir
Case "k" 'auto rückwärtz'
Dir = "k"
SendPacket()
txt_read.Text = Dir
Case "l" 'auto rechts'
Dir = "l"
SendPacket()
txt_read.Text = Dir
Case "j" 'auto links'
Dir = "j"
SendPacket()
txt_read.Text = Dir
Case Else
Dir = "x"
SendPacket()
txt_read.Text = Dir
End Select
System.Threading.Thread.Sleep(Convert.ToUInt32(objReader_y.ReadLine()))
Loop
objReader_x.Close()
objReader_y.Close()
Catch Ex As Exception
MsgBox(Ex.Message)
End Try
End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „pantro“ ()