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
