260 likes | 433 Views
Transmission de données par Bluetooth Soutenance. William MORKOS. Plan. Fonctionnement global Etape 1 : Electronique des capteurs Etape 2 : Transmission de données par liaison RS232 Etape 3 : Interface graphique sur VB 2005 Etape 4 : Remplacement de RS 232 par Bluetooth
E N D
Transmission de données par BluetoothSoutenance William MORKOS
Plan Fonctionnement global • Etape 1 : Electronique des capteurs • Etape 2 : Transmission de données par liaison RS232 • Etape 3 : Interface graphique sur VB 2005 • Etape 4 : Remplacement de RS 232 par Bluetooth • Etape 5 : Envoi des données sur mobile Conclusion
Etape 1 : Electronique des capteurs
Etape 1 Acquisition de la température G=5 V/0,650 V= 7,7. Rg=7.8 Kohms Etendue de mesure: -10°C 55°C Tension issue du LM335Z: 2,631 V 3,281 V Tension de référence : 2,631 V Excursion max de U: 0 V 0,650 V Tension à l’entrée du CAN: 40 mV 5 V Sensibilité à l’entrée du CAN: 5 V/ 65°C=76 mV/°C
Etape 1 Acquisition de la température
Etape 1 Acquisition de la luminosité G=5/0.497=10 Rg=4.4Kohms Etendue de mesure: 0 lx 2.5 Klx Tension aux bornes de R: 0 V 0.497 V Tension de référence : 0 V Excursion max de U: 0 V 0.479 V Tension à l’entrée du CAN: 40 mV 5 V Sensibilité à l’entrée du CAN: 5 V/ 2.5 Klx=2 V/Klx
Etape 1 Acquisition de la luminosité
Problèmes rencontrés • Etalonnage de la température: Utilisation de potentiomètre CERMET 18 tours à 5 %. • Etalonnage de la luminosité: Le BPW24 très directionnel. Plan de masse à 5,7 mV. Courant d’obscurité indécelable. étalonnage à partir de 300 LUX. (To calculate the illuminance in lux from the given irradiance in mW/cm^2, you would need to know the spectral distribution of your light source, possibly including the spectral transmittance distribution of an associated optical system.)Your light source (I'm guessing it's a carbon or xenon arc lamp) is rated according to the irradiance (illuminance) of a surface at some distance. Irradiance is measured in watts / meter^2, while illuminance is measured in lumens / meter^2 (lux). (Think of these as so many photons being received per unit area of a surface.)
Etapes 2 et 3 : Transmission de données par liaison RS232 et Interface graphique sur VB 2005
Etapes 2 et 3 Application sur Visual Basic • Transmission des données par liaison RS232 émission réception conflit d’accès • Interface graphique sur VB • Afficher les mesures en cours • Evolution de chacune des grandeurs en fonction du temps • Bouton reset temp/lum Annulé
Etapes 2 et 3 Application sur Visual Basic INITIALISATION L + R Création des fichiers Ecriture des données sur fichier .txt Lecture Port Série L Affichage progressif de l’histogramme et des extremums Récupération des données (date+heure+température+luminosité) R Timer2 == 24 h Timer1 == 1 mn non oui non oui Visualisation de l’histogramme complet Affichage réel non Reset des variables Timer2 ==1 h Création des fichiers oui
Etape 2 Application sur Visual Basic • Lecture du port série transmission en char Température et luminosité compactées Décompactage des données Données exploitables
Etapes 2 et 3 Application sur Visual Basic Programme principal … Lecture du port série … … Actualisation des données Affichage heure - température - luminosité 23 ° C 2 000 lux Au bout d’ 1 min Timer1 Chargement de la Form VB
Etapes 2 et 3 Application sur Visual Basic Programme principal … Lecture du port série … … Actualisation des données moyennées Histogramme Timer2 - Actualisation des données - Ecriture sur fichier texte - Rafraîchissement de l’histogramme Au bout d’ 1 h
Etape 3 Application sur Visual Basic • Histogramme • Microsoft Office Spreadsheet 11.0 • Microsoft Office Chart 11.0
Etapes 2 Application sur Visual Basic • Histogramme fichier feuille de calculs
Etape 4 : Remplacement de RS 232 par Bluetooth
Bluetooth : Présentation • Réseaux radio personnels sans fil (WPAN) • Technologie sans fil (radio courte distance) Courte portée, moyen débit, à bas prix • Dongle Bluetooth utilisé Module Classe 2 Logiciel WIDCOMM (création de port virtuel COM3)
Bluetooth : Remplacement de la liaison RS232 • Test du port série virtuel COM4 • Tentative de connexion avec l’adaptateur… • Configuration Bluetooth réussie • Envoi de données de µc à PC possible
Etape 5 : Envoi des données sur mobile
Bluetooth : Commandes AT avec portable • Test du port série virtuel COM4 • Communication avec le modem du portable par commandes AT Envoi de commandes : Réponse du portable : mBT.Write("AT" & vbCrLf) Incoming=mBT.Read ATDT, AT+CGMF, AT+CGMS, ATH … Déclaration et ouverture du port COM4 Using mBTAs IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort("COM4")
Conclusion • Réalisation d’un montage de type industriel • Initiation à VB un langage de programmation Réalisation d’applications Création d’interfaces graphiques • Découverte approfondie d’une technologie de communication