Selasa, Desember 26, 2006

Control Segienam di VB

Minggu-minggu ini cukup longgar, jadi punya banyak waktu bermain dengan anak-anak. Daripada kosong, saya berencana membuat software yang akan di freeware-kan. Software kecil, tapi semoga dapat berguna. Software untuk apakah itu? Jangan kemana-mana, stay tune on this site :).
Insyaallah akan minggu ini jika tidak ada pekerjaan lain yang 'mengganggu'.

Dibuat dengan VB. Didalamnya terdapat banyak segienam-segienam berwarna-warni. Untuk membuat segienam tadi, saya buat control sendiri yang segienam-nya dibentuk dengan menggambarnya di canvas. berikut adalah cuplikan dari kode didalam control tadi, selain kode-kode untuk setting property. Walau tanpa kode-kode untuk property (yang digenerate dari wizard) kode dibawah ini sudah dapat dipakai untuk menggambar sebuah segienam.


Private Sub UserControl_Paint()
gambar
End Sub

Private Sub gambar()
With UserControl
Dim i As Long
Dim tg30 As Double
tg30 = 0.57735 'tangen 30 derajat
.DrawWidth = 1
'Warna segienam-nya
For i = 6 To .Height / 2
Line (.Width / 4 - (tg30 * i) + 5, i)-(.Width * 3 / 4 + (tg30 * i), i), .FillColor
Line (.Width / 4 - (tg30 * i) + 5, .Height - i)-(.Width * 3 / 4 + (tg30 * i), .Height - i), .FillColor
Next

'Garis Pinggirnya
.DrawWidth = 2
Line (5, .Height / 2)-(.Width / 4, 5), vbBlack
.DrawWidth = 4
Line (.Width / 4, 5)-(.Width * 3 / 4, 5), vbBlack
.DrawWidth = 2
Line (.Width * 3 / 4, 5)-(.Width - 15, .Height / 2), vbBlack
Line (.Width - 15, .Height / 2)-(.Width * 3 / 4 - 15, .Height), vbBlack
.DrawWidth = 4
Line (.Width * 3 / 4, .Height)-(.Width / 4, .Height), vbBlack
.DrawWidth = 2
Line (.Width / 4, .Height)-(5, .Height / 2), vbBlack

End With
End Sub

Tidak ada komentar:

Posting Komentar