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.