[Norte]

Люди-нелюди, подскажите, пожалуйста, как выглядит программка на Бейсике для вывода графика какой-либо функции? Или где можно скачать пособие, примеры - какую-нибудь подходящую литературу. Что-то у меня поток неудч в процессе поиска.

Comments

[Lacrua]

'Для функции Sin(x)

Screen 12

cls

For x=1 to 640 step 0.01

pset(x,sin(x)*20+240),14

next x



P.S. Это по памяти, должно работать, я уже год в Q BASIC не програмировал, если хочешь, могу дать код на Visual Basic.

[Norte]

Cпасибо ) Что есть эти числа? А если не sin? Хочу код на Visual Basic.

[Lacrua]

Это подпрограмма из моего Калькулятора, которая отвечяет за графики. Строит самые разные функции. Не знаю, сможешь ли ты заставить его работать.

Т.е. он то работает, тока тебе надобудет создать теже элементы какие были у меня.

Dim Xx As Single, Ii, Ii2, Ch As Integer

Private Sub Atg_Click(Index As Integer)

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Atn(Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub BACK_Click()

Graf.Visible = False

Graf.Enabled = False

Form1.Visible = True

Form1.Enabled = True

End Sub



Private Sub Command1_Click()

Fik.Cls

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub









Private Sub Catan_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, (Cos(Xx) / Sin(Xx)) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii



End Sub



















Private Sub Cos1_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Cos(Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Cos2_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Cos(Xx ^ 2) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii



End Sub



Private Sub EXIT_Click()

End

End Sub





















Private Sub Kub_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, (Xx ^ 3) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Kvadr_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, (Xx ^ 2) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Logor_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If

Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Exp(Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub







Private Sub OdelX_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, (1 / Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii



End Sub



Private Sub Sin1_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Sin(Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Sin2_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Sin(Xx ^ 2) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii



End Sub



Private Sub Stroit_Click()

Dim Ss, Ss1, Ss2 As String

Dim chis1, chis2, Lon As Integer

Ss = Func.Text

Lon = Len(Ss)



End Sub



Private Sub StLog_Click()

If Osn.Text = "" Then

Ch = 1

Else

Ch = Val(Osn.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -2 To 2 Step 0.001

Fik.Circle (Ch ^ Xx, Xx), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub StPok_Click()

If Ax.Text = "" Then

Ch = 1

Else

Ch = Val(Ax.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -2 To 2 Step 0.001

Fik.Circle (Xx, (Ch ^ Xx) + Val(Slog)), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Tan1_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Tan(Xx) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii

End Sub



Private Sub Tan2_Click()

If Func.Text = "" Then

Ch = 1

Else

Ch = Val(Func.Text)

End If



Fik.Scale (-10, 10)-(10, -10)

Fik.Line (-10, 0)-(10, 0)

For Ii = -10 To 10

Fik.Line (Ii, 0.3)-(Ii, 0)

Next Ii



Fik.Line (0, -10)-(0, 10)

For Ii2 = -10 To 10

Fik.Line (-0.2, Ii2)-(0, Ii2)

Next Ii2



For Xx = -10 To 10 Step 0.001

Fik.Circle (Xx, Tan(Xx ^ 2) * Ch), 0.02

Next Xx

For Ii = -10 To 10

Fik.PSet (0, Ii)

Fik.Print Ii

Next Ii

For Ii = -10 To 10

Fik.PSet (Ii, 0)

Fik.Print Ii

Next Ii



End Sub

[Lacrua]

Вот список объектов и их свойств, надеюсь поможет.





VB.Form Graf

BorderStyle = 0 'None

Caption = "Smart Calculator"

ClientHeight = 11520

ClientLeft = 2085

ClientTop = -120

ClientWidth = 11865

LinkTopic = "Form2"

MaxButton = 0 'False

MinButton = 0 'False

Picture = "Graf.frx":0000

ScaleHeight = 11520

ScaleWidth = 11865

ShowInTaskbar = 0 'False

StartUpPosition = 2 'CenterScreen



VB.CommandButton OdelX

BackColor = &H00FFC0C0&

Caption = "1/X"

DownPicture = "Graf.frx":2D7842

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 6120

Picture = "Graf.frx":2DC2E8

Style = 1 'Graphical

TabIndex = 25

Top = 9120

Width = 1335



VB.TextBox Slog

Alignment = 2 'Center

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00800000&

Height = 495

Left = 3960

TabIndex = 22

Top = 9600

Width = 615





VB.TextBox Ax

Alignment = 2 'Center

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00800000&

Height = 495

Left = 3000

TabIndex = 21

Top = 9600

Width = 615



VB.CommandButton StPok

BackColor = &H00FFC0C0&

Caption = ">>>"

DownPicture = "Graf.frx":2E0D8E

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 4680

Picture = "Graf.frx":2E5834

Style = 1 'Graphical

TabIndex = 20

Top = 9600

Width = 1335



VB.CommandButton StLog

BackColor = &H00FFC0C0&

Caption = ">>>"

DownPicture = "Graf.frx":2EA2DA

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 4680

Picture = "Graf.frx":2EED80

Style = 1 'Graphical

TabIndex = 19

Top = 9120

Width = 1335



VB.TextBox Osn

Alignment = 2 'Center

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "Arial"

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00800000&

Height = 360

Left = 3840

TabIndex = 17

Top = 9240

Width = 375



VB.CommandButton Atg

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Arctg(x)"

DownPicture = "Graf.frx":2F3826

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Index = 0

Left = 8760

Picture = "Graf.frx":2F82CC

Style = 1 'Graphical

TabIndex = 15

Top = 9600

Width = 1335



VB.CommandButton Catan

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Ctg(x)"

DownPicture = "Graf.frx":2FCD72

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 10080

Picture = "Graf.frx":301818

Style = 1 'Graphical

TabIndex = 14

Top = 9600

Width = 1335



VB.CommandButton Tan2

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Tg(x^2)"

DownPicture = "Graf.frx":3062BE

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 10080

Picture = "Graf.frx":30AD64

Style = 1 'Graphical

TabIndex = 13

Top = 9120

Width = 1335



VB.CommandButton Cos2

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Cos(x^2)"

DownPicture = "Graf.frx":30F80A

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 8760

Picture = "Graf.frx":3142B0

Style = 1 'Graphical

TabIndex = 12

Top = 10560

Width = 1335



VB.CommandButton Sin2

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Sin(x^2)"

DownPicture = "Graf.frx":318D56

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 10080

Picture = "Graf.frx":31D7FC

Style = 1 'Graphical

TabIndex = 11

Top = 10560

Width = 1335



VB.CommandButton Logor

BackColor = &H00FFC0C0&

Caption = "Exp"

DownPicture = "Graf.frx":3222A2

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 7440

Picture = "Graf.frx":326D48

Style = 1 'Graphical

TabIndex = 10

Top = 9600

Width = 1335



VB.CommandButton Kvadr

BackColor = &H00FFC0C0&

Caption = "X^2"

DownPicture = "Graf.frx":32B7EE

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 6120

Picture = "Graf.frx":330294

Style = 1 'Graphical

TabIndex = 9

Top = 9600

Width = 1335

End

[Lacrua]

Продолжение.



VB.CommandButton Kub

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "X^3"

DownPicture = "Graf.frx":334D3A

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 8760

Picture = "Graf.frx":3397E0

Style = 1 'Graphical

TabIndex = 8

Top = 9120

Width = 1335



VB.CommandButton Command1

BackColor = &H00FFC0C0&

Caption = "Сброс"

DownPicture = "Graf.frx":33E286

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 3360

Picture = "Graf.frx":342D2C

Style = 1 'Graphical

TabIndex = 7

Top = 10320

Width = 1335



VB.PictureBox Fik

BackColor = &H00FFCBC8&

Height = 8385

Left = 360

ScaleHeight = 8395.106

ScaleMode = 0 'User

ScaleWidth = 11098.01

TabIndex = 6

Top = 480

Width = 11085



VB.CommandButton Sin1

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Sin(x)"

DownPicture = "Graf.frx":3477D2

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 10080

Picture = "Graf.frx":34C278

Style = 1 'Graphical

TabIndex = 5

Top = 10080

Width = 1335



VB.CommandButton Cos1

Appearance = 0 'Flat

BackColor = &H00FFC0C0&

Caption = "Cos(x)"

DownPicture = "Graf.frx":350D1E

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 8760

Picture = "Graf.frx":3557C4

Style = 1 'Graphical

TabIndex = 4

Top = 10080

Width = 1335



VB.CommandButton Tan1

BackColor = &H00FFC0C0&

Caption = "Tg(x)"

DownPicture = "Graf.frx":35A26A

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 7440

Picture = "Graf.frx":35ED10

Style = 1 'Graphical

TabIndex = 3

Top = 9120

Width = 1335



VB.TextBox Func

Alignment = 2 'Center

BackColor = &H00FFC0C0&

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H00800000&

Height = 495

Left = 7440

TabIndex = 2

Top = 10080

Width = 1335



VB.CommandButton BACK

BackColor = &H00FFC0C0&

Caption = "НАЗАД"

DisabledPicture = "Graf.frx":3637B6

DownPicture = "Graf.frx":36825C

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 480

Picture = "Graf.frx":36CD02

Style = 1 'Graphical

TabIndex = 1

Top = 10320

Width = 1335



VB.CommandButton EXIT

BackColor = &H00FFC0C0&

Caption = "ВЫХОД"

DisabledPicture = "Graf.frx":3717A8

DownPicture = "Graf.frx":37624E

BeginProperty Font

Name = "MS Sans Serif"

Size = 13.5

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 1920

Picture = "Graf.frx":37ACF4

Style = 1 'Graphical

TabIndex = 0

Top = 10320

Width = 1335



VB.Label Label3

Alignment = 2 'Center

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "x"

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H0000FFFF&

Height = 330

Left = 3600

TabIndex = 24

Top = 9480

Width = 195



VB.Label Label2

Alignment = 2 'Center

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "Y= +"

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H0000FFFF&

Height = 330

Left = 2160

TabIndex = 23

Top = 9720

Width = 1755



VB.Label Label1

Alignment = 2 'Center

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "Y=LOG X"

BeginProperty Font

Name = "Arial"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H0000FFFF&

Height = 330

Left = 2760

TabIndex = 18

Top = 9120

Width = 1665



VB.Label Label15

Alignment = 2 'Center

AutoSize = -1 'True

BackStyle = 0 'Transparent

Caption = "Домножить на"

BeginProperty Font

Name = "Arial"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H0000FFFF&

Height = 285

Left = 5640

TabIndex = 16

Top = 10080

Width = 1755



VB.Image Image1

Appearance = 0 'Flat

Height = 11760

Left = -240

Picture = "Graf.frx":37F79A

Stretch = -1 'True

Top = -120

Width = 12375