Accueil > > > ENVOIS D'UNE COTE VIA RS 232
ENVOIS D'UNE COTE VIA RS 232
Information sur la source
Description
Ce code envoie une impulsion reçue en cm, via RS 232. Une valeur supérieure à 255 sera decoupée, et envoyé, un checksum permet de vérifer la trame envoyée.
Source
- Private Sub Send(impulsion As Integer)
- Dim MSB As Byte, LSB As Byte, CHKSUM As Byte
- Dim tmp, heure, I
- Dim vdist As Integer, vdimmin As Integer
- Dim recu, tmpstr As String
-
- tmp = 0
- vdist = dist / 10
- vdimmin = dimmin
-
- impulsion = (impulsion * 10) - vdimmin
- impulsion = Int((200 / vdist) * impulsion)
-
- 'Decoupage de l'impulsion car > a 255
- MSB = Int(impulsion / 256)
- LSB = Int(impulsion - (MSB * 256))
-
- If LSB = 0 Then
- LSB = LSB + 1
- End If
-
- CHKSUM = MSB + LSB
-
- 'Pour eviter un Checksum erronné
- While CHKSUM > 255
- CHKSUM = CHKSUM - 256
- Wend
-
- 'debug de verification
- 'MsgBox "MSB : " & MSB
- 'MsgBox "LSB : " & LSB
- 'MsgBox "Check Sum : " & CHKSUM
-
- 'J'effectue ici nu petite boucle d'envoi x10, car timeout non codé
- Do While tmp <> 10
-
- 'Interdiction des interuptions sur le port
- Comm1.RThreshold = 0
-
- 'Le caractere "D" symbolise le debut de la trame
- Comm1.Output = "D"
- Comm1.Output = Chr(MSB)
- Comm1.Output = Chr(LSB)
- Comm1.Output = Chr(CHKSUM)
-
- tmp = tmp + 1
- I = 0
- Effectue = ""
-
- 'Attente d'une reponse (p'tite bidouille)
- Do While I < 500
- Effectue = Comm1.Input
- If Effectue <> "" Then Exit Do
- I = I + 1
- Loop
- 'Remise en marche des interruptions sur le port
- Comm1.RThreshold = 1
-
- If Effectue = "O" Then Exit Sub
- Loop
-
- 'si 10 envois ont été tentés sans réponse reçue : y'a un prob
- If tmp = 10 Then
- MsgBox "Un problème empêche la transmission.", vbCritical, "Delai d'attente dépassé !"
- Exit Sub
- End If
- End Sub
-
Private Sub Send(impulsion As Integer)
Dim MSB As Byte, LSB As Byte, CHKSUM As Byte
Dim tmp, heure, I
Dim vdist As Integer, vdimmin As Integer
Dim recu, tmpstr As String
tmp = 0
vdist = dist / 10
vdimmin = dimmin
impulsion = (impulsion * 10) - vdimmin
impulsion = Int((200 / vdist) * impulsion)
'Decoupage de l'impulsion car > a 255
MSB = Int(impulsion / 256)
LSB = Int(impulsion - (MSB * 256))
If LSB = 0 Then
LSB = LSB + 1
End If
CHKSUM = MSB + LSB
'Pour eviter un Checksum erronné
While CHKSUM > 255
CHKSUM = CHKSUM - 256
Wend
'debug de verification
'MsgBox "MSB : " & MSB
'MsgBox "LSB : " & LSB
'MsgBox "Check Sum : " & CHKSUM
'J'effectue ici nu petite boucle d'envoi x10, car timeout non codé
Do While tmp <> 10
'Interdiction des interuptions sur le port
Comm1.RThreshold = 0
'Le caractere "D" symbolise le debut de la trame
Comm1.Output = "D"
Comm1.Output = Chr(MSB)
Comm1.Output = Chr(LSB)
Comm1.Output = Chr(CHKSUM)
tmp = tmp + 1
I = 0
Effectue = ""
'Attente d'une reponse (p'tite bidouille)
Do While I < 500
Effectue = Comm1.Input
If Effectue <> "" Then Exit Do
I = I + 1
Loop
'Remise en marche des interruptions sur le port
Comm1.RThreshold = 1
If Effectue = "O" Then Exit Sub
Loop
'si 10 envois ont été tentés sans réponse reçue : y'a un prob
If tmp = 10 Then
MsgBox "Un problème empêche la transmission.", vbCritical, "Delai d'attente dépassé !"
Exit Sub
End If
End Sub
Conclusion
Un grand merci a b00mrang et BadProcESs sans qui mon programme ne tournerai pas aujourd'hui.
cette partie de code fonctionne avec mon programme, il peut donc manquer la définitions de certaine variable globale....
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Problème gestion port série PDA [ par Arzad69 ]
Bonjour,Je cherche à créer liaison entre un module Bluetooth (ARF 32) et un PDA (HTC Touch Cruise). Je configure le module et gère ses phases émission
Communication entre windows ce et windows [ par PtitRun ]
Bonjour ! Je cherche le moyen le plus fiable pour faire communiquer une application windows ce et windows. Cette communication ne sera pas que de l'
Est-ce que le port USB d'un PDA peut alimenter un élément passif? [ par juju1569 ]
Bonjour à tous. Dans le cadre d'un projet de fin d'études, j'aurais voulu me servir du port USB d'un smartphone pour alimenter un micro-contrôleur, lu
Connexion RAS sur COM1 + ActiveSync [ par paco877 ]
Bonjour, je développe une appli en C/C++ qui permet de créer une entrée RAS (Connexion réseau) sur Windows CE 5.0. Cette entrée est reliée à au modem
Serialport avec port virtuel [ par locust ]
Salut, J'utilise le composant Serialport pour récupérer les trames de mon GPS sur le port com5 dédié sur mon Asus A696. Tout fonctionne sauf quand j'
license OpenNETCF.Desktop.Communication [ par aurel16 ]
Bonjour, J'ai développé un logiciel sous windows et windows mobile en vb.net. Pour communiquer entre les deux logiciels, j'utilise la dll OpenNETCF.D
rs232 [ par aymen87 ]
Bonjour Je ne sais pas si je suis en train de poster le msg dans le bon thème,mais je crois qu'il y aurait une possibilité de trouver une solution ic
envoie de données en hexa par port serie d'un PDA [ par yzmeg ]
Bonjour @tous,je cherche à interfacer un PDA (iPAQ) avec un capteur dont les instructions doivent être donné en hexadecimale.cela fait 3 jours que je
Prise série des pocket PC [ par timo76 ]
Bonjour à tous,je dois développer une interface IHM sur Pocket Pc qui doit dialoguer avec un système externe via une RS232.Plusieurs questions:- Est-c
Problème de Lecture du code d'une télécommande [ par RcrivelliNET ]
Bonjours à tous,je cherche a lire le code d'une télécomande de télévision via le port IrDa de mon IPAQ 1915 (Port com 3).je travail sur eVB 3.0.j'ai u
|
Derniers Blogs
[SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
MIDLET ET XMLMIDLET ET XML par hadassah
Cliquez pour lire la suite par hadassah
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|