VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H0080C0FF&
   Caption         =   "Логические функции"
   ClientHeight    =   4608
   ClientLeft      =   3984
   ClientTop       =   2208
   ClientWidth     =   3828
   LinkTopic       =   "Form1"
   ScaleHeight     =   4608
   ScaleWidth      =   3828
   Begin VB.CommandButton cmdF14 
      Caption         =   "F14"
      Height          =   375
      Left            =   1560
      TabIndex        =   27
      Top             =   3960
      Width           =   615
   End
   Begin VB.CommandButton cmdF13 
      Caption         =   "F13"
      Height          =   375
      Left            =   840
      TabIndex        =   26
      Top             =   3960
      Width           =   615
   End
   Begin VB.CommandButton cmdF12 
      Caption         =   "F12"
      Height          =   375
      Left            =   120
      TabIndex        =   25
      Top             =   3960
      Width           =   615
   End
   Begin VB.CommandButton cmdF11 
      Caption         =   "F11"
      Height          =   375
      Left            =   3000
      TabIndex        =   24
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton cmdF10 
      Caption         =   "F10"
      Height          =   375
      Left            =   2280
      TabIndex        =   23
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton cmdF7 
      Caption         =   "F7"
      Height          =   375
      Left            =   1560
      TabIndex        =   22
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton cmdF5 
      Caption         =   "F5"
      Height          =   375
      Left            =   840
      TabIndex        =   21
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton cmdF3 
      Caption         =   "F3"
      Height          =   375
      Left            =   120
      TabIndex        =   20
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton cmdEqv 
      Caption         =   "Eqv"
      Height          =   375
      Left            =   3000
      TabIndex        =   16
      Top             =   2760
      Width           =   615
   End
   Begin VB.CommandButton cmdXor 
      Caption         =   "Xor"
      Height          =   375
      Left            =   2280
      TabIndex        =   15
      Top             =   2760
      Width           =   615
   End
   Begin VB.CommandButton cmdNot 
      Caption         =   "Not"
      Height          =   375
      Left            =   1560
      TabIndex        =   14
      Top             =   2760
      Width           =   615
   End
   Begin VB.CommandButton cmdOr 
      Caption         =   "Or"
      Height          =   375
      Left            =   840
      TabIndex        =   13
      Top             =   2760
      Width           =   615
   End
   Begin VB.CommandButton cmdAnd 
      Caption         =   "And"
      Height          =   375
      Left            =   120
      TabIndex        =   12
      Top             =   2760
      Width           =   615
   End
   Begin VB.TextBox txtC 
      Height          =   375
      Index           =   3
      Left            =   2640
      TabIndex        =   11
      Top             =   2160
      Width           =   975
   End
   Begin VB.TextBox txtC 
      Height          =   375
      Index           =   2
      Left            =   2640
      TabIndex        =   10
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox txtC 
      Height          =   375
      Index           =   1
      Left            =   2640
      TabIndex        =   9
      Top             =   960
      Width           =   975
   End
   Begin VB.TextBox txtC 
      Height          =   375
      Index           =   0
      Left            =   2640
      TabIndex        =   8
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox txtB 
      Height          =   375
      Index           =   3
      Left            =   1440
      TabIndex        =   7
      Text            =   "True"
      Top             =   2160
      Width           =   975
   End
   Begin VB.TextBox txtB 
      Height          =   375
      Index           =   2
      Left            =   1440
      TabIndex        =   6
      Text            =   "False"
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox txtB 
      Height          =   375
      Index           =   1
      Left            =   1440
      TabIndex        =   5
      Text            =   "True"
      Top             =   960
      Width           =   975
   End
   Begin VB.TextBox txtB 
      Height          =   375
      Index           =   0
      Left            =   1440
      TabIndex        =   4
      Text            =   "False"
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox txtA 
      Height          =   375
      Index           =   3
      Left            =   240
      TabIndex        =   3
      Text            =   "True"
      Top             =   2160
      Width           =   975
   End
   Begin VB.TextBox txtA 
      Height          =   375
      Index           =   2
      Left            =   240
      TabIndex        =   2
      Text            =   "True"
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox txtA 
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   1
      Text            =   "False"
      Top             =   960
      Width           =   975
   End
   Begin VB.TextBox txtA 
      Height          =   375
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Text            =   "False"
      Top             =   360
      Width           =   975
   End
   Begin VB.Label lblF 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "F"
      Height          =   255
      Left            =   2880
      TabIndex        =   19
      Top             =   0
      Width           =   495
   End
   Begin VB.Label lblB 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "B"
      Height          =   255
      Left            =   1680
      TabIndex        =   18
      Top             =   0
      Width           =   495
   End
   Begin VB.Label lblA 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFFF&
      Caption         =   "A"
      Height          =   255
      Left            =   480
      TabIndex        =   17
      Top             =   0
      Width           =   495
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim blnA, blnB, blnC As Boolean
Private Sub cmdAnd_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA And blnB
txtC(bytI) = blnC
Next bytI
End Sub

Private Sub cmdOr_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA Or blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdNot_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = Not blnA
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdXor_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA Xor blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdEqv_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA Eqv blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF3_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA And Not blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF5_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = Not blnA And blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF7_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = (Not blnA And blnB) Or (blnA And Not blnB)
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF10_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = (Not blnA And Not blnB) Or (blnA And blnB)
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF11_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = Not blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF12_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = (Not blnA) Or blnB
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF13_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = Not blnA
txtC(bytI) = blnC
Next bytI
End Sub
Private Sub cmdF14_Click()
For bytI = 0 To 3
blnA = txtA(bytI)
blnB = txtB(bytI)
blnC = blnA Or Not blnB
txtC(bytI) = blnC
Next bytI
End Sub
