Ramsey Electronics FM25A Manual de usuario Pagina 18

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 29
  • Tabla de contenidos
  • SOLUCIÓN DE PROBLEMAS
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 17
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
Vista de pagina 17
1 2 ... 13 14 15 16 17 18 19 20 21 22 23 ... 28 29

Comentarios a estos manuales

Sin comentarios