Imports System.Data
Imports System.Data.Sql
Module koneksidatabase
Public Database As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampil2 As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public hasiljur, jur, hasilcek As String
Public Sub Koneksi()
Try
Database.Close()
'server'
'Database.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;"User ID=sasa;Initial Catalog=PTJayaKarta;Data Source=192.168.10.4
'lokal
Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TI4P;Data Source=."
Database.Open()
'Tampil.Connection = Database
MsgBox(" Koneksi Berhasil ")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
Form3
Public Class Form3
Sub Kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "&Tambah"
Button2.Text = "&Ubah"
Button3.Text = "&Hapus"
Button4.Text = "&Keluar"
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
TextBox1.Enabled = True
End Sub
Sub cekrecord()
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where Kd_Jurusan='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader
If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub BtTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1 .Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "&Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "&Batal"
'TextBox1.Enabled = False
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert into Jurusan (Kd_Jurusan,Nama_Jurusan)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Tampil.ExecuteNonQuery()
Call Kosong()
Else
MsgBox("Data sudah ada, silah cek data yang di input", MsgBoxStyle.Critical, "Input data")
TextBox1.Focus()
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "&Keluar" Then
Me.Close()
Else
Call Kosong()
Call netral()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Btubahkelompok()
End Sub
Sub Btubahkelompok()
If Button2.Text = "&Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "update Jurusan set Nama_Jurusan ='" & Trim(TextBox2.Text) & "' where Kd_Jurusan='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()
Call Kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call BtHapuskelompok()
End Sub
Sub BtHapuskelompok()
If Button3.Text = "&Hapus" Then
TextBox1.Text = ""
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Delete from Jurusan where Kd_Jurusan='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()
Call Kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call cekrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Infromasi")
TextBox1.Focus()
End If
Else
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan where Kd_Jurusan='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader
If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("Kd_Jurusan")) Then
TextBox1.Focus()
Else
TextBox2.Text = Tampilkan("Nama_Jurusan")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Modul
Imports System.Data
Imports System.Data.Sql
Module koneksidatabase
Public Database As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampil2 As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public hasiljur, jur, hasilcek As String
Public Sub Koneksi()
Try
Database.Close()
'server'
'Database.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;"User ID=sasa;Initial Catalog=PTJayaKarta;Data Source=192.168.10.4
'lokal
Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TI4P;Data Source=."
Database.Open()
'Tampil.Connection = Database
MsgBox(" Koneksi Berhasil ")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
sisca_tsushanti
Jumat, 27 Mei 2011
Jumat, 25 Maret 2011
Looping bagian 4
Akan menampilkan form seperti ini
Kemudian kita isi perintah dalam program :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class
Sekian dan untuk latihan
Kemudian kita isi perintah dalam program :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class
Sekian dan untuk latihan
List View session 6
Mengisi data dengan menggunakan ListView
Public Class Form1
Dim isitext(4) As String
Dim item As ListViewItem
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isikombo()
Call tampilan()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = " 06 Teknik Informatika "
End Sub
Sub isikombo()
ComboBox1.Items.Add(" 06 Teknik Informatika ")
ComboBox1.Items.Add(" 07 Sistem Informasi ")
ComboBox1.Items.Add(" 67 Komputer Akuntansi ")
ComboBox1.Items.Add(" 05 Teknik Komputer ")
ComboBox1.Items.Add(" 26 Management Informatika ")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "tambah" Then
Button1.Text = "simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "tambah"
Button1.Enabled = True
Button2.Text = "ubah"
Button2.Enabled = True
Button3.Text = "hapus"
Button3.Enabled = True
Button4.Text = "keluar"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "ubah" Then
Button2.Text = "simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "hapus" Then
Button3.Text = "simpan"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
End If
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class Form1
Dim isitext(4) As String
Dim item As ListViewItem
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isikombo()
Call tampilan()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = " 06 Teknik Informatika "
End Sub
Sub isikombo()
ComboBox1.Items.Add(" 06 Teknik Informatika ")
ComboBox1.Items.Add(" 07 Sistem Informasi ")
ComboBox1.Items.Add(" 67 Komputer Akuntansi ")
ComboBox1.Items.Add(" 05 Teknik Komputer ")
ComboBox1.Items.Add(" 26 Management Informatika ")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "tambah" Then
Button1.Text = "simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "tambah"
Button1.Enabled = True
Button2.Text = "ubah"
Button2.Enabled = True
Button3.Text = "hapus"
Button3.Enabled = True
Button4.Text = "keluar"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "ubah" Then
Button2.Text = "simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "hapus" Then
Button3.Text = "simpan"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
End If
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Perkalian dan Membuat Bilangan Ganjil & Genap dengan Modul
Dengan modul untuk membuat perkalian bilangan ganjil & genap
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call tampilnama()
TextBox1.Text = nama
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
c = TextBox1.Text
Call pilih(ListBox1, ListBox2)
End Sub
End Class
Tambahkan juga modulenya :
Module sandhy
Public nama As String, hasil, c, ganjil, genap As Integer
Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)
For i = 1 To Val(c)
If i Mod 2 = 0 Then
lb2.Items.Add(i)
ElseIf i Mod 2 = 1 Then
lb1.Items.Add(i)
End If
Next
End Sub
End Module
Sekian dan untuk latihan modul ini
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
h = TextBox2.Text
b = TextBox3.Text
Call hitung()
TextBox4.Text = hasil
End Sub
End Class
Jangan lupa tambahkan module,berikut isinya :
Module ary
'variablepublic
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = "sandhy aryardhana"
End Sub
Sub hitung()
hasil = Val(h)* Val(b)
End Sub
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call tampilnama()
TextBox1.Text = nama
End Sub
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
c = TextBox1.Text
Call pilih(ListBox1, ListBox2)
End Sub
End Class
Tambahkan juga modulenya :
Module sandhy
Public nama As String, hasil, c, ganjil, genap As Integer
Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)
For i = 1 To Val(c)
If i Mod 2 = 0 Then
lb2.Items.Add(i)
ElseIf i Mod 2 = 1 Then
lb1.Items.Add(i)
End If
Next
End Sub
End Module
Sekian dan untuk latihan modul ini
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
h = TextBox2.Text
b = TextBox3.Text
Call hitung()
TextBox4.Text = hasil
End Sub
End Class
Jangan lupa tambahkan module,berikut isinya :
Module ary
'variablepublic
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = "sandhy aryardhana"
End Sub
Sub hitung()
hasil = Val(h)* Val(b)
End Sub
End Module
Selasa, 22 Maret 2011
Form Penjualan dari Skripsi
Hal yang mesti kita perhatikan dalam pembuatan Invoice/Faktur.
1. Invoice faktur dibuat sesuai dengan dengan barang yang telah diserahkan/diterima dengan baik oleh customer. Adakalanya barang yang telah dikirim, ditolak/ditolak sebagian/diterima bersyarat oleh customer. Karena itu Invoice faktur dibuat setelah Delivery Order ditandatangani oleh penerima.
2. Satu Order pembelian dapat direalisasikan dalam satu transaksi (satu kali Do/Sj) dan dapat juga direalisasikan secara bertahap (beberapa kali Do/Sj). Banyak kebijakan perusahaan yang menetapkan bahwa pembayaran akan dilakukan setelah order pembelian telah terealisasikan secara keseluruhan sehingga apabila terdapat beberapa kali Do/Sj, maka invoice/Faktur hanya dibuat apabila order penjualan telah dipenuhi secara keseluruhan. Untuk itu diperlukan informasi ringgkas mengenai dokumen-dokumen yang terkait dengan tagihan tersebut. Keperluan tersebut dibutuhkan baik bagi penerima tagiahan maupun pembuat invoice.
3. Dalam kontrak Order dalam jangka waktu tertentu kebijakan poin 2 tidak berlaku sehingga Invoice dibuat setiap Delivery Order telah ditandatangani oleh penerima.
4. Pembuatan Invoice secara automatis akan mengupdate buku piutang dagang. Dengan ini dapat diartikan pembuat invoice adalah bagian yang juga mencatat piutang.
5. Dalam prosedur internal kontrol system akuntansi metode manual disarankan untuk membuat invoice di atas formulir dengan nomor urut tercetak namun dengan sistem akuntansi komputer semakin banyak perusahaan menggunakan nomor komupterisasi. Keunggulan penggunaan nomor tercetak menjamin tidak terjadinya nomor ganda dalam pembuatan Invoice namun apabila terjadi kegagalan, nomor transaksi dicatat pada nomor berikutnya sesuai dengan nomor urut dokumen tercetak. Bila menggunakan nomor urut yang di create komputer perlu pengawasan lebih ketat karena memungkinan terjadinya invoice ganda yang dapat menimbulkan kerugian perusahaan.
Untuk lebih jelasnya mari kita perhatikan screen shot berikut :
sekarang kita menuliskan kode program alias source-code untuk form tersebut. Namun sebelum kita mulai mulai dengan kontrol-kontrol yang ada pada form tersebut, ada beberapa fungsi tambahan yang harus kita buat. Yang pertama adalah fungsi Pads(), yang berguna untuk memberikan angka “0” di depan angka yang akan kita olah. Bingung ya? Hehe, saya juga sebenarnya bingung untuk menerangkannya. Tapi nanti juga akan jelas kok, saat sudah mulai dan melihat hasilnya. Fungsi kedua adalah fungsi untuk menghasilkan Nomor Faktur. Jadi, kita namakan saja fungsi tersebut dengan nama NomorFaktur(). Dan fungsi ke tiga yang bernama IsiKodeBarang, sesuai dengan namanya, adalah untuk mengisi combobox cbKodeBarang, dengan data KodeBarang yang sudah ada pada tabel master Barang.
Langsung saja, buka form penjualan yang telah kita buat, lalu klik kanan di sembarang area kosong (yang tidak berisi kontrol) pada form penjualan, dan pilih View Code pada popmenu yang muncul.
Nah, tekan Enter satu kali untuk memberi ruang satu spasi di bawah tulisan tersebut, lalu ketikkan kode berikut:
Function Pads(nAngka) As String
'kita akan menetapkan batas panjang angka maksimal 3 digit
'jika lebih dari 3 digit, tiga angka pertama yang akan dipakai
If Len(Trim(Str(nAngka))) > 3 Then
Pads = Left(Trim(Str(nAngka)), 3)
Exit Function
'jika panjangnya hanya 3 digit, angka itulah yang dipakai
ElseIf Len(Trim(Str(nAngka))) = 3 Then
Pads = Trim(Str(nAngka))
Exit Function
'jika hanya 2 digit, tambahkan satu "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 2 Then
Pads = "0" & Trim(Str(nAngka))
Exit Function
'jika hanya 1 digit, tambahkan dua "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 1 Then
Pads = "00" & Trim(Str(nAngka))
Exit Function
End If
End Function
Berikan lagi satu spasi di bawah fungsi ini, dan ketikkan fungsi ke dua ini di bawahnya:
Function NomorFaktur() As String
Dim sNF As String
Dim nUrut As Single
nUrut = 1
Ulang:
'tetapkan dulu format nomor faktur di sini
'(4 digit tahun + 2 digit bulan + 3 digit nomor urut)
sNF = Format(dtpTanggal.Value, "yyyymm") & Pads(nUrut)
'kemudian cari record dengan nomor faktur tersebut
datPenjualan.RecordSource = "SELECT * FROM Penjualan WHERE No_Faktur = '" & sNF & "'"
datPenjualan.Refresh
'jika tidak ada, tetapkan ini sebagai nomor faktur
If datPenjualan.Recordset.RecordCount = 0 Then
NomorFaktur = sNF
'jangan lupa untuk mengembalikan posisi awal
'dari 'RecordSource' tabel penjualan ini...
datPenjualan.RecordSource = "SELECT * FROM Penjualan"
datPenjualan.Refresh
Exit Function
'jika tidak, maka sudah ada record lama,
'jadi tambahkan saja nomor urutnya, dan ulangi pencarian
Else
nUrut = nUrut + 1
GoTo Ulang
End If
End Function
Sekali lagi, berikan lagi satu spasi di bawahnya untuk menambahkan fungsi ke tiga ini:
Sub IsiKodeBarang()
cbKodeBarang.Clear
datBarang.RecordSource = "SELECT * FROM Barang ORDER BY Kode_Barang"
datBarang.Refresh
If datBarang.Recordset.RecordCount = 0 Then
MsgBox "Data Master Barang masih kosong. Isi dulu datanya!", vbCritical
Unload Me
Exit Sub
End If
Do While Not datBarang.Recordset.EOF
cbKodeBarang.AddItem datBarang.Recordset.Fields("Kode_Barang")
datBarang.Recordset.MoveNext
Loop
cbKodeBarang.ListIndex = 0
End Sub
Tampilan pada jendela source-code, kira-kira akan seperti di bawah ini:
1. Invoice faktur dibuat sesuai dengan dengan barang yang telah diserahkan/diterima dengan baik oleh customer. Adakalanya barang yang telah dikirim, ditolak/ditolak sebagian/diterima bersyarat oleh customer. Karena itu Invoice faktur dibuat setelah Delivery Order ditandatangani oleh penerima.
2. Satu Order pembelian dapat direalisasikan dalam satu transaksi (satu kali Do/Sj) dan dapat juga direalisasikan secara bertahap (beberapa kali Do/Sj). Banyak kebijakan perusahaan yang menetapkan bahwa pembayaran akan dilakukan setelah order pembelian telah terealisasikan secara keseluruhan sehingga apabila terdapat beberapa kali Do/Sj, maka invoice/Faktur hanya dibuat apabila order penjualan telah dipenuhi secara keseluruhan. Untuk itu diperlukan informasi ringgkas mengenai dokumen-dokumen yang terkait dengan tagihan tersebut. Keperluan tersebut dibutuhkan baik bagi penerima tagiahan maupun pembuat invoice.
3. Dalam kontrak Order dalam jangka waktu tertentu kebijakan poin 2 tidak berlaku sehingga Invoice dibuat setiap Delivery Order telah ditandatangani oleh penerima.
4. Pembuatan Invoice secara automatis akan mengupdate buku piutang dagang. Dengan ini dapat diartikan pembuat invoice adalah bagian yang juga mencatat piutang.
5. Dalam prosedur internal kontrol system akuntansi metode manual disarankan untuk membuat invoice di atas formulir dengan nomor urut tercetak namun dengan sistem akuntansi komputer semakin banyak perusahaan menggunakan nomor komupterisasi. Keunggulan penggunaan nomor tercetak menjamin tidak terjadinya nomor ganda dalam pembuatan Invoice namun apabila terjadi kegagalan, nomor transaksi dicatat pada nomor berikutnya sesuai dengan nomor urut dokumen tercetak. Bila menggunakan nomor urut yang di create komputer perlu pengawasan lebih ketat karena memungkinan terjadinya invoice ganda yang dapat menimbulkan kerugian perusahaan.
Untuk lebih jelasnya mari kita perhatikan screen shot berikut :
sekarang kita menuliskan kode program alias source-code untuk form tersebut. Namun sebelum kita mulai mulai dengan kontrol-kontrol yang ada pada form tersebut, ada beberapa fungsi tambahan yang harus kita buat. Yang pertama adalah fungsi Pads(), yang berguna untuk memberikan angka “0” di depan angka yang akan kita olah. Bingung ya? Hehe, saya juga sebenarnya bingung untuk menerangkannya. Tapi nanti juga akan jelas kok, saat sudah mulai dan melihat hasilnya. Fungsi kedua adalah fungsi untuk menghasilkan Nomor Faktur. Jadi, kita namakan saja fungsi tersebut dengan nama NomorFaktur(). Dan fungsi ke tiga yang bernama IsiKodeBarang, sesuai dengan namanya, adalah untuk mengisi combobox cbKodeBarang, dengan data KodeBarang yang sudah ada pada tabel master Barang.
Langsung saja, buka form penjualan yang telah kita buat, lalu klik kanan di sembarang area kosong (yang tidak berisi kontrol) pada form penjualan, dan pilih View Code pada popmenu yang muncul.
Nah, tekan Enter satu kali untuk memberi ruang satu spasi di bawah tulisan tersebut, lalu ketikkan kode berikut:
Function Pads(nAngka) As String
'kita akan menetapkan batas panjang angka maksimal 3 digit
'jika lebih dari 3 digit, tiga angka pertama yang akan dipakai
If Len(Trim(Str(nAngka))) > 3 Then
Pads = Left(Trim(Str(nAngka)), 3)
Exit Function
'jika panjangnya hanya 3 digit, angka itulah yang dipakai
ElseIf Len(Trim(Str(nAngka))) = 3 Then
Pads = Trim(Str(nAngka))
Exit Function
'jika hanya 2 digit, tambahkan satu "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 2 Then
Pads = "0" & Trim(Str(nAngka))
Exit Function
'jika hanya 1 digit, tambahkan dua "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 1 Then
Pads = "00" & Trim(Str(nAngka))
Exit Function
End If
End Function
Berikan lagi satu spasi di bawah fungsi ini, dan ketikkan fungsi ke dua ini di bawahnya:
Function NomorFaktur() As String
Dim sNF As String
Dim nUrut As Single
nUrut = 1
Ulang:
'tetapkan dulu format nomor faktur di sini
'(4 digit tahun + 2 digit bulan + 3 digit nomor urut)
sNF = Format(dtpTanggal.Value, "yyyymm") & Pads(nUrut)
'kemudian cari record dengan nomor faktur tersebut
datPenjualan.RecordSource = "SELECT * FROM Penjualan WHERE No_Faktur = '" & sNF & "'"
datPenjualan.Refresh
'jika tidak ada, tetapkan ini sebagai nomor faktur
If datPenjualan.Recordset.RecordCount = 0 Then
NomorFaktur = sNF
'jangan lupa untuk mengembalikan posisi awal
'dari 'RecordSource' tabel penjualan ini...
datPenjualan.RecordSource = "SELECT * FROM Penjualan"
datPenjualan.Refresh
Exit Function
'jika tidak, maka sudah ada record lama,
'jadi tambahkan saja nomor urutnya, dan ulangi pencarian
Else
nUrut = nUrut + 1
GoTo Ulang
End If
End Function
Sekali lagi, berikan lagi satu spasi di bawahnya untuk menambahkan fungsi ke tiga ini:
Sub IsiKodeBarang()
cbKodeBarang.Clear
datBarang.RecordSource = "SELECT * FROM Barang ORDER BY Kode_Barang"
datBarang.Refresh
If datBarang.Recordset.RecordCount = 0 Then
MsgBox "Data Master Barang masih kosong. Isi dulu datanya!", vbCritical
Unload Me
Exit Sub
End If
Do While Not datBarang.Recordset.EOF
cbKodeBarang.AddItem datBarang.Recordset.Fields("Kode_Barang")
datBarang.Recordset.MoveNext
Loop
cbKodeBarang.ListIndex = 0
End Sub
Tampilan pada jendela source-code, kira-kira akan seperti di bawah ini:
Selasa, 15 Maret 2011
VB.Puzzle
2. Lalu lakukan setting di bagian properties object seperti berikut :
Button1 Visible = false
Button 2 Teks = 4
Button 3 Teks = 2
Button 4 Teks = 7
Button 5 Teks = 6
Button 6 Teks = 1
Button 7 Teks = 3
Button 8 Teks = 8
Button 9 Teks = 5
Hasilnya akan seperti berikut :
3. Lalu masukkan syntax berikut :
Public Class Puzzle
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub
Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub
Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub
Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub
Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub
Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub
Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub
End Class
Setting DNS Server Pada OpenSuse
Buka Menu Yast Control Center
Kemudian pilih
Network Services / DNS Server
Kemudian Pilih Tab Forwarders lalu pilih "Set Forwarders Manually"
Pada Kolom IP Address ketikkan alamat DNS Forwarders
Kemudian Klik Tombol Add
Contoh Seperti gambar dibawah ini:
Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri
Pada kolom name ketikkan domain name (sisca.com)
Lalu Klik Tombol Add
Seperti gambar dibawah ini:
Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu aris.net. Klik edit.
Pilih Tab NS Records. Pada Kolom "Name Server to Add" ketikkan Name
Server (ns1.sisca.com). lalu Klik add.
Seperti gambar dibawah ini:
Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini
Sekarang kita lanjut lagi Pilih Tab Records➢ Pertama masukkan record ns
Ketikkan ns1 pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari ns1.sisca.com
➢ Masukkan record www
Ketikkan www pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari www.sisca.com
➢ Masukkan record mail
Ketikkan mail pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 202.43.115.83 alamat IP dari mail.aris.net
➢ Masukkan record zimbra
Ketikkan zimbra pada kolom Record Key
lalu pada kolom Type Pilih "CNAME: Alias for Domain Name"
Value → www karena zimbra adalah alias dari www.aris.net
➢ Masukkan record ftp
Ketikkan ftp pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari ftp.sisca.com
Seperti gambar dibawah ini :
➢ Klik OK
➢ Kemudian Klik Finish.
Setelah selesai, kita lakukan percobaan apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :
➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah
/etc/init.d/named restart
➢ Kemudian ketikkan
ns1.sisca.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:
aris.net:/home/linux_user # nslookup ns1.sisca.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.aris.net
Address: 192.168.100.1
aris.net:/home/linux_user #
Button1 Visible = false
Button 2 Teks = 4
Button 3 Teks = 2
Button 4 Teks = 7
Button 5 Teks = 6
Button 6 Teks = 1
Button 7 Teks = 3
Button 8 Teks = 8
Button 9 Teks = 5
Hasilnya akan seperti berikut :
3. Lalu masukkan syntax berikut :
Public Class Puzzle
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub
Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub
Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub
Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub
Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub
Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub
Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub
End Class
Setting DNS Server Pada OpenSuse
Buka Menu Yast Control Center
Kemudian pilih
Network Services / DNS Server
Kemudian Pilih Tab Forwarders lalu pilih "Set Forwarders Manually"
Pada Kolom IP Address ketikkan alamat DNS Forwarders
Kemudian Klik Tombol Add
Contoh Seperti gambar dibawah ini:
Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri
Pada kolom name ketikkan domain name (sisca.com)
Lalu Klik Tombol Add
Seperti gambar dibawah ini:
Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu aris.net. Klik edit.
Pilih Tab NS Records. Pada Kolom "Name Server to Add" ketikkan Name
Server (ns1.sisca.com). lalu Klik add.
Seperti gambar dibawah ini:
Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini
Sekarang kita lanjut lagi Pilih Tab Records➢ Pertama masukkan record ns
Ketikkan ns1 pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari ns1.sisca.com
➢ Masukkan record www
Ketikkan www pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari www.sisca.com
➢ Masukkan record mail
Ketikkan mail pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 202.43.115.83 alamat IP dari mail.aris.net
➢ Masukkan record zimbra
Ketikkan zimbra pada kolom Record Key
lalu pada kolom Type Pilih "CNAME: Alias for Domain Name"
Value → www karena zimbra adalah alias dari www.aris.net
➢ Masukkan record ftp
Ketikkan ftp pada kolom Record Key
lalu pada kolom Type Pilih "A: Domain Name Translation"
Value → 192.168.100.1 alamat IP dari ftp.sisca.com
Seperti gambar dibawah ini :
➢ Klik OK
➢ Kemudian Klik Finish.
Setelah selesai, kita lakukan percobaan apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :
➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah
/etc/init.d/named restart
➢ Kemudian ketikkan
ns1.sisca.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:
aris.net:/home/linux_user # nslookup ns1.sisca.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.aris.net
Address: 192.168.100.1
aris.net:/home/linux_user #
Kamis, 10 Maret 2011
KALKULATOR VB
Kalkulator VB
Program untuk membuat kalkulator sederhana yang bisa menggunakan hitung-tambah, kurang, kali, dan bagi.
Kode :
Option Explicit
Dim Operasil As Double, Operasi2 As Double
Dim Operator As String
Dim HapusTampilan As Boolean
Private Sub TblHapus_Click()
Tampilan.Caption = ""
End Sub
Private Sub Angka_Click(Index As Integer)
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan = False
End If
Tampilan.Caption = Tampilan.Caption + Angka(Index).Caption
End Sub
Private Sub Bagi_Click()
Operasi = Val (Tampilan.Caption)
Operasi = "/"
Tampilan.Caption =""
End Sub
Private Sub Desimal_Click()
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan =False
End If
If InStr(Tampilan.Caption,".") Then
Exit Sub
Else
Tampilan.Caption = Tampilan.Caption +"."
End If
End Sub
Private Sub SamaDengan_Click()
Dim hasil As Double
On Error GoTo ErrorHandler
Operasi2 = Val (Tampilan.Caption)
If Operator ="+"Then hasil = Operasi1+ Operasi2
If Operator ="-"Then hasil = Operasi1 – Operasi2
If Operator ="*"Then hasil = Operasi1* Operasi2
If Operator ="/" And Operasi2 <> "0" Then hasil = _Operasi1 / Operasi2
Tampilan,Caption = hasil
HapusTampilan = True
Exit Sub
ErrorHandler:
MsgBox "Hitungan menghasilkan kesalahan berikut" _
& vbCrLf & Err.Description
Tampilan.Caption = "SALAH"
HapusTampilan = True
End Sub
Private Sub Kurang_Click()
Operasi1 = Val(Tampilan.Caption)
Operator ="-"
Tampilan.Caption =""
End Sub
Private Sub SatuPer_Click()
If Val(Tampilan.Caption) <> 0Then Tampilan.Caption _
= 1/ Val (Tampilan.Caption)
End Sub
Private Sub Tambah_Click()
Operasi1 =Val(Tampilan.Caption)
Operator ="+"
Tampilan.Caption =""
End Sub
Private Sub TambahKurang_Click()
Tampilan.Caption =-Val(Tampilan.Caption)
End Sub
Private Sub Kali_Clilck()
Operasi1 =Val(Tampilan.Caption)
Operator ="*"
Tampilan.Caption =""
End Sub
Langganan:
Postingan (Atom)