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
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
Avant de partir en FreeStyle [ par fred23 ]
Bonjour,Je voudrais piloter mon modem 3com depuis une Pocket PC du type Ipack ou autre.Donc plusieurs questions:Quel outils de dev VB employer.?Existe
PDA utilisé comme console de chargement pour automates [ par jaymond ]
je sohaite réaliser une appli speciale pour charger des parametres dans un automate.Partant d'un PDA PalmOS par une liaison serie ?? bluetooth ou IR o
communication PDA -> téléphone -> net [ par sozie9372 ]
Salut,Je suis un novice en ce qui concerne bluetooth. Je veux connecter un PDA à un téléphone (via bluetooth evidement) afin que le téléphone serve de
|
Derniers Blogs
ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril
Logiciels
uTorrent (2.0.4)UTORRENT (2.0.4)C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m... Cliquez pour télécharger uTorrent Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en... Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation 4Videosoft Transfert iPod Mac (3.2.08)4VIDEOSOFT TRANSFERT IPOD MAC (3.2.08)4Videosoft Transfert iPod-Mac caractérise principalement à transférer les fichiers iPod vers Mac.... Cliquez pour télécharger 4Videosoft Transfert iPod Mac 4Videosoft HD Convertisseur (3.3.08)4VIDEOSOFT HD CONVERTISSEUR (3.3.08)Etant le meilleur HD Vidéo Convertisseur, 4Videosoft HD Convertisseur, vous pouvez regarder la vi... Cliquez pour télécharger 4Videosoft HD Convertisseur 4Videosoft Transfert iPad Mac (3.2.08)4VIDEOSOFT TRANSFERT IPAD MAC (3.2.08)4Videosoft Transfert iPad-Mac est un logiciel managérial iPad professionnel qui a des fonctions i... Cliquez pour télécharger 4Videosoft Transfert iPad Mac
|