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) + 1For 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
Else
For j = i To jumlah_data
Print "*"; 'Untuk menghasilkan angka maka "*" dapat diganti dengan j
Next j
End If
Next i
Untuk program lengkapnya dapat didownload disini.
Read more ...
