Написать программу-аналог Nokia Monitor test для тестирования TFT мониторов - VB
Формулировка задачи:
Хочу написать программу аналог Nokia Monitor test для тестирования TFT мониторов. В которой выводятся списком все доступные разрешения экрана. После выбора необходимого разрешения происходит автоматическая смена цветов (белый, красный, синий, черный, зеленый) с любым интервалом. После смены цветов следует простенькая настроечная таблица(белая сетка на черном фоне). После таблицы шахматная доска(чередование белых и черных квадратов).
Вот основная проблема у меня именно с таблицей, я не работал с графикой, поэтому если у кого-то есть исходники чего-то похожего буду очень признателен. Либо подскажите что почитать и от чего танцевать. Заранее спасибо
Решение задачи: «Написать программу-аналог Nokia Monitor test для тестирования TFT мониторов»
textual
Листинг программы
Dim X As Long, Y As Long, zv1 As Long, zv2 As Long Dim a As Single, b As Single, c As Single, d As Single Dim kolV As Integer, kolG As Integer Dim screen As Integer Private Sub RISOVANIE() Cls For c = 1 To kolG Step 1 For d = 1 To kolV Step 1 X = a * c Y = b * d If (c + d) Mod 2 = 0 Then Line (X - a, Y - b)-(X, Y), zv1, BF Else Line (X - a, Y - b)-(X, Y), zv2, BF Next d Next c End Sub Private Sub Form_Load() AutoRedraw = True Timer1.Interval = 3000 zv1 = vbWhite 'цвет первой клетки zv2 = vbBlack 'цвет второй клетки Shah End Sub Private Sub Vert() a = 100 'размер клеток по горизонтали b = 15000 'размер клеток по вертикали kolV = 1 'количество клеток по вертикали kolG = 200 'количество клеток по горизонтали RISOVANIE End Sub Private Sub Goriz() a = 16000 'размер клеток по горизонтали b = 100 'размер клеток по вертикали kolV = 200 'количество клеток по вертикали kolG = 1 'количество клеток по горизонтали RISOVANIE End Sub Private Sub Shah() a = 200 'размер клеток по горизонтали b = 200 'размер клеток по вертикали kolV = 50 'количество клеток по вертикали kolG = 100 'количество клеток по горизонтали RISOVANIE End Sub Private Sub Timer1_Timer() screen = screen + 1 If screen > 3 Then screen = 1 Select Case screen Case 1: Vert Case 2: Goriz Case 3: Shah End Select End Sub Private Sub Form_DblClick() Unload Me End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д