Rabu, 06 April 2011

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...

Download Segi





password : pemogramanvb.blogspot.com

Artikel yang berkaitan



1 komentar:

Silahkan tulis komentar jika ada yang ingin ditanyakan dari artikel ini, komentar kalian sangat berarti bagi saya.

Format untuk komentar:
1) Pilih profil sebagai Name/URL
2) Isikan nama anda
3) Isikan URL (Blog/Website/Facebook/Twitter/Email/Kosongkan)
4) Isikan Komentar
5) Postkan Komentar anda.

Maaf untuk komentar ANONIM tidak akan saya RESPON.