Di pembahasan sebelumnya kita telah membahas mengenai Fungsi Bilangan Bertingkat, pada tutorial kali ini kita akan menciptakan sebuah kegiatan dengan memakai fungsi bilangan bertingkat, tak hanya satu program, kali ini kita akan menciptakan 2 kegiatan sekaligus. Baiklah berikut tutorialnya :
Program 1
untuk kegiatan pertama yang akan kita buat, kita akan menciptakan sebuah kegiatan 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 menyerupai ini :
kemudian 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
kemudian jalankan program, dan klik command button
Penjelasan :
Jumlah baris yang ada di list box ada 5 (For baris = 1 To 5 ) dengan baris pertamanya yaitu kosong (bilangan = ""),
Jumlah kolom yang ada tergantung dari nilai baris, jikalau nilai baris = 2, maka jumlah kolom ada 2, (For TambahKolom = 1 To baris)
nilai dari bilangan yaitu nilai bilangan (bilangan = "") di tambah nilai dari tambahkolom (bilangan = bilangan & Str(TambahKolom))
Program 2
Untuk kegiatan ke 2, kita akan menciptakan sebuah program, dimana kegiatan pada baris kedua akan memanpilkan kebalikan dari baris pertama, untuk menciptakan programnya sama menyerupai kegiatan 1, buat kegiatan dengan Standar EXE, dan tambahkan 1 command button dan list box, dan ubahlah tampilanya menyerupai 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 dapat di bagi 2, maka
NilaiAwal = 1: NilaiAkhir = 5 'Nilai awal = 1, dan nilai selesai = 5
Pola = 1 'dengan teladan 1 (Tambah)
Else 'Jika tidak dapat dibagi 2, maka
NilaiAwal = 5: NilaiAkhir = 1
Pola = -1 '(Dikurang)
End If
Baris = "" 'Nilai dari baris pertama yaitu tidak ada / kosong
For Rumus = NilaiAwal To NilaiAkhir Step Pola 'setiap baris diawali dengan nilai awal dan diakhiri dengan nilai akhir dengan teladan dari nilai pola
Baris = Baris & Str(Rumus) 'isi dari setiap baris yaitu 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 kegiatan dasar dari fungsi bilangan bertingkat
Sekian tutorial kali ini supaya bermanfaat
Program 1
untuk kegiatan pertama yang akan kita buat, kita akan menciptakan sebuah kegiatan 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 menyerupai ini :
kemudian 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
kemudian jalankan program, dan klik command button
Penjelasan :
Jumlah baris yang ada di list box ada 5 (For baris = 1 To 5 ) dengan baris pertamanya yaitu kosong (bilangan = ""),
Jumlah kolom yang ada tergantung dari nilai baris, jikalau nilai baris = 2, maka jumlah kolom ada 2, (For TambahKolom = 1 To baris)
nilai dari bilangan yaitu nilai bilangan (bilangan = "") di tambah nilai dari tambahkolom (bilangan = bilangan & Str(TambahKolom))
Program 2
Untuk kegiatan ke 2, kita akan menciptakan sebuah program, dimana kegiatan pada baris kedua akan memanpilkan kebalikan dari baris pertama, untuk menciptakan programnya sama menyerupai kegiatan 1, buat kegiatan dengan Standar EXE, dan tambahkan 1 command button dan list box, dan ubahlah tampilanya menyerupai 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 dapat di bagi 2, maka
NilaiAwal = 1: NilaiAkhir = 5 'Nilai awal = 1, dan nilai selesai = 5
Pola = 1 'dengan teladan 1 (Tambah)
Else 'Jika tidak dapat dibagi 2, maka
NilaiAwal = 5: NilaiAkhir = 1
Pola = -1 '(Dikurang)
End If
Baris = "" 'Nilai dari baris pertama yaitu tidak ada / kosong
For Rumus = NilaiAwal To NilaiAkhir Step Pola 'setiap baris diawali dengan nilai awal dan diakhiri dengan nilai akhir dengan teladan dari nilai pola
Baris = Baris & Str(Rumus) 'isi dari setiap baris yaitu 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 kegiatan dasar dari fungsi bilangan bertingkat
Sekian tutorial kali ini supaya bermanfaat
Comments
Post a Comment