term.frm

在VB中实现通讯的例子

  TheBaudCode = Baud4800
  Call ShowConfig
End Sub

Sub menu57600_Click ()
  Call UncheckBaudRate
  menu57600.Checked = True
  TheBaudCode = Baud57600
  Call ShowConfig
End Sub

Sub menu9600_Click ()
  Call UncheckBaudRate
  menu9600.Checked = True
  TheBaudCode = Baud9600
  Call ShowConfig
End Sub

Sub menuBREAK_Click ()
Dim Code As Integer
mioState = 0
xyState = 0
asState = 0
Code = mioBreak(ThePort)
Code = xyAbort(ThePort)
Code = ascAbort()
menuDial.Enabled = True
menuBREAK.Enabled = False
End Sub

Sub menuCOM1_Click ()
  Call UncheckComPorts
  menuCOM1.Checked = True
  ThePort = COM1
  Call ShowConfig
End Sub

Sub menuCOM2_Click ()
  Call UncheckComPorts
  menuCOM2.Checked = True
  ThePort = COM2
  Call ShowConfig
End Sub

Sub menuCOM3_Click ()
  Call UncheckComPorts
  menuCOM3.Checked = True
  ThePort = COM3
  Call ShowConfig
End Sub

Sub menuCOM4_Click ()
  Call UncheckComPorts
  menuCOM4.Checked = True
  ThePort = COM4
  Call ShowConfig
End Sub

Sub menuDial_Click ()
AcceptPane.Caption = "Phone Number?"
menuDial.Enabled = False
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
WaitingFor = PHONE_NUMBER
End Sub

Sub menuEight_Click ()
  Call UncheckDataBits
  menuEight.Checked = True
  TheDataBits = WordLength8
  Call ShowConfig
End Sub

Sub menuEven_Click ()
  Call UncheckParity
  menuEven.Checked = True
  TheParity = EvenParity
  Call ShowConfig
End Sub

Sub menuExit_Click ()
  Call GoOffLine
  End
End Sub

Sub menuHigh_Click ()
  Dim Code As Integer
  DebugLevel = 2
  Code = xyDebug(DebugLevel)
  Call DisplayLine(TERM, "Debug level is HIGH")
End Sub

Sub menuLow_Click ()
  Dim Code As Integer
  DebugLevel = 1
  Code = xyDebug(DebugLevel)
  Call DisplayLine(TERM, "Debug level is LOW")
End Sub

Sub menuNone_Click ()
  Call UncheckParity
  menuNone.Checked = True
  TheParity = NoParity
  Call ShowConfig
End Sub

Sub menuOdd_Click ()
  Call UncheckDataBits
  menuOdd.Checked = True
  TheParity = OddParity
  Call ShowConfig
End Sub

Sub menuOffLine_Click ()
  menuChange.Enabled = True
  menuOffline.Enabled = False
  menuOnline.Enabled = True
  menuDial.Enabled = False
  menuSend.Enabled = False
  menuReceive.Enabled = False
  menuParam.Enabled = False
  bProgress.Visible = False
  Call GoOffLine
  Call ShowConfig
End Sub

Sub menuOne_Click ()
  Call UncheckStopBits
  menuOne.Checked = True
  TheStopBits = OneStopBit
  Call ShowConfig
End Sub

Sub menuOnLine_Click ()
  menuOffline.Enabled = True
  menuOnline.Enabled = False
  menuChange.Enabled = False
  menuDial.Enabled = True
  menuSend.Enabled = True
  menuReceive.Enabled = True
  menuParam.Enabled = True
  Call DisplayInit(TERM)
  Call GoOnLine
  Call ShowConfig
End Sub

Sub menuRXascii_Click ()
  AcceptPane.Caption = "Ascii Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = AS_FILE_NAME
  FirstASstate = RX_AS
End Sub

Sub menuRXxmodem_Click ()
  AcceptPane.Caption = "XM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = RX_XM
End Sub

Sub menuRXymodem_Click ()
  menuBREAK.Enabled = True
  LastPacket = -1
  AcceptText.Text = ""

  '*** YMODEM: we get filename from sender ***
  'filename supplied by sender
  '''xyState = RX_YM

  '*** YMODEM: we specify filename on this side ***
  AcceptPane.Caption = "YM Filename?"
  AcceptPane.Visible = True
  WaitingFor = XY_FILE_NAME
  FirstXYstate = RX_YM
  
End Sub

Sub menuSeven_Click ()
  Call UncheckDataBits
  menuSeven.Checked = True
  TheDataBits = WordLength7
  Call ShowConfig
End Sub

Sub menuStatus_Click ()
Dim N As Integer
Dim Parm As Integer
Dim Text As String * 81
'display state variables
Call DisplayLine(TERM, "mioState = " + Str$(mioState))
Call DisplayLine(TERM, "xyState = " + Str$(xyState))
' any messages from xyDriver ?
While xyGetMessage(Text, 80) > 0
  Call DisplayLine(TERM, Text)
Wend
Call DisplayLine(TERM, "asState = " + Str$(asState))
' any messages from ascDriver ?
While ascGetMessage(Text, 80) > 0
  Call DisplayLine(TERM, Text)
Wend
TERM.bProgress.Visible = True
End Sub

Sub menuTwo_Click ()
  Call UncheckStopBits
  menuTwo.Checked = True
  TheStopBits = TwoStopBits
  Call ShowConfig
End Sub

Sub menuTXascii_Click ()
  AcceptPane.Caption = "Ascii Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = AS_FILE_NAME
  FirstASstate = TX_AS
End Sub

Sub menuTXxmodem_Click ()
  AcceptPane.Caption = "XM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = TX_XM
End Sub

Sub menuTXymodem_Click ()
  AcceptPane.Caption = "YM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = TX_YM
End Sub

Sub mEOF_0_Click ()
  Dim Code As Integer
  'set &H00 as EOF charcter
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, 0)
End Sub

Sub mEOF_Blank_Click ()
  Dim Code As Integer
  'set blank as EOF charcter
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, &H20)
End Sub

Sub mEOF_Z_Click ()
  Dim Code As Integer
  'set ^Z as EOF character
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, 26)
End Sub

Sub ShowVersion ()
  Dim Version As Integer
  Dim A, B, C As String
  Version = SioInfo(Asc("V"))
  C = Hex$(&HF And Version)
  Version = Version / 16
  B = Hex$(&HF And Version)
  Version = Version / 16
  A = Hex$(&HF And Version)
  Call DisplayLine(TERM, "WSC Version " + A + "." + B + "." + C)
End Sub

Sub Timer_Timer ()
  If OnLineFlag Then
    'get incoming serial data
    Call GetIncoming
  End If
End Sub

Sub Timer1_Timer ()
  If OnLineFlag Then
    'get incoming serial data
    Call GetIncoming
  End If
End Sub

Sub UncheckBaudRate ()
'uncheck all baud rates
menu1200.Checked = False
menu2400.Checked = False
menu4800.Checked = False
menu9600.Checked = False
menu19200.Checked = False
menu38400.Checked = False
menu57600.Checked = False
End Sub

Sub UncheckComPorts ()
'uncheck all COM ports
menuCOM1.Checked = False
menuCOM2.Checked = False
menuCOM3.Checked = False
menuCOM4.Checked = False
End Sub

Sub UncheckDataBits ()
'uncheck data bits
menuSeven.Checked = False
menuEight.Checked = False
End Sub

Sub UncheckParity ()
'uncheck parity
menuOdd.Checked = False
menuEven.Checked = False
menuTwo.Checked = False

End Sub

Sub UncheckStopBits ()
'uncheck stop bits
menuOne.Checked = False
menuNone.Checked = False
End Sub