Table des Matières
Publicité
Programmes d'échantillons (Visual Basic
Ce qui est illustré ci-dessous est un programme d'échantillons qui utilise Visual Basic
communication RS-232C, régler les conditions de mesure, lire les résultats de mesure puis les enregistrer sur
un fichier. Le programme d'échantillons sera écrit de la manière suivante.
Bouton créé pour commencer la mesure.................................................Start
Bouton créé pour fermer l'application ....................................................... Exit
Lorsque [Commencer la mesure] est enfoncé, cela prend 10 mesures et écrit les valeurs de mesure sur un
fichier [data.csv].
Lorsque le bouton [Fermer] est enfoncé, le programme se ferme.
Le programme suivant est écrit entièrement dans le code [Form1].
Imports System
Imports System.IO
Imports System.IO.Ports
Public Class Form1
'Effectuer le processus si le bouton1 est enfoncé
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim recvstr As String
Dim i As Integer
Try
Button1.Enabled = False
Button2.Enabled = False
'Réglage du port de communication.................(b)
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.NewLine = vbCrLf
SerialPort1.ReadTimeout = 2000
SerialPort1.Open()
SendSetting(SerialPort1)
FileOpen(1, "data.csv", OpenMode.Output) 'Créer un fichier texte à enregistrer............(e)
For i = 1 To 10
SerialPort1.WriteLine(":FETCH?")
recvstr = SerialPort1.ReadLine()
WriteLine(1, recvstr)
Next
FileClose(1)
SerialPort1.Close()
Button1.Enabled = True
Button2.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
'Définir les conditions de mesure
Private Sub SendSetting(ByVal sp As SerialPort)
Try
sp.WriteLine(":TRIG:SOUR IMM")
sp.WriteLine(":INIT:CONT ON")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
®
2017)
'Désactiver les boutons pendant la communication......(a)
'Réglage de terminateur.............................(c)
'Inactivité de 2 secondes............................(d)
'Ouvrir un port
'Réglages de l'appareil
'Commencer la mesure et lire les résultats de mesure Commande.....(f)
'Lire les résultats de mesure
'Écrire dans le fichier
'Fermer le fichier
'Fermer le port
'Sélectionner le déclenchement interne
'Mesure continue ON
HIOKI BT3564A964-01
8.8 Programmes d'échantillons
®
2017 pour activer la
161
8
Publicité
Table des Matières
