form2.frm

天津大学电机试验台程序,可以测试电机启动电流

      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   12840
      TabIndex        =   26
      Top             =   4680
      Width           =   1095
   End
   Begin VB.Label Label13 
      Caption         =   "时间（s）"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   5640
      TabIndex        =   25
      Top             =   9000
      Width           =   1095
   End
   Begin VB.Label Label12 
      Caption         =   "时间（s）"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   5640
      TabIndex        =   24
      Top             =   4680
      Width           =   1095
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   6000
      TabIndex        =   3
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim marcount1, speedcount1, currentcount1 As Long
Dim marcount2, speedcount2, currentcount2 As Long
Dim t
Dim marx0, mary0, marx1, mary1, mar, tempmar, speedx0, speedy0, speedx1, speedy1, tempspeed, currentx0, currenty0, currentx1, currenty1, tempcurrent
Dim mard, speedd, currentd As Long

Dim currentf As Long
Dim speedf As Long
Dim marf As Long


Dim kzkey
Dim edkey
Dim qdkey
Dim dzkey

Dim ldn
Dim ldsum
Dim ldf
Dim ld

Dim n
Dim dirkey As Long

Private Sub Command4_Click()
Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""

ErrCde = DRV_DeviceClose(DeviceHandle)




Form2.Hide
Form3.Show

End Sub

Private Sub Command5_Click()
Set lddb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\零点")
Set ldrd = lddb.OpenRecordset("零点", dbOpenTable)

ldn = 0
ldsum = 0

Text5.Text = ""



Command5.Enabled = False
Timer2.Enabled = True



End Sub


Private Sub Command1_Click()
  End
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

If (List1.Text = "空载试验") Then
Set kzdb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\空载2")
Set kzrd = kzdb.OpenRecordset(reportname, dbOpenTable)
If (kzrd.BOF = True And kzrd.EOF = True) Then
kzkey = 1
reportrd.MoveLast
reportrd.Edit
reportrd.Fields("空载试验是否已做") = "是"
reportrd.Update
Else
kzrd.MoveFirst
kzkey = 2
End If
End If

If (List1.Text = "额定试验") Then
Set eddb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\额定2")
Set edrd = eddb.OpenRecordset(reportname, dbOpenTable)
If (edrd.BOF = True And edrd.EOF = True) Then
edkey = 1
reportrd.MoveLast
reportrd.Edit
reportrd.Fields("额定试验是否已做") = "是"
reportrd.Update
Else
edrd.MoveFirst
edkey = 2
End If
End If

If (List1.Text = "启动试验") Then
Set qddb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\启动2")
Set qdrd = qddb.OpenRecordset(reportname, dbOpenTable)
If (qdrd.BOF = True And qdrd.EOF = True) Then
qdkey = 1
reportrd.MoveLast
reportrd.Edit
reportrd.Fields("启动试验是否已做") = "是"
reportrd.Update
Else
qdrd.MoveFirst
qdkey = 2
End If
End If

If (List1.Text = "堵转试验") Then
Set dzdb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\堵转2")
Set dzrd = dzdb.OpenRecordset(reportname, dbOpenTable)
If (dzrd.BOF = True And dzrd.EOF = True) Then
dzkey = 1
reportrd.MoveLast
reportrd.Edit
reportrd.Fields("堵转试验是否已做") = "是"
reportrd.Update
Else
dzrd.MoveFirst
dzkey = 2
End If
End If



t = 0
n = 0

Shape1.Refresh
Shape2.Refresh
Shape3.Refresh

'Show
 Dim i As Integer, j As Integer
 
 'picture1画图
 Cls
 
 Picture1.Scale (0, 0)-(50, 25)
 For i = 1 To 24
 Picture1.Line (0, i)-(50, i)
 Next i
 Cls
 For j = 1 To 49
 Picture1.Line (j, 0)-(j, 25)
 Next j
 
 Cls
  Picture2.Scale (0, 0)-(50, 20)
 For i = 1 To 19
 Picture2.Line (0, i)-(50, i)
 Next i
 Cls
 For j = 1 To 49
 Picture2.Line (j, 0)-(j, 20)
 Next j
 
 
 Cls
  Picture3.Scale (0, 0)-(50, 20)
 For i = 1 To 19
 Picture3.Line (0, i)-(50, i)
 Next i
 Cls
 For j = 1 To 49
 Picture3.Line (j, 0)-(j, 20)
 Next j
 
X = Picture2.Left - 300
Y = Picture2.Top + Picture2.Height + 50
For reg1 = 0 To 5 Step 1
CurrentX = X + 150
CurrentY = Y + 0
Print reg1;
X = X + Picture2.Width / 5
Next reg1
 
X = Picture2.Left - 440
Y = Picture2.Top + Picture2.Height - 50
For reg1 = 0 To 3000 Step 300
CurrentX = X
CurrentY = Y
Print reg1;
Y = Y - Picture1.Height / 10
Next reg1
 
  'picture2画图
  
 
X = Picture1.Left - 300
Y = Picture1.Top + Picture1.Height + 50
For reg1 = 0 To 5 Step 1
CurrentX = X + 150
CurrentY = Y + 0
Print reg1;
X = X + Picture1.Width / 5
Next reg1
  
X = Picture1.Left - 350
Y = Picture1.Top + Picture1.Height - 50
For reg1 = 0 To 250 Step 25
CurrentX = X
CurrentY = Y
Print reg1;
Y = Y - Picture1.Height / 10
Next reg1

'picture3画图

X = Picture3.Left - 300
Y = Picture3.Top + Picture3.Height + 50
For reg1 = 0 To 5 Step 1
CurrentX = X + 150
CurrentY = Y + 0
Print reg1;
X = X + Picture3.Width / 5
Next reg1
 
 X = Picture3.Left - 350
Y = Picture3.Top + Picture3.Height - 50
For reg1 = 0 To 150 Step 15
CurrentX = X
CurrentY = Y
Print reg1;
Y = Y - Picture3.Height / 10
Next reg1

marx0 = Shape1.Left
mary0 = Shape1.Top + Shape1.Height
marx1 = Shape1.Left
mary1 = Shape1.Top + Shape1.Height

speedx0 = Shape2.Left
speedy0 = Shape2.Top + Shape2.Height
speedx1 = Shape2.Left
speedy1 = Shape2.Top + Shape2.Height

currentx0 = Shape3.Left
currenty0 = Shape3.Top + Shape3.Height
currentx1 = Shape3.Left
currenty1 = Shape3.Top + Shape3.Height

Command3.Enabled = False
Command2.Enabled = False
Command1.Enabled = False
Frame1.Enabled = False
Frame2.Enabled = False


Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Dim martempsum
Dim speedtempsum
Dim currenttempsum
Dim marn, speedn, currentn As Long

Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False

If (List1.Text = "额定试验") Then         '额定试验的结果
Set eddb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\额定2")
Set edrd = eddb.OpenRecordset(reportname)

 For i = 1 To 29
 edrd.MoveNext
 Next

  For i = 0 To 19
   edrd.MoveNext
   
   'If (Val(edrd.Fields(3)) <> 0) Then
   martempsum = martempsum + Val(edrd.Fields(3))
   marn = marn + 1
   'End If

   'If (Val(edrd.Fields(1)) <> 0) Then
   speedtempsum = speedtempsum + Val(edrd.Fields(1))
   speedn = speedn + 1
   'End If
   
   'If (Val(edrd.Fields(5)) <> 0) Then
   currenttempsum = currenttempsum + Val(edrd.Fields(5))
   currentn = currentn + 1
   'End If

  Next
  
 Text1.Text = Format(Str(currenttempsum / 20), "fixed")
 Text2.Text = Format(Str(martempsum / 20), "fixed")
 Text3.Text = Format(Str(speedtempsum / 20), "fixed")
 reportrd.MoveLast
 reportrd.Edit
 reportrd.Fields("试验额定转速") = Text3.Text
 reportrd.Fields("试验额定电流") = Text1.Text
 reportrd.Fields("试验额定转矩") = Text2.Text
 reportrd.Update
 End If                                           '结束

If (List1.Text = "空载试验") Then         '空载试验的结果
Set kzdb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\空载2")
Set kzrd = kzdb.OpenRecordset(reportname)

 For i = 1 To 29
 kzrd.MoveNext
 Next

  For i = 0 To 19
   kzrd.MoveNext
   
   If (Val(kzrd.Fields(3)) <> 0) Then
   martempsum = martempsum + Val(kzrd.Fields(3))
   marn = marn + 1
   End If

   If (Val(kzrd.Fields(1)) <> 0) Then
   speedtempsum = speedtempsum + Val(kzrd.Fields(1))
   speedn = speedn + 1
   End If
   
   If (Val(kzrd.Fields(5)) <> 0) Then
   currenttempsum = currenttempsum + Val(kzrd.Fields(5))
   currentn = currentn + 1
   End If

  Next
  
 Text1.Text = Format(Str(currenttempsum / 20), "fixed")
 Text2.Text = Format(Str(martempsum / 20), "fixed")
 Text3.Text = Format(Str(speedtempsum / 20), "fixed")
 reportrd.MoveLast
 reportrd.Edit
 reportrd.Fields("试验空载转速") = Text3.Text
 reportrd.Fields("试验空载电流") = Text1.Text
 reportrd.Fields("试验空载转矩") = Text2.Text
 reportrd.Update
End If                                           '结束

If (List1.Text = "启动试验") Then         '启动试验的结果
Set qddb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\启动2")
Set qdrd = qddb.OpenRecordset(reportname)

 For i = 1 To 29
 qdrd.MoveNext
 Next

  For i = 0 To 19
   qdrd.MoveNext
   
   If (Val(qdrd.Fields(3)) <> 0) Then
   martempsum = martempsum + Val(qdrd.Fields(3))
   marn = marn + 1
   End If

   If (Val(qdrd.Fields(1)) <> 0) Then
   speedtempsum = speedtempsum + Val(qdrd.Fields(1))
   speedn = speedn + 1
   End If
   
   If (Val(qdrd.Fields(5)) <> 0) Then
   currenttempsum = currenttempsum + Val(qdrd.Fields(5))
   currentn = currentn + 1
   End If

  Next
  
 Text1.Text = Format(Str(currenttempsum / 20), "fixed")
 Text2.Text = Format(Str(martempsum / 20), "fixed")
 If (speedn = 0) Then
 Text3.Text = "0"
 Else
 Text3.Text = Format(Str(speedtempsum / speedn), "fixed")
 End If
 reportrd.MoveLast
 reportrd.Edit
 reportrd.Fields("试验启动电流") = Text1.Text
 reportrd.Fields("试验启动转矩") = Text2.Text
 reportrd.Update
End If                                           '结束

If (List1.Text = "堵转试验") Then         '堵转试验的结果
Set dzdb = OpenDatabase("F:\天津大学电机试验台程序\试验台数据库\堵转2")
Set dzrd = dzdb.OpenRecordset(reportname)

 For i = 1 To 29
 dzrd.MoveNext
 Next

  For i = 0 To 19
   dzrd.MoveNext
   
   If (Val(dzrd.Fields(3)) <> 0) Then
   martempsum = martempsum + Val(dzrd.Fields(3))
   marn = marn + 1
   End If

   If (Val(dzrd.Fields(1)) <> 0) Then
   speedtempsum = speedtempsum + Val(dzrd.Fields(1))
   speedn = speedn + 1
   End If
   
   If (Val(dzrd.Fields(5)) <> 0) Then
   currenttempsum = currenttempsum + Val(dzrd.Fields(5))
   currentn = currentn + 1
   End If

  Next
  
 Text1.Text = Format(Str(currenttempsum / 20), "fixed")
 Text2.Text = Format(Str(martempsum / 20), "fixed")
 If (speedn = 0) Then
 Text3.Text = "0"
 Else
 Text3.Text = Format(Str(speedtempsum / speedn), "fixed")
 End If
 reportrd.MoveLast
 reportrd.Edit
 reportrd.Fields("试验堵转电流") = Text1.Text
 reportrd.Fields("试验堵转转矩") = Text2.Text
 reportrd.Update
End If                                           '结束

Frame1.Enabled = True
Frame2.Enabled = True

Command4.Enabled = True
Timer1.Enabled = False
Command2.Enabled = True
Command1.Enabled = True
End Sub

Private Sub Form_Load()
'If (form2load = False) Then
'Exit Sub
'Else