Tugas 3 Visual Basic

Program 1
Ini adalah program membuka dan menyimpan file teks yang file teksnya sudah ditentukan
program ini terdiri dari tiga buah button dan satu buah richtextbox.

1. Pada saat program dijalankan

2. Button open di klik maka akan muncul secara otomatis file teksnya pada richtextbox, isi dari file teks tersebut adalah kodingan dari program ini

3. Kita bisa mengedit file teks ini langsung pada richtextboxnya, jika sudah klik button save untuk menyimpan file teksnya

4. Klik button Close untuk keluar dari program ini.








Program 2
Membuka dan menyimpan file teks dengan open file dialog.
Program ini terdiri dari tiga buah button, satu buah textbox, satu buah openfiledialog dan satu buah richtextbox.
1. Pada saat program dijalankan

2.Lalu tombol open di klik maka akan muncul open file dialog, kita pilih file teks mana yang akan kita buka

 3.Saat di klik open pada open file dialog maka file teksnya akan langsung muncul pada richtextbox dan
lokasi dari fie teks tersebut akan muncul pada textbox

4.Kita bisa mengedit isi file teks tersebut dan bisa juga menyimpannya dengan menggunakan button save,
file save tersebut akan langsung tersimpan pada folder dimana tadi kita membukanya

5. Setelah selesai klik button close lalu program akan keluar

Program 3
Membaca dan menulis file CSV
Program ini terdiri dari 5 label, 5 textbox, 3 button dan sebuah richtextbox.
1. Pada saat program dimulai

2. Textboxnya diisi sesuai dengan keterangan yang ada pada label di sebelahnya lalu klik button
simpan maka data-data yang terisi dari textbox tersebut akan tersimpan dalam richtextbox

3. klik button mulai maka semua textbox akan kosong dan siap untuk diisikan dengan data-data yang
lainnya

4. Isi kembali textboxnya dan klik button simpan maka data yang baru diisi akan tersimpan di dalam
richtextbox tepatnya di bawah data yang sebelumnya kita isi.

5. Klik button selesai untuk keluar dari program.

Tugas VB 2 "Program Restoran A La Kadarnya"

Program Restoran "A La Kadarnya" digunakan untuk menghitung total harga yang harus dibayar konsumen dalam memeilih paket makanan. Program ini terdiri dari 3 Combobox, 8 textbox, 4 buttons, 1 groupbox dan beberapa label.


1. ini adalah tampilan form yang belum di input

2. lalu kita memilih paket makanan, paket makanannya terdiri dari paket nikmat 1, paket nikmat 2, paket nikmat 3 dan paket nikmat 4.
misal kita memilih paket nikmat 1 maka tampilannya akan sebagai berikut

paket nikmat 2

paket nikmat 3

paket nikmat 4

setelah kita memilih paket maka pada groupbox menu akan otomatis muncul menu apa saja yang ada di dalam paket tersebut, begitu juga dengan
harga paket. harga setiap paket berbeda-beda, hitungannya 1 nasi = 3000, 1 ayam goreng = 5000, 1 sop = 4000

3. setelah itu kita memilih satu minuman yang ada pada combobox, minumannya terdiri dari bajigur, bir pletok dan wedang jahe. harga minuman
muncul setelah kita memilih minumannya, harganya juga berbeda-beda yaitu bajigur = 3000, bir pletok = 5000, wedang jahe = 7000.

4. klik button total harga maka akan muncul total harga dari penjumlahan antara harga paket ditambah harga minuman

5. lalu kita memilih pesanannya untuk dibawa pulang atau makan ditempat, jika memilih dibawa pulang maka akan muncul potongan harga 10% dari total harga,
jika memilih makan ditempat potongan harga 5% dari total harga.

6. klik button harga setelah diskon maka akan muncul harga dari total harga dikurangi dengan potongan harga

 7. klik button reset untuk memulai penghitungan yang baru

 8. klik button exit program untuk keluar dari program

 9. ini adalah codingannya

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "Paket Nikmat 1"
                TextBox1.Text = "1 Nasi"
                TextBox2.Text = "1 Ayam Goreng"
                TextBox3.Text = "1 Sop"
            Case "Paket Nikmat 2"
                TextBox1.Text = "1 Nasi"
                TextBox2.Text = "2 Ayam Goreng"
                TextBox3.Text = "1 Sop"
            Case "Paket Nikmat 3"
                TextBox1.Text = "2 Nasi"
                TextBox2.Text = "1 Ayam Goreng"
                TextBox3.Text = "2 Sop"
            Case Else
                TextBox1.Text = "2 Nasi"
                TextBox2.Text = "2 Ayam Goreng"
                TextBox3.Text = "2 Sop"

        End Select
      
        TextBox4.Text = ((Strings.Left(TextBox1.Text, 1) * 3000) + (Strings.Left(TextBox2.Text, 1) * 5000) + (Strings.Left(TextBox3.Text, 1) * 4000))
    End Sub

 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case "Bir Pletok"
                TextBox5.Text = 5000
            Case "Bajigur"
                TextBox5.Text = 3000
            Case "Wedang Jahe"
                TextBox5.Text = 7000
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox6.Text = Val(TextBox5.Text) + Val(TextBox4.Text)
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        Select Case ComboBox3.Text
            Case "Dibawa Pulang"
                TextBox7.Text = TextBox6.Text * 0.1
            Case Else
                TextBox7.Text = TextBox6.Text * 0.05
        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox8.Text = TextBox6.Text - TextBox7.Text
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
    End Sub

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

TERIMA KASIH

DIQI FARUK ASHSHIDIQ

1006724330

Contoh Program Sederhana dari Visual Basic 2008 "Billing Futsal"

Penjelasan :

Billing Futsal ini untuk mempermudah para pengusaha lapangan futsal untuk menghitung total biaya yang harus dibayar oleh para penyewa lapangan.

Fitur yang terdapat pada program ini adalah :

1. Harga per jam

2. Diskon

3. Total menyewa lapangan

4. Button "ENTER" untuk menghitung 

5. Button "CLEAR" untuk menghapus semua data

Screenshoot

1. Program sebelum di masukkan data-datanya, tetapi sudah ada harga per jamnya, karena harga per jamnya sudah mutlak.

2. Data dimasukkan dengan lama main 3 jam (mendapat diskon 30%)

3. Data dimasukkan dengan lama main 2 jam (tidak dapat diskon)

4. tampilan Coding

Saat button "CLEAR" di jalankan maka tampilannya akan seperti ini

Sekian contoh dari program saya ini, semoga bermanfaat bagi kita semua.

Data Mahasiswa 

Nama  : Diqi Faruk Ashshidiq

NPM  : 1006724330