Showing posts with label Belajar Pemrograman Basic. Show all posts
Showing posts with label Belajar Pemrograman Basic. Show all posts

Aplikasi Penjualan Pulsa

Pemrograman BASIC kali ini membahas mengenai aplikasi penjualan pulsa. Aplikasi penjualan pulsa ini dikerjakan oleh Rio dan teman-temannya dari kelas 1KA30 Angkatan 2014. Adapun beberapa spesifikasi dari aplikasi penjualan pulsa ini antara lain:
Aplikasi Penjualan Pulsa
Nama Aplikasi
Aplikasi Penjualan Pulsa BONA CELL

Deskripsi
Dalam project ini penjual dapat menginput nomor hp, jumlah pulsa yg dikirim, dan jenis providernya, setelah itu si penjual dapat melihat laporannya yang berisi nomor, provider, pulsa yang diisi, saldo, dan harga.

Masalah yang Timbul
Sekarang, penjual pulsa hanya dapat membuat laporan secara manual dengan cara menuliskan dibuku.

Solusi yang Ditawarkan
Dengan program ini si penjual dapat dengan mudah dan cepat dalam membuat laporan

Spesifikasi User
Penjual  Pulsa

Beberapa tampilan dari aplikasi ini dapat dilihat pada print screen berikut ini:

Gambar 1 merupakan tampilan menu utama pada Aplikasi Penjualan Pulsa.
Aplikasi Penjualan Pulsa
Gambar 1 Aplikasi Penjualan Pulsa
Pada Gambar 1 terlihat 3 menu pilihan diantaranya pembelian pulsa, laporan, serta exit. Jika pengguna memilih menu pembelian pulsa maka akan tampil menu seperti pada Gambar 2.
Aplikasi Penjualan Pulsa
Gambar 2 Aplikasi Penjualan Pulsa
Jika penguna memilih menu laporan maka akan tampil seperti pada Gambar 3 berikut ini.
Aplikasi Penjualan Pulsa
Gambar 3 Aplikasi Penjualan Pulsa
Bagi yang berkenan ingin mempelajari coding dari aplikasi penjualan pulsa dan download aplikasi penjualan pulsa gratis ini dapat segera menghubungi kontak: riozxc123@gmail.com

Aplikasi Penghitungan Pajak PPh Pasal 21

Sudah lama tidak membuat artikel mengenai pemrograman. Kali ini Fauzi Online akan mempublish hasil karya mahasiswa yang lumayan cukup berpotensial untuk dipelajari dan dioprek bersama. Aplikasi Penghitungan Pajak PPh Pasal 21 ini dibuat dengan menggunakan bahasa BASIC.

Mengenai Aplikasi Penghitungan Pajak PPh Pasal 21
Programmer yang membuat aplikasi ini antara lain Reynald, Salsabila, dan Billy dari kelas 1KA30 Angkatan 2014. Berikut deskripsi mengenai Aplikasi Penghitungan Pajak PPh Pasal 21 ini:

Nama Lengkap Aplikasi
Program penghitungan pajak PPh pasal 21

Deskripsi Aplikasi
Program ini dibuat  untuk menghitung pajak penghasilan (PPh) pada suatu perusahaan.

Latar Belakang Masalah
Pada suatu perusahaan menghitung pajak sangatlah rumit, karena mereka menghitung secara manual dengan memasukkan rumus-rumus pajak, sehingga rentan kesalahan semakin besar. 

Solusi yang Ditawarkan
Dengan adanya program ini user hanya menginput datanya saja tanpa harus menghitung dengan rumus atau secara manual lagi. Sehingga user dipermudah dalam mencari tarif pajak.

Ruang Lingkup User
Supervisor Accounting

Batasan Aplikasi
  • Dapat menghitung Netto (Penghasilan Bersih)
  • Dapat menghitung PTKP (Penghasilan Tidak Kena Pajak)
  • Dapat menghitung PKP (Penghasilan Kena Pajak)
  • Dapat menghitung Tarif Pajak
Tampilan mengenai Aplikasi Penghitungan Pajak PPh Pasal 21 :

Gambar 1 merupakan tampilan pertama saat membuka program penghitungan pajak PPh, pasal 21. Disini kita dapat memilih menu, pertama yang harus user lakukan yaitu input pajak pegawai.
Gambar 1 - Aplikasi Penghitungan Pajak PPh Pasal 21
Gambar 2 merupakan tampilan dimana user dapat memasukkan jumlah pegawai yang diinginkan, sebagai contoh user masukkan 2 jumlah pegawai.
Gambar 2 - Aplikasi Penghitungan Pajak PPh Pasal 21
Gambar 3 menjelaskan bahwa user dapat menginput data-data yang diperlukan.
Gambar 3 - Aplikasi Penghitungan Pajak PPh Pasal 21
Terdapat beberapa ketentuan saat pengisian input data, antara lain:
  • Pada saat menginput nama user hanya dapat memasukkan maksimal 7 karakter. Apabila lebih dari 7 karakter maka saat user mencetak hasil hanya akan tercetak 7 karakter dari depan.
  • Pada saat menginput Jenis kelamin program ini hanya menerima “L (laki-laki) dan P (Perempuan). Apabila user salah menginputkan (selain L/P) maka program akan balik lagi ke input jenis kelamin.
  • Berlaku juga pada saat menginput Status. Apabila user salah menginputkan status yang diminta program, maka program akan balik lagi ke input status.
  • Secara prosedur negara, pajak dihitung secara pertahun dan nantinya akan di bagi 12 karena dalam pembayaran pajak secara sebulan sekali.
Gambar 4 menjelaskan user masukkan data-data pada pegawai ke-2.
Gambar 4 - Aplikasi Penghitungan Pajak PPh Pasal 21
Setelah selesai mengisi data- data pegawai, lalu program akan balik lagi ke menu awal. Lalu pilih menu 2 untuk mencetak hasil penghitungan pajak seperti yang terlihat pada Gambar 5.
Gambar 5 - Aplikasi Penghitungan Pajak PPh Pasal 21
Gambar 6 merupakan hasil dari penghitungan pajak yang di inginkan.
Gambar 6 - Aplikasi Penghitungan Pajak PPh Pasal 21
Pada Gambar 6 menjelaskan beberapa rincian antara lain:

  1. Pegawai pertama terkena pajak sebesar Rp 4.390.000, sedangkan pegawai kedua tidak kena pajak, karena PTKP (Penghasilan Tidak Kena Pajak) lebih besar dari Netto.
  2. Biaya Jabatan = 5% dari Penghasilan Bruto Max 6000.000 per tahun.
  3. Penghasilan Netto = Penghasilan Bruto - Biaya Jabatan.
  4. PTKP (Penghasilan Tidak Kena Pajak) = untuk mencari PTKP itu berkaitan dengan jenis kelamin dan status.
  5. Apabila jenis kelamin P (Perempuan) maka biaya PTKPnya Rp 24.300.000 dan tidak pengaruh ia memiliki status apa, karena manurut UU Perempuan dianggap tidak menanggung beban keluarga.
  6. Apabila jenis kelamin L (Laki-laki) maka dilihat dari statusnya terlebih dahulu.
    Statusnya TK (Tidak Kawin) maka biaya PTKPnya Rp 24.300.000
    Statusnya K0 (Keluarga Tidak punya anak) maka biaya PTKPnya Rp 26.325.000
    Statusnya K1 (Keluarga punya anak 1) maka biaya PTKPnya Rp 28.350.000
    Statusnya K2 (Keluarga punya anak 2) maka biaya PTKPnya Rp 30.375.000
    Statusnya K3 (Keluarga punya anak 3) maka biaya PTKPnya Rp 32.400.000
    PKP (Penghasilan Kena Pajak) = Netto – PTKP
  7. Apabila PTKP lebih besar dari pada Netto maka hasilnya di anggap 0 atau tidak mempunyai PKP
  8. Tarif Pajak = PKP * Tarif Pajak (yang telah di atur menurut UU No.36 Tahun 2008 pasal 17) 
  9. Apabila PKP sampai dengan 50.000.000 maka tarif pajak-nya 5% (tarif pertama)
  10. Apabila PKP diatas 50.000.000 s/d 250.000.000 maka tarif pajak-nya 15% (tarif kedua) 
  11. Apabila PKP diatas 250.000.000 s/d 500.000.000 maka tarif pajak-nya 25% (tarif ketiga) 
  12. Apabila PKP diatas 500.000.000 maka tarif pajak-nya 30% (tarif keempat) 
  13. Contoh : Apabila pagawai memiliki PKP 300.000.000 maka 50.000.000 dikalikan 5%( tarif kesatu) + 200.000.000 dikalikan 15% (tarif kedua) sisanya 50.000.000 * 25% (tarif ketiga) Jadi dalam penghitungan tarif pajak tidak langsung ambil 25% saja.
Bagi teman-teman yang ingin download aplikasi Penghitungan Pajak PPh Pasal 21  Silahkan hubungi kontak berikut ini: reynald.adhitya96@gmail.com

Kumpulan Quis V-Class AP1B

Kumpulan Quis V-Class AP1B
Aaargh sial.. kaga excelent nilai fauzi! Memang suasana hati itu menentukan buat ngerjain soal yah? Suasana patah hati yang kayak gini nih ngerjain matematika SD aja kayaknya susah buanget niih... apalagi pemrograman? huuuuft!
Serba sial semua.. emang kuis di depan komputer sama di kelas tuh suasananya lain banget.. emang sih di depan komputer itu kita harusnya lebih rileks ngga keburu-buru hmmm tapi yhaa gemana lagi.. emang lagi ngga mujur kali yah? Okay gak masalah deh.. di awal tahun Fauzi mau nyebar-nyebar soal termasuk soal V-class silahkan teman-teman pelajari yah.. biar dapet EXCELENT gak kaya Fauzi ini.. huhuhu Tpi jangan lupa tinggalin komentarnya yah?

Soal Pretest III Materi File Random
1.Pada berkas data (file) masup acak, akses terhadap record data dapat dilakukan secara ...
>>jawab:
(Acak)
2.File Random adalah ...
>>jawab:
(Pada berkas data (file) masup acak, akses terhadap record data dapat dilakukan secara acak (random), tanpa harus membaca record satu per satu mulai dari posisi awal record)
3.Keuntungannya File Random adalah ...
>>jawab:
(kecepatan proses lebih tinggi dibandingkan berkas data masup urut)
4.Perintah untuk membuka file random adalah ...
>>jawab:
(OPEN “R”)
5.Dalam file random, perlu disiapkan suatu area penampungan sementara untuk data yang akan diakses dari file tersebut, yang disebut dengan ...
>>jawab:
(RANDOM BUFFER)

Soal PostTest III Materi File Random
1.Dalam file random, perlu disiapkan suatu area penampungan sementara untuk data yang akan diakses dari file tersebut, yang disebut dengan ...
>>jawab:
(RANDOM BUFFER)
2.Untuk membaca data yang tersimpan di dalam file random, maka gunakan statement ...
>>jawab:
(get)
3.LSET dalam file random digunakan untuk ...
>>jawab:
(meletakkan data ke dalam buffer dengan posisi merapat ke kiri)
4.RSET dalam file random digunakan untuk ...
>>jawab:
(meletakkan data ke dalam buffer dengan posisi merapat ke kanan)
5.Untuk menuliskan data ke dalam file digunakan statement ...
>>jawab:
(put)


Soal Pretest II Materi Report
1.Apa fungsi Dim pada program tersebut ...
>>jawab:
(Memesan tempat untuk variabel berindek)
2.Untuk menyusun program modular dapat digunakan konsep ...
>>jawab:
(fungsi, prosedur)
3.Didalam praktek proses perulangan biasa digunakan untuk beberapa hal, antara lain:
>>jawab:
(Mengulang proses penampilan hasil pengolahan data,Mengulang proses perhitungan,Mengulang proses pemasukan data)
4.Salah satu metode penyusunan program terstruktur adalah ...
>>jawab:
(Pemograman modular)

Soal PostTest II Materi File Report
1.Salah satu metode penyusunan program terstruktur adalah ...
>>jawab:
(Pemograman modular)
2.Untuk menyusun program modular dapat digunakan konsep ...
>>jawab:
(fungsi, prosedur)
3.Apa fungsi Dim pada program tersebut ...
>>jawab:
(Memesan tempat untuk variabel berindek)
4.Didalam praktek proses perulangan biasa digunakan untuk beberapa hal, antara lain:
>>jawab:
(Mengulang proses penampilan hasil pengolahan data,Mengulang proses perhitungan,Mengulang proses pemasukan data)

Soal Pretest I Materi File Sequensial
1.Perintah untuk membuka file sequential yaitu ...
>>jawab:
(open)
2.Statement Open mode "O" berarti file yang dibuka sebagai ...
>>jawab:
(File Output)
3.Perintah untuk menutup file dalam Basic ...
>>jawab:
(close)
4.Perintah untuk menyimpan data ke dalam file ...
>>jawab:
(write)
5.Perintah untuk mengambil data dari file yaitu ...
>>jawab:
(input)

Soal PostTest I Materi File Sequensial
Sama Persis dengan Soal Pretest Di atas

TUGAS QBASIC

waduh yang namanya dosen teuh enak banget yak ngasih ngasih tugas yang ngga kepikiran mana itu dianggap susah atau mudah bagi mahasiswanya.. iya bener juga siih, kalo imbalannya itu berupa nilai buat si mahasiswanya, DON'T WORRY lah BE HAPPY, selama buat belajar yhaa kenapa ngga?
buat teman-teman tersayang berikut request tugas teman-teman silahkan di download sama dipelajari yah? jangan asal download baca-baca dulu tuuh materinya sama bacaan blog fauzi online hehehehe. Okay?
Selamat Belajar! Siapa tau buat belajar sebelum Penulisan Ilmiah Gunadarma.

Matrik
Adalah tabel berdimensi dua. Misalnya P adalah matriks dengan tiga baris dan empat kolom (P dikatakan mempunyai ordo (3x4))


Digunakan Statemen DIM
Dalam sebuah program BASIC yang menggunakan matriks, berdimensi dua, harus digunakan statemen DIM untuk memberitahukan komputer, tiap matriks yang ada memiliki beberapa banyak baris dan kolom. Misalnya DIM P(3,4) memberitahu komputer bahwa matrik P terdiri dari tiga baris dan empat kolom. DIM Q(2,5) memberitahu komputer bahwa matriks Q terdiri dari dua baris dan lima kolom. Sebuah statemen DIM dapat digunakan untuk menyatakan dimensi dari beberapa matriks, misalnya DIM A(4,7), B(5,5), C(16,3). Statemen DIM biasanya diletakan pada awal sebuah program.

Materi Selengkapnya dapat dilihat Halaman 234 Buku Algoritma Pemrograman (Suryadi Hs dan Agus Sumin)

TUGAS PERTAMA (MATRIK INVERS)
Dimana MAT C= INV(A), Matrik C sama dengan invers dari A. Diinginkan Output seperti berikut:


berikut source code nya silahkan di download

TUGAS KEDUA (MATRIK IDENTITAS)
Dimana MATC=Identitas, Matrik A adalah matrik satuan. Diinginkan Output seperti berikut:


berikut source code nya silahkan di download


TUGAS KETIGA (PENJUALAN ELEKTRONIK DI KOPERASI)
Soalnya seperti ini:
Perhatikan Tabel harga dari jenis barang pada sebuah koperasi di bawah ini:

Tulis sebuah program untuk membaca tabel di atas, memuat baris-baris berikut ini:
PRINT "KAMI SIAP MELAYANI PESANAN ANDA"
PRINT "TEKAN 1 UNTUK TV, 2 UNTUK STEREO , DAN 3 UNTUK RADIO"
PRINT "TEKAN 1 UNTUK TANPA RABAT, 2 HARGA SISWA, 3 HARGA ANGGOTA"
PRINT "BERAPA BANYAK YANG ANDA PESAN?"

Bila pemakai program tersebut berturut-turut menekan 2,3, dan 5 pada statemen INPUT, maka hasilnya adalah
HARGA YANG HARUS ANDA BAYAR ADALAH 950 RIBU RUPIAH.
karena yang dipesan adalah 5 buah stereo dengan harga untuk anggota.
Diinginkan Output seperti berikut:


berikut source code nya silahkan di download


silahkan berkomentar berpendapat ngobrol atau bercuhat ria atau terserahlah
di bawah ini , hehehe... OK! TEUTEP SEMANGAT!!

Pertemuan Basic Terakhir

Pengenalan Qbasic telah berakhir! Laporan demi Laporan pun telah saya buat dan terkumpul dengan sangat banyaknya kertas file berukuran A4 dikamar berantakan yang tambah hancur sekarang hehehe (lebay ah mode 'on') ... Ujian praktikum telah saya lakukan, sekarang tinggal mempersiapkan diri untuk menghadapi UTS deh.. teman-teman pastinya penasaran khaan? soal seperti apa sih yang harus dikerjakan saat ujian praktikum VB dan QBasic yang telah berlangsung.. bagi pengunjung fauzi-online yang lain kelas dengan saya dan belum melaksanakan ujian praktikum silahkan belajar yah.. jangan lupa selalu mencoba, dan jangan putus asa.. okay?
berikut sebagai bahan refrensi... Semoga bermanfaat yah..

Pembuatan Segitiga Berhubung


Soal
Buatlah sebuah program dimana user dapat menginput suatu bilangan dan dapat ditampilkan sebagaimana gambar di bawah!
misal user menginput bilangan 6 maka akan tampil:


Jika dilihat soalnya dan berpikir tanpa tangan bergerak yaah: "kiiirdipikirpikir kalo dipikir trus tambah jadi kentir {sebutan orang gila,hehe, just K}"
okelah..lama-lama mikir yuuk kita petik source code nya di sini,
SOURCE CODE UNTUK QB
|| SOURCE CODE UNTUK VB
Dan silahkan kembangkan dan jangan lupa saran atau pengembangan dari source code saya di atas dianjurkan untuk diisi dalam komentar demi kepentingan bersama qt lhoo... ok?

Dalam sesi kali ini, Saya juga berterimakasih bagi para pengunjung fauzi-online serta teman-teman yang senantiasa setia sebagai pengunjung blog ini, dan tidak lupa saya minta doannya agar saya khususnya (akhmad fauzi) serta teman-teman yang juga sedang atau Akan menjalankan ujian Tengah Semester akan berjalan dengan lancar tak ada hambatan suatu apapun dan juga mendapatkan hasil nilai yang sangat Memuaskan... AMIIIIN,

mohon maaf jika dalam 3 bulan terakhir dalam perkembangan blog saya ada kata-kata yang kurang berkenan dan tidak seharusnya saya posting setidaknya berlandaskan kepentingan kita bersama,sebagai manusia biasa, mohon dimaafkan segala kesalahan dan khilaf saya yah?

Terimakasih, Sukses Selalu, Selamat Belajar, dan Hidup Blogging INDONESIA, CU @ NEXT MY POST....

Kumpulan Soal-Soal QBasic

Kumpulan Soal-Soal QBasic
Dimana ada permasalahan disitu ada jalan keluar, dimana ada masalah pasti ada solusi, sama seperti : dimana ada soal pasti ada yang menyediakan jawabannya... hehe
Berikut fauzi rangkum dari buku algoritma pemrograman karangan Suryadi H.S dan Agus Sumin Halaman 61 ,namun di sini jawaban dimodifikasi berupa program bukan flowchart lagi, semalam suntuk telah fauzi selesaikan.
semoga dapat dipelajari dan bermanfaat bagi teman-teman ,dan pengunjung blog fauzi online saat ini...
PETUNJUK: SILAHKAN BUAT PROGRAM DENGAN QBASIC SESUAI OUTPUT DENGAN SOAL
Soal 1:
Menampilkan faktorial n! dari n=1!,2! ... 8!
Jawabannya di di sini

Soal 2:
Menampilkan deret aritmatika 3,7,11 ... (sampai 12 suku)
Jawabannya di di sini

Soal 3:
Menampilkan geometri 4,12,36 ... (sampai 10 suku)
Jawabannya di di sini

Soal 4:
Menampilkan faktorial n! dari n=1,4,9 ... (sampai 10 suku)
Jawabannya di di sini

Soal 5:
Menampilkan deret harmonis 1,1/2,1/3 ... (sampai 10 suku)
Jawabannya di di sini

Soal 6:
Menampilkan deret kubik 1,8,27 ... (sampai 10 suku)
Jawabannya di di sini

Soal 7:
Menampilkan faktorial genap 2,2*4,2*4*6 ... (sampai 16 suku)
Jawabannya di di sini

Soal 8:
Menampilkan deret bergoyang 1,-2,4,-8 ... (sampai 10 suku)
Jawabannya di di sini

Soal 9:
Menampilkan deret bergoyang kuadrat 1,-4,9,16 ... (sampai 10 suku)
Jawabannya di di sini

Soal 10:
Menampilkan deret Fibonaci 0,1,1,2,3,5 ... (sampai 12 suku)
Jawabannya di di sini

Soal 11:
Menampilkan deret 256,196,144 ... (sampai 8 suku)
Jawabannya di di sini

Soal 12:
Menampilkan deret -1000,-729,-512 ... (sampai 10 suku)
Jawabannya di di sini

Soal 13:
Menampilkan deret Fibonaci 1,1.3,3.4,12.5,60.6 ... (sampai 8 suku)
Jawabannya di di sini

Ingat teman... silahkan dicoba dalam versi pembuatan program anda dulu yaa, jika telah jadi silahkan bandingkan dengan coding fauzi atau mengalami kebingungan silahkan lihat jawabannya dan jika terjadi kesalahan atau kekurangan, silahkan langsung confirm dalam bentuk coment saja di bawah Okay?
mohon maaf untuk soal halaman 62 belum ada jawaban waktu yang terbatas.. namun dasarnya semua menggunakan logika dan rumus yang bersamaan.. OK! Semangat.. Cu next Time

Perulangan QBasic Part II

Sesi sebelumnya kita telah melakukan pemanasan untuk mengenal tentang fungsi operai For...Next, berikutnya dalam kesempatan ini fauzi mencoba untuk memperkenalkan dengan berbagai contoh soal For...Next Universal
yang beraneka ragam, silahkan untuk kita pelajari code program dan alur logika nya secara bersama-sama yah...

CONTOH SOAL 1
Diinginkan Output sebagai berikut:
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO B tidak terpenuhi
5.Tampilkan nilai variable C
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable B
7.PRINT untuk ganti baris
8.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO B
4.Tampilkan nilai variable C {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO B dan seterusnya Sampai C lebih besar dari B
6.PRINT (Ganti Baris)
7.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
8.END

CONTOH SOAL 2
Diinginkan Output sebagai berikut:
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO B tidak terpenuhi
5.Tampilkan nilai variable B
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable B
7.PRINT untuk ganti baris
8.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO B
4.Tampilkan nilai variable B {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO B dan seterusnya Sampai C lebih besar dari B
6.PRINT (Ganti Baris)
7.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
8.END

CONTOH SOAL 3
Diinginkan Output sebagai berikut:
5 5 5 5 5
4 4 4 4
3 3 3
2 2
1

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO A tidak terpenuhi
5.Tampilkan nilai variable A
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable A
7.PRINT untuk ganti baris
8.Beri nilai Variabel A sama dengan nilai variabel A sebelumnya dikurangi satu
9.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO A
4.Tampilkan nilai variable B {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO A dan seterusnya Sampai C lebih besar dari A
6.PRINT (Ganti Baris)
7.Beri Nilai A=A-1
8.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
9.END

Demikian 3 Contoh soal menggunakan For...Next Universal, kemudian jika teman-teman ingin mencoba soal yang lebih membutuhkan banyak bensin alias energi alias logika tinggi hehe.. berikut soal yang silahkan teman-teman nikmati:

Soal Ujian
Diinginkan Output sebagai berikut:

1 2 3 4 5 5 4 3 2 1
1 2 3 4 0 0 4 3 2 1
1 2 3 0 0 0 0 3 2 1
1 2 0 0 0 0 0 0 2 1
1 0 0 0 0 0 0 0 0 1

ket: 0 anggap itu adalah spasi

Naah... silahkan dicoba yah? jika sudah jadi silahkan dicocokan dengan code program yang telah berhasil saya buat di sini.. Ingat coba dulu sebelum menyerah? Tuhan pastikan pentujuk nya bagi hambanya yang sabar dan tak kenal putus asa.. hehe kaya dmasiv tuh! Semangat Teman! Cu Next Time...

Perulangan QBasic Part I

Perulangan dalam bahasa pemrograman QBasic
merupakan suatu kondisi yang memenuhi untuk melakukan perulangan statement tertentu sampai kondisi tersebut tidak terpenuhi sehingga perulangan dihentikan. Sudah fauzi janjikan untuk artikel selanjutnya yakni akan
membahas mengenai perulangan universal menggunakan FOR...NEXT

FOR...NEXT
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
Bentuk Umumnya:
FOR (PENCACAH)=(AWAL) TO (AKHIR)
(STATEMENT)
NEXT (PENCACAH)
KETERANGAN:
pencacah:Nama sembarang numeric
awal :nilai awal/batas bawah pencacah
akhir :nilai akhir/batas atas pencacah

Contoh Program For...Next Universal

Diinginkan dari user menampilkan Output sbb:

1 2 3 4 5
1 2 3 4
1 2 3
1 2
1

Code Programnya:


Penjelasannya:
1.CLS untuk membersihkan layar dari tampilan teks sebelumnya
2.INPUT untuk memasukan variable, program di atas menggunakan variable A
3.FOR ... NEXT untuk melakukan suatu perulangan sampai kondisi yang digunakan bernilai salah, sehingga perulangan tersebut akan berhenti, dan melanjutkan ke statemen setelah NEXT
4.Pemberian nilai bahwa nilai variable A bernilai sama dengan nilai variable A sebelumnya dikurangi satu
5.END untuk mengakhiri program

Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO A tidak terpenuhi
5.Tampilkan nilai variable C
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable A
7.PRINT untuk ganti baris
8.Beri nilai variable A dengan nilai variable A sebelumnya dikurangi satu
9.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO 5
4.Tampilkan nilai variable C {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO A dan seterusnya Sampai C lebih besar dari A
6.A=A-1{A=5-1=4}
7.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterunya Sampai B lebbih besar dari A
8.END

Naaah... mudah kaga tuh contoh perulangan universal di atas?hehe..
mudah tidaknya sih, sebenarnya semua kembali ke masing-masing pembuat programnya?
Logika dan penjabaran alur algoritma yang matang sangat diperlukan sebagai modal dasar untuk memecahkan sebuah masalah program yang membutuhkan perulangan
apalagi yang berbentuk universal, Ok tetap semangat teman! dan mari kita lanjutkan belajar At Next My Post.. Ok? CU next Time

Panduan Rancangan Adalah Postingan Fauzi Online yang Sementara Direkomendasikan untuk Dibaca. Silahkan Baca... 

Praktikum I QBasic

Hari pertama praktikum di kampus yang baru, mempelajari sebuah bahasa pemrograman yang sangat basic yaah namanya juga QBasic, Berikut program I QBasic yang telah saya pelajari bagi para sisfo'ers yang ingin menambahkan atau komentar soal bahasa pemrograman ini silahkan dipersilahkan setelah mempelajari ringkasan catatan fauzi yah tentunya, hehe..

PROGRAM MENENTUKAN BILANGAN BULAT ATAU GANJIL


Penjelasannya:
-Baris pertama:
CLS untuk membersihkan layar dari tampilan teks sebelumnya
-Baris kedua:
INPUT untuk memasukan variable, program di atas menggunakan variable x
-Baris ketiga:
IF ... THEN ... ELSE ... END IF untuk menyatakan suatu kondisi jika bernilai benar maka lanjutkan perintah sesudah IF jika kondisi salah loncat ke perintah sesudah ELSE, program di atas menggunakan kondisi MOD yaitu operasi yang berfungsi melihat sisa hasil bagi suatu variable,
Contoh: 4 MOD 2 =0 (sisa hasil bagi suatu bilangan genap dengan 2 pasti sisanya 0) sedangkan,5 MOD 2=1 (sisa hasil bagi suatu bilangan ganjil dengan 2 pasti hasilnya 1)
-Baris Keempat:
END untuk mengakhiri program

Cukup simple bukan? OK kita sekarang mulai dengan algoritma programnya...
1.Clear screen (membersihkan layar)
2.Input nilai variable x (bernilai integer)
3.JIKA x MOD 2 = 0 (jika sisa hasil bagi nilai variable x dengan 2 sisanya 0)
4.AKHIR/END

Berikut Contoh output program yang menyatakan bilangan genap


Penjelasan:
1.User atau pengguna memasukan nilai 4, disimpan oleh komputer di variable x
2.Dinyatakan kondisi ternyata benar 4 mod 2 = 0, sehingga tampil "BILANGAN GENAP"

Berikut Contoh output program yang menyatakan bilangan ganjil


Penjelasan:
1.User atau pengguna memasukan nilai 5, disimpan oleh komputer di variable x
2.Dinyatakan kondisi ternyata salah 5 mod 2 = 0, sehingga tampil "BILANGAN GANJIL"

Maksudkah?? Mudahkan?? Iya khan Iya dong?? hehe..Oke next post.. kita akan main di perulangan yah? buat perulangan fauzi langsung diajarin dengan fungsi FOR...NEXT , namun bersifat Universal dimana tidak hanya FOR...NEXT atau perulangan satu saja namun ada beberapa perulangan lagi di dalamnya, akan kita bahas di Postingan berikutnya... OK!

Kuliah Algoritma Pemrograman QBasic

Kurang lebih selama sepuluh pertemuan ini kita telah belajar mata kuliah algoritma pemrograman qbasic yang meliputi beberapa materi sesuai dengan Satuan Acara Perkuliahan yang ada. Semoga kalian dapat memahami mengenai materi yang telah berlalu. Sebagai ulasan rincian materi yang telah kita pelajari berdasarkan pembagian kelompok presentasi, antara lain:

Kelompok 1
- Pengenalan BASIC, Jenis-jenis bahasa pemrograman BASIC
- Notasi dan ekspresi dalam BASIC
- Variabel-variabel dalam BASIC

Kelompok 2
- Statement LET,PRINT,REM dan READ DATA

Kelompok 3
- Statement RESTORE, IF THEN, GO TO
- Statement PRINT lanjutan

Kelompok 4
- Pemutaran kembali
- Pembatasan pengulangan
- Menggunakan PANJI/FLAG

Kelompok 5
- Membatasi pengulangan dengan menggunakan kounter dan kondisi
- Statement INPUT

Kelompok 6
- Array dan dimensi
- Variabel bersubcript

Kelompok 7
- IF…..THEN…..ELSE
- CASE

Kelompok 8
- FOR NEXT
- ON n GOTO
- ON n GOSUB

Kelompok 9
- LEFT$
- MID$
- RIGHT$
- LEN
- Fungsi Numerik(RND,INT,SQR, dst)
- Fungsi Absolute
- Fungsi Integer

Sebagai bahan untuk persiapan kalian menghadapi Ujian Tengah Semester yang telah di depan mata, Saya akan memberikan tugas tambahan untuk dapat menjadikan patokan serta nilai tambahan untuk poin tugas kalian.

Tugas kali ini merupakan TUGAS INDIVIDU yang wajib kalian kerjakan di blog masing-masing atau posting artikel di blog. Pahami instruksi dan ketentuan tugas ini.

Kuliah Organisasi Sistem Komputer
Getting Started With Time Management
PENJELASAN TUGAS KULIAH ALGORITMA PEMROGRAMAN QBASIC
Silahkan posting artikel yang berisikan tema salah satu topik materi dari salah satu kelompok yang terdapat pada penjelasan di atas. Buatlah postingan yang bertujuan me review materi dengan gaya bahasa kalian sendiri.

KETENTUAN PEMBUATAN TUGAS:
Terdapat Enam poin ketentuan yang harus Anda pahami dan ikuti untuk mengerjakan tugas ini. Keteledoran atau mengabaikan salah satu poin ketentuan berikut dapat mengurangi bahkan tugas tidak akan dinilai:
  1. Satu mahasiswa dalam satu kelompok yang sama harus membuat 1 postingan artikel dengan tema yang berbeda dari kelompok lain. Sebagai contoh:
    Rani , Budi dan Andi merupakan kelompok 1, sehingga dipastikan mereka tidak boleh membuat artikel dari kelompok mereka sendiri, maka diputuskanlah bersama bahwa : Si Rani membuat postingan dengan tema Penggunaan perulangan For Next Qbasic dari kelompok 8 , kemudian Si Budi membuat artikel dengan tema Statement Input dari kelompok 5, dan Si Andi membuat artikel dengan tema Fungsi Numerik dari kelompok 9.
  2. Judul postingan artikel adalah judul tema materi yang Anda review. Sebagai Contoh:
    Judul artikel: Statement Input Pada QBasic
  3. Postingan tulisan artikel MINIMAL sejumlah 600 (enam ratus) Karakter.
  4. Postingan artikel wajib menuliskan kata kunci: Kuliah Algoritma Pemrograman QBasic dengan link aktif ke halaman: http://uzi-online.blogspot.com/2000/11/kuliah-algoritma-pemrograman-qbasic.html
  5. Silahkan tulis Nama Lengkap, KELAS, NPM, serta URL artikel kalian ke dalam kotak komentar di bawah, agar saya dapat membaca secara langsung posting artikel yang Anda buat. Sebagai Contoh:
    NAMA: RADEN RORO RANI
    NPM: 14109359
    KELAS: 1KA30
    URL: http://rani-online.blogspot.com/2000/11/statement-input-pada-qbasic.html
  6. DEADLINE TUGAS : HARI RABU TANGGAL 3 DESEMBER 2014 JAM 6 PAGI
Selamat mengerjakan, Semoga Anda dapat mengerjakan Soal UTS Algoritma Pemrograman Qbasic dengan lancar. Jaga kesehatan dan jangan terlambat datang, terlebih lagi tidak datang saat UTS. Mahasiswa yang tidak menghadiri UTS tanpa alasan yang jelas otomatis akan diberi nilai 0 (nol) oleh pihak kampus.

Salam Semangat dari Dosen Kuliah Algoritma Pemrograman QBasic Anda. :)
(Akhmad Fauzi)