PROGRAM BINTANG DAN BELAH KETUPAT DI VISUAL BASIC

Cara Membuat Program Belah Ketupat

Pertama, kita buka terlebih dahulu program Visual Basic. Kita klik Open untuk memulai baru. Kemudian buat atau siapkan 1 buah listbox, 1 buah textbox, dan 1 buah commandbutton. Selanjutnya, kita ubah propertiesnya.

Ubah Properties :

	Properties	Hasil
Textbox	Name	Text1
	Text	-
Listbox	Name	List1
Commandbutton	Name	Command1
	Caption	OK

Setelah selesai mengatur propertiesnya, previewnya seperti berikut :

Kita double click tombol OK yang sudah kita buat dengan commanbutton seperti gambar diatas.

Setelah di double click, maka tampil form yang berisi kode atau listing program yang harus kita isi.

Untuk membuat belah ketupat ini, bisa menggunakan listing berikut :

Private Sub Command1_Click()

A = Int(Text1.text)

For z = 1 to a

      B = Space (a – z)

      C = “* “ + c

      List1.AddItem (b + c )

Next

F = 0

X = a

For y = f To a

      B = Space (y)

      C = “* “ + c

      Next

      X = x – 1

      List1.AddItem ( b + c)

Next

End sub

Previewnya bisa dilihat di bawah ini :

Listing Program Belah Ketupat.

Kita langsung saja jalankan programnya. Tekan tombol F5 untuk running programnya.

Sesudah itu kita tinggal menentukan berapa angka yang ingin kita input untuk menentukan banyaknya baris yang ada di gambar belah ketupat nanti.

Lanjut, kita masukkan angkanya, disini saya input angka sebanyak 9. Kemudian tekan tombol OK.

 Dan lihat hasilnya.

Cara Membuat Program Segitiga

Langkah awal yaitu buka Visual Basic kita, kemudian klik Open untuk memulai form baru. Lalu kita tentukan Generalnya. Disini saya menyiapkan 1 buah textbox dan 1 buah commandbutton. Dan bisa kita ubah propertiesnya.

	Properties	Hasil
Textbox	Name	Text1
	Text	-
Commandbutton	Name	Command1
	Caption	OK

Sesudah mengatur propertiesnya, kita lihat previewnya :

Kemudian double click tombol OK yang sudah dibuat seperti gambar diatas tersebut.

Ketika kita double click maka akan muncul tampilan form untuk mengisi kode atau listing program untuk membuat segitiga.

Untuk membuat program segitiga bisa menggunakan listing berikut :

Private Sub Command1_Click()

Jumlah data = Val (Text1.text)

Kiri = (jumlah_data \ 2) + 1

For i = 1 To jumlah data

   If i <= kiri then

     For j = i To 1 Step -1

        Print “ * ”;  ‘Jika ingin menghasilkan angka, ganti “*” dengan j

    Next j

   Print

  Else

    For j = 1 To jumlah_data

      Print “ * “; ‘Jika ingin menghasilkan angka , ganti “ * “ dengan j

    Next j

    Print

  End if

Next i

End Sub

Berikut ini previewnya :

Sekarang kita bisa jalankan programnya. Tekan F5 untuk running program. Sesudah itu kita tinggal input angka untuk menentukan berapa banyak baris dari segitiga kita.

Disini saya input angka sebesar 25. Dan kita tekan F5 untuk melihat hasilnya.

Hasil :

Dan jika kita ingin mengubah gambar hasil segitiga dalam bentuk yang lain ,tinggal kita ubah saja listing programnya. Disini saya ubah listing programnya menjadi seperti ini :

Private Sub Command1_Click()

Jumlah data = Val (Text1.text)

tengah = (jumlah_data \ 2) + 1

For i = 1 To jumlah data

   If i <= kiri then

     For j = i To 1 Step -1

        Print “ * ”;  ‘Jika ingin menghasilkan angka, ganti “*” dengan j

    Next j

   Print

  Else

    For j = 1 To jumlah_data

      Print “ * “; ‘Jika ingin menghasilkan angka , ganti “ * “ dengan j

    Next j

    Print

  End if

Next i

End Sub

Listing programnya:

Dan kita lihat hasilnya dengan menekan tombol F5.dan tentukan angka inputannya juga. Disini saya masukkan angka sebesar 25.  

Berikut hasilnya :