form7.frm

自己做的毕业设计,使用VB开发,希望对初学者有帮助

            Left            =   1560
            TabIndex        =   12
            Top             =   1080
            Width           =   1095
         End
         Begin VB.Label Label12 
            Caption         =   "nTV="
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   720
            TabIndex        =   16
            Top             =   3480
            Width           =   735
         End
         Begin VB.Label Label11 
            Caption         =   "nTA="
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   720
            TabIndex        =   14
            Top             =   2280
            Width           =   735
         End
         Begin VB.Label Label10 
            Caption         =   "MW"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   2760
            TabIndex        =   13
            Top             =   1080
            Width           =   375
         End
         Begin VB.Label Label9 
            Caption         =   "Pgn="
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   14.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   720
            TabIndex        =   11
            Top             =   1080
            Width           =   735
         End
      End
      Begin VB.Label Label8 
         Caption         =   "动作时间整定值：1-1.5秒 发信号    2-3分钟 跳闸"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   960
         TabIndex        =   8
         Top             =   6720
         Width           =   7575
      End
      Begin VB.Label Label7 
         Caption         =   "功率方向应为由系统至发电机"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   7
         Top             =   6000
         Width           =   4215
      End
      Begin VB.Label Label6 
         Caption         =   "P2为额定功率的1-n倍（n为发电机效率，一般取98.6%—98.7%）"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   6
         Top             =   5280
         Width           =   8535
      End
      Begin VB.Label Label5 
         Caption         =   "P1为额定功率的2%—4%"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   5
         Top             =   4680
         Width           =   3135
      End
      Begin VB.Label Label4 
         Caption         =   "其中："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   4
         Top             =   4200
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "Pop=Krel*(P1+p2)/(nTA*nTV)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   960
         TabIndex        =   3
         Top             =   3600
         Width           =   4095
      End
      Begin VB.Label Label2 
         Caption         =   "逆功率保护计算的主要步骤如下："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   840
         TabIndex        =   2
         Top             =   2880
         Width           =   4935
      End
      Begin VB.Label Label1 
         Caption         =   $"Form7.frx":0038
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   15.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1695
         Left            =   840
         TabIndex        =   1
         Top             =   960
         Width           =   10215
      End
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Text1.Text = 167
    Text2.Text = 1600
    Text3.Text = 180
End Sub

Private Sub Command2_Click()
    p = Text1.Text
    na = Text2.Text
    nv = Text3.Text
    Text4.Text = 0.6 * ((0.03 + 0.013) * p * 1000000) / na / nv
End Sub