Как разбить шкалу на одинаковые отрезки - VB
Формулировка задачи:
Помогите пожалуйста может кто алгоритм какой знает.
Дана шкала в диапозоне [-20;20] . Как её разбить на одинаковые отрезки если взять любые значения из этого диапозона например [-5;6].
Шкала рисуется с помощью метода Line как я понимаю но как её разбить ума не приложу, помогите пожалуйста
Решение задачи: «Как разбить шкалу на одинаковые отрезки»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim BytI As Integer
- 'Задание масштаба и новой системы координат
- Picture1.Scale (-20, 20)-(20, -20)
- Picture1.Line (-20, 0)-(20, 0)
- For BytI = -20 To 20
- Picture1.PSet (BytI, 0) 'Рисуем масштаб на оси Х
- Picture1.Print BytI; 'Подписываем масштаб
- Next BytI
- 'Ось Y
- Picture1.Line (0, 20)-(0, -20)
- For BytI = -20 To 20
- Picture1.PSet (0, BytI) 'Рисуем масштаб на оси У
- Picture1.Print BytI; 'Подписываем масштаб
- Next BytI
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
