simple.frm

一款开源基于电子电路理论支持编写的电子电路模拟和分析小软件

      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3720
      TabIndex        =   10
      Top             =   1440
      Width           =   375
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H80000004&
      Caption         =   "V"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3360
      TabIndex        =   9
      Top             =   2280
      Width           =   255
   End
   Begin VB.Line Line8 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   4560
      X2              =   4560
      Y1              =   1320
      Y2              =   2640
   End
   Begin VB.Line Line7 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   3720
      X2              =   4560
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Line Line6 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   1800
      X2              =   2640
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Line Line5 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   1800
      X2              =   1800
      Y1              =   2640
      Y2              =   1320
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   255
      Left            =   2640
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Line Line4 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   3240
      X2              =   3240
      Y1              =   2400
      Y2              =   2880
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   3120
      X2              =   3120
      Y1              =   2280
      Y2              =   3000
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   3240
      X2              =   4560
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      X1              =   1800
      X2              =   3120
      Y1              =   2640
      Y2              =   2640
   End
End
Attribute VB_Name = "SimpleCircuit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Dim ResAnswer As Long
Dim CurAnswer As Long
Dim VolAnswer As Long
Const vbkeyDecPt = 46

Private Sub AnsCur_Click() '输出工作电流
Current.Visible = True
AnsCur.Visible = False
CurAnswer = Val(Voltage.Text) / Val(Resistance.Text)
Current.Text = CurAnswer
End Sub

Private Sub AnsRes_Click() '输出工作电阻
Resistance.Visible = True
AnsRes.Visible = False
ResAnswer = Val(Voltage.Text) / Val(Current.Text)
Resistance.Text = ResAnswer
End Sub

Private Sub AnsVol_Click() '输出工作电压
Voltage.Visible = True
AnsVol.Visible = False
VolAnswer = Val(Current.Text) * Val(Resistance.Text)
Voltage.Text = VolAnswer
End Sub

Private Sub CheckCur_Click() '显示电流文本框

    If CheckCur.Value = Checked Then
        Current.Visible = True
        Current.SetFocus

        If CheckVol.Value = Checked Then
            AnsRes.Visible = True
        End If

        If CheckRes.Value = Checked Then
            AnsVol.Visible = True
        End If

    End If
End Sub

Private Sub CheckRes_Click() '显示电阻文本框

If CheckRes.Value = Checked Then
Resistance.Visible = True
Resistance.SetFocus
    
    If CheckVol.Value = Checked Then
    AnsCur.Visible = True
    End If
    
    If CheckCur.Value = Checked Then
    AnsVol.Visible = True
    End If
    
End If

End Sub

Private Sub CheckVol_Click() '显示电压文本框

If CheckVol.Value = Checked Then
Voltage.Visible = True
Voltage.SetFocus
    
    If CheckCur.Value = Checked Then
    AnsRes.Visible = True
    End If
    
    If CheckRes.Value = Checked Then
    AnsCur.Visible = True
    End If
    
End If


End Sub

Private Sub ClearAns_Click()
clear
End Sub

Private Sub Command1_Click()
Unload Me
Splash.Show
End Sub

Private Sub exit_Click()
End
End Sub
Private Sub Current_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or _
KeyAscii = vbKeyBack Or KeyAscii = vbkeyDecPt Then
Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub

Private Sub Form_Load()
clear
End Sub

Private Sub clear()
Voltage.Visible = False
Current.Visible = False
Resistance.Visible = False

AnsVol.Visible = False
AnsCur.Visible = False
AnsRes.Visible = False

CheckCur.Value = Unchecked
CheckVol.Value = Unchecked
CheckRes.Value = Unchecked

Voltage.Text = ""
Current.Text = ""
Resistance.Text = ""
End Sub

Private Sub MainMenu_Click()
clear
Splash.Show
Unload SimpleCircuit
End Sub

Private Sub ParallelC_Click()
clear
ParallelCircuit.Show
Unload SimpleCircuit
End Sub

Private Sub SeriesC_Click()
clear
SeriesCircuit.Show
Unload SimpleCircuit
End Sub

Private Sub AboutO_Click()
About.Show
End Sub
Private Sub Resistance_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or _
KeyAscii = vbKeyBack Or KeyAscii = vbkeyDecPt Then
Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub
Private Sub Voltage_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or _
KeyAscii = vbKeyBack Or KeyAscii = vbkeyDecPt Then
Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub