Keskustelu: Koodit: VB6: RGB-värit

Dim pun As Variant, vihr As Variant, sin As Variant, keyAski As Integer, VanHenTunUt As Boolean
Private Sub Form_Activate()
Do Until keyAski = -35
Cls
Print "Punainen:"
Print pun & "_"
If keyAski <> -1 Then            'upeeta, jotain painettiin
If keyAski < 10 Then             'ja mahtavaa, se oli numero
If VanHenTunUt = False Then      'eikä ole ees vanhentunut
If pun < 100 Then                'ja voi painaa
pun = pun & keyAski
VanHenTunUt = True
End If
End If
End If
End If
If pun > 255 Then pun = 255
DoEvents
Loop
If pun = vbNullString Then pun = 0
keyAski = -1
Do Until keyAski = -35
Cls
Print "Punainen:"
Print pun
Print "Sininen:"
Print sin & "_"
If keyAski <> -1 Then            'upeeta, jotain painettiin
If keyAski < 10 Then             'ja mahtavaa, se oli numero
If VanHenTunUt = False Then      'eikä ole ees vanhentunut
If sin < 100 Then                'ja voi painaa
sin = sin & keyAski
VanHenTunUt = True
End If
End If
End If
End If
If sin > 255 Then sin = 255
DoEvents
Loop
keyAski = -1
If sin = vbNullString Then sin = 0
Do Until keyAski = -35
Cls
Print "Punainen:"
Print pun
Print "Sininen:"
Print sin
Print "Vihreä:"
Print vihr & "_"
If keyAski <> -1 Then            'upeeta, jotain painettiin
If keyAski < 10 Then             'ja mahtavaa, se oli numero
If VanHenTunUt = False Then      'eikä ole ees vanhentunut
If vihr < 100 Then                'ja voi painaa
vihr = vihr & keyAski
VanHenTunUt = True
End If
End If
End If
End If
If vihr > 255 Then pun = 255
DoEvents
Loop
If vihr = vbNullString Then vihr = 0
Cls
Me.BackColor = RGB(pun, sin, vihr)
Print "Punainen:"
Print pun
Print "Sininen:"
Print sin
Print "Vihreä:"
Print vihr
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
keyAski = KeyAscii - 48
VanHenTunUt = False
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
keyAski = -1
End Sub

Private Sub Form_Load()
Me.BorderStyle = 3
Me.AutoRedraw = True
keyAski = -1
Me.Caption = "RGB-värit"
End Sub

Private Sub Form_Unload(Cancel As Integer)
End                              'varalta
End Sub