Di pembahasan sebelumnya kita telah membahas mengenai Fungsi Bilangan Bertingkat, pada tutorial kali ini kita akan membuat sebuah program dengan menggunakan fungsi bilangan bertingkat, tak hanya satu program, kali ini kita akan membuat 2 program sekaligus. Baiklah berikut tutorialnya :
Program 1
untuk program pertama yang akan kita buat, kita akan membuat sebuah program yang akan menampilkan sebuah baris, dimana di setiap baris selanjutnya akan bertambah 1 kolom, untuk membuatnya tambahkan satu command button dan 1 list box, buatlah sehingga seperti ini :
lalu tuliskan script berikut :
For baris = 1 To 5
bilangan = ""
For TambahKolom = 1 To baris
bilangan = bilangan & Str(TambahKolom)
Next TambahKolom
List1.AddItem bilangan
Next baris
lalu jalankan program, dan klik command button
Penjelasan :
Jumlah baris yang ada di list box ada 5 (For baris = 1 To 5 ) dengan baris pertamanya adalah kosong (bilangan = ""),
Jumlah kolom yang ada tergantung dari nilai baris, jika nilai baris = 2, maka jumlah kolom ada 2, (For TambahKolom = 1 To baris)
nilai dari bilangan adalah nilai bilangan (bilangan = "") di tambah nilai dari tambahkolom (bilangan = bilangan & Str(TambahKolom))
Program 2
Untuk program ke 2, kita akan membuat sebuah program, dimana program pada baris kedua akan memanpilkan kebalikan dari baris pertama, untuk membuat programnya sama seperti program 1, buat program dengan Standar EXE, dan tambahkan 1 command button dan list box, dan ubahlah tampilanya seperti ini :
Jika sudah tuliskan script berikut :
Private Sub Command1_Click()
For JumlahBaris = 1 To 5 'Jumlah baris ada lima,
If JumlahBaris Mod 2 = 0 Then 'Jika nilai dari Jumlah Baris bisa di bagi 2, maka
NilaiAwal = 1: NilaiAkhir = 5 'Nilai awal = 1, dan nilai akhir = 5
Pola = 1 'dengan pola 1 (Tambah)
Else 'Jika tidak bisa dibagi 2, maka
NilaiAwal = 5: NilaiAkhir = 1
Pola = -1 '(Dikurang)
End If
Baris = "" 'Nilai dari baris pertama adalah tidak ada / kosong
For Rumus = NilaiAwal To NilaiAkhir Step Pola 'setiap baris diawali dengan nilai awal dan diakhiri dengan nilai akhir dengan pola dari nilai pola
Baris = Baris & Str(Rumus) 'isi dari setiap baris adalah nilai dari baris ("") ditambah dengan nilai dari Baris
Next Rumus
List1.AddItem Baris
Next JumlahBaris
End Sub
Lalu jalankan program, dan lihat hasilnya
Itulah tutorial mengenai program dasar dari fungsi bilangan bertingkat
Sekian tutorial kali ini semoga bermanfaat
Program 1
untuk program pertama yang akan kita buat, kita akan membuat sebuah program yang akan menampilkan sebuah baris, dimana di setiap baris selanjutnya akan bertambah 1 kolom, untuk membuatnya tambahkan satu command button dan 1 list box, buatlah sehingga seperti ini :
lalu tuliskan script berikut :
For baris = 1 To 5
bilangan = ""
For TambahKolom = 1 To baris
bilangan = bilangan & Str(TambahKolom)
Next TambahKolom
List1.AddItem bilangan
Next baris
lalu jalankan program, dan klik command button
Penjelasan :
Jumlah baris yang ada di list box ada 5 (For baris = 1 To 5 ) dengan baris pertamanya adalah kosong (bilangan = ""),
Jumlah kolom yang ada tergantung dari nilai baris, jika nilai baris = 2, maka jumlah kolom ada 2, (For TambahKolom = 1 To baris)
nilai dari bilangan adalah nilai bilangan (bilangan = "") di tambah nilai dari tambahkolom (bilangan = bilangan & Str(TambahKolom))
Program 2
Untuk program ke 2, kita akan membuat sebuah program, dimana program pada baris kedua akan memanpilkan kebalikan dari baris pertama, untuk membuat programnya sama seperti program 1, buat program dengan Standar EXE, dan tambahkan 1 command button dan list box, dan ubahlah tampilanya seperti ini :
Jika sudah tuliskan script berikut :
Private Sub Command1_Click()
For JumlahBaris = 1 To 5 'Jumlah baris ada lima,
If JumlahBaris Mod 2 = 0 Then 'Jika nilai dari Jumlah Baris bisa di bagi 2, maka
NilaiAwal = 1: NilaiAkhir = 5 'Nilai awal = 1, dan nilai akhir = 5
Pola = 1 'dengan pola 1 (Tambah)
Else 'Jika tidak bisa dibagi 2, maka
NilaiAwal = 5: NilaiAkhir = 1
Pola = -1 '(Dikurang)
End If
Baris = "" 'Nilai dari baris pertama adalah tidak ada / kosong
For Rumus = NilaiAwal To NilaiAkhir Step Pola 'setiap baris diawali dengan nilai awal dan diakhiri dengan nilai akhir dengan pola dari nilai pola
Baris = Baris & Str(Rumus) 'isi dari setiap baris adalah nilai dari baris ("") ditambah dengan nilai dari Baris
Next Rumus
List1.AddItem Baris
Next JumlahBaris
End Sub
Lalu jalankan program, dan lihat hasilnya
Itulah tutorial mengenai program dasar dari fungsi bilangan bertingkat
Sekian tutorial kali ini semoga bermanfaat
0 Response to "Contoh Program Dasar Fungsi Bilangan Bertingkat"
Post a Comment