Publicité
Programmes d'échantillons(Visual Basic
Imports System
Imports System.IO
Imports System.IO.Ports
Public Class Form1
Perform process when Button1 is pressed
'
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim recvstr As String
Dim i As Integer
Try
Button1.Enabled = False
Button2.Enabled = False
Dim sp As New SerialPort("COM1", 9600, Parity.None, 8, StopBits.One) '
sp.NewLine = vbCrLf
sp.ReadTimeout = 2000
sp.Open()
SendSetting(sp)
FileOpen(1, "data.csv", OpenMode.Output)
For i = 1 To 10
*
sp.WriteLine("
FETCH?")
recvstr = sp.ReadLine()
PrintLine(1, recvstr)
Next i
FileClose(1)
sp.Close()
Button1.Enabled = True
Button2.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Set measurement conditions
'
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
Close program when Button2 is pressed
'
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Dispose()
Ce qui est illustré ci-dessous est un programme d'échantillon qui utilise Visual
®
Basic
2005 pour activer la communication RS-232C, régler les conditions de
mesure, lire les résultats de mesure puis les enregistrer sur un fichier. Le
programme d'échantillon sera écrit de la manière suivante.
" Procédure de création(Visual Basic® 2005)" (p.175)
...................................................Écrire à l'aide d'un programme d'échantillon
Bouton créé pour commencer la mesure ........................................... Bouton1
Bouton créé pour fermer l'application ................................................ Bouton2
Lorsque [ Begin Measurement ] est enfoncé, cela prend 10 mesures et écrit les
valeurs de mesure sur un fichier [ data.csv ].
Lorsque le bouton [ Quit ] est enfoncé, le programme se ferme.
Le programme suivant est écrit entièrement dans le code [ Form1 ].
Disable buttons during communication
'
Terminator setting
'
2 second time out
'
Open port
'
'BT3562-01 or BT3563-01
Create text file to be saved
'
Begin measurement and read measurement
'
results command
Read measurement results
'
Write to file
'
Close file
'
Close port
'
'Select internal triggering
'Continuous measurement ON
HIOKI BT3562A960-05
8.8 Programmes d'échantillonnage
®
2005)
description
Communication port setting
...........................................................(c)
.......................................................... (d)
settings
.......................................... (e)
............................................................ (f)
177
...................... (a)
.... (b)
8
Publicité
