Anritsu MA24106A Guia do Utilizador Página 203

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 224
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 202
A-2 Using the Demo Application
PowerXpert UG PN: 10585-00020 Rev. C A-3
'
'Event handler for MSComm1 event
Private Sub MSComm1_OnComm()
'Get data from Input buffer
gstrInputBuffer = MSComm1.Input
'Display received result on the Received text box
txtReceived.Text = gstrInputBuffer
End Sub
'Event handler for GetFreq button
Private Sub btnGetFreq_Click()
txtCommand.Text = "FREQ?"
Call btnSend_Click
End Sub
'Event handler for GetPower button
Private Sub btnGetPower_Click()
txtCommand.Text = "PWR?"
Call btnSend_Click
End Sub
'Event handler for SetFreq button
Private Sub btnSetFreq_Click()
txtCommand.Text = "FREQ " & txtFreq.Text
Call btnSend_Click
End Sub
'Event handler for ZeroSensor button
Private Sub btnZeroSensor_Click()
txtCommand.Text = "ZERO"
Call btnSend_Click
'Sensor will return OK after about 19 Seconds
End Sub
'Event handler for Close button
Private Sub btnClose_Click()
'
'Make sure we close the com port before we exit the app
If MSComm1.PortOpen = True Then
'Stop sensor from making measurements
txtCommand.Text = "STOP"
Call btnSend_Click
'
'Wait for half a second after sending START command
Delay (0.5)
'
MSComm1.PortOpen = False
End If
'Close the app
End
End Sub
Vista de página 202
1 2 ... 198 199 200 201 202 203 204 205 206 207 208 ... 223 224

Comentários a estes Manuais

Sem comentários