QBASIC BIODATA SEDERHANA DENGAN MENU

QBASIC BIODATA SEDERHANA DENGAN MENU

   Bahasa BASIC (Beginner's All-purpose Symbolic Instruction Code) adalah sebuah bahasa pemrograman tingkat tinggi yang dirancang untuk mempermudah pemula dalam belajar pemrograman komputer. Bahasa ini dikembangkan pada tahun 1960-an oleh John Kemeny dan Thomas Kurtz di Dartmouth College.

    Awalnya, bahasa BASIC dirancang untuk digunakan dalam lingkungan pendidikan, sehingga bahasa ini memiliki sintaks yang sederhana dan mudah dipahami oleh pemula. Selain itu, bahasa BASIC juga terkenal karena mudah dikembangkan, dan banyak digunakan dalam pengembangan aplikasi bisnis dan industri.

    Saat ini, bahasa BASIC sudah berkembang menjadi berbagai macam varian, termasuk Microsoft Visual Basic, FreeBASIC, dan PureBasic. Bahasa ini juga masih digunakan dalam beberapa aplikasi tertentu, meskipun telah digantikan oleh bahasa pemrograman lain yang lebih modern dan canggih.

    Kali ini saya akan membagikan Sebuah code yang digunakan untuk membuat Biodata Sederhana Dengan sedikit Tambahan Source Code yang sudah saya rakit secara mandiri. Berikut adalah hasil program dan Source Code nya:

Tampilan Saat Running Code

Tampilan Saat Proses Input

SOURCE CODE:

Dim pil As Integer

1 Cls

Print "====== Menu Biodata ======"

Print "1. Masukan Biodata"

Print "2. Lihat Biodata"

Print "3. Keluar"

Print "=================="

Input "Masukan Pilihan [1-3] : ", pil

Select Case pil

    Case 1

        Cls

        Print , , "BIODATA"

        Print "=================================================="

        Input "NAMA         :"; NM$

        Input "NPM          :"; NPM$

        Input "TANGGAL LAHIR:"; TGL$

        Input "TEMPAT LAHIR :"; TTL$

        Input "ALAMAT       :"; ALMT$

        Input "PRODI        :"; PRD$

        Input "JENIS KELAMIN:"; GNDR$

        Input "MOTTO HIDUP  :"; MTTO$

        Input "<>", temp

        GoSub 1

    Case 2

        Cls

        Print "NAMA         :"; NM$

        Print "NPM          :"; NPM$

        Print "TANGGAL LAHIR:"; TGL$

        Print "TEMPAT LAHIR :"; TTL$

        Print "ALAMAT       :"; ALMT$

        Print "PRODI        :"; PRD$

        Print "JENIS KELAMIN:"; GNDR$

        Print "MOTTO HIDUP  :"; MTTO$

        Input "<>", temp

        GoSub 1

    Case 3

        GoSub 2

    Case Else

        Cls

        Input "pilihan Salah, Tekan enter", temp

        GoSub 1

End Select

2 Cls

Print "Terimakasih Yang sudah mengisi"

Close (1)

Program diatas adalah program yang bertujuan untuk mengisi biodata dengan menu agar tampilan nya tidak statis. Program tersebut juga bisa diiisi berkali kali dan jika kita ingin melihat hasil biodata juga bisa Di menu lihat Biodata. Sekian dari saya terimakasih mungkin saja artikel ini bisa bergguna bagi mahasiswa semester 1. 

#ProgramBiodata #qbasicprogrambiodatasederhana #qbasicmenu #qbasicbiodata #contohbiodatapemrogramanqbasic #programqbasicmenu #programqbasicsederhana #programmenusederhanaqbasic