PSET. Как с помощью нее нарисовать синусоиду? - VB
Формулировка задачи:
Функция PSET. Как с помощью нее нарисовать синусоиду?
Решение задачи: «PSET. Как с помощью нее нарисовать синусоиду?»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim b As Integer
- Dim x As Integer
- Dim y As Integer
- x = 2000
- y = 2000
- Form1.DrawWidth = 1
- For b = 0 To 45
- PSet (2500 + (Sin(b)) * 200, 2500 + ((b) * 200)), vbBlue
- Next b
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
