Написать программу-аналог 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы