18
Else
If intCommResult = BAD Then
MsgBox "error", vbOKOnly
Else
MsgBox "error", vbOKOnly
End If
End If
Else
MsgBox "error", vbOKOnly
End If
End If
End Sub
Private Sub cmdChkFreq_Click()
intMode = SCAN
'Sends three bytes to the device and reads two bytes back.
sngTestFreq = txtFreq.Text
Buffer(0) = intMode
Buffer(1) = Int(sngTestFreq * 10) / 256
Buffer(2) = Int(sngTestFreq * 10) Mod 256
HIDComm1.WriteTo Buffer, 3
Buffer = HIDComm1.ReadFrom(2)
intModeRtn = Buffer(0)
intCommResult = Buffer(1)
If intModeRtn = intMode Then
If intCommResult = GOOD Then
cmdBroadcast.Enabled = True
txtFreq.Text = sngTestFreq
MsgBox "The AFeL is ready to begin broadcasting", vbOKOnly,
"Success"
Else
If intCommResult = BAD Then
MsgBox "Please choose a different frequency", vbOKOnly,
"Unclear Frequency"
Else
MsgBox "error", vbOKOnly
End If
End If
Else
MsgBox "error", vbOKOnly
End If
End Sub
Private Sub cmdDecrement_Click()
txtFreq.Text = Round((CSng(txtFreq.Text) - 0.2), 1)
If (txtFreq.Text < 92.3) Then
txtFreq.Text = 107.9
End If
End Sub
Comentarios a estos manuales