Cara membuat perulangan "for" dengan memasukan input tinggi piramida pada visual basic(VB)

Cara membuat perulangan "for" dengan memasukan input tinggi piramida pada visual basic(VB)

Pertama-tama buka terlebih dahulu Program Visual Basic (VB) sehingga muncul tampilan program visual basic atau juga bisa dengan start à all programs à Microosoft Visual Basic à Microosoft Visual Basic 6.0. Dapat juga dengan hanya mengklik icon yang sudah terinstall di dekstop jika pada awal penginstalan aplikasi Visual Basic memilih pilihan “Create Icon Dekstop” sehingga akan muncul icon Microsoft Visual basic 6.0 pada layar dekstop.

Maka akan muncul tampilan awal dari Visual Basic 6.0 seperti gambar dibawah ini :

Kemudian, klik “STANDARD EXE” maka akan muncul sebuah form dan project baru yang akan didesign dan dimasukkan sebuah codingannya setelah form tersebut didesign, bisa dilihat seperti gambar dibawah ini :

Kemudian, sesuaikan ukuran form dengan kebutuhan yang akan didesign dari lebar sampai tinggi form tersebut, setelah itu pada design kali ini hanya menggunakan 5 “ToolBox” yaitu yang pertama digunakan “Label” ditunjukan pada kotak “Merah”, kedua “TextBox” ditunjukan pada kotak “Biru”,ketiga “Frame” ditunjukan pada kotak “Hijau”, keempat “CommandButton” ditunjukan pada kotak “Kuning”, dan kelima “ListBox” ditunjukan pada kotak “Coklat” seperti pada gambar dibawah ini :

Kemudian, seperti yang dijelaskan diatas langkah ke 1 adalah membuat label yaitu label 1 sampai label 2, seperti gambar berikut :

Kemudian, setelah membuat label maka label tersebut akan didesign dengan mengubah dibagian “PROPERTIES” saja yaitu dibagian “CAPTION” dari label tersebut,seperti kotak merah yang ditunjuan pada gambar dibawah ini :

Kemudian, ubah Caption label 1 sampai 2 sesuai nama yang diinginkan, setelah itu pada langkah ke 2 adalah membuat text  yang akan diisikan atau dinputkan dengan menggunakan “TextBox” buat textbox 1 saja, seperti gambar berikut :

Kemudian, kosongkan text1 dengan klik text 1 mengubah bagian propertiesnya seperti label tapi pada textbox ini tidak ada caption hanya text saja , dapat dilihat seperti gambar yang ditunjukan kotak merah yang ada dibawah ini :

Kemudian, setelah text1 dikosongkan selanjutnya pada langkah ke 3 adalah membuat Frame yaitu Frame 1 yang akan ditempel listbox didalam frame sehingga listbox ini akan menampilkan sebuah data yang telah dimasukkan, seperti pada gambar dibawah ini :

Kemudian, ubah Caption Frame1 sesuai nama yang diinginkan sama seperti label, selanjutnya pada langkah ke 4 yaitu membuat listbox untuk menampilkan hasil dari data yang telah diinput dan diproses yaitu membuat list 1, dapat dilihat pada gambar berikut :

Selanjutnya pada langkah ke 5 yaitu membuat CommandButton 1 sampai CommandButton 2 yang akan diisikan sebuah coding yang memproses data-data yang telah dimasukkan dan ubah Caption command 1 sampai command 3 sesuai nama yang diinginkan sama seperti label, dapat dilihat pada gambar berikut :

Kemudian, pada langkah ke 6 adalah memasukkan codingan ke dalam command 1 sampai commannd 2 dengan cara double klik command yang dituju maka akan mucul layar codingan dan isi codingannya seperti gambar dibawah ini :

Pada gambar diatas, “Private Sub Command1_click()” yaitu “Proses” menyatakan codingan pada command 1 lalu pada Dim a As Integer

Penjelasan : Nama variabelnya adalah a dan type datanya integer

Dim s, s1, s2 As String

Penjelasan : Nama variabelnya adalah s,s1,s2 dan type datanya string

List1.Clear

baris = Text1.Text

For i = 1 To baris

    s = String(baris + 6 - i, " ")

    s1 = String(i, "*")

    s2 = String(i - 1, "*")

   List1.AddItem (s + s1 + s2)

Next i

End Sub

Penjelasan : jika memasukkan angka/data pada Toolbox text maka hasilnya akan diproses di listbox sehingga listbox akan bersih dan terisi sebuah hasil dari proses data yang telah diinput,baris yang akan diproses harus diisi pada toolbox text,codingan ini merupakan perulangan For Next,"i" merupakan sebuah data variabel misalkan "i" datanya/angkanya adalah 1 maka "i" tersebut adalah 1,type data pada s,s1,s2 adalah string yang akan dijumlahkan dan ditampilkan hasilnya pada "ListBox","Next" merupakan pasangan codingan dari for yaitu codingan sebagai perulangan..Untuk melihat Codingan For Next pada command button 1 dengan nama “proses”.

“Private Sub Command2_click()” yaitu “Clear” yang terletak pada Command 2.Pada codingan Clear hanya menyatakan “Text1.Text = “” “ ,List1.Clear dan Label3.Caption atau juga bisa dengan menggunakan codingan “Clear”, text dan label codingan yang ingin dimasukkan sama.

Codingan Clear dapat di lihat pada gambar dibawah ini :

Kemudian, agar terlihat rapi pada saat di run rapikan form yang telah didesign untuk merubah huruf guanakan “Font” ,untuk warna huruf gunakan “ForeColor” untuk rata kiri,kanan,tengah gunakan “Alignment”,untuk background text,label dan commandbutton gunakan “BackColor” dan lain-lain,seperti gambar dibawah ini :

Kemudia klik “Run” pada Menu Bar lalu klik “Start” atau bisa juga dengan menekan “F5” maka program tersebut yang telah didesign dan dimasukkan codingannya akan mulai berjalan jika telah di klik Start atau menekan F5 dan program tersebut akan muncul.

Setelah itu masukkan text atau intputan pada kolom textbox yang telah dibuat lalu klik proses maka codingan tersebut akan memproses dan muncul tampilan seperti pada gambar dibawah ini :

Pada gambar diatas, Jika mengklik clear maka inputan telah dimasukkan akan bersih atau terhapus text dan labelnya.