Modul 3 - Game Casino

A.    Deskripsi Program

Game Casino ini kami buat sama seperti game Casino yang ada di masyarakat. Konsep dari game ini sendiri terdiri dari 3 bagian dimana harus ada minimal 2 gambar yang sama untuk menjadi pemenang. Dalam game ini pemain memiliki 3 nyawa dimana ketika nyawa habis maka secara otomatis game akan selesai atau “Game Over”. Game ini kami desain dapat berputar dan dapat stop secara otomatis. Kami mendesain dengan menggunakan gambar untuk menambah kemenarikan dari game yang kami buat.

Selain untuk memenuhi tugas modul 3 dan sebagai bahan ajar modul 3 game ini dibuat semata – mata untuk menghibur dan mengisi waktu luang saat tidak bekerja atau tidak sedang sibuk. Dengan pembuatan game ini diharapkan mahasiswa dapat lebih mengenal tentang Visual Basic 2010.

Sasaran dari pembuatan game Casino ini adalah untuk masyarakat luas semata – mata untuk penghiburan diri dan mengisi waktu luang.

B. Flowchart

C. Tampilan Program

Form2, Main Menu "GAME"

Form3, Casino Angka

 Form3, Casino Gambar

Tutorial legkap dan program dapat didownload disini.

Modul 3 - Game Puzzle

A.    Deskripsi Program

Game Puzzle yang kami buat sama dengan game puzzle yang berada di masyarakat saat ini. Game Puzzle buatan kami ini berkonsep menggeserkan gambar sehingga dapat menjadi satu kesatuan gambar yang benar. Pemain akan menyatukan gambar secara satu per satu dengan cara menggeser gambar satu dengan yang lain secara bergantian hingga gambar yang benar terbentuk.

Game Puzzle ini bertujuan untuk menjadi hiburan dan mengisi waktu luang ketika sedang tidak sedang sibuk atau bekerja. Game ini juga bertujuan untuk mengasah logika dan kecerdasan seseorang untuk menyelesaikan masalah dengan cepat dan tepat.

Dengan pembuatan program ini diharapkan mahasiswa dapat mengenal dan memahami source code dan bahasa pemrograman yang ada dalam Visual Basic 2010. Program ini juga dibuat untuk memenuhi tugas jurnal modul 3 praktikum Teknologi Informatika.

Sasaran utama dari pembuatan game ini adalah masyarakat luas dan menyeluruh untuk menghibur diri maupun mengasah kemampuan.

 
B.    Flowchart

C. Tampilan Program

Form Puzzle Diponegoro

Tutorial Lengkap dan Program dapat didownload disini.

 

Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Penggambaran Bangun Dua dan Tiga Dimensi

Deskripsi Singkat
Kami membuat program untuk memilih bangun 2 dimensi atau 3 dimensi sesuai yang di inginkan oleh user pada pilihan yang tersedia pada form. Program ini memberikan kemudahan untuk user memilih ukuran yang di inginkan. Pada program ini akan ditampilkan bentuk sesuai ukuran yang di inginkan oleh user.

Tujuan dan Manfaat
Memberikan kemudahan untuk user memahami bentuk bangun 2 dimensi dan bangun 3 dimensi.
Memberikan pengertian tentang aplikasi bangun geometris.

 

Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"   

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Kalkulator Dedira

Konsep

Deskripsi Singkat
Kalkulator yang kami buat ini seperti kalkulator pada umumnya, yaitu alat yang berguna untuk membantu manusia dalam proses penghitungan. Kalkulator buatan kami ini terdiri dari operator standar seperti penjumlahan, pengurangan, perkalian, dan pembagian juga operator-operator lain yang lebih kompleks seperti akar, pemangkatan, logaritma, faktorial, dan operator-operator trigonometri.

Tujuan dan Manfaat
Seperti yang telah disebutkan, kalkulator berfungsi sebagai alat hitung. Tujuan dari pembuatan kalkulator ini adalah mempermudah manusia dalam hitung-menghitung sehingga kegiatan mereka yang membutuhkan penghitungan cepat lebih terbantu karena mereka tidak perlu membawa-bawa kalkulator, cukup dengan sebuah program yang ada di Personal Computer mereka.
Manfaat dari pembuatan kalkulator diantaranya adalah mempercepat kinerja manusia dalam hal hitung-menghitung sehingga segala pekerjaan menjadi lebih ringan.

Sasaran
Sasaran dari program ini adalah para mahasiswa dengan kebutuhan mobilitas tinggi sehingga membutuhkan segala sesuatu yang praktis.

 Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"   

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Persamaan Kuadrat

Konsep

Definisi Singkat

Program yang kami buat adalah program pengolah persamaan kuadrat. Dengan menginput persamaan kuadrat yang diketahui, secara otomatis program akan mencari besar X1 dan X2.

Tujuan dan Manfaat

Program ini dibuat untuk mempermudah mahasiswa atau siswa dalam operasi persamaan kuadrat.

Dengan adanya program ini, pengolahan persamaan kuadrat jadi lebih mudah dan cepat.

Sasaran

Sasaran dari pembuatan program ini adalah para siswa dan mahasiswa yang masih menggunakan persamaan kuadrat dalam pelajaran matematika di sekolah atau kuliahnya.

 Flowchart

Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"   

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Kasir Crocs Dedira

Deskripsi Singkat

Dewasa ini, banyak sekali penggemar dari sepatu bermerk Crocs karena modelnya yang sederhana, elegan dan anti air. Untuk itu kami dari kelompok 33 membuat program kasir dengan judul Toko Crocs Dedira dengan sederhana dan mudah untuk dipelajari. Konsep yang kami berikan berupa program kasir dengan 1 form dimana terdapat input nama, alamat, jenis sepatu, harga satuan, jumlah satuan, total harga, kembalian, uang pembayaran serta program ini kami lengkapi dengan diskon.

Input nama akan diisikan dengan nama pembeli dan input alamat akan diisikan dengan alamat pembeli. Jenis sepatu yang kami jual terdapat 7 jenis yaitu jenis Crocs Adrena, Kaela, Lily, Malindi, Melbourne, Madeira, dan Patricia dengan harga satuan yang beragam Crocs Adrena berharga Rp. 210.000, Crocs Kaela berharga Rp. 170.000, Crocs Lily berharga Rp. 165.000, Crocs Malindi berharga Rp. 90.000, Crocs Melbourne berharga Rp 200.000, Crocs Madeira berharga Rp. 205.000, dan Crocs Patricia berharga Rp. 180.000.

Program akan memunculkan list data secara otomatis dengan mengklik tombol “Tambah Item”.

Tujuan dan manfaat

1.    Mempermudah perhitungan dalam penjualan

2.    Mengenal dan memahami fungsi aritmatika pada visual basic 2010

3.    Memenuhi tugas jurnal modul 2

4.    Memahami, mengerti, dan dapat mengaplikasikan penulisan fungsi aritmatika dalam program visual basic 2010

Flowchart

Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"

  4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

 

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

 

 Komponen Toolbox yang digunakan:

No.	Komponen	Properties	Keterangan
1.	Form1	Name Text	Form 1
2.	Label	Name Text	Label1 TOKO CROCS DEDIRA
3.	Label	Name Text	Label4 Jenis Sepatu
4.	Label	Name Text	Label5 Harga Satuan
5.	Label	Name Text	Label6 Jumlah Barang
6.	Label	Name Text	Label7 Diskon
7.	Label	Name Text	Label8 Harga
8.	Label	Name Text	Label12 Total Harga
9.	Label	Name Text	Label9 Bayar
10.	Label	Name Text	Label10 Kembalian
11.	Combobox1	Name Text	Combobox1
12.	TextBox	Name Text	TextBox3 (dikosongkan)
13.	TextBox	Name Text	TextBox4 (dikosongkan)
14.	TextBox	Name Text	TextBox5 (dikosongkan)
15.	TextBox	Name Text	TextBox6 (dikosongkan)
16.	TextBox	Name Text	TextBox9 (dikosongkan)
17.	TextBox	Name Text	TextBox7 (dikosongkan)
18.	TextBox	Name Text	TextBox8 (dikosongkan)
19.	Button	Name Text	Button6 Total
20.	Button	Name Text	Button1 Pembelian
21.	Button	Name Text	Button2 Kembalian
22.	Button	Name Text	Button5 Tambahkan Item
23.	Button	Name Text	Button3 Refresh
24.	Button	Name Text	Button4 Exit
25.	DataGridView	Name Text	DataGridView1

Analisis Listing

Public Class Form1

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

        With ComboBox1

            .Items.Add("Adrena   ")

            .Items.Add("Kaela    ")

            .Items.Add("Lily     ")

            .Items.Add("Malindi  ")

            .Items.Add("Melbourne")

            .Items.Add("Madeira  ")

            .Items.Add("Patricia ")

        End With

    End Sub

            Listing tersebut di atas digunakan untuk menampilkan item yang ada pada combobox untuk memilih barang yang akan dibeli.

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = ("Adrena   ") Then TextBox3.Text = ("210000")

        If ComboBox1.Text = ("Kaela    ") Then TextBox3.Text = ("170000")

        If ComboBox1.Text = ("Lily     ") Then TextBox3.Text = ("165000")

        If ComboBox1.Text = ("Malindi  ") Then TextBox3.Text = ("90000")

        If ComboBox1.Text = ("Melbourne") Then TextBox3.Text = ("200000")

        If ComboBox1.Text = ("Madeira  ") Then TextBox3.Text = ("205000")

        If ComboBox1.Text = ("Patricia ") Then TextBox3.Text = ("180000")

    End Sub

       Listing di atas digunakan untuk menampilkan harga satuan dari barang yang akan dibeli berdasarkan input combobox1 ke textbox untuk harga satuan.

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

        TextBox6.Focus()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim potongan As Double

        Dim total As Double

        Dim harga As Integer

        Dim jumlah As Integer

        Dim diskon As Integer

        harga = Val(TextBox3.Text)

        jumlah = Val(TextBox4.Text)

        diskon = Val(TextBox5.Text)

        potongan = (harga * jumlah * diskon) / 100

        total = ((harga * jumlah) - potongan)

        TextBox6.Text = total

    End Sub

            Listing di atas digunakan untuk menghitung potongan dari diskon dan total dari harga per barang yang akan dibeli berdasarkan dengan input harga satuan, jumlah barang dan diskon yang telah dimasukkan sebelumnya.

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

        TextBox7.Text = Val(TextBox7.Text)

        TextBox9.Text = Val(TextBox9.Text)

        TextBox8.Text = Val(TextBox8.Text)

        If TextBox7.Text = "" Then

            MsgBox("Maaf, anda belum memasukan uang pembayaran")

        ElseIf Val(TextBox9.Text) > Val(TextBox7.Text) Then

            MsgBox("Maaf, uang anda kurang")

        ElseIf Val(TextBox9.Text) < Val(TextBox7.Text) Then

            TextBox8.Text = Val(TextBox7.Text) - Val(TextBox9.Text)

        End If

    End Sub

                Listing di atas digunakan untuk menghitung uang kembalian. Apabila uang yang dimasukkan pada uang yang dibayarkan lebih kecil dibandingkan dengan jumlah harga total keseluruhan maka akan muncul message box “Maaf, uang anda kurang” untuk memperingatkan pembeli dan jika tidak diisi maka akan muncul message box “Maaf, anda belum memasukkan uang pembayaran”. Dan jika uang yang dibayarkan samadengan atau lebih besar dari harga total keseluruhan maka program akan dengan otomatis mengeluarkan output kembalian.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ComboBox1.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        DataGridView1.Rows.Clear()

    End Sub

       Listing di atas digunakan untuk mengosongkan semua data rekap ataupun masukan apabila diclick tombol button Refresh.

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Close()

    End Sub

Listing di atas digunakan untuk menutup form ketika kita mengklik tombol Exit.

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim Nama As String = ComboBox1.Text

        Dim Harga As String = TextBox3.Text

        Dim Jumlah As String = TextBox4.Text

        Dim Diskon As String = TextBox5.Text

        Dim Ttal As String = TextBox6.Text

        DataGridView1.Rows.Add(Nama, Jumlah, Diskon, Harga, Ttal)

    End Sub

Listing di atas digunakan untuk memasukkan data yang telah diinput melalui textbox dan combobox untuk masuk pada data grid view.

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim totalhrg As Integer

        Dim total As Integer

        totalhrg = Val(TextBox9.Text)

        total = Val(TextBox6.Text)

        totalhrg = (totalhrg + total)

        TextBox9.Text = totalhrg

    End Sub

End Class

           

            Listing di atas digunakan untuk menghitung jumlah harga total keseluruhan barang yang telah kita beli.