Membuat Segi dengan VB

Di dalam visual basic kita dapat menggambarkan sebuah sudut dan segi dengan script-script sederhana, berikut contoh membuat jumlah sudut segi :

1. Buat form baru
2. Masukan sebuah combobox
2. Masukan Script di bawah ini pada combobox :


Private Sub Command1_Click()
On Error Resume Next
n = InputBox("Masukan Jumlah Sudut yang Anda inginkan ? (3-100)", "Membuat banyak sudut")
sudut = 360 / n
Cls
For i = 1 To n
For j = 1 To n
simpulIX = Sin(i * sudut / 57.2958) * 2000 + 2600
simpulIY = Cos(i * sudut / 57.2958) * 2000 + 2000
simpulJX = Sin(j * sudut / 57.2958) * 2000 + 2600
simpulJY = Cos(j * sudut / 57.2958) * 2000 + 2000
Line (simpulIX, simpulIY)-(simpulJX, simpulJY)
Next j
Next i
End Sub

3. Coba run, dan lihat hasilnya.

Jika anda masih bingung dapat anda download filenya di bawah ini.Semoga bermanfaat N jangan Lupa Tinggalkan Komentar ya...

 
Pasword Rar = suharndi.blogspot.com


Salam Sahabat Blog