begin process at 2008 07 20 12:44:41
1 213 212 membres
129 nouveaux aujourd'hui
14 166 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Les ports en vb.net [ Divers / Débutants ] (SEB73460)

Les ports en vb.net le 10/05/2008 10:32:46

SEB73460
Bonjour à tous

je suis debutant en vb.net.
J'aimerai communiquer avec une carte electronique que je developpe via une ligne rs232
Mais voila je ne sais pas trop comment m'y prendre
Pour envoyer mes données : pas trop de problemes
Pour recevoir mes données : je n'y arrive pas
Je me demande se ne serai pas plus simple de communiquer avec le port parallele
Est-ce que quelqu'un aurait un bout de code pour m'aider
Merci beaucoup
A+

Re : Les ports en vb.net le 14/05/2008 09:29:05

kyoleroi

Voila un bou de code qui peut te permettre de recevoir des données avec la méthode d'interruption. Voila avec sa t tranquille   

  Public MesurePoids As String

    Private Delegate Sub _Affiche_ASCII(ByVal Buffer_Mesure_BALANCE As String)

    Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim nb_octet As Integer = Me.SerialPort1.BytesToRead ' on récupère le nombre d'octet présent dans le tampon
        Dim trame(nb_octet - 1) As Byte ' Tableau acceuillant les données au format byte

        Dim Buffer_Mesure_BALANCE As String = Me.SerialPort1.ReadLine() 'on lit le port

        If Me.InvokeRequired Then
            Me.Invoke(New _Affiche_ASCII(AddressOf Traitement_Trames_BALANCE), Buffer_Mesure_BALANCE)
        End If
    End Sub
    Sub Traitement_Trames_BALANCE(ByVal Buffer_Mesure_BALANCE As String)

        MesurePoids = Buffer_Mesure_BALANCE

        Label1.Text = MesurePoids
        Label1.Refresh()

    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SerialPort1.Open()

    End Sub



Classé sous : net, vb, trop, communiquer, ports

Participer à cet échange

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS