Latest Post
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
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
Subscribe to:
Postingan (Atom)