LA - Menghilangkan Angka Menggunakan VB

LAPORAN AKHIR

Mata Praktikum        : Algoritma dan Pemrograman 2A (AP 2A)

Kelas                          : 1IA16

Praktikum Ke-           : 2 (Dua)

Tanggal                     : 9 April 2014

Materi                         : Perulangan VB

NPM                           : 50413168

Nama                         : Adham Bachtiar Yuda Perkasa

Ketua Asisten           : Febrian Reza

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 5 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2014

1.    List Program

1.    Logika Program

Analisa Program :

Program ini merupakan latihan dalam mebuat program menggunakan Microsoft visual basic. Versi Microsoft Visual Basic 6.0. Pada program ini saya menggunakan kondisi perulangan yang terdapat pada Microsoft Visual Basic, yaitu kondisi perulangan (do while loop). Di sini saya akan membuat program Perulangan angka namun dengan menghilangkan angka (5)  menggunakan perulangan (do while loop) .

Penjelasan program :

Sebelum melakukan coding , saya membuat 1 textbox , 2 label ,1 Command Button , 1 List dan 1 Frame . Setelah itu saya beri variabel masing – masing .

1. Dim akhir As Integer

    Dim awal As Integer

Dim merupakan sebuah syntax untuk mendeklarasikan sebuah variabel sehingga program bisa mengenali syntax dengan baik .

2. awal = 1

Syntax diatas untuk mendeklarasikan bahwa nilai awal adalah 1

            3. akhir = Val(Text1.Text)

           

             Syntax diatas mempunyai fungsi sebagai alat untuk mendeklarasikan bahwa akhir = textbox 1 yang merupakan tempat menginput data sehingga program berjalan sesuai keinginan . .

            4. Do

    If (awal <> 5) Then

                     List1.AddItem (awal)

               End If

                       

Syntax diatas berfungsi untuk membuat sebuah parameter untuk  menghilangkan angka 5 dalam perulangan yang terjadi , List1.Additem (awal)  merupakan syntax untuk menampilkan hasil dari perulangan pada List 1 .

            5. awal = awal + 1

Syntax diatas berfungsi untuk melakukan perulangan kembali dengan menambahkan nilai 1 pada variabel awal .

            6 Loop While awal <= akhir

           

Syntax diatas berfungsi untuk melooping atau mengulang perintah sampai batas akhir / nilai yang kita input

            7 End Sub

End Sub berfungsi untuk menghentikan proses atau batas akhir dari syntax .

            INI ADALAH SYNTAX PENUH DARI PROGRAM INI

Private Sub Command1_Click()

Dim akhir As Integer

Dim awal As Integer

awal = 1

akhir = Val(Text1.Text)

Do

If (awal <> 5) Then

    List1.AddItem (awal)

End If

awal = awal + 1

Loop While awal <= akhir

End Sub

Output Program

Read more >>

LA - Database Pada Visual Basic

LAPORAN AKHIR

Mata Praktikum        : Algoritma dan Pemrograman 2A (AP 2A)

Kelas                          : 1IA16

Praktikum Ke-           : 3 (Tiga)

Tanggal                     : 16 April 2014

Materi                         : Database pada VB

NPM                           : 50413168

Nama                         : Adham Bachtiar Yuda Perkasa

Ketua Asisten           : Febrian Reza

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 5 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2014

Sebelum memulai membuat program database pada VB , saya membuat Format Database terlebih dahulu pada microsoft Access seperti berikut :

Setelah membuat format database diatas pada microsoft access , sekarang saya memulai coding pada visual basic agar terkoneksi dengan microsoft access .

Tampilan Awal Program

Cara Koneksi Microsoft Access ke Visual Basic

Klik kanan pada adodc kemudian pilih property , muncul general pilih build dan cari letak database yg telah dibuat tadi .

                       

Kemudia pilih RecordSourche dan pilih nama tabel yang telah dibuat

Kemudian lihat di properties data grid pada kolom dataSource pilih Adodc1 , kemudia retreive pada data grid .

                           

     

.    List Program

             

2.    Logika Program

Analisa Program :

Program ini merupakan latihan dalam mebuat program menggunakan Microsoft visual basic. Versi Microsoft Visual Basic 6.0. Pada program ini saya menggunakan sebuah sistem database yang terkoneksi dengan visual basic .

Di sini saya akan membuat program Input Database dengan dikoneksikan dengan Microsoft Access

Penjelasan program :

Sebelum melakukan coding , saya membuat 4 textbox , 5 label ,1 Data Grid , 1 Adodc dan 2 Command Button . Setelah itu saya beri variabel masing – masing .

1. Adodc1.Recordset.AddNew

Syntax diatas merupakan sebuah syntax untuk membuat sebuah record baru pada adodc .

2. Adodc1.Recordset.Fields("NPM") = Text1.Text

Syntax diatas untuk input data NPM pada datagrid . input data tersebut didapatkan jika kita input data pada textbox1.

            3. Adodc1.Recordset.Fields("Nama") = Text2.Text

           

Syntax diatas untuk input data NAMA pada datagrid . input data tersebut didapatkan jika kita input data pada textbox2.

            4. Adodc1.Recordset.Fields("Alamat") = Text3.Text

           

Syntax diatas untuk input data Alamat pada datagrid . input data tersebut didapatkan jika kita input data pada textbox3.

            5. Adodc1.Recordset.Fields("Kelas") = Text3.Text

           

Syntax diatas untuk input data Alamat pada datagrid . input data tersebut didapatkan jika kita input data pada textbox4.

            6. Adodc1.Recordset.Update

Syntax diatas berfungsi untuk membuat record atau data baru pada datagrid jika data yang pertama telah terpenuhi .

            7 End Sub

End Sub berfungsi untuk menghentikan proses pada program atau merupakan batas akhir dari syntax .

           

            Pada CommandButton 2

                       

            Adodc1.Recordset.Delete

           

Syntax diatas berfungsi untuk menghapus data yang salah , atau data yang sudah tidak dibutuhkan lagi .

            INI ADALAH SYNTAX PENUH DARI PROGRAM INI

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("NPM") = Text1.Text

Adodc1.Recordset.Fields("Nama") = Text2.Text

Adodc1.Recordset.Fields("Alamat") = Text3.Text

Adodc1.Recordset.Fields("Kelas") = Text4.Text

Adodc1.Recordset.Update

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Output Program

Read more >>