Меню сайтаПолезные страничкиОтбравить SMS сообщение БЕСПЛАТНО |
Лабораторная работа по MicrosoftVisualBasic № 3 Проект «Построение графика функций»
Для большей понятности программного кода будем вводить в него комментарии, которые начинаются с символа «’».
Dim sngX As Single, intI As Integer Private Sub cmd1_Click() ‘Задание масштаба Picture1.Scale (-10, 2)-(10, -2) 'Построение графика For sngX = -10 To 10 Step 0.01 Picture1.PSet (sngX, Sin(sngX)) Next sngX 'ось Х Picture1.Line (-10, 0)-(10, 0) For intI = -10 To 10 Picture1.PSet (intI, 0) Picture1.Print intI Next intI 'ось У Picture1.Line (0, 2)-(0, -2) For intI = -2 To 2 Picture1.PSet (0, intI) Picture1.Print intI Next intI End Sub
|