Keskustelu: Koodit: VB6: hassut kuviot

'Tämä on niin yksinkertainen ettei
'pahemmin selittelyjä kaipaa

Private Sub Form_Activate()
WindowState = 2
scalomode = 3
BackColor = 0
For xi = 1 To ScaleWidth
For yi = 1 To ScaleHeight
r = (Abs(Sin((yi * xi) / 10)) * 200) * 1 'käyttää siniä värien laskemiseen
g = (Abs(Sin((yi * xi) / 10)) * 200) * 1 'kannattaa laittaa esim. 0.5 ykkösen tilalle
b = (Abs(Sin((yi * xi) / 10)) * 200) * 1 'miksi siitä tollanen kuvio tulee, sitä en tiedä
PSet (xi, yi), RGB(r, g, b)              'joku vois selittää
Next yi
Next xi
End Sub

Private Sub Form_Click()
End
End Sub