Translate


EnglishFrenchGermanySpainItalianNetherlandsRussian
PortugueseJapaneseKoreanArabicChinese SimplifiedCroatianDanish

Belajar VB 6.0 Headline Animator

07 Desember 2012

Membuat Bentuk Segitiga Dari Karakter Asterik

Untuk membuat bentuk seperti gambar diatas kita bisa menggunakan metode perulangan, bisa menggunakan perulangan for....next atau bisa juga dengan do....while. Sejatinya kita hanya harus membuat urutan angka dari kecil ke besar kemudian ketika sampai pada data tengah urutan angka kembali menjadi lebih kecil, misalnya :
1
2
3
4
5
4
3
2
1
Untuk dapat membuat susunan angka menjadi seperti itu maka kita terlebih dahulu harus mengetahui banyaknya baris atau banyakknya data kemudian kita juga harus mengetahui data tengahnya. Untuk hasil yang proposional maka jumlah data sebaiknya ganjil.
Untuk mengetahui nilai tengah kita dapat menggunakan operator aritmatika "\" agar dapat mengetahui pembualatan dari hasil bagi misalnya 5\2 maka akan dihasilkan angka 2.
Untuk membuat  urutan seperti diatas maka sebelum sampai di data tengah angka ditambahkan dengan 1 (angka + 1) dan setelah melewati angka tengah maka jumlah data dikurangi dengan angkanya.
Berikut ini contoh kodenya dengan perulangan for:

jumlah_data = Val(Text1.Text)
tengah = (jumlah_data \ 2) + 1
For i = 1 To jumlah_data
  If i <= tengah Then
    For j = i To 1 Step -1
      Print "*";  'Untuk menghasilkan angka maka "*" dapat diganti dengan j
    Next j
    Print
  Else
    For j = i To jumlah_data
      Print "*";  'Untuk menghasilkan angka maka "*" dapat diganti dengan j
    Next j
    Print
  End If
Next i

Untuk program lengkapnya dapat didownload disini.

7 komentar:

gusti agung mengatakan...

jadi inget waktu kuliah dulu... :D

Dicky Prastianto Pramudya mengatakan...

Maaf nubie, IDE-nya apa yaa mas? download dimmana? thanks.

Tutorial vb.net mengatakan...

Waktu belajar vb di kuliah gw paling bontot yang ginian hahha

Belajar visual basic mengatakan...

Ijin referensi untuk tutorialnya

Tutarni mengatakan...

Ayooo update terus pembelajaran Visual Basic nya...!!!!
Jangan lupa kunjungi Blog Saya juga yaaaa :

http://www.belajarvb.com

Semoga bisa menjadi referensi belajar Visual Basic juga :)

Dini thea mengatakan...

ijin share..

baca juga download program visual basic

Aisteru Algofiqih mengatakan...

Pakai toolbox apa ya? Biar biasa masukan code

 
>