Grafika Komputer

Grafika Komputer Primitif

Scrip Pembuatan Grafika Komputer Sederhana menggunakan pemrograman visual basic.6.0. adapun cara nya :

1. buka editor pemrograman vb.6.0

2. copy script d bawah ini, lalu jalankan. selamat mencoba

Private Sub PERSEGI()
Picture1.Line (4000, 1000)-(1000, 1000), vbBlack
Picture1.Line (4000, 3000)-(1000, 3000), vbBlack
Picture1.Line (1000, 3000)-(1000, 1000), vbBlack
Picture1.Line (4000, 1000)-(4000, 3000), vbBlack

End Sub
Private Sub LINGKARAN()
Picture1.Circle (2000, 2000), 500, vbBlack
End Sub

Private Sub SEGITIGA()
Picture1.Line (5000, 1000)-(5000, 3000), vbBlack
Picture1.Line (6800, 3050)-(5000, 1000), vbBlack
Picture1.Line (6800, 3050)-(5000, 3000), vbBlack
End Sub

Private Sub Command1_Click()
SEGITIGA
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
PERSEGI
End Sub

Private Sub Command4_Click()
LINGKARAN
End Sub