Создать графический шум - VB

Формулировка задачи:

Раньше увлекался рисованием в QBasic, даже углублялся в математику. Но после перехода на VB прекратил это дело, хотя жалею. В QBasic-е мог бы спокойно нарисовать шум, как в телевизоре, когда нет сигнала, а в VB не знаю как это сделать. Подскажите? Знаю, что нужно создавать контрол PuctureBox и как-то в нём рисовать...

Решение задачи: «Создать графический шум»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    End
End Sub
 
Private Sub Form_Load()
    Dim lx As Long, ly As Long
    
    Show
    ScaleMode = vbPixels
    Do
        For ly = 0 To ScaleHeight
            While lx < ScaleWidth
                Line (lx, ly)-Step(Rnd * 15, 0), RGB(Rnd(0) * 255, Rnd(0) * 255, Rnd(0) * 255)
                lx = lx + Rnd(0) * 15
            Wend
            lx = 0
        Next
        DoEvents
    Loop
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

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

8 голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы