3 BAND ROCK TERBAIK SEPANJANG MASA

Sebelumnya Musik Rock adalah genre musik populer yang diketahui secara umum pada pertengahan tahun 50-an.Akarnya berasal dari rythm dan blues, musik country dari tahun 40 dan 50-an serta berbagai pengaruh lainnya.Musik Rock juga mengambil gaya dari berbagai musik lainnya, termasuk musik rakyat (folk music),jazz,dan musik klasik.Oke langsung saja kita simak band-band rock terbaik sepanjang masa.

1. THE BEATLES 

    The Beatles adalah band rock asal Liverpool, Inggris. The Beatles juga merupakan band besar dan  paling populer pada tahun 60-an. The Beatles ini beranggotakan John Lennon (Vokal & Gitar), Paul McCartney (Bass & Gitar), George Harrison (Gitar), dan Ringo Star (Drum). Ada beberapa lagu lagu terbaik mereka yaitu She Loves You, Love Me Do, Yesterday, Let It Be, Hey Jude dan  lain lain. Pada tahun 1970 personil The Beatles memutsukan untuk bubar dan mereka memilih untuk bersolo karir. Sangat disayangkan perjalanan karir The Beatles pun berakhir dengan singkat,tak lebih dari 10 tahun. Namun hingga kini nama The Beatles masih sering disebut sebagai band terbaik.
 
    

2. LED ZEPPELIN

    Led Zeppelin adalah band rock asal London, Inggris yang dibentuk pada tahun 1968 dan populer pada tahun 70-an. Led Zeppelin beranggotakan Robert Plant (Vokal), Jimmy Page (Gitar), John Paul Jones (Bass), dan John Bonham (Drum). Ada beberapa lagu-lagu terbaik mereka yaitu Stairway To Heaven, Rock n Roll, Whole Lotta Love, Good Times Bad Times, Ramble On, dan lain lain. Led Zeppelin bubar setelah kematian drummernya John Bonham pada tahun 1980. Band ini tetap dikenang sebagai salah satu band paling inovatif dan pengaruh mereka di industri musik banyak di aplikasikan band band lain.




3.THE DOORS

   The Doors adalah grup musik rock asal Amerika Serikat yang terbentuk pada tahun 1965 di kota Los Angeles, California. The Doors beranggotakan Jim Morrison (Vokal), Ray Manzarek (Keyboard), Robby Krieger (Gitar), dan John Densmore (Drum). Grup musik ini mengambil nama dari sebuah buku yang berjudul The Doors Of Perception karya Aldous Huxley. Beberapa lagu terbaik mereka yaitu Light My Fire, The End, Moonlight Drive, L.A. Woman, People Are Strange, dan lain lain. Band ini resmi bubar pada tahun 1973, yang artinya karir The Doors hanya berlangsung selama 8 tahun. Meski Singkat, namun pengaruh The Doors terhadap industri musik sangat besar. Popularitas mereka masih bertahan hingga sekarang. The Doors juga merupakan salah satu band tersukses, dengan rekor penjualan lebih dari 100 juta kopi.



Oke,itu dia 3 band rock terbaik sepanjang masa. Semoga bermanfaat

TUGAS ALGORITMA DAN PEMROGRAMAN 4 (BU ITO)

QBASIC

 MATERI : KOREKSI

1.  KODINGAN:

CLS
COLOR 27
PRINT "________________________________________________________________________________"
COLOR 11
PRINT ""
PRINT "          SELAMAT DATANG DI LAB MAHASISWA UJIAN PRAKTIK KIMIA DASAR"
COLOR 27
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 15
PRINT ""
PRINT "     SILAHKAN ISI IDENTITAS TERLEBIH DAHULU"
PRINT ""
INPUT "     NAMA MAHASISWA  : ", N$
INPUT "     NPM             : ", NPM
INPUT "     KELAS           : ", K$
PRINT ""
PRINT ""
CLS
COLOR 15
PRINT ""
PRINT "   MENENTUKAN WARNA CAIRAN SUATU BAHAN"
PRINT ""
COLOR 14
PRINT "     SOAL : "
PRINT ""
PRINT " 1. WARNA PADA SABUN MANDI          (MERAH ATAU BIRU)"
PRINT " 2. WARNA PADA AIR CUKA             (MERAH ATAU BIRU)"
PRINT " 3. WARNA PADA COCA-COLA            (MERAH ATAU BIRU)"
PRINT " 4. WARNA PADA OBAT NYERI LAMBUNG   (MERAH ATAU BIRU)"
PRINT " 5. WARNA PADA AIR HUJAN            (MERAH ATAU BIRU)"
PRINT ""
COLOR 12
FOR Z = 1 TO 5
    PRINT " JAWABAN NOMOR"; Z
    INPUT " ISI DISINI : ", J$(Z)
NEXT Z
CLS

CLS
COLOR 14
PRINT ""
PRINT "                       HASIL UJIAN PRAKTIK KIMIA DASAR"
COLOR 15
PRINT ""
PRINT "     NAMA MAHASISWA : "; N$
PRINT "     NPM            : "; NPM
PRINT "     KELAS          : "; K$

S = 0

COLOR 5
PRINT " _______________________________________________________________"
PRINT "|"; TAB(3); "NO"; TAB(6); "|"; TAB(9); "KUNCI JAWABAN"; TAB(24); "|"; TAB(28); "JAWABAN MAHASISWA"; TAB(48); "|"; TAB(52); "KETERANGAN"; TAB(65); "|"
PRINT " _______________________________________________________________"

IF J$(1) = "BIRU" THEN
    PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
    S(1) = 1
    PRINT " _______________________________________________________________"
ELSE
    PRINT "|"; TAB(3); "1"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(1); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
    S(1) = 0
    PRINT " _______________________________________________________________"
END IF

IF J$(2) = "MERAH" THEN
    PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
    S(2) = 1
    PRINT " _______________________________________________________________"
ELSE
    PRINT "|"; TAB(3); "2"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(2); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
    S(2) = 0
    PRINT " _______________________________________________________________"
END IF

IF J$(3) = "MERAH" THEN
    PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
    S(3) = 1
    PRINT " _______________________________________________________________"
ELSE
    PRINT "|"; TAB(3); "3"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(3); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
    S(3) = 0
    PRINT " _______________________________________________________________"
END IF

IF J$(4) = "BIRU" THEN
    PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
    S(4) = 1
    PRINT " _______________________________________________________________"
ELSE
    PRINT "|"; TAB(3); "4"; TAB(6); "|"; TAB(12); "BIRU"; TAB(24); "|"; TAB(34); J$(4); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
    S(4) = 0
    PRINT " _______________________________________________________________"
END IF

IF J$(5) = "MERAH" THEN
    PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "BENAR"; TAB(65); "|"
    S(5) = 1
    PRINT " _______________________________________________________________"
ELSE
    PRINT "|"; TAB(3); "5"; TAB(6); "|"; TAB(12); "MERAH"; TAB(24); "|"; TAB(34); J$(5); TAB(48); "|"; TAB(55); "SALAH"; TAB(65); "|"
    S(5) = 0
    PRINT " _______________________________________________________________"
END IF

COLOR 15
PRINT ""
B = S(1) + S(2) + S(3) + S(4) + S(5)
PRINT "JAWABAN BENAR : "; B
NILAI = (S(1) + S(2) + S(3) + S(4) + S(5)) * 20
PRINT ""
PRINT "NILAI "; N$; " ADALAH "; NILAI
END

2. OUTPUT PROGRAM

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program.

Setelah itu akan muncul tampilan seperti di bawah ini

Lalu isi identitasnya dahulu

 Setelah itu isi jawaban dari soal dibawah ini

Gambar di bawah ini merupakan hasil dari soal yang tadi telah di isi

Itu dia hasil dari program qbasic koreksi, kurang lebihnya mohon maaf seekian dan terima kasih

TUGAS ALGORITMA DAN PEMROGRAMAN 2 (BU ITO)

QBASIC

MATERI : DERET

1, KODINGAN :

CLS
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 2
PRINT "===============     MARI MENGHITUNG BILANGAN ARITMATIKA     ================"
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 1
INPUT "   MULAI DARI SUKU KE : ", SA
PRINT ""
INPUT "   BERAKHIR DI SUKU KE : ", SZ
COLOR 6
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 1
INPUT "   NILAI SUKU PERTAMA ADALAH ", A
PRINT ""
INPUT "   NILAI SUKU SELANJUTNYA ADALAH ", AA
B = AA - A

MENU:
CLS
COLOR 2
PRINT "                                 SELAMAT DATANG"
COLOR 2
PRINT "======================================MENU====================================="
PRINT ""
COLOR 5
PRINT " 1.LIHAT RUMUS"
PRINT " 2.MENGHITUNG ARITMATIKA "
PRINT " 3.MENCARI BILANGAN ARITMATIKA "
PRINT " 4.KELUAR"
PRINT ""
COLOR 5
INPUT " MASUKKAN PILIHAN ANDA (1-4): ", P$

SELECT CASE P$
    CASE "1"
        GOTO 1
        1 CLS
        PRINT ""
        COLOR 9
        PRINT TAB(5); " _________________________________________________________"
        PRINT TAB(5); "\                                                         /"
        PRINT TAB(5); "/ RUMUS BILANGAN ARITMATIKA : A + (N - 1) * B             \"
        PRINT TAB(5); "\                                                         /"
        PRINT TAB(5); "/ RUMUS JUMLAH BILANGAN ARITMATIKA : 1 / 2 * N * (A + UN) \"
        PRINT TAB(5); "\_________________________________________________________/"
        PRINT ""
        COLOR 9
        PRINT TAB(10); " _____________________________"
        PRINT TAB(10); "\                                                         /"
        PRINT TAB(10); "/        KETERANGAN :                   \"
        PRINT TAB(10); "\                                                         /"
        PRINT TAB(10); "/      A = NILAI AWAL                     \"
        PRINT TAB(10); "\      B = BEDA NILAINYA              /"
        PRINT TAB(10); "/      N = SUKUNYA                          \"
        PRINT TAB(10); "\_____________________________/"
        PRINT ""
        PRINT ""

        COLOR 9
        CLOSE
        INPUT "  KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "2"
        GOTO 2
        2 CLS
        PRINT ""
        COLOR 3
        PRINT "NILAI A (AWAL) :"; A
        PRINT "NILAI B (BEDA) :"; B
        PRINT ""
        COLOR 3
        PRINT "        HASIL PERHITUNGAN"
        COLOR 7
        PRINT " _________________________________"
        COLOR 3
        PRINT "|"; TAB(5); "SUKU"; TAB(13); "|"; TAB(20); "NILAI SUKU"; TAB(35); "|"
        COLOR 7
        PRINT " _________________________________"
        FOR N = SA TO SZ
            UN = A + (N - 1) * B
            COLOR 3
            PRINT "|"; TAB(5); N; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
            SN = 1 / 2 * N * (A + UN)
        NEXT N
        COLOR 7
        PRINT " _________________________________"
        COLOR 3
        PRINT "|"; TAB(4); "JUMLAH"; TAB(13); "|"; TAB(22); SN; TAB(35); "|"
        COLOR 7
        PRINT " _________________________________"
        PRINT ""
        PRINT ""

        COLOR 3
        CLOSE
        INPUT "  KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "3"
        GOTO 3
        3 CLS
        COLOR 7
        PRINT "_____________________________________________________________________"
        PRINT ""
        COLOR 9
        INPUT "                        CARI SUKU ARITMATIKA : ", NP
        COLOR 7
        PRINT "_____________________________________________________________________"
        COLOR 9
        PRINT "        HASIL PERHITUNGAN"
        COLOR 7
        PRINT " _________________________________"
        COLOR 9
        PRINT "|"; TAB(5); "SUKU"; TAB(13); "|"; TAB(20); "NILAI SUKU"; TAB(35); "|"
        COLOR 7
        PRINT " _________________________________"
        FOR N = SA TO SZ
            UN = A + (N - 1) * B
            COLOR 9
            IF N = NP THEN PRINT "|"; TAB(5); N; TAB(13); "|"; TAB(23); UN; TAB(35); "|"
            SN = 1 / 2 * N * (A + UN)
        NEXT N
        COLOR 7
        PRINT " _________________________________"
        PRINT ""
        PRINT ""

        COLOR 9
        CLOSE
        INPUT "  KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "4"
        GOTO 100
END SELECT

100 END
END

2. OUTPUT PROGRAM 

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program .

Setelah itu langsung isi nilai nilai suku yang kalian inginkan.Setelah selesai mengisi nilai suku akan muncul tampilan seperti ini

Lalu masukan pilihan nomor 2 untuk melihat hasil hitungannya

Setelah itu selesai.

Ini dia hasil dari program qbasic untuk menghitung Deret, kurang lebihnhya mohon maaf sekian dan terima kasih.

TUGAS ALGORITMA DAN PEMROGRAMAN 3 (BU ITO)

QBASIC

MATERI : RATA-RATA

1. KODINGAN 

CLS
COLOR 15
PRINT "________________________________________________________________________________"
COLOR 9
PRINT ""
PRINT TAB(4); "      PEMERINTAH SEDANG MENENTUKAN AKREDITASI SMK SE-KOTA DEPOK"
COLOR 15
PRINT "________________________________________________________________________________"
PRINT ""
PRINT ""
COLOR 9
DIM H AS STRING
INPUT "   JUMLAH SMK : ", N

CLS
COLOR 11
FOR Z = 1 TO N
    PRINT ""
    PRINT "                        MASUKKAN DATA SMK "
    PRINT ""
    INPUT "     NAMA  SMK        : ", N$(Z)
    INPUT "     NILAI FASILITAS  : ", A(Z)
    INPUT "     NILAI KEBERSIHAN : ", B(Z)
    INPUT "     NILAI KEAMANAN   : ", C(Z)
NEXT Z

CLS
PRINT ""
COLOR 11
PRINT "                               HASIL PENILAIAN                                  "
COLOR 15
PRINT "________________________________________________________________________________"
COLOR 11
PRINT TAB(2); "NO"; TAB(5); "|"; TAB(7); "SMK"; TAB(19); "|"; TAB(21); "FASILITAS"; TAB(31); "|"; TAB(33); "KEBERSIHAN"; TAB(44); "|"; TAB(46); "KEAMANAN"; TAB(55); "|"; TAB(57); "RATA-RATA"; TAB(67); "|"; TAB(69); "AKREDITASI"
COLOR 15
PRINT "________________________________________________________________________________"
FOR Z = 1 TO N
    T = A(Z) + B(Z) + C(Z)
    R = T / 3
    IF R < 60 THEN H = "C"
    IF R >= 60 THEN H = "B"
    IF R > 80 THEN H = "A"
    COLOR 11
    PRINT TAB(2); Z; TAB(5); "|"; TAB(7); N$(Z); TAB(19); "|"; TAB(24); A(Z); TAB(31); "|"; TAB(36); B(Z); TAB(44); "|"; TAB(48); C(Z); TAB(55); "|"; TAB(57); R; TAB(67); "|"; TAB(73); H
    COLOR 15
    PRINT "________________________________________________________________________________"
NEXT Z
FOR Z = 1 TO N
    T = A(Z) + B(Z) + C(Z)
    R = T / 3
    IF R >= 60 THEN
    END IF
NEXT Z

END

2. OUTPUT PROGRAM 

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program .

setelah muncul tampilan seperti di bawah ini lalu isi data yang kalian inginkan

Setelah data data telah di isi akan muncul hasil penilaian

Itu dia hasil dari program qbasic mencari rata rata, kurang lebihnya mohon maaf sekian terima kasih.

TUGAS ALGORITMA DAN PEMROGRAMAN 1 (BU ITO)

QBASIC

MATERI : NO 14 DAN SEARCHING

1. KODINGAN

CLS
COLOR 14
PRINT "________________________________________________________________________________"
PRINT ""
COLOR 5
PRINT TAB(14); "UNIVERSITAS TERBUKA MENGADAKAN TURNAMEN CATUR"
PRINT ""
PRINT TAB(20); "TURNAMEN INI DIADAKAN DALAM 24 RONDE"
COLOR 14
PRINT "________________________________________________________________________________"
PRINT ""
DIM G AS STRING
COLOR 5
INPUT "     DATA YANG TERSEDIA : ", N

FOR Z = 1 TO N
    PRINT ""
    COLOR 5
    PRINT TAB(10); "MASUKKAN DATA"
    PRINT ""
    COLOR 5
    INPUT "   NAMA PECATUR : ", N$(Z)
    INPUT "   MENANG       : ", A(Z)
    INPUT "   SERI         : ", B(Z)
    INPUT "   KALAH        : ", C(Z)
NEXT Z

MENU:
CLS
COLOR 10
PRINT "                                 SELAMAT DATANG"
COLOR 10
PRINT "======================================MENU====================================="
PRINT ""
COLOR 13
PRINT " 1.LIHAT PERSYARATAN"
PRINT " 2.CARI NAMA PECATUR "
PRINT " 3.CEK SELURUH DATA PECATUR "
PRINT " 4.KELUAR"
PRINT ""
COLOR 13
INPUT " MASUKKAN PILIHAN ANDA (1-4): ", P$

SELECT CASE P$
    CASE "1"
        GOTO 2
        2 CLS
        COLOR 27
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 12
        PRINT "       ===============    SYARAT MENDAPATKAN GELAR    ================          "
        COLOR 27
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 13
        PRINT " PERHITUNGAN PRESTASI :"
        PRINT ""
        PRINT " 1. GRANMASTER BILA MENCAPAI PRESTASI 75%                                       "
        PRINT " 2. MASTER BILA MENCAPAI PRESTASI 50%"
        COLOR 27
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 14
        PRINT " PENILAIAN YANG DIHITUNG :"
        PRINT ""
        PRINT " 1. NILAI 1 JIKA MENANG"
        PRINT " 2. NILAI 1/2 JIKA REMIS ATAU DRAW"
        PRINT " 3. NILAI 0 JIKA KALAH"
        COLOR 27
        PRINT "________________________________________________________________________________"
        PRINT ""

        COLOR 15
        CLOSE
        INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "2"
        GOTO 3
        3 CLS
        PRINT ""
        COLOR 9
        INPUT "                 CARI NAMA PECATUR : ", NP$
        COLOR 15
        PRINT "________________________________________________________________________________"
        PRINT ""
        COLOR 9
        PRINT TAB(35); "DATA PECATUR"
        COLOR 9
        PRINT "________________________________________________________________________________"
        PRINT TAB(2); "NO"; TAB(10); "NAMA PECATUR"; TAB(27); "MENANG"; TAB(35); "SERI"; TAB(41); "KALAH"; TAB(50); "TOTAL"; TAB(57); "PRESTASI"; TAB(71); "GELAR"
        PRINT "________________________________________________________________________________"
        FOR Z = 1 TO N
            J = A(Z) + B(Z) + C(Z)
            T = ((A(Z) * 100 / 24) + (B(Z) * 1 / 2 * 100 / 4) + (C(Z) * 0 * 100 / 4))
            IF T < 50 THEN G = "TIDAK DAPAT"
            IF T >= 50 THEN G = "  MASTER"
            IF T >= 75 THEN G = "GRANDMASTER"
            IF J < 24 THEN G = "   GUGUR"
            IF J > 24 THEN G = "   GUGUR"
            IF N$(Z) = NP$ THEN PRINT TAB(2); Z; TAB(8); N$(Z); TAB(28); A(Z); TAB(35); B(Z); TAB(42); C(Z); TAB(50); J; TAB(56); T; TAB(69); G
        NEXT Z
        PRINT "________________________________________________________________________________"
        PRINT ""

        COLOR 9
        CLOSE
        INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "3"
        GOTO 4
        4 CLS
        COLOR 10
        PRINT ""
        PRINT TAB(25); "TABEL GELAR PEMAIN CATUR"
        PRINT ""
        COLOR 10
        PRINT "________________________________________________________________________________"
        PRINT TAB(2); "NO"; TAB(10); "NAMA PECATUR"; TAB(27); "MENANG"; TAB(35); "SERI"; TAB(41); "KALAH"; TAB(50); "TOTAL"; TAB(57); "PRESTASI"; TAB(71); "GELAR"
        PRINT "________________________________________________________________________________"
        FOR Z = 1 TO N
            J = A(Z) + B(Z) + C(Z)
            T = ((A(Z) * 100 / 24) + (B(Z) * 1 / 2 * 100 / 4) + (C(Z) * 0 * 100 / 4))
            IF T < 50 THEN G = "TIDAK DAPAT"
            IF T >= 50 THEN G = "  MASTER"
            IF T >= 75 THEN G = "GRANDMASTER"
            IF J < 24 THEN G = "   GUGUR"
            IF J > 24 THEN G = "   GUGUR"
            PRINT TAB(2); Z; TAB(8); N$(Z); TAB(28); A(Z); TAB(35); B(Z); TAB(42); C(Z); TAB(50); J; TAB(56); T; TAB(69); G
            PRINT "________________________________________________________________________________"
        NEXT Z
        PRINT ""
        PRINT ""

        COLOR 10
        CLOSE
        INPUT " KEMBALI KE MENU AWAL? [Y/N] : ", M$
        IF M$ = "Y" THEN GOTO MENU:
        IF M$ = "N" THEN GOTO 100:

    CASE "4"
        GOTO 100
END SELECT

100 END
END


2. OUTPUT PROGRAM 

Cari menu RUN lalu pilih START atau langsung tekan F5 pada keyboard untuk menampilkan output program .

setelah muncul tampilan seperti di bawah ini lalu isi data yang kalian inginkan

Setelah di isi akan muncul tampilan seperti di bawah ini

pilih nomor 2 untuk melakukan searching data dan isi data yang akan di searching

kembali ke menu awal pilih Y

setelah itu pilih nomor 3 untuk melihat hasil dari data keseluruhan

Setelah itu selesai.


Itu dia hasil dari program qbasic saya, kurang lebih nya mohon maaf sekian terima kasih.