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...
 |
Download Segi |
password : pemogramanvb.blogspot.com