Tugas Visual Basic 3

Program ini untuk menyimpan data/input ke dalam file CSV (bisa menggunakan Ms.Excel atau Notepad. Pertama,objek-objek yang harus dibuat adalah Label, Textbox, Button, dan ListBox. Kedua,atur form design sesuai dengan tampilannya. Ketiga, buat file CSV nya.

Di bawah ini adalah tampilan Form-nya(output):








Penjelasan :

1. Tombol mulai akan mengosongkan semua Objek Textbox, kembali seperti awal.
2. Tombol simpan akan menyimpan hasil Input dari Textbox.
3. Total formula : Total = Harga * Kuantitas.
4. Tombol selesai akan keluar dari Modus Start /Run.

CODING:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim var5 As Object
Dim Var4 As Object
Dim Var3 As Object
Dim Var2 As Object
Dim Var1 As Object
Dim noFile As Short
noFile = FreeFile()
FileOpen(noFile, "D:\School's Projects\materi kuliah\Lab Pemrograman Bisnis (Visual Basic)\1006724375_FikriAyiWicaksono_Blog_TugasIX.csv", OpenMode.Append)
Var1 = TextBox1.Text
Var2 = TextBox2.Text
Var3 = TextBox3.Text
Var4 = TextBox4.Text
var5 = TextBox5.Text
ListBox1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
WriteLine(1, Var1, Var2, Var3, Var4, var5)
FileClose(1)
End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If Not Len(TextBox4.Text) = 0 Then
TextBox5.Text = CStr(CDbl(TextBox3.Text) * CDbl(TextBox4.Text))
End If

End Sub

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

Tugas Visual Basic 2 - Salon Gaya

Pada tugas kali ini, saya membuat program sederhana untuk perusahaan salon. Terdapat 4 pilihan, yaitu potong rambut, creambath, massage, dan rebonding. masing-masing mendapatkan diskon 50% dari setiap harga yang sudah ditentukan. berikut akan ditampilkan gambarnya.










Untuk codingnya :

SALON GAYA – FORM1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

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

SALON GAYA – FORM2
Public Class Form2

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
PictureBox1.Visible = True
Else
PictureBox1.Visible = False
End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
PictureBox2.Visible = True
Else
PictureBox2.Visible = False
End If
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
PictureBox3.Visible = True
Else
PictureBox3.Visible = False
End If
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
PictureBox4.Visible = True
Else
PictureBox4.Visible = False
End If
End Sub

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

SALON GAYA – FORM3
Public Class Form3

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Len(TextBox1.Text) = 0 And Not Len(TextBox2.Text) = 0 Then
TextBox3.Text = (TextBox1.Text * 0.5) + (TextBox2.Text * 0.5)
End If

End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case 1
TextBox1.Text = "350000"
Case 2
TextBox1.Text = "100000"
Case 3
TextBox1.Text = "150000"
Case 4
TextBox1.Text = "200000"
End Select
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case 1
TextBox2.Text = "350000"
Case 2
TextBox2.Text = "100000"
Case 3
TextBox2.Text = "150000"
Case 4
TextBox2.Text = "200000"
End Select
End Sub
End Class

Project Visual Basic 1

postingan ini dibuat dalam rangka memenuhi tugas vb. Saya membuat program sederhana untuk menghitung nilai akhir mahasiswa.

form1 sebelum coding

gambar 1 di atas menunjukkan form mahasiswa

form2 sebelum coding

gambar 2 di atas menunjukkan pilihan mahasiswa lulus atau tidak lulus

form 1 setelah coding masukkan data mahasiswa

coding

Public Class Form1

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox1.Focus()

End Sub

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

'Proses Nilai Akhir

If Not Len(TextBox3.Text) = 0 And Not Len(TextBox4.Text) = 0 Then

TextBox5.Text = (TextBox3.Text * 0.5) + (TextBox4.Text * 0.5)

If TextBox5.Text >= 65 Then

TextBox6.Text = "Lulus"

Else

TextBox6.Text = "Tidak Lulus"

End If

Else

MsgBox("Data tidak boleh kosong")

End If

End Sub

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

'Proses Keterangan

If Not Len(TextBox5.Text) = 0 Then

If TextBox5.Text >= 65 Then

TextBox6.Text = "Lulus"

Else

TextBox6.Text = "Tidak Lulus"

End If

'proses Grade

If TextBox5.Text >= 85 Then

Else

If TextBox5.Text >= 75 Then

Else

If TextBox5.Text >= 65 Then

Else

If TextBox5.Text >= 55 Then

Else

End If

End If

End If

End If

End If

End Sub

jika ingin keluar akan akan tampil form seperti di bawah ini

coding

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

Dim X As Integer

X = MsgBox("YAKIN KELUAR..?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)

If X = vbYes Then

Me.Close()

End If

End Sub

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

form2.show()

End Sub

End Class

jika pilih next maka akan berlanjut ke form 2, yang menunjukkan bahwa mahasiswa lulus.

coding

Public Class Form2

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked = True Then

PictureBox1.Visible = True

Else

PictureBox1.Visible = False

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked = True Then

PictureBox2.Visible = True

Else

PictureBox2.Visible = False

End If

End Sub

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

form3.show()

End Sub

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

Dim X As Integer

X = MsgBox("YAKIN KELUAR..?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)

If X = vbYes Then

Me.Close()

End If

End Sub

End Class