Public Class Form1 #Region "déclaration de la DLL" Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Sub CloseDevice Lib "k8055d.dll" () Private Declare Sub Version Lib "k8055d.dll" () Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Integer Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByRef Data1 As Integer, ByRef Data2 As Integer) Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer, ByVal Data As Integer) Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Integer, ByVal Data2 As Integer) Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllAnalog Lib "k8055d.dll" () Private Declare Sub ClearAllAnalog Lib "k8055d.dll" () Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Integer) Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub ClearAllDigital Lib "k8055d.dll" () Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllDigital Lib "k8055d.dll" () Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Boolean Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Integer Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) As Integer Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Integer, ByVal DebounceTime As Integer) #End Region Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If connect = True Then Select Case e.KeyCode Case Keys.Left SetDigitalChannel(1) ClearDigitalChannel(2) Label8.Text = "Tu appuis sur la flèche Gauche" Case Keys.Right SetDigitalChannel(2) ClearDigitalChannel(1) Label8.Text = "Tu appuis sur la flèche Droite" Case Else ClearAllDigital() Label8.Text = "Clavier erroné" End Select End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim status As Integer = OpenDevice(0) 'adresse de la carte est 0 If status = -1 Then 'opendevice retourne l'adresse si OK et -1 si pas OK connect = False Else connect = True Me.Text = " Gestion d'une carte VM110 .: en ligne :. " End If Me.Text = "Test Clavier par Adn56 (merci a lui) et un petit peut moi :p" End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If connect = True Then ClearAllDigital() ClearAllAnalog() CloseDevice() End If End Sub Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim connect As
Public Class Form1 #Region "déclaration de la DLL" Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Sub CloseDevice Lib "k8055d.dll" () Private Declare Sub Version Lib "k8055d.dll" () Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Integer Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByRef Data1 As Integer, ByRef Data2 As Integer) Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer, ByVal Data As Integer) Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Integer, ByVal Data2 As Integer) Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllAnalog Lib "k8055d.dll" () Private Declare Sub ClearAllAnalog Lib "k8055d.dll" () Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Integer) Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub ClearAllDigital Lib "k8055d.dll" () Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllDigital Lib "k8055d.dll" () Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Boolean Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Integer Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) As Integer Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Integer, ByVal DebounceTime As Integer) #End Region Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Dim connect As Boolean = False If connect = True Then Select Case e.KeyCode Case Keys.Left SetDigitalChannel(1) ClearDigitalChannel(2) Label8.Text = "Tu appuis sur la flèche Gauche" Case Keys.Right SetDigitalChannel(2) ClearDigitalChannel(1) Label8.Text = "Tu appuis sur la flèche Droite" Case Else ClearAllDigital() Label8.Text = "Clavier erroné" End Select End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connect As Boolean = False Dim status As Integer = OpenDevice(0) 'adresse de la carte est 0 If status = -1 Then 'opendevice retourne l'adresse si OK et -1 si pas OK connect = False Else connect = True Me.Text = " Gestion d'une carte VM110 .: en ligne :. " End If Me.Text = "Test Clavier" End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim connect As Boolean = False If connect = True Then ClearAllDigital() ClearAllAnalog() CloseDevice() End If End Sub Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click End Sub End Class
Public Class Form1 #Region "déclaration de la DLL" Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Sub CloseDevice Lib "k8055d.dll" () Private Declare Sub Version Lib "k8055d.dll" () Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Integer Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByRef Data1 As Integer, ByRef Data2 As Integer) Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer, ByVal Data As Integer) Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Integer, ByVal Data2 As Integer) Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllAnalog Lib "k8055d.dll" () Private Declare Sub ClearAllAnalog Lib "k8055d.dll" () Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Integer) Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub ClearAllDigital Lib "k8055d.dll" () Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllDigital Lib "k8055d.dll" () Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Boolean Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Integer Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) As Integer Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Integer, ByVal DebounceTime As Integer) #End Region Dim connect As Boolean = False Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If connect = True Then Select Case e.KeyCode Case Keys.Left SetDigitalChannel(1) ClearDigitalChannel(2) Label8.Text = "Tu appuis sur la flèche Gauche" Case Keys.Right SetDigitalChannel(2) ClearDigitalChannel(1) Label8.Text = "Tu appuis sur la flèche Droite" Case Else ClearAllDigital() Label8.Text = "Clavier erroné" End Select End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim status As Integer = OpenDevice(0) 'adresse de la carte est 0 If status = -1 Then 'opendevice retourne l'adresse si OK et -1 si pas OK connect = False Else connect = True Me.Text = " Gestion d'une carte VM110 .: en ligne :. " End If Me.Text = "Test Clavier par Adn56 (merci a lui) et un petit peut moi :p" End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If connect = True Then ClearAllDigital() ClearAllAnalog() CloseDevice() End If End Sub Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click End Sub End Class
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If connect = True Then Select Case e.KeyCode Case Keys.Left SetDigitalChannel(1) ClearDigitalChannel(2) Label8.Text = "Tu appuis sur la flèche Gauche" Case Keys.Right SetDigitalChannel(2) ClearDigitalChannel(1) Label8.Text = "Tu appuis sur la flèche Droite" Case Else ClearAllDigital() Label8.Text = "Clavier erroné" End Select else Label8.Text = "carte non connectée" End If End Sub
Imports DirectX.Capture Public Class Form1 Public Structure Active2 Public pas As String Dim Camera As Filter Dim CaptureInfo As DirectX.Capture.Capture Dim Counter As Integer Dim CounterFrames As Integer Dim PathVideo As String Public code As String Public dd As String Public df As String Public im As Image End Structure Public count As Int16 Public CaptureInformation2 As Active2 Public Dispositivos As New Filters() #Region "déclaration de la DLL" Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Sub CloseDevice Lib "k8055d.dll" () Private Declare Sub Version Lib "k8055d.dll" () Private Declare Function SearchDevices Lib "k8055d.dll" () As Integer Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Integer) As Integer Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Integer Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (ByRef Data1 As Integer, ByRef Data2 As Integer) Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer, ByVal Data As Integer) Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Integer, ByVal Data2 As Integer) Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllAnalog Lib "k8055d.dll" () Private Declare Sub ClearAllAnalog Lib "k8055d.dll" () Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Integer) Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub ClearAllDigital Lib "k8055d.dll" () Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) Private Declare Sub SetAllDigital Lib "k8055d.dll" () Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Integer) As Boolean Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Integer Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) As Integer Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Integer) Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Integer, ByVal DebounceTime As Integer) #End Region Dim connect As Boolean = False Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If connect = True Then Select Case e.KeyCode Case Keys.Left SetAnalogChannel(1) ClearAnalogChannel(2) Label8.Text = "Tu as utiliser la touche : Gauche" Case Keys.Right SetAnalogChannel(2) ClearAnalogChannel(1) Label8.Text = "Tu as utiliser la touche : Droite" Case Else ClearAllAnalog() Label8.Text = "Cette touche n'est pas correct" End Select Else Label8.Text = "Carte non connectée" End If End Sub Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp If connect = True Then Select Case e.KeyCode Case Keys.Left ClearAllAnalog() Label8.Text = "Tu as utiliser la touche :" Case Keys.Right ClearAllAnalog() Label8.Text = "Tu as utiliser la touche :" Case Else ClearAllAnalog() Label8.Text = "Tu as utiliser la touche :" End Select Else Label8.Text = "Carte non connectée" End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim j As Short Dim f As Filter ComboBox1.Items.Clear() For j = 0 To Dispositivos.VideoInputDevices.Count - 1 f = Dispositivos.VideoInputDevices(j) ComboBox1.Items.Add(f.Name) Next If j > 0 Then ComboBox1.SelectedIndex = 0 Catch MsgBox("aucune webcam n'est detecté veuillez brancher votre webcam avant d'ouvrire l'application svp", MsgBoxStyle.Critical) Close() End Try Dim status As Integer = OpenDevice(0) 'adresse de la carte est 0 If status = -1 Then 'opendevice retourne l'adresse si OK et -1 si pas OK connect = False Else connect = True Me.Text = " Gestion d'une carte VM110 .: en ligne :. " End If Me.Text = "CamMove par Adn56 et un peut moi" End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If connect = True Then ClearAllDigital() ClearAllAnalog() CloseDevice() End If End Sub Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click End Sub Private Sub Configurer() CaptureInformation2.CaptureInfo.VideoCompressor = Dispositivos.VideoCompressors(1) CaptureInformation2.CaptureInfo.FrameSize = New Size(320, 240) CaptureInformation2.CaptureInfo.FrameRate = 50 CaptureInformation2.CaptureInfo.RenderPreview() End Sub Private Sub NewCaptureReady(ByVal Sender As System.Windows.Forms.PictureBox) Dim b As New Bitmap(200, 240) Dim b2 As Bitmap = Sender.Image Dim i2, j2 As Int16 For i As Int16 = 60 To 259 j2 = 0 For j As Int16 = 0 To 239 b.SetPixel(i2, j2, b2.GetPixel(i, j)) j2 = j2 + 1 Next i2 = i2 + 1 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CaptureInformation2.Camera = Dispositivos.VideoInputDevices(ComboBox1.SelectedIndex) CaptureInformation2.CaptureInfo = New DirectX.Capture.Capture(CaptureInformation2.Camera, Dispositivos.AudioInputDevices(0)) CaptureInformation2.CaptureInfo.PreviewWindow = PictureBox2 CaptureInformation2.Counter = 1 CaptureInformation2.CounterFrames = 1 Configurer() AddHandler CaptureInformation2.CaptureInfo.FrameCaptureComplete, AddressOf NewCaptureReady Button1.Enabled = False ComboBox1.Enabled = False End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click End Sub End Class