Ramsey Electronics FM25A Bedienungsanleitung PDF herunterladen (Seite 15)

End If

frmMain.Show

frmFirst.Hide

intMode = SCAN

'Sends three bytes to the device and reads two bytes back.

ReDim Buffer(2)

Buffer(0) = Int(Int(sngTestFreq * 10) / 256)

Buffer(1) = Int(sngTestFreq * 10) Mod 256

HIDComm1.WriteTo Buffer, 2

Buffer = HIDComm1.ReadFrom(2)

intModeRtn = Buffer(0)

intCommResult = Buffer(1)

If intModeRtn = intMode Then

If intCommResult = GOOD Then

frmMain.txtFreq.Text = sngTestFreq

frmMain.cmdBroadcast.Enabled = True

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

Else

MsgBox "error", vbOKOnly

End If

End Sub

1 2 ... 10 11 12 13 14 15 16 17 18 19 20 ... 28 29

Keine Kommentare

Ramsey Electronics FM25A Bedienungsanleitung Seite 15