Tugas VB "Program Menggunakan Fungsi Save"

Pada tugas kali ini saya akan memaparkan bagaimana menggunakan fungsi save pada vb,berikut adalah langkah-langkahnya:

1. Buat desain form seperti ini

2. Coba isi textbox diatas

3. Setelah diisi,sekarang kita tinggal mengklik button simpan,sehingga pada listbox/richbox akan menjadi seperti ini

ini dikarenakan pada button simpan kita telah memasukkan fungsi "Save",kode bisa dilihat pada kodding di bawah.

4. Ketika button mulai ditekan maka akan mengosongka seluruh textbox yang terisi

Sekian pemaparan dari saya semoga berguna,berikut adalah kodingnganya:

Public Class Form1
TextBox1.Text = Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click""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.ClickDim var5 As ObjectDim Var4 As ObjectDim Var3 As ObjectDim Var2 As ObjectDim Var1 As ObjectDim noFile As ShortnoFile = FreeFile()
FileOpen(noFile,
Var1 = TextBox1.Text
Var2 = TextBox2.Text
Var3 = TextBox3.Text
Var4 = TextBox4.Text
var5 = TextBox5.Text
ListBox1.Items.Add(Var1 &
WriteLine(1, Var1, Var2, Var3, Var4, var5)
FileClose(1)
"D:\pro2.csv", OpenMode.Append)"-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChangedIf Not Len(TextBox4.Text) = 0 ThenTextBox5.Text =
CStr(CDbl(TextBox3.Text) * CDbl(TextBox4.Text))End IfEnd Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim var5 As ObjectDim Var4 As ObjectDim Var3 As ObjectDim Var2 As ObjectDim Var1 As ObjectDim noFile As ShortnoFile = FreeFile()
FileOpen(noFile,

Input(1, Var1)
Input(1, Var2)
Input(1, Var3)
Input(1, Var4)
Input(1, var5)
ListBox1.Items.Add(Var1 &
"D:\pro2.csv", OpenMode.Input)Do While Not EOF(noFile)"-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)LoopFileClose(noFile)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEnd
EndEnd Sub Class