Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Koodit: VB6: Väriliuku

kaviaari [11.08.2003 11:30:05]

#

Väriliuku muodostaa oudon väripalkkiläjän. Tarvitset Textboxin Command buttonin ja Picturen.

Private Sub Command1_Click()
For j = 1 To Picture1.Width
    d = Sin(j / CLng(Text1.Text)) * 121 + 127
    Picture1.Line (j, 0)-(Cos(Sin(Cos(j / 30) * 100)), Picture1.Height), RGB(0, d, 0)
Next
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta