Wednesday, 18 November 2015

Laporan Aktivitas Belajar ke 22



Laporan Aktivitas Belajar
Nama Lengkap
:
Fatturahmah Indah
No. Registrasi
:
11011420
Alamat email
:
f.indah@gmail.com
Opsi
:
Aplikasi Perangkat Lunak
Tahap Perkuliahan ke-
:
22
USBJJ
:
SMK Negeri 1 Tanjung Selor

Aktivitas Belajar Mandiri
Kolom di bawah ini berisi uraian singkat aktivitas belajar rutin saya selama Tahap Perkuliahan ini.

Tahap Perkuliahan Ke – 22,Mahasiswa diberi tugas untuk membuat aplikasi sederhana menggunakan database MySQL, pada tahap perkuliahan ini, saya membuat aplikasi Login database for visual basic.
Kolom di bawah ini berisi kendala-kendala yang saya hadapi selama Tahap Perkuliahan ini.
·         Gangguan Koneksi Internet


Rangkuman Materi Perkuliahan
Kolom di bawah ini berisi rangkuman materi perkuliahan yang telah saya pelajari dan pahami selama Tahap Perkuliahan ini.

Membuat Aplikasi sederhana menggunakan C# dan database Mysql :
Dalam pembuatan aplikasi ini, sayang menggunakan aplikasi adalah sebagai berikut :
-   Microsoft Visual Studio 2010
Adapun Tahapan untuk membuat aplikasi adalah sebagai Berikut :

  Contoh Gambar Login :

Description: https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhECWCY0oEX3VqPU3nI0aGfwZAf1NgrzWu7FDsxUxaJqPjKXRUcAHexyyr3bQ-sDs0Et_g0tSpYZFZPCdXpm3Fiq8K-BR3pO6zdCYnhHYW9rINml8VpefdDuq9HE_uG8oDVQ-_F5SHxLBbg/s400/LOgin.PNG

Adapun untuk kode C# :

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "11011421" And TextBox2.Text = "timnasu19" Then
            Timer1.start()
            ProgressBar1.Show()
            Label3.Show()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(200)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MsgBox("Loin Sukses")
            Form2.show()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class















Video Dokumentasi
Pada kolom ini berisi cuplikan gambar (screenshots) dari Video Dokumentasi yang telah saya buat pada Tahap Perkuliahan ini.


Kolom di bawah ini merupakan uraian yang menceritakan isi Video Dokumentasi yang telah saya buat.



Kolom di bawah ini berisi link yang menampilan Video Dokumentasi yang telah saya upload di Youtube.


No comments:

Post a Comment