Ramsey Electronics FM25A Manual do Utilizador descarregar pdf (Página 19)

Private Sub cmdIncrement_Click()

txtFreq.Text = Round((CSng(txtFreq.Text) + 0.2), 1)

If (txtFreq.Text > 107.9) Then

txtFreq.Text = 92.3

End If

End Sub

Private Sub Form_Load()

ReDim Buffer(3)

frmFirst.Hide

frmMain.Hide

HIDComm1.Connect

cmdBroadcast.Enabled = False

sngBCFreq = GetSetting("AFEL", "STARTUP", "BCFreq", 25)

If sngBCFreq = 25 Then

sngBCFreq = 92.3

frmFirst.Show

Else

frmMain.Show

End If

txtFreq.Text = sngBCFreq

End Sub

Private Sub Form_Unload(Cancel As Integer)

If cmdBroadcast.Caption = "Cancel Broadcasting" Then

Call cmdBroadcast_Click

End If

HIDComm1.Disconnect

HIDComm1.Uninit

SaveSetting "AFEL", "STARTUP", "BCFreq", sngBCFreq

End Sub

Private Sub txtFreq_LostFocus()

cmdChkFreq.Enabled = True

cmdChkFreq.Default = True

cmdBroadcast.Enabled = False

On Error GoTo ErrorHandler

If ((txtFreq.Text * 10) Mod 2) <> 1 Then

txtFreq.Text = Round(CSng(txtFreq.Text) + 0.1, 1)

End If

If ((txtFreq.Text * 100) Mod 10) <> 0 Then

txtFreq.Text = Round(CSng(txtFreq.Text), 1)

End If

sngTestFreq = CSng(txtFreq.Text)

If sngTestFreq > 107.9 Or sngTestFreq < 92.3 Then

Err.Raise (13)

End If

Exit Sub

ErrorHandler:

txtFreq.Text = "92.3"

sngTestFreq = 92.3

1 2 ... 14 15 16 17 18 19 20 21 22 23 24 ... 28 29

Comentários a estes Manuais

Sem comentários

Ramsey Electronics FM25A Manual do Utilizador Página 19

Comentários a estes Manuais

Manuais e produtos relacionados com Transmissores FM Ramsey Electronics FM25A