Краткий курс по изучению языка (стр. 5 из 5)
Заключение
Вот мы и подошли к концу этого небольшого курса для начинающих. Мы рассмотрели основные принципы программирования на Visual Basic.
Успехов вам в программировании!
Литература:
- Сайт http://vb.hut.ru
- А. Волков - Электронный учебник «Visual Basic – крепкий орешек!».
- Н. Угринович - Информатика и информационные технологии. 10-11 кл. М. БИНОМ, 2006.
Модель «Решение квадратного уравнения»
Private Sub cmdCalculate_Click()
'объявляем переменные
Dim paramA As Double
Dim paramB As Double
Dim paramC As Double
Dim R As Integer
Dim D As Double
Dim x1 As Double
Dim x2 As Double
'присваиваим им значения из текстовых полей
paramA = Val(txtParamA.Text)
paramB = Val(txtParamB.Text)
paramC = Val(txtParamC.Text)
'проверка на а=0
If paramA = 0 Then
MsgBox "А=0 не допускается!", vbCritical
Exit Sub
End If
'вычисляем дискреминант
D = paramB * paramB - 4 * paramA * paramC
'решаем уравнение и выводим результат в метки Label
If D > 0 Then
x1 = (-paramB + Sqr(D)) / (2 * paramA)
x2 = (-paramB - Sqr(D)) / (2 * paramA)
lblD.Caption = "Дискреминант D=" & D
lblX1.Caption = "x1 = " & x1
lblX2.Caption = "x2 = " & x2
ElseIf D = 0 Then
x1 = -paramB / (2 * paramA)
lblD.Caption = "Дискреминант D=" & D
lblX1.Caption = "x=" & x1
lblX2.Caption = ""
Else
lblD.Caption = "Дискреминант D=" & D
lblX1.Caption = "Нет решений"
lblX2.Caption = ""
'можно добавить выводное поле с предупреждающей информацией
R = MsgBox("Дискреминант меньше нуля! Корней нет!", 48, "Внимание!")
End If
End Sub
Модель «Графики тригонометрических функций»
Программа (программный код):
Dim I As Integer
Dim X As Double
Dim Y As Double
Private Sub cmdCK_Click()
picGrap.Scale (-10, 5)-(10, -5)
picGrap.Line (-10, 0)-(10, 0)
For I = -10 To 10
picGrap.PSet (I, 0)
picGrap.Print I
Next I
picGrap.Line (0, -5)-(0, 5)
For I = -5 To 5
picGrap.PSet (0, I)
picGrap.Print I
Next I
End Sub
Private Sub cmdCLS_Click()
picGrap.Cls
End Sub
Private Sub cmdSin_Click()
For X = -10 To 10 Step 0.03
Y = Sin(X)
picGrap.PSet (X, Y)
Next X
End Sub
Private Sub cmdCos_Click()
For X = -10 To 10 Step 0.03
Y = Cos(X)
picGrap.PSet (X, Y)
Next X
End Sub
Private Sub cmdTg_Click()
For X = -10 To 10 Step 0.03
Y = Tan(X)
picGrap.PSet (X, Y)
Next X
End Sub
Private Sub cmdCtg_Click()
For X = -10 To 10 Step 0.03
Y = 1 / Tan(X)
picGrap.PSet (X, Y)
Next X
End Sub
Имеется возможность очистки экрана и построения графиков по одному, по два, по три или все четыре. А также замены функций на другой вид, до четырех видов, возможность графического решения уравнений и неравенств.