F
Hallo,
ich bin neu hier und habe leider keine Ahnung von C++.
Ich hoffe, das ich mit eure Hilfe ein kleines VB.NET Code in C++ umsetzen kann.
Gerne würde ich das ganze in MFC also mit einer Oberfläche machen wollen genau wie in VN.NET.
Der Code in VB.NET schaut so aus:
Public Class Form1
Dim YMcom As New YMoperation
Protected Overrides Sub WndProc(ByRef m As Message) ' Muss im Hauptfenster bleiben damit wird in Echtzeit festgestellt ob USB steckt oder nicht
Try
' The OnDeviceChange routine processes WM_DEVICECHANGE messages.
If m.Msg = YMcom.Get_WM_DEVICECHANGE() Then
Label1.Text = YMcom.OnDeviceChangeMain(m).ToString
Checkbox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False
RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False : RadioButton4.Checked = False
YMcom.ExchangeInPutReports(AddressOf UpdateDeviceResult)
End If
' Let the base form process the message.
MyBase.WndProc(m)
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Private Sub Checkbox1_Click(sender As Object, e As EventArgs) Handles Checkbox1.Click, CheckBox2.Click, CheckBox3.Click, CheckBox4.Click
YMcom.SEND_COMMAND_TO_DEVICE(Checkbox1.CheckState, CheckBox2.CheckState, CheckBox3.CheckState, CheckBox4.CheckState)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Checkbox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox4.Checked = True
YMcom.SEND_COMMAND_TO_DEVICE(Checkbox1.CheckState, CheckBox2.CheckState, CheckBox3.CheckState, CheckBox4.CheckState)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Checkbox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
YMcom.SEND_COMMAND_TO_DEVICE(Checkbox1.CheckState, CheckBox2.CheckState, CheckBox3.CheckState, CheckBox4.CheckState)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
YMcom.SetValues(Me)
Label1.Text = YMcom.FindTheHidMain()
Dim ReadStarted As Boolean = YMcom.ExchangeInPutReports(AddressOf UpdateDeviceResult)
End Sub
Private Sub UpdateDeviceResult(ByVal inputReportBuffer() As Byte)
Invoke(Sub() Checkbox1.CheckState = CType(inputReportBuffer(1), CheckState))
Invoke(Sub() RadioButton1.Checked = CBool(inputReportBuffer(1)))
Invoke(Sub() CheckBox2.CheckState = CType(inputReportBuffer(2), CheckState))
Invoke(Sub() RadioButton2.Checked = CBool(inputReportBuffer(2)))
Invoke(Sub() CheckBox3.CheckState = CType(inputReportBuffer(3), CheckState))
Invoke(Sub() RadioButton3.Checked = CBool(inputReportBuffer(3)))
Invoke(Sub() CheckBox4.CheckState = CType(inputReportBuffer(4), CheckState))
Invoke(Sub() RadioButton4.Checked = CBool(inputReportBuffer(4)))
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
YMcom.Infos()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Checkbox1.Checked = False : CheckBox2.Checked = False : CheckBox3.Checked = False : CheckBox4.Checked = False
Dim ReadStarted As Boolean = YMcom.ExchangeInPutReports(AddressOf UpdateDeviceResult)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
End Class
Wer würde mich dabei unterstützen?
danke im Voraus
