Jawaban Quiz No.2 (Ruga Fika Deli)

LISTING PROGRAM

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        kode.Items.Add("TS001")

        kode.Items.Add("TS002")

        kode.Items.Add("VG001")

        kode.Items.Add("VG002")

    End Sub

    Sub buattabel()

        LV.Columns.Add("nopeg", 80, HorizontalAlignment.Left)

        LV.Columns.Add("kode", 80, HorizontalAlignment.Left)

        LV.Columns.Add("nama", 100, HorizontalAlignment.Left)

        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)

        LV.Columns.Add("harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("jumlah", 80, HorizontalAlignment.Left)

        LV.Columns.Add("total", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nopeg.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "TS001" Then

            merk.Text = "TOSHIBA"

            nama.Text = "Flashdisk 4GB"

            harga.Text = 105000

        ElseIf kode.Text = "TS002" Then

            merk.Text = "TOSHIBA"

            nama.Text = "Fleshdisk 2GB"

            harga.Text = 75000

        ElseIf kode.Text = "VG001" Then

            merk.Text = "V-Gen"

            nama.Text = "Fleshdisk 4GB"

            harga.Text = 9000

        ElseIf kode.Text = "VG002" Then

            merk.Text = "V-Gen"

            nama.Text = "Fleshdisk 2GB"

            harga.Text = 60000

        Else : kode.Text = 0

            merk.Text = 0

            nama.Text = 0

            harga.Text = 0

        End If

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        total.Text = Val(jumlah.Text) * Val(harga.Text)

        isitabel()

        nopeg.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        nopeg.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

        nopeg.Focus()

    End Sub

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

HASIL PROGRAM

VISUAL BASIC

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).
Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.

INPUT DATA DOSEN DAN INPUT DATA MAHASISWA

uses crt;

type  Dosen = record

            kode  : byte ;

            nama  : string ;

            pen   : string ;

            kea   : string ;

          end;

Mahasiswa = record

       NPM       : string [8] ;

       NAMA      : string [25] ;

       jen,jur   : string [15] ;

       thn       : string ;

       end ;

var

            rdos   : array [1..20] of dosen ;

           rmah   : array [1..15] of mahasiswa ;

           i,j    : byte ;

           pil,lg : char ;

procedure inputdosen ;

procedure formdosen ;

     begin

          clrscr ;

                 gotoxy (13,3) ; write (‘INPUT DATA DOSEN’);

                 gotoxy (5,4)  ; write (‘_________________________’) ;

                 gotoxy (5,6)  ; write (‘kode dosen:’) ;

                 gotoxy (5,7)  ; write (‘nama      :’) ;

                 gotoxy (5,8)  ; write (‘pendidikan :’) ;

                 gotoxy (5,9)  ; write (‘keahlian   :’) ;

gotoxy (5,10) ; write (‘_________________________’);

gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);

end ;

begin

    repeat

   formdosen ;

   with rdos [i]do

   begin

            gotoxy (21,6) ; readln (kode) ;

gotoxy (21,7) ; readln (nama) ;

gotoxy (21,8) ; readln (pen)  ;

gotoxy (21,9) ; readln (kea)  ;

gotoxy (28,12); readln(lg)    ;

inc(i) ;

   end ;

Until Upcase (lg)=’T';

end ;

procedure inputmahasiswa ;

procedure formmahasiswa ;

begin

clrscr ;

gotoxy (13,3) ; write (‘INPUT DATAMAHASISWA’) ;

gotoxy (5,4)  ; write (‘_________________________’) ;

gotoxy (5,5)  ; write (‘NPM             :’) ;

gotoxy (5,6)  ; write (‘NAMA            :’) ;

gotoxy (5,7)  ; write (‘JENJANG         :’) ;

            gotoxy (5,8)  ; write (‘JURUSAN         :’) ;

gotoxy (5,9)  ; write (‘TAHUN          :’) ;

gotoxy (5,10) ; write (‘________________________’) ;

gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);

end ;

begin

     repeat

     formmahasiswa ;

     with rmah [i] do

begin

gotoxy (21,6) ; readln (NPM) ;

gotoxy (21,7) ; readln (NAMA) ;

gotoxy (21,8) ; readln (JEN)  ;

gotoxy (21,9) ; readln (JUR)  ;

gotoxy (21,10) ; readln (THN) ;

gotoxy (28,12) ; readln (lg) ;

inc(i) ;

            end ;

     until upcase (lg) = ‘T’;

end;

procedure outputdosen ;

procedure tabeldosen ;

begin

      clrscr;

gotoxy (10,4); write (‘INPUT DATA DOSEN’) ;

gotoxy (4,5) ; write (‘_____________________________________’);

gotoxy (4,6) ; write (‘ No      Kode       Nama              Pendidikan                Keahlian’);

gotoxy (4,7) ; write (‘______________________________________________’);

end;

procedure HitNilai(totn : real ; var NH:   char ;  Ket: string) ;

 begin

end ;

begin

Tabeldosen ;

for j:=1 to I-1 do

begin

with Rdos [j] do

begin

gotoxy (5,7+j) ; write (j:1,’   ‘,kode:8,’   ‘,NAMA) ;

GOTOXY (30,7+J) ; WRITE (PEN) ;

GOTOXY (43,7+J) ;WRITE (KEA) ;

end ;

end;

  gotoxy (3,9+j) ; write (‘____________________________________________________’);

  repeat until keypressed ;

end;

procedure outputmahasiswa ;

procedure tabelmahasiswa ;

begin

   clrscr ;

gotoxy (10,4) ; write (‘INPUT DATA MAHASISWA’) ;

GOTOXY (3,5)  ; write (‘_________________________________________________’);

gotoxy (3,6)  ; write(‘no        npm        nama        jenjang        jurusan     tahun     nilai’);

gotoxy (3,7)  ; write(‘____________________________________________________’);

end ;

procedure hitnilai (totn : real;  var  NH:   char; ket: string) ;

begin

end;

begin

tabelmahasiswa ;

for j :=1 to I-1 do

begin

with rmah [j] do

begin

       gotoxy (3,5+j) ; write (j:1,’   ‘,npm:8,’    ‘,nama) ;

       gotoxy (43,7+j); write (jen) ;

       gotoxy (51,7+j); write (jur) ;

       gotoxy (58,7+j); write (thn) ;

end;

end;

       gotoxy(3,9+j); write(‘__________________________________________________’) ;

       repeat until keypressed ;

end;

procedure menu ;

begin

    clrscr;

gotoxy (20,2) ;write (‘MENU UTAMA’) ;

GOTOXY (10,3) ;WRITE (‘____________________________________’);

gotoxy (10,4) ;write (‘[1]. input data mahasiswa’) ;

gotoxy (10,5) ;write (‘[2]. input data dosen’);

gotoxy (10,6) ;write (‘[3]. output datadosen’);

gotoxy (10,7) ;write (‘[4]. outout datamahasiswa’);

gotoxy (10,8) ;write (‘[5]. keluar program’) ;

gotoxy (10,9) ;write (‘__________________________________’) ;

gotoxy (10,10);write (‘pilihan   :’);

end ;

begin {program utama}

i:=1; pil:=’1′ ;

while pil <>’5′ do

begin

menu ;

pil := readkey ;

case pil of

’1′ : InputMahasiswa ;

’2′ : InputDosen ;

’3′ : OutputDosen ;

’4′ : OutputMahasiswa ;

end ;

end ;

end.