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

Test...Test...Test

Disini saya mau menampilkan cara membuat "Kalkulator Volume Prisma Segitiga" hehehe

oiyaaa jangan lupa harus punya aplikasi "Visual Studio" entah visual studia 2008 atau visual studio yang paling baru saat ini :D

okee...berikut cara nya

•  langkah pertama buka aplikasi visual studio..lalu muncul tampilan seperti di atas

• klik "new project" lalu klik "visual basic" setelah itu pilih "windows" dan "Windows from application" ,.,lalu akan muncul tampilan seperti ini

• setelah itu klik ok,.,nah akan muncul tampilan seperti ini

• naaah saat nya memulai membuat aplikasi hahaha,.
  bikin 4 label, 4 textbox, dan 3 button seperti ini

• lalu ubah label dan button nya dengan mengganti "TEXT" pada "PROPERTIES"
  nah akan menjadi seperti ini....

• Nah selanjut nya itu langsung peng kodingan nya deeeeeh
  seperti ini

Naaah setelah melakukan peng kodingan itu coba di "debug" jika masih gak berjalan aplikasi nya berarti masih ada yang salah dengan  koding di atas,.,
cara mengatasi error nya itu biasa nya ada tampilan error di bawah nah,.,setelah itu kita tinggal double klik saja trus di chrck deh

"SELAMAT MENCOBA YA...!!!"