Searching Deret pada QBASIC

Kali ini gua akan membuat Program Searching dengan soal deret Aritmatika, jadi kita bisa mencari bilangan Aritmatika dalam program ini.

Jadi Programnya seperti ini :

REM BILANGAN ARITMATIKA
CLS
PRINT "________________________________________________________________________________"
PRINT ""
PRINT "==================   SELAMAT DATANG DI APLIKASI ARSITEKTUR  ===================="
PRINT ""

PRINT "________________________________________________________________________________"
PRINT ""
PRINT "                        SILAHKAN ISI DATA PEKERJA                               "
PRINT ""
INPUT "  NAMA PEKERJA BANGUNAN          :", B$
PRINT ""
INPUT "  NOMOR SERI PEKERJA (4 ANGKA)   :", O$
PRINT ""
INPUT "  MASA KONTRAK PEKERJA           :", P$
COLOR 3

MENU:
CLS
COLOR 29
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 12
PRINT "=========================     SELAMAT DATANG       ============================="
PRINT ""
PRINT "___________________________      MENU       ____________________________________"
PRINT "1. MENCARI BALOK"
PRINT "2. LIHAT SELURUH BALOK YANG DIPERLUKAN"
PRINT "3. ISI DATA BANGUNAN"
PRINT ""
INPUT "MASUKKAN PILIHAN ANDA [1/2]: ", P$

SELECT CASE P$
    CASE "1"
        GOTO 10
        10 CLS
        INPUT "MASUKKAN URUTAN BALOK YANG INGIN ANDA KETAHUI: ", G
        PRINT ""
        FOR N = 1 TO S
            UN = A + (N - 1) * B
            COLOR 4
            IF N = G THEN PRINT "BALOK KE "; N; "JUMLAH BALOK YANG DIPERLUKAN SEBANYAK"; UN; "BALOK"
        NEXT N
        COLOR 3
        PRINT ""
        COLOR 5
        CLOSE
        INPUT "KEMBALI KE MENU AWAL? [Y/N]", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "2"
        GOTO 20
        20 CLS
        PRINT " _________________________________"
        PRINT TAB(5); "POSISI BALOK"; TAB(20); "BANYAK BALOK"
        PRINT " _________________________________"
        FOR N = 1 TO S
            UN = A + (N - 1) * B
            SN = 1 / 2 * N * (A + UN)
            PRINT TAB(5); N; TAB(23); UN
        NEXT N
        PRINT " _________________________________"
        PRINT ""
        PRINT "JUMLAH SELURUH BALOK"; SN
        INPUT "KEMBALI KE MENU AWAL? [Y/N]", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "3"
        GOTO 30
        30 CLS
        COLOR 2
        PRINT "---------------            BANGUNAN GEDUNG ATMAJAYA             ----------------"
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 13
        INPUT "   BANYAK BALOK : ", S
        INPUT "   BALOK AWAL : ", A
        INPUT "   JARAK ANTAR BALOK : ", B
        PRINT ""
        INPUT "KEMBALI KE MENU AWAL? [Y/N]", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:



END SELECT
100 END
END

Dari program diatas tentu berbeda dengan program-program awal yang kita buat. Di program ini gua juga membuat Menu awal agar kita tidak terlalu susah.
Fungsi Statement yang digunakan pada program ini antara lain :
1. LET

Statement LET biasanya digunakan untuk memasukan sebuah nilai/harga kedalam suatu variabel yang mana harga/nilai dari sebuah variabel tersebut boleh berubah.

Misal  LET A = 3

2.  PRINT

Statement PRINT digunakan untuk mencetak atau menampilkan data hasil pengolahan pada layar tampilan.

3. REM

Statement REM digunakan untuk memberikan komentar, judul, penjelasan program, keterangan mengenai variabel program tanpa merubah program tersebut.

4. CLS

Statement CLS digunakan agar tidak terjadi pengulangan program pada hasil input.
5. COLOR 
Statement COLOR digunakan untuk mewarnai tulisan pada hasil codingan. Contoh COLOR 13, angka awal pada COLOR tersebut menandakan warna tulisannya sedangkan angka 3 menandakan warna Backgroundnya. Jadi kalau ingin mengubah warna background atau tulisan kalian hanya perlu mengubah angka pertama untuk tulisan atau angka kedua untuk background.

6. SELECT CASE
Statement SELECT CASE digunakan untuk menyatakan suatu kondisi tertentu. SELECT CASE ini juga sama dengan IF...THEN
7. GOTO
Statement GOTO berguna untuk melompatkan proses eksekusi ke suatu baris yang diberi nomor baris tanpa harus mentest suatu kondisi, sehingga sering disebut dengan statement alih tanpa syarat. Baris yang dituju untuk dieksekusi kemudian ditandai dengan nomor baris tertentu.
8. FOR NEXT 
Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
9. IF .... THEN .... ELSE
Perintah ini menandakan bahwa dalam IF terdapat IF lagi di dalamnya. Dalam mengakhiri perintah ini harus menggunakan END IF.

Jadi codingannya seperti ini :

Hasil codingannya seperti ini :

karena kita belum memasukkan data maka kita harus memilih no. 3

output diatas adalah pilihan no 3, jadi kita tinggal memasukkan nilai/datanya. Setelah selesai mengisi data, jika kita ingin melihat keseluruhan deret maka kita harus menekan no 2

gambar diatas setelah kita memilih nomor 2

jika kita ingin mengetahui deret yang kita inginkan pilih no 1, kita hanya perlu memasukkan nilainya lalu tekan enter. seperti gambar diatas.

.