Les informations données dans cette rubrique permettent:
- de récupérer des données sur une feuille Excel existante Position-Vitesse
- d'afficher le tableau des valeurs Angle et Vitesse
- de tracer la courbe Vitesse = f(Angle)
- d'envoyer les valeurs Vitesse sur le port série
I l faut commencer par créer "l'objet" application excel :
Set Feuille = CreateObject("excel.application")
Puis ajouter une feuille à la collection "classeurs":
Set Classeur = Feuille.Workbooks.Add(xlWorksheet)
On ouvre ensuite le classeur:
Workbooks.Open filename:=CurDir + "\" + NomDuFichier
Puis la feuille:
Feuille.ActiveSheet.Name = "Position-Vitesse"
L'affichage des valeurs se fait dans un contrôle MSFlexGrid et les données sont récupérées par des instructions du type:
Me.MSFlexGrid1.TextMatrix(NumeroLigne, 0) = Feuille.ActiveSheet.Range("A" & NumeroLigne)
Me.MSFlexGrid1.TextMatrix(NumeroLigne, 1) = Feuille.ActiveSheet.Range("B" & NumeroLigne)
Le tracé de la courbe est fait point par point avec l'instruction Line dans un contrôle Picture:
Me.Picture1.Line -(x, y)
L'envoi d'informations sur le port série est fait par le contrôle MSComm:
Me.MSComm1.Output = valeur
Il faut fermer l'application sans sauvegarde pour libérer la mémoire:
Feuille.DisplayAlerts = False
Feuille.Quit
Workbooks.Close
Un exemple opérationnel est donné dans le programme IBS
Télécharger IBS (7 Ko) (VB5 édition professionnelle est nécessaire)