VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00800000&
   Caption         =   "Графический редактор"
   ClientHeight    =   5145
   ClientLeft      =   2880
   ClientTop       =   1590
   ClientWidth     =   8970
   LinkTopic       =   "Form1"
   PaletteMode     =   2  'Custom
   ScaleHeight     =   5145
   ScaleWidth      =   8970
   Begin VB.CommandButton txtCls 
      Caption         =   "Очистить"
      Height          =   375
      Left            =   3360
      TabIndex        =   31
      Top             =   4560
      Width           =   1695
   End
   Begin VB.TextBox txtAsp 
      Height          =   375
      Left            =   8040
      TabIndex        =   18
      Text            =   "1"
      Top             =   3480
      Width           =   375
   End
   Begin VB.TextBox txtAng2 
      Height          =   375
      Left            =   7560
      TabIndex        =   17
      Text            =   "6,28318530718"
      Top             =   3000
      Width           =   855
   End
   Begin VB.TextBox txtAng1 
      Height          =   375
      Left            =   7560
      TabIndex        =   16
      Text            =   "0"
      Top             =   2520
      Width           =   855
   End
   Begin VB.TextBox txtB 
      Height          =   375
      Left            =   8160
      TabIndex        =   15
      Text            =   "0"
      Top             =   2040
      Width           =   615
   End
   Begin VB.TextBox txtG 
      Height          =   375
      Left            =   8160
      TabIndex        =   14
      Text            =   "0"
      Top             =   1680
      Width           =   615
   End
   Begin VB.TextBox txtR 
      Height          =   375
      Left            =   8160
      TabIndex        =   13
      Text            =   "0"
      Top             =   1320
      Width           =   615
   End
   Begin VB.TextBox txtC 
      Height          =   375
      Left            =   6960
      TabIndex        =   12
      Text            =   "0"
      Top             =   1680
      Width           =   615
   End
   Begin VB.TextBox txtRad 
      Height          =   375
      Left            =   6600
      TabIndex        =   11
      Text            =   "0"
      Top             =   2880
      Width           =   615
   End
   Begin VB.TextBox txtY2 
      Height          =   375
      Left            =   7800
      TabIndex        =   10
      Text            =   "0"
      Top             =   720
      Width           =   615
   End
   Begin VB.TextBox txtX2 
      Height          =   375
      Left            =   7800
      TabIndex        =   9
      Text            =   "0"
      Top             =   240
      Width           =   615
   End
   Begin VB.TextBox txtY1 
      Height          =   375
      Left            =   6600
      TabIndex        =   8
      Text            =   "0"
      Top             =   720
      Width           =   615
   End
   Begin VB.TextBox txtX1 
      Height          =   375
      Left            =   6600
      TabIndex        =   7
      Text            =   "0"
      Top             =   240
      Width           =   615
   End
   Begin VB.CommandButton cmdCircle 
      Caption         =   "Окружность"
      Height          =   495
      Left            =   120
      TabIndex        =   6
      Top             =   3840
      Width           =   1695
   End
   Begin VB.CommandButton cmdPoint 
      Caption         =   "Точка"
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   960
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineBF 
      Caption         =   "Закрашенный прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineB 
      Caption         =   "Прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   2400
      Width           =   1695
   End
   Begin VB.CommandButton cmdLine 
      Caption         =   "Линия"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1680
      Width           =   1695
   End
   Begin VB.PictureBox picPaint 
      BackColor       =   &H00FFFFFF&
      DrawWidth       =   5
      Height          =   4000
      Left            =   2160
      ScaleHeight     =   3945
      ScaleMode       =   0  'User
      ScaleWidth      =   3495.017
      TabIndex        =   1
      Top             =   240
      Width           =   4000
   End
   Begin VB.CommandButton cmdScale 
      Caption         =   "Система координат"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1695
   End
   Begin VB.Label lblE 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Сжатие"
      Height          =   375
      Left            =   7320
      TabIndex        =   30
      Top             =   3480
      Width           =   735
   End
   Begin VB.Label lblA2 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "A2"
      Height          =   375
      Left            =   7320
      TabIndex        =   29
      Top             =   3000
      Width           =   255
   End
   Begin VB.Label lblA1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "A1"
      Height          =   375
      Left            =   7320
      TabIndex        =   28
      Top             =   2520
      Width           =   255
   End
   Begin VB.Label lblRad 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "R"
      Height          =   375
      Left            =   6360
      TabIndex        =   27
      Top             =   2880
      Width           =   255
   End
   Begin VB.Label lblB 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Blue"
      Height          =   375
      Left            =   7680
      TabIndex        =   26
      Top             =   2040
      Width           =   495
   End
   Begin VB.Label lblG 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Green"
      Height          =   375
      Left            =   7680
      TabIndex        =   25
      Top             =   1680
      Width           =   495
   End
   Begin VB.Label lblR 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Red"
      Height          =   375
      Left            =   7680
      TabIndex        =   24
      Top             =   1320
      Width           =   495
   End
   Begin VB.Label lblC 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Цвет"
      Height          =   375
      Left            =   6360
      TabIndex        =   23
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label lblY2 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Y2"
      Height          =   375
      Left            =   7560
      TabIndex        =   22
      Top             =   720
      Width           =   255
   End
   Begin VB.Label lblX2 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "X2"
      Height          =   375
      Left            =   7560
      TabIndex        =   21
      Top             =   240
      Width           =   255
   End
   Begin VB.Label lblY1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "Y1"
      Height          =   375
      Left            =   6360
      TabIndex        =   20
      Top             =   720
      Width           =   255
   End
   Begin VB.Label lblX1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0FFC0&
      Caption         =   "X1"
      Height          =   375
      Left            =   6360
      TabIndex        =   19
      Top             =   240
      Width           =   255
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytX1, bytX2, bytY1, bytY2, bytC, bytR, bytG, bytB, bytRad As Byte, sngA1, sngA2, sngAsp As Single, lngC As Long
Private Sub cmdScale_Click()
picPaint.Scale (0, 100)-(100, 0)
End Sub
Private Sub cmdPoint_Click()
bytX1 = Val(txtX1)
bytY1 = Val(txtY1)
If Val(txtC.Text) > 0 _
Then lngC = QBColor(Val(txtC)) _
Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB)
picPaint.PSet (bytX1, bytY1), lngC
End Sub
Private Sub cmdLine_Click()
bytX1 = Val(txtX1)
bytY1 = Val(txtY1)
bytX2 = Val(txtX2)
bytY2 = Val(txtY2)
If Val(txtC.Text) > 0 _
Then lngC = QBColor(Val(txtC)) _
Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB)
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC
End Sub
Private Sub cmdLineB_Click()
bytX1 = Val(txtX1)
bytY1 = Val(txtY1)
bytX2 = Val(txtX2)
bytY2 = Val(txtY2)
If Val(txtC.Text) > 0 _
Then lngC = QBColor(Val(txtC)) _
Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB)
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC, B
End Sub
Private Sub cmdLineBF_Click()
bytX1 = Val(txtX1)
bytY1 = Val(txtY1)
bytX2 = Val(txtX2)
bytY2 = Val(txtY2)
If Val(txtC.Text) > 0 _
Then lngC = QBColor(Val(txtC)) _
Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB)
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC, BF
End Sub
Private Sub cmdCircle_Click()
bytX1 = Val(txtX1)
bytY1 = Val(txtY1)
bytRad = Val(txtRad)
sngA1 = Val(txtAng1)
sngA2 = Val(txtAng2)
sngAsp = Val(txtAsp)
If Val(txtC.Text) > 0 _
Then lngC = QBColor(Val(txtC)) _
Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB)
picPaint.Circle (bytX1, bytY1), bytRad, lngC, sngA1, sngA2, sngAsp
End Sub
Private Sub txtCls_Click()
picPaint.Cls
End Sub
