Limited Edition

Cara membuat aplikasi sederhana untuk Pemanggil dan Penyimpan text document

Pertama tama buka MICROSOFT VISUAL STUDIO, disini saya menggunakan visual studio 2010

selanjutnya seperti biasa, klik create project - pilih visual basic - windows - windows from aplication - lalu klik OK
lalu buat seperti gambar di bawah ini

untuk kode barang, nama barang , harga, qty, total itu menggunaka label
list1 menggunakan richtextbox
dan ada 5 textbox
di tambah 3 button yang terdiri dari MULAI, SIMPAN, SELESAI

Selanjutnya masukan coding seperti ini:

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        On Error GoTo salah1
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        'Text10.Focus()
        Exit Sub
salah1:
        MsgBox("Objek Tidak ada")
    End Sub
   
    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
        On Error GoTo salah
        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:\faktur1.csv", OpenMode.Append)
       
        '
        Var1 = Text1.Text
         Var2 = Text2.Text
         Var3 = Text3.Text
         Var4 = Text4.Text
         var5 = Text5.Text
        
         List1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
        WriteLine(1, Var1, Var2, Var3, Var4, var5)
       
        FileClose(1)
        Exit Sub
salah:
        MsgBox("File Tidak ada")
       
    End Sub
   
    Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
        Me.Close()
    End Sub
   
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        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:\faktur.csv", OpenMode.Input)
       
        Do While Not EOF(noFile)
            Input(1, Var1)
            Input(1, Var2)
            Input(1, Var3)
            Input(1, Var4)
            Input(1, var5)
             List1.Items.Add(Var1 & "-----" & Var2 & "-----" & Var3 & "----" & Var4 & "-----" & var5)
           
        Loop
       
        FileClose(noFile)
       
    End Sub
   
     Private Sub Text4_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Text4.TextChanged
        If Not Len(Text4.Text) = 0 Then
            Text5.Text = CStr(CDbl(Text3.Text) * CDbl(Text4.Text))
        End If
    End Sub
End Class


Hasil yang di dapat pun menjadi seperti ini
ketik di tempat text box masing masing untuk kode barang dll sudah tertera di bawah itu, jika sudah selesai klik SIMPAN
selanjut nya jika ingin mulai lagi klik MULAI maka text box pada masing -  masing di atas akan mereset ulang
dan jika ingin berhenti klik SELESAI maka aplikasi akan keluar

nah begitulah tutorial dan penjelasan yang sangat singkat ,.
SEMOGA DAPAT MEMBANTU