form1.frm

频率自动测量系统是一个用于测量电子元件的软硬件综合系统。本系统由几个部分组成

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5355
   ClientLeft      =   1185
   ClientTop       =   930
   ClientWidth     =   6345
   LinkTopic       =   "Form1"
   ScaleHeight     =   5355
   ScaleWidth      =   6345
   Begin VB.TextBox Text4 
      Height          =   495
      Left            =   2520
      TabIndex        =   9
      Top             =   3600
      Width           =   855
   End
   Begin VB.PictureBox Picture1 
      Height          =   495
      Left            =   3360
      ScaleHeight     =   435
      ScaleWidth      =   675
      TabIndex        =   7
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox Text3 
      Height          =   615
      Left            =   480
      TabIndex        =   6
      Top             =   2040
      Width           =   2295
   End
   Begin VB.CommandButton Command2 
      Caption         =   "断开"
      Height          =   615
      Left            =   3480
      TabIndex        =   5
      Top             =   4200
      Width           =   1575
   End
   Begin VB.Timer OverTimer 
      Left            =   5280
      Top             =   1320
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   5280
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      CommPort        =   3
      DTREnable       =   -1  'True
      InputMode       =   1
   End
   Begin VB.CommandButton Command1 
      Caption         =   "接通"
      Height          =   615
      Left            =   720
      TabIndex        =   4
      Top             =   4200
      Width           =   1575
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   480
      TabIndex        =   1
      Top             =   1320
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   2295
   End
   Begin VB.Label Label4 
      Caption         =   "请在这里输入连接设备号码"
      Height          =   255
      Left            =   1800
      TabIndex        =   10
      Top             =   3360
      Width           =   2295
   End
   Begin VB.Label Label3 
      Height          =   495
      Left            =   4440
      TabIndex        =   8
      Top             =   2280
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "接受"
      Height          =   375
      Left            =   3480
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "发送"
      Height          =   375
      Left            =   3480
      TabIndex        =   2
      Top             =   600
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TranBuf(128) As Byte
Dim targer As Byte

Private Sub Command1_Click()
Dim dat() As Byte, I As Integer

If Text4.Text = 1 Then targer = T_ADDR1
If Text4.Text = 2 Then targer = T_ADDR2
If Text4.Text = 3 Then targer = T_ADDR3
If Text4.Text = 4 Then targer = T_ADDR4
If Text4.Text = 5 Then targer = T_ADDR5
If Text4.Text = 6 Then targer = T_ADDR6
If Text4.Text = 7 Then targer = T_ADDR7
If Text4.Text = 8 Then targer = T_ADDR8
If Text4.Text = 9 Then targer = T_ADDR9
If Text4.Text = 10 Then targer = T_ADDR10
If Text4.Text = 11 Then targer = T_ADDR11
If Text4.Text = 12 Then targer = T_ADDR12
If Text4.Text = 13 Then targer = T_ADDR13
If Text4.Text = 14 Then targer = T_ADDR14
If Text4.Text = 15 Then targer = T_ADDR15
If Text4.Text = 16 Then targer = T_ADDR16
If Text4.Text = 17 Then targer = T_ADDR17
If Text4.Text = 18 Then targer = T_ADDR18
If Text4.Text = 19 Then targer = T_ADDR19
If Text4.Text = 20 Then targer = T_ADDR20


If COMM_isSendOverFlag = True Then
 COMM_CurDestADDR = Power_ADDR
 COMM_PacketData_On targer, COMM_CurDestADDR, dat, COMM_SendPacket
 COMM_StartSendData
 End If

End Sub

Private Sub Command2_Click()
Dim dat() As Byte, I As Integer

If Text4.Text = 1 Then targer = T_ADDR1
If Text4.Text = 2 Then targer = T_ADDR2
If Text4.Text = 3 Then targer = T_ADDR3
If Text4.Text = 4 Then targer = T_ADDR4
If Text4.Text = 5 Then targer = T_ADDR5
If Text4.Text = 6 Then targer = T_ADDR6
If Text4.Text = 7 Then targer = T_ADDR7
If Text4.Text = 8 Then targer = T_ADDR8
If Text4.Text = 9 Then targer = T_ADDR9
If Text4.Text = 10 Then targer = T_ADDR10
If Text4.Text = 11 Then targer = T_ADDR11
If Text4.Text = 12 Then targer = T_ADDR12
If Text4.Text = 13 Then targer = T_ADDR13
If Text4.Text = 14 Then targer = T_ADDR14
If Text4.Text = 15 Then targer = T_ADDR15
If Text4.Text = 16 Then targer = T_ADDR16
If Text4.Text = 17 Then targer = T_ADDR17
If Text4.Text = 18 Then targer = T_ADDR18
If Text4.Text = 19 Then targer = T_ADDR19
If Text4.Text = 20 Then targer = T_ADDR20


If COMM_isSendOverFlag = True Then
 COMM_CurDestADDR = Power_ADDR
 COMM_PacketData_Off targer, COMM_CurDestADDR, dat, COMM_SendPacket
 COMM_StartSendData
 End If

End Sub

Private Sub Form_Load()
 For I = 0 To 127
   t = I
   For J = 0 To 6
    
   Next J
 Next
 On Error GoTo sub1

MSComm1.CommPort = 3 '...使用Com3口

MSComm1.Settings = "1200,n,8,1" '...设置通讯参数

MSComm1.PortOpen = True '...打开串口

MSComm1.RThreshold = 1  '开启触发事件

MSComm1.InBufferCount = 0                         ' 清接收缓冲区

MSComm1.OutBufferCount = 0

COMM_Init OverTimer, MSComm1, MSComm1
sub1:  Exit Sub
End Sub
Private Sub MSComm1_OnComm()
MSCommCtl_OnComm
End Sub


Private Sub OVerTimer_Timer()

overtime_timer_timer

End Sub
Private Sub Form_Unload(Cancel As Integer)
  COMM_End
End Sub