Tugas 3 Pemrograman Visual

Selengkapnya : Tugas 3 Pemrograman Visual

Seperti inilah hasil pengerjaan saya atas tugas diatas. Mohon maaf jika ada kekurangan. Silahkan disimak. Terima Kasih dan sampai ketemu di tugas selanjutnya :)

Screenshoot 1

















Screenshoot 2



















Script Program






========================================================================

Program PUZZLE


Berikut source code dari program puzzle.


Public Class Form1
   
    Dim tampung As String
    Dim run As Boolean = False
    Dim acak As Integer

    Private SubButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
        Me.Close()

    End Sub

    Private Sub Bt8_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt8.Click
  If Bt9.Text = "" then
            tampung = Bt9.Text
            Bt9.Text = Bt8.Text
            Bt8.Text = tampung
        End If

        IfBt7.Text = "" Then
            tampung = Bt7.Text
            Bt7.Text = Bt8.Text
            Bt8.Text = tampung
        End If

 If Bt5.Text = ""Then
            tampung = Bt5.Text
            Bt5.Text = Bt8.Text
            Bt8.Text = tampung
        End If
       
     End Sub

    Private Sub Bt9_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt9.Click

        IfBt6.Text = "" Then
            tampung = Bt6.Text
            Bt6.Text = Bt9.Text
            Bt9.Text = tampung

        End If
        IfBt8.Text = "" Then
            tampung = Bt8.Text
            Bt8.Text = Bt9.Text
            Bt9.Text = tampung
        End If

        IfBt1.Text = "1" And Bt2.Text = "2"And Bt3.Text = "3"And Bt4.Text = "4"And
 Bt5.Text = "5" AndBt6.Text = "6" And Bt7.Text = "7"And Bt8.Text = "8"       And Bt9.Text = "" Then
            MsgBox("Gini aja kok lama :D", vbinformation + vbOKonly, "") ' dalam praktiknya, tombol 9 selalu ditekan  terakhir kali sehingga bisa dimanfaatkan untuk menampilkan message box
        End If

    End Sub

    Private Sub Bt6_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt6.Click

        IfBt9.Text = "" Then
            tampung = Bt9.Text
            Bt9.Text = Bt6.Text
            Bt6.Text = tampung
        End If
        IfBt3.Text = "" Then
            tampung = Bt3.Text
            Bt3.Text = Bt6.Text
            Bt6.Text = tampung
        End If

        If Bt5.Text = ""Then
            tampung = Bt5.Text
            Bt5.Text = Bt6.Text
            Bt6.Text = tampung
        End If
       
    End Sub

    Private Sub Bt5_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt5.Click

        IfBt6.Text = "" Then
            tampung = Bt6.Text
            Bt6.Text = Bt5.Text
            Bt5.Text = tampung
        End If

        IfBt8.Text = "" Then
            tampung = Bt8.Text
            Bt8.Text = Bt5.Text
            Bt5.Text = tampung
        End If

        IfBt4.Text = "" Then
            tampung = Bt4.Text
            Bt4.Text = Bt5.Text
            Bt5.Text = tampung
        End If

        IfBt2.Text = "" Then
            tampung = Bt2.Text
            Bt2.Text = Bt5.Text
            Bt5.Text = tampung
        End If
       
    End Sub

    Private Sub Bt7_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt7.Click

        IfBt8.Text = "" Then
            tampung = Bt8.Text
            Bt8.Text = Bt7.Text
            Bt7.Text = tampung
        End If

        IfBt4.Text = "" Then
            tampung = Bt4.Text
            Bt4.Text = Bt7.Text
            Bt7.Text = tampung
        End If
       
    End Sub

    Private Sub Bt4_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt4.Click

        IfBt1.Text = "" Then
            tampung = Bt1.Text
            Bt1.Text = Bt4.Text
            Bt4.Text = tampung
        End If

        IfBt5.Text = "" Then
            tampung = Bt5.Text
            Bt5.Text = Bt4.Text
            Bt4.Text = tampung
        End If

        IfBt7.Text = "" Then
            tampung = Bt7.Text
            Bt7.Text = Bt4.Text
            Bt4.Text = tampung
        End If
       
    End Sub

    Private Sub Bt1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt1.Click

        IfBt2.Text = "" Then
            tampung = Bt2.Text
            Bt2.Text = Bt1.Text
            Bt1.Text = tampung
        End If

        IfBt4.Text = "" Then
            tampung = Bt4.Text
            Bt4.Text = Bt1.Text
            Bt1.Text = tampung
        End If
      
    End Sub

    Private Sub Bt2_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt2.Click

        IfBt1.Text = "" Then
            tampung = Bt1.Text
            Bt1.Text = Bt2.Text
            Bt2.Text = tampung
        End If

        IfBt5.Text = "" Then
            tampung = Bt5.Text
            Bt5.Text = Bt2.Text
            Bt2.Text = tampung
        End If

        IfBt3.Text = "" Then
            tampung = Bt3.Text
            Bt3.Text = Bt2.Text
            Bt2.Text = tampung
        End If
      
    End Sub

    Private Sub Bt3_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesBt3.Click

        IfBt2.Text = "" Then
            tampung = Bt2.Text
            Bt2.Text = Bt3.Text
            Bt3.Text = tampung
        End If

        IfBt6.Text = "" Then
            tampung = Bt6.Text
            Bt6.Text = Bt3.Text
            Bt3.Text = tampung
        End If
      
       
    End Sub

    Private Sub tbacak_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles tbacak.Click

        run = Not run

        Timer1.Enabled = run
        If run = False Then
            tbacak.Text = "Acak"
        Else
            tbacak.Text = "Stop"
        End If
    End Sub

    Private Sub Timer1_Tick(ByValsender As System.Object, ByVal e AsSystem.EventArgs) HandlesTimer1.Tick

        Dimcadangan As String
        Do
            run = Notrun
            cadangan = Bt2.Text   'urutan pengacakan yang diulang-ulang
     Bt2.Text = Bt8.Text
            Bt8.Text = Bt6.Text
            Bt6.Text = Bt4.Text
            Bt4.Text = Bt1.Text
            Bt1.Text = Bt3.Text
            Bt3.Text = Bt7.Text
            Bt7.Text = Bt5.Text
            Bt5.Text = Bt9.Text     
            Bt9.Text = cadangan
        Loop Until run = True
    End Sub

    Private Sub Button2_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles tbmudah.Click
        Bt1.Text = "1"
        Bt2.Text = "2"
        Bt3.Text = "3"
        Bt4.Text = "4"
        Bt5.Text = ""
        Bt6.Text = "6"
        Bt7.Text = "7"
        Bt8.Text = "5"
        Bt9.Text = "8"    

    End Sub

End Class


Demikian semoga bermanfaat bagi pengunjung sekalian.
Wassalam... :)

Comments

Post a Comment

Popular posts from this blog

Merancang Basis Data

Image
Setelah memahami hierarki dan komponen basis data mari kita mencoba menganalisa rancangan struktur basis data dari aplikasi Sistem Informasi Nilai Raport.  Tabel-tabel yang diperlukan dalam membuat aplikasi raport sederhana diantaranya: Nama tabel Keterangan dan field Tabel siswa Menyimpan data siswa seperti: id_siswa, nis, nama, jenis_kelamin, tanggal_lahir, alamat, dan id_kelas Tabel kelas Menyimpan data kelas berupa id_kelas, nama_kelas, dan wali_kelas Tabel guru Menyimpan data guru: id_guru, nama_guru, nomor_hp Tabel mata pelajaran Menyimpan data mapel: id_mapel, nama_mapel, id_guru_pengampu Tabel nilai Menyimpan nilai siswa untuk setiap mapel. id_nilai, id_siswa, id_mapel, semester, tahun_ajaran, nilai_harian, nilai_UTS, nilai_UAS, nilai akhir Tabel user Untuk login dan mengatur otoritas pengguna. Berisi data: id_user, username, ...
Read more

Bahasa Basis Data

Image
Bahasa yang digunakan dalam operasi basis data disebut Structured Query Language atau biasa disebut SQL. Pernyataan atau statement SQL dapat dibagi ke dalam 3 bentuk yaitu: Data Definition Language (DDL) Data Manipulation Language (DML) Data Control Language(DCL) DDL yaitu struktur/skema basis data yang menggambarkan/mewakili desain basis data secara keseluruhan dispesifikasikan dengan bahasa khusus. Contoh perintah: CREATE, ALTER, DROP, RENAME DML adalah perintah-perintah yang digunakan untuk mengubah, memanipulasi, dan mengambil data pada basis data. Contoh perintah: SELECT, INSERT, UPDATE, DELETE DCL biasa digunakan untuk merubah hak akses, memberikan roles, dan isu lain yang berhubungan dengan keamanan database. Contoh perintah: GRANT, REVOKE Penulisan sebuah perintah atau pernyataan dalam basis data dikenal dengan istilah query. Berikut beberapa penulisan query pada bahasa SQL: Membuat database Struktur query      : CREATE DATABASE nama_db ; Contoh   ...
Read more

Tugas 1 - Praktikum CRUD

Image
Sesi kali ini Anda diharapkan mampu mengolah database dengan memasukkan baris-baris query dengan ketentuan berikut: nama tabel : tb_siswa field yang tersedia : id_, uid, pass, fullname, place, birth, gender, address data yang akan dimasukkan: Field Value id_ 6 uid 1801JW006 pass 123456 fullname Joko Widodo place Banyumas birth 1 Januari 2005 gender Male address Jln Kejawar Banyumas lihat lagi bagaimana penulisan query untuk menambahkan data! Silahkan kunjungi www.ahmadmukti.my.id/tkj untuk mengerjakan tugas ini Previous:  Bahasa Basis Data Next: Koneksi Basis Data
Read more