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
Minggu, 06 Maret 2011
Sedikit Tips "
Jika ingin bisa bahasa inggris namun tidak harus ikut course
bisa dengan otodidak......!!!
walau result-nya tidak seaktif orang yang mahir berbahasa enlish
1. Setiap mau tidur, minimal 5 vocabullary harus kita hafal jelang tidur....saat bangun, ingat-ingat kembali kata-kata apa saja yang kita hafal semalam
2. Jangan malu untuk berbicara sedikit-sedikit dengan kata-kata yg kita bisa or conversation in dially activity
3. Tense, agak sullit memang...namun cara mudah menghafal pattern-or rumusnya yakni
setiap adverb of time itu auxilary-nya apa saja...tobe-nya pakai apa !!!
4. Be self confident
good luck guuuuys !!!!!
bisa dengan otodidak......!!!
walau result-nya tidak seaktif orang yang mahir berbahasa enlish
1. Setiap mau tidur, minimal 5 vocabullary harus kita hafal jelang tidur....saat bangun, ingat-ingat kembali kata-kata apa saja yang kita hafal semalam
2. Jangan malu untuk berbicara sedikit-sedikit dengan kata-kata yg kita bisa or conversation in dially activity
3. Tense, agak sullit memang...namun cara mudah menghafal pattern-or rumusnya yakni
setiap adverb of time itu auxilary-nya apa saja...tobe-nya pakai apa !!!
4. Be self confident
good luck guuuuys !!!!!
Kamis, 03 Maret 2011
Konsekuensi
Konsekuensinya adalah pengulangan akan selalu dilakukan bila hasil pengujian kondisi bernilai true (selain nol), dan statement ga pernah dieksekusi bila hasil pengujian berninali false (nol). Contoh do...loop ;
posisi=1
do while posisi<11
?posisi
posisi=posisi+1
loop
Contoh diatas nilai awal variable pposisi yakni 1. Statements selanjutnya menguji selama nilai variable posisi kurang dari 11, maka akan mencetak niali variable posisi, lalu mengcounter nilai variable posisi dengan menambah 1. Proses berikutnya yaitu mengembalikan kestatements do while u/mengetes nilail variable posisi. Demikian posisi seterusnya sampe nilai ekspresi bernilai false (nilai variable posisi tidak kurang dari 11).
posisi=1
do while posisi<11
?posisi
posisi=posisi+1
loop
Contoh diatas nilai awal variable pposisi yakni 1. Statements selanjutnya menguji selama nilai variable posisi kurang dari 11, maka akan mencetak niali variable posisi, lalu mengcounter nilai variable posisi dengan menambah 1. Proses berikutnya yaitu mengembalikan kestatements do while u/mengetes nilail variable posisi. Demikian posisi seterusnya sampe nilai ekspresi bernilai false (nilai variable posisi tidak kurang dari 11).
Struktur Pengulangan Loop
Proses loop memberi kesempatan kita untuk megulang proses eksekusi terhadap satu ato beberapa baris kode. Struktur pengulangan dalam VB bisa diatur dengan statement :
-do...loop
-for...next
-for each.....next
Memakai struktur do.....loop
u/mengeksekusi sebuah block statement sebanyak angka yg kita definisikan didalamnya.
VB ngelanjutin eksekusi seperti if...then condition harus berupa nilai ato ekspresi false (nol) or true (selain nol).
Dalam do...loop, bagian dari statement akan dieksekusi sebanyak condition yg bernilai true. Contoh perintahnya ;
Do While condition
Statements
Loop
VB mengeksekusi do loop ini, kesatu menguji condition jika condition bernilai false maka pengaksesan melompat ke statement diluar loop. Sedangkan jika bernilai true, VB akan mengeksekusi bagian statements dan selanjutnya back to statements do while dan mmenguji lagi condition deh.
-do...loop
-for...next
-for each.....next
Memakai struktur do.....loop
u/mengeksekusi sebuah block statement sebanyak angka yg kita definisikan didalamnya.
VB ngelanjutin eksekusi seperti if...then condition harus berupa nilai ato ekspresi false (nol) or true (selain nol).
Dalam do...loop, bagian dari statement akan dieksekusi sebanyak condition yg bernilai true. Contoh perintahnya ;
Do While condition
Statements
Loop
VB mengeksekusi do loop ini, kesatu menguji condition jika condition bernilai false maka pengaksesan melompat ke statement diluar loop. Sedangkan jika bernilai true, VB akan mengeksekusi bagian statements dan selanjutnya back to statements do while dan mmenguji lagi condition deh.
Rabu, 02 Maret 2011
if i ain't got you
Some people live for the fortune
Some people live just for the fame
Some people live for the power, yeah
Some people live just to play the game
Some people think that the physical things
Define what's within
And I've been there before
But that life's a bore
So full of the superficial
Some people want it all
But I don't want nothing at all
If it ain't you baby
If I ain't got you baby
Some people want diamond rings
Some just want everything
But everything means nothing
If I ain't got you,
Some people search for a fountain
That promises forever young
Some people need three dozen roses
And that's the only way to prove you love them
Hand me the world on a silver platter
And what good would it be
With no one to share
With no one who truly cares for me
Some people live just for the fame
Some people live for the power, yeah
Some people live just to play the game
Some people think that the physical things
Define what's within
And I've been there before
But that life's a bore
So full of the superficial
Some people want it all
But I don't want nothing at all
If it ain't you baby
If I ain't got you baby
Some people want diamond rings
Some just want everything
But everything means nothing
If I ain't got you,
Some people search for a fountain
That promises forever young
Some people need three dozen roses
And that's the only way to prove you love them
Hand me the world on a silver platter
And what good would it be
With no one to share
With no one who truly cares for me
IF I were a Boy
If I were a boy
Even just for a day
I'll roll out of bed in the morning and throw on what i wanted and go
Drink beer with the guys and chase after girls
I can get away with what I wanted
and I never get confronted for it cause they stick up for me
If I were A boy
I think I could understand
how it feels to love a girl I swear i be a better man
I listen to her
cause I know how it hurts
when you lose the one you wanted
has taken you for granted and everything you have had got destroyed
If I were a boy
I'll would turn off my phone tell everyone it's broken
so they think that i sleeping alone
i'll put myself first and make the rules as i go
Cause I know that she'll be faithful
waiting for me to come home to come home
Even just for a day
I'll roll out of bed in the morning and throw on what i wanted and go
Drink beer with the guys and chase after girls
I can get away with what I wanted
and I never get confronted for it cause they stick up for me
If I were A boy
I think I could understand
how it feels to love a girl I swear i be a better man
I listen to her
cause I know how it hurts
when you lose the one you wanted
has taken you for granted and everything you have had got destroyed
If I were a boy
I'll would turn off my phone tell everyone it's broken
so they think that i sleeping alone
i'll put myself first and make the rules as i go
Cause I know that she'll be faithful
waiting for me to come home to come home
Lexycal Analysis
>> Beasran Lexycal
# Identifier : berupa keyword/ nama kunci seperti IF, ELSE, THEN, END (pada pascal) INTEGER, Int, float(c++), pecahan
# Konstanta : besaran yg berupa bilangan bulat (integer), bilangan pecahan (float real), boolean (true/false), string, dsb.
# Operator : operator aritmatik (-,+,*) operator logika (<,=,>)
# Delimiter : berguna sebagai pemisah/ pembatas seperti ();:, white space
# White space : sebagai pemisah yg diabaikan oleh program,( enter, spasi, ganti baris, akhir file).
# Identifier : berupa keyword/ nama kunci seperti IF, ELSE, THEN, END (pada pascal) INTEGER, Int, float(c++), pecahan
# Konstanta : besaran yg berupa bilangan bulat (integer), bilangan pecahan (float real), boolean (true/false), string, dsb.
# Operator : operator aritmatik (-,+,*) operator logika (<,=,>)
# Delimiter : berguna sebagai pemisah/ pembatas seperti ();:, white space
# White space : sebagai pemisah yg diabaikan oleh program,( enter, spasi, ganti baris, akhir file).
Selasa, 01 Maret 2011
Setting DHCP & Konfigurasi DHCP Server pada Linux SUSE
Instalasi dan Konfigurasi DHCP Server
DHCP (Dynamic Host Control Protocol) adalah sebuah mekanisme yang memunkinkan sebuah server untuk memberikan IP Address secara dinamik bagi client. Client melakukan permintaan IP Address kepada server, dan server memberikan alokasi bagi si client tersebut. Mekanisme ini akan sangat memberikan keuntungan bagi manajemen jaringan di karenakan proses setting IP Address tidak harus dilakukan manual untuk setiap client yang ada.
Package yang digunakan untuk membuat dhcp pada suse adalah dhcp-server.
1. Untuk menginstall ketik yast –i dhcp-server.
2. Setelah itu atur dhcp dengan mengedit file vi /etc/dhcpd.conf
Penjelasan:
Subnet : masukkan network yang digunakan beserta subnetnya
Range : range dhcp yang digunakan
Option domain-name-servers : ip dns yang akan digunakan
Option domain-name : nama domain lokal
Option routers : nomor ip router pada eth1
Option bradcast-address : ip broadcast pada network yang digunakan
3. Simpan konfigurasinya dan restart dhcp menggunakan konsole rcdhcpd restart. Jika muncul tampilan seperti dibawah, berati dhcp interfacenya belum disetting. Untuk mensetting interface tersebut, edit file vi /etc/sysconfig/dhcpd
4. Pada baris ke 17, tulisan DHCPD_INTERFACE=”“ dalam tanda petik isi nama eth yang digunakan. Contoh seperti pada gambar dibawah. Restart dhcp dan dhcp siap digunakan.
Untuk menguji dhcp pada client, pastikan setting ipnya di obtain dahulu. Alias dikosongkan agar saat kabel lan di pasang pada interface client, client otomatis meminta ip dari server.
Hasil dari konfigurasi dhcp server seperti gambar dibawah.
Membangun WAN di Linux Suse 11.
DHCP (Dynamic Host Control Protocol) adalah sebuah mekanisme yang memunkinkan sebuah server untuk memberikan IP Address secara dinamik bagi client. Client melakukan permintaan IP Address kepada server, dan server memberikan alokasi bagi si client tersebut. Mekanisme ini akan sangat memberikan keuntungan bagi manajemen jaringan di karenakan proses setting IP Address tidak harus dilakukan manual untuk setiap client yang ada.
Package yang digunakan untuk membuat dhcp pada suse adalah dhcp-server.
1. Untuk menginstall ketik yast –i dhcp-server.
2. Setelah itu atur dhcp dengan mengedit file vi /etc/dhcpd.conf
Penjelasan:
Subnet : masukkan network yang digunakan beserta subnetnya
Range : range dhcp yang digunakan
Option domain-name-servers : ip dns yang akan digunakan
Option domain-name : nama domain lokal
Option routers : nomor ip router pada eth1
Option bradcast-address : ip broadcast pada network yang digunakan
3. Simpan konfigurasinya dan restart dhcp menggunakan konsole rcdhcpd restart. Jika muncul tampilan seperti dibawah, berati dhcp interfacenya belum disetting. Untuk mensetting interface tersebut, edit file vi /etc/sysconfig/dhcpd
4. Pada baris ke 17, tulisan DHCPD_INTERFACE=”“ dalam tanda petik isi nama eth yang digunakan. Contoh seperti pada gambar dibawah. Restart dhcp dan dhcp siap digunakan.
Untuk menguji dhcp pada client, pastikan setting ipnya di obtain dahulu. Alias dikosongkan agar saat kabel lan di pasang pada interface client, client otomatis meminta ip dari server.
Hasil dari konfigurasi dhcp server seperti gambar dibawah.
Membangun WAN di Linux Suse 11.
Senin, 28 Februari 2011
Macam-macam Event
> Event u/mouse
- Click
terjadi jika kita menekan dan melepas tombol kiri mouse dengan cepat saat pointer mouse berada diatas object.
- DbClick
terjadi apabila kita menekan dan menahan tombol kiri mouse dua kali klik dengan cepat tanpa memindahkan posisi pinter mouse. Jika selang waktu klik kedua melebihi limit klik ganda pada sistem komputer kita ( yaitu pada setting control panel windows), maka aplikasi akan mengganggapnya sebagai event click.
- DragDrop
terjadi apabila kita menekan dan menahan tombol kiri mouse lalu menyeret objek dari satu tempat ketempat lain, baru kemudian melepaskan tombol kiri mouse.
- DragOver
terjadi apabila kita menekan dan melepaskan tombol kiri mouse lalu menyeret objek dari satu tempat ketempat lain. Event ini biasanya digunakan u/mengubah ambar pointer saat kita menyeret objek tadi.
- Mouse Down
terjadi apabila kita hanya menekan dan menahan tombol mouse
- Mouse Up
terjadi apabila kita melepas tombol mouse
- MouseMove
terjadi jika kita hanya memindahkan mouse without the touch tombolnya. Event ini dapat melambatkan sistem karena dikomuikasikan dengan aplikasi.
- Click
terjadi jika kita menekan dan melepas tombol kiri mouse dengan cepat saat pointer mouse berada diatas object.
- DbClick
terjadi apabila kita menekan dan menahan tombol kiri mouse dua kali klik dengan cepat tanpa memindahkan posisi pinter mouse. Jika selang waktu klik kedua melebihi limit klik ganda pada sistem komputer kita ( yaitu pada setting control panel windows), maka aplikasi akan mengganggapnya sebagai event click.
- DragDrop
terjadi apabila kita menekan dan menahan tombol kiri mouse lalu menyeret objek dari satu tempat ketempat lain, baru kemudian melepaskan tombol kiri mouse.
- DragOver
terjadi apabila kita menekan dan melepaskan tombol kiri mouse lalu menyeret objek dari satu tempat ketempat lain. Event ini biasanya digunakan u/mengubah ambar pointer saat kita menyeret objek tadi.
- Mouse Down
terjadi apabila kita hanya menekan dan menahan tombol mouse
- Mouse Up
terjadi apabila kita melepas tombol mouse
- MouseMove
terjadi jika kita hanya memindahkan mouse without the touch tombolnya. Event ini dapat melambatkan sistem karena dikomuikasikan dengan aplikasi.
Cara Menulliskan Event
Untuk menuliskan kode u/prosedur sebuah event, kita harus dapt mengikuti langkah ini ;
1. Dari window design form, kllik objeck yg akan kita atur eventnya
2. Klik menu view dan pilih pilihan code, sehingga window code editor muncul dilayar.
3.Pilih nama event yang kita tuliskan prosedurnya.
4. Ketik kode event diantara pernyataan Private........dan End Sub
1. Dari window design form, kllik objeck yg akan kita atur eventnya
2. Klik menu view dan pilih pilihan code, sehingga window code editor muncul dilayar.
3.Pilih nama event yang kita tuliskan prosedurnya.
4. Ketik kode event diantara pernyataan Private........dan End Sub
Token & Konstanta
Token & Konstanta
Akan diperkenalkan mengenai token yang bisa berupa simbol (symbol),
komentar (comment), pengenal (indetifier), kata cadangan (reserved word) dan modifier.
Selanjutnya diperkenalkan mengenai konstanta yang akan dibahas pada subbab
tersendiri pada bab ini.
TOKEN
Semua tanda yang dipakai pada pemrograman Pascal adalah token kecuali di definisikan
secara khusus. Secara khusus yang merupakan token adalah simbol, komentar, modifier,
reserved word dan identifier.
Symbol
Pascal, khususnya Free Pascal, mengijinkan programmer untuk menggunakan huruf,
angka, dan beberapa simbol ASCII pada kode programnya.
Huruf : A..Z, a..z
Angka : 0..9
Hexadesimal : 0..9, A..F, a..f
Simbol-simbol berikut mempunyai arti khusus:
+ - * / = < > [ ] . , ( ) : ^ @ { } $ #
demikian juga dengan pasangan simbol berikut:
>= <= := += -= *= /= (* *) (. .) //
Pada saat digunakan sebagai komentar simbol (* mempunyai kesamaan dengan dengan
arti dengan { sedangkan *) sama dengan }.
Komentar
Komentar pada kode program digunakan untuk memperjelas program. Komentar
biasanya digunakan untuk menerangkan hal-hal yang berkaitan dengan kode baik kerja
maupun fungsi, sehingga sangat berguna untuk pemeliharaan dan reuseability. Jadi, jika
sebagaian atau seluruh kode program digunakan atau diperbaiki orang lain maka bisa
terbantu dengan adanya komentar tersebut.
Hal-hal penting yang biasa dituliskan sebagai komentar pada kode program antara lain
nama file, penulis, versi, dan apa yang dilakukan program/fungsi/prosedur. Bahkan
komentar sangat sering digunakan untuk menjelaskan alur proses.
Ada tiga simbol yang digunakan untuk komentar, yaitu:
- 14 - Token & Konstanta
1. Simbol { dan diakhri }, komentar jenis ini bisa lebih dari satu baris
Contoh:
{ ini komentar yang terdiri dari
dua baris }
2. Simbol (* dan diakhiri *), kedudukannya sama dengan model pertama
Contoh:
(* ini komentar yang terdiri dari
dua baris *)
3. Simbol //, komentar satu baris
Contoh:
// ini komentar satu baris ke-1
// ini komentar satu baris ke-2
Reserved Word
Reserved Word, atau kata cadangan, merupakan bagian tak terpisah dari Pascal dan tidak
dapat didefinisikan ulang. Penulisan kata cadangan tidak memperhatikan besar kecilnya
huruf karena secara umum Pascal merupakan pemrograman yang tidak memperhatikan
besar kecilnya huruf (case insensitive).
Beberapa compiler mempunyai reserved word yang berbeda, namun perbedaan tersebut
terjadi karena masalah kelengkapan atau penambahan. Sebagai contoh kata cadangan
pada Delphi Pascal lebih banyak dibandingkan Turbo Pascal, sedangkan Free Pascal
menggunakan reserved word yang dipunyai Turbo Pascal dan Delphi Pascal.
Turbo Pascal Reserved Word
Berikut ini adalah reserved word yang ada di Turbo Pascal:
absolute else nil set
and end not shl
array object file shr
asr for of string
begin function on then
break goto operation to
case if or type
const implementation packed unit
constructor in procedure until
continue inherited program uses
destructor inline record var
div interface reintroduce while
do label repeat with
downto mod self xor
Komputer dan Pemrograman - 15 -
Delphi Pascal Reserved Word
Kata cadangan atau reserved word pada Delphi Pascal sama dengan reserved word Turbo
Pascal dengan penambahan:
as finalization library threadvar
class finally on try
except initialization property exports
is raise
Free Pascal Reserved Word
Kata cadangan atau reserved word pada Free Pascal sama dengan reserved word Turbo
Pascal dan Delphi Pascal dengan penambahan:
dispose False True exit new
Modifier
Sebenarnya modifier bukan sepenuhnya merupakan reserved word, karena pada
kenyataannya modifier bisa dijadikan identifier namun pada tempat khusus oleh kompiler
modifier di baca dengan makna khusus.
absolute external override safecall abstract
far pascal softfloat alias far16
private stdcall assembler forward protected
virtual cdecl index public write
cppdecl name published default near
Read export oldfpccall register
Identifier
Identifier, atau bisa diartikan Pengenal, menotasikan nama konstanta, variabel, tipe data,
prosedur, unit, dan program. Jadi, identifier bisa diartikan sebagai semua nama dari
sesuatu yang telah didefinisikan.
Contoh berikut ini merupakan identifier:
Program identifier_program;
Var identifier_var : integer;
Const identifier_const=10;
Pada contoh di atas reserved word dicetak tebal, sedangkan identifier untuk masing-masing
reserved word dicetak miring.
KONSTANTA
Konstanta merupakan nilai tetap yang sudah didefinisikan dan tidak berubah selam
program digunakan. Terdapat tiga jenis konstanta yaitu konstanta biasa, konstanta
bertipe data dan resource string. Konstanta biasa dan konstanta bertipe data hanya
tersedia pada Turbo Pascal dan Free Pascal. Sedangkan resource string didukung oleh
Delphi dan FreePascal dalam mode objfpc (pemrograman berorientasi object). Oleh
karena itu, pada pembahasan ini hanya dibahas mengenai konstanta biasa dan konstanta
bertipe data.
Token & Konstanta
Bentuk umum konstanta adalah sebagai berikut:
Konstanta Biasa
Bentuk konstanta biasa mengikuti alur lurus dari bentuk umum konstanta di atas.
Kompiler harus bisa melakukan evaluasi terhadap deklarasi konstanta pada saat kode
dikompilasi. Sehingga fungsi pada library yang diperoleh pada saat run-time (program
dijalankan) tidak dapat dipakai. Konstanta biasa dapat menggunakan operator +, -, *,
/, not, div, mod, ord, chr, sizeof, int, func, trunc, round, frac, odd. Sedangkan
nilai konstanta hanya bisa menggunakan tipe data ordinal, real, char dan string.
Berikut ini contoh konstanta biasa:
Const
e = 2.81234; {Konstanta bertipe data real}
a=4; {Konstanta bertipe data integer}
a=’5’; {Konstanta bertipe data char}
s=’Ini konstanta’; {Konstanta bertipe data string}
s=chr(32);
ls=sizeof(Longint);
Assigment sebuah nilai untuk konstanta biasa tidak diperkenankan. Jadi, penambahan
untuk deklarasi sebelumnya, seperti contoh berikut, akan menyebakan kesalahan.
s:=’string tambahan’;
Konstanta bertipe data
Konstanta bertipe data memberi program sebuah variabel yang sudah terinialisasi atau
bernilai awal. Berbeda dengan konstanta biasa konstanta bertipe data dapat di-assign
pada saat run-time. Contoh sederhana dari konstanta bertipe data adalah sebagai berikut:
Const
S: string = ‘Ini adalah konstanta bertipe data’;
Namun, assignment berikut tetap dibenarkan:
S:=’Result: ’ + Func ;
Konstanta bertipe data biasanya digunakan untuk menuliskan array dan record. Contoh
penggunaan konstanta bertipe array adalah sebagai berikut:
Const
Tt: array [1..3] of string[20] = (‘ikke’, ‘you’, ‘paino’);
Ti: array [1..3] of longint = (1,1,6);
Sedangkan penggunaan konstanta bertipe data record adalah seperti pada contoh berikut:
Type
Point = record
X, Y : real;
end;
Const
init : Point = (X:0.0, Y:0.0);
Identifier
: Tipe Data
= Value ;
Akan diperkenalkan mengenai token yang bisa berupa simbol (symbol),
komentar (comment), pengenal (indetifier), kata cadangan (reserved word) dan modifier.
Selanjutnya diperkenalkan mengenai konstanta yang akan dibahas pada subbab
tersendiri pada bab ini.
TOKEN
Semua tanda yang dipakai pada pemrograman Pascal adalah token kecuali di definisikan
secara khusus. Secara khusus yang merupakan token adalah simbol, komentar, modifier,
reserved word dan identifier.
Symbol
Pascal, khususnya Free Pascal, mengijinkan programmer untuk menggunakan huruf,
angka, dan beberapa simbol ASCII pada kode programnya.
Huruf : A..Z, a..z
Angka : 0..9
Hexadesimal : 0..9, A..F, a..f
Simbol-simbol berikut mempunyai arti khusus:
+ - * / = < > [ ] . , ( ) : ^ @ { } $ #
demikian juga dengan pasangan simbol berikut:
>= <= := += -= *= /= (* *) (. .) //
Pada saat digunakan sebagai komentar simbol (* mempunyai kesamaan dengan dengan
arti dengan { sedangkan *) sama dengan }.
Komentar
Komentar pada kode program digunakan untuk memperjelas program. Komentar
biasanya digunakan untuk menerangkan hal-hal yang berkaitan dengan kode baik kerja
maupun fungsi, sehingga sangat berguna untuk pemeliharaan dan reuseability. Jadi, jika
sebagaian atau seluruh kode program digunakan atau diperbaiki orang lain maka bisa
terbantu dengan adanya komentar tersebut.
Hal-hal penting yang biasa dituliskan sebagai komentar pada kode program antara lain
nama file, penulis, versi, dan apa yang dilakukan program/fungsi/prosedur. Bahkan
komentar sangat sering digunakan untuk menjelaskan alur proses.
Ada tiga simbol yang digunakan untuk komentar, yaitu:
- 14 - Token & Konstanta
1. Simbol { dan diakhri }, komentar jenis ini bisa lebih dari satu baris
Contoh:
{ ini komentar yang terdiri dari
dua baris }
2. Simbol (* dan diakhiri *), kedudukannya sama dengan model pertama
Contoh:
(* ini komentar yang terdiri dari
dua baris *)
3. Simbol //, komentar satu baris
Contoh:
// ini komentar satu baris ke-1
// ini komentar satu baris ke-2
Reserved Word
Reserved Word, atau kata cadangan, merupakan bagian tak terpisah dari Pascal dan tidak
dapat didefinisikan ulang. Penulisan kata cadangan tidak memperhatikan besar kecilnya
huruf karena secara umum Pascal merupakan pemrograman yang tidak memperhatikan
besar kecilnya huruf (case insensitive).
Beberapa compiler mempunyai reserved word yang berbeda, namun perbedaan tersebut
terjadi karena masalah kelengkapan atau penambahan. Sebagai contoh kata cadangan
pada Delphi Pascal lebih banyak dibandingkan Turbo Pascal, sedangkan Free Pascal
menggunakan reserved word yang dipunyai Turbo Pascal dan Delphi Pascal.
Turbo Pascal Reserved Word
Berikut ini adalah reserved word yang ada di Turbo Pascal:
absolute else nil set
and end not shl
array object file shr
asr for of string
begin function on then
break goto operation to
case if or type
const implementation packed unit
constructor in procedure until
continue inherited program uses
destructor inline record var
div interface reintroduce while
do label repeat with
downto mod self xor
Komputer dan Pemrograman - 15 -
Delphi Pascal Reserved Word
Kata cadangan atau reserved word pada Delphi Pascal sama dengan reserved word Turbo
Pascal dengan penambahan:
as finalization library threadvar
class finally on try
except initialization property exports
is raise
Free Pascal Reserved Word
Kata cadangan atau reserved word pada Free Pascal sama dengan reserved word Turbo
Pascal dan Delphi Pascal dengan penambahan:
dispose False True exit new
Modifier
Sebenarnya modifier bukan sepenuhnya merupakan reserved word, karena pada
kenyataannya modifier bisa dijadikan identifier namun pada tempat khusus oleh kompiler
modifier di baca dengan makna khusus.
absolute external override safecall abstract
far pascal softfloat alias far16
private stdcall assembler forward protected
virtual cdecl index public write
cppdecl name published default near
Read export oldfpccall register
Identifier
Identifier, atau bisa diartikan Pengenal, menotasikan nama konstanta, variabel, tipe data,
prosedur, unit, dan program. Jadi, identifier bisa diartikan sebagai semua nama dari
sesuatu yang telah didefinisikan.
Contoh berikut ini merupakan identifier:
Program identifier_program;
Var identifier_var : integer;
Const identifier_const=10;
Pada contoh di atas reserved word dicetak tebal, sedangkan identifier untuk masing-masing
reserved word dicetak miring.
KONSTANTA
Konstanta merupakan nilai tetap yang sudah didefinisikan dan tidak berubah selam
program digunakan. Terdapat tiga jenis konstanta yaitu konstanta biasa, konstanta
bertipe data dan resource string. Konstanta biasa dan konstanta bertipe data hanya
tersedia pada Turbo Pascal dan Free Pascal. Sedangkan resource string didukung oleh
Delphi dan FreePascal dalam mode objfpc (pemrograman berorientasi object). Oleh
karena itu, pada pembahasan ini hanya dibahas mengenai konstanta biasa dan konstanta
bertipe data.
Token & Konstanta
Bentuk umum konstanta adalah sebagai berikut:
Konstanta Biasa
Bentuk konstanta biasa mengikuti alur lurus dari bentuk umum konstanta di atas.
Kompiler harus bisa melakukan evaluasi terhadap deklarasi konstanta pada saat kode
dikompilasi. Sehingga fungsi pada library yang diperoleh pada saat run-time (program
dijalankan) tidak dapat dipakai. Konstanta biasa dapat menggunakan operator +, -, *,
/, not, div, mod, ord, chr, sizeof, int, func, trunc, round, frac, odd. Sedangkan
nilai konstanta hanya bisa menggunakan tipe data ordinal, real, char dan string.
Berikut ini contoh konstanta biasa:
Const
e = 2.81234; {Konstanta bertipe data real}
a=4; {Konstanta bertipe data integer}
a=’5’; {Konstanta bertipe data char}
s=’Ini konstanta’; {Konstanta bertipe data string}
s=chr(32);
ls=sizeof(Longint);
Assigment sebuah nilai untuk konstanta biasa tidak diperkenankan. Jadi, penambahan
untuk deklarasi sebelumnya, seperti contoh berikut, akan menyebakan kesalahan.
s:=’string tambahan’;
Konstanta bertipe data
Konstanta bertipe data memberi program sebuah variabel yang sudah terinialisasi atau
bernilai awal. Berbeda dengan konstanta biasa konstanta bertipe data dapat di-assign
pada saat run-time. Contoh sederhana dari konstanta bertipe data adalah sebagai berikut:
Const
S: string = ‘Ini adalah konstanta bertipe data’;
Namun, assignment berikut tetap dibenarkan:
S:=’Result: ’ + Func ;
Konstanta bertipe data biasanya digunakan untuk menuliskan array dan record. Contoh
penggunaan konstanta bertipe array adalah sebagai berikut:
Const
Tt: array [1..3] of string[20] = (‘ikke’, ‘you’, ‘paino’);
Ti: array [1..3] of longint = (1,1,6);
Sedangkan penggunaan konstanta bertipe data record adalah seperti pada contoh berikut:
Type
Point = record
X, Y : real;
end;
Const
init : Point = (X:0.0, Y:0.0);
Identifier
: Tipe Data
= Value ;
Kamis, 24 Februari 2011
Fasilitas Visual Basic
Segi data access
Dari segi data access terdapat beberapa tambahan, yakni >>
* ADO (ActiveX Data Objects), fasilitas ini ada disemua edisi, fasilitas baru ini merupakan teknologi baru dalam mengakses objek data, yang mampu menghubungkan teknologi Microsoft dengan non-Microsoft, settingan pengaksesan data lokal maupun data longdistance, dan masih banyak yang lainya.
* Data Environment, Fasilitas ini cuma ada di edisi Profesional dan edisi Enterprise. Designer Data Environment ini mendukung sebuah interactive, design-tima environment untuk membuat object ADO. Fasilitas ini dapat kita gunakan kaya data source untuk object data-aware dalam sebuah form/report atau diakses secara properti yang dipantau dari object DATA ENVIRONMENT.
* DO Data Control, fasilitas ini ada disemua edisi. Kontrol data source ini berfungsi kaya kontrol seperti data dan Remote Data yang kita miliki. Dengan fasilitas ini kita mampu membuat aplikasi database dengan meminimkan sistem codding/pengkodean.
* Data Report, fasilitas ini cuma ada diedisi Profesional dan Enterprise. Dengan fasilitas inikita bisa menggunakan dan melakukan drag und drop untuk termasuk struktur recordest-nya.
* SQL Editor, fasilitas ini cuma ada diedisi Enterprise. Dengan fasilitas ini kita bisa menambah prosedur baru ke SQL Server dan DB Oracle yg udah ada.
* Format Objects, fasilitas ini ada disemua edisi , yang mendukung dua cara konversi data antara sebuah database dan sebuah bound control. Saat sebuah nilai dibaca dari database, sebuah format object akan ditambahkan kedalam bound control.
Dari segi data access terdapat beberapa tambahan, yakni >>
* ADO (ActiveX Data Objects), fasilitas ini ada disemua edisi, fasilitas baru ini merupakan teknologi baru dalam mengakses objek data, yang mampu menghubungkan teknologi Microsoft dengan non-Microsoft, settingan pengaksesan data lokal maupun data longdistance, dan masih banyak yang lainya.
* Data Environment, Fasilitas ini cuma ada di edisi Profesional dan edisi Enterprise. Designer Data Environment ini mendukung sebuah interactive, design-tima environment untuk membuat object ADO. Fasilitas ini dapat kita gunakan kaya data source untuk object data-aware dalam sebuah form/report atau diakses secara properti yang dipantau dari object DATA ENVIRONMENT.
* DO Data Control, fasilitas ini ada disemua edisi. Kontrol data source ini berfungsi kaya kontrol seperti data dan Remote Data yang kita miliki. Dengan fasilitas ini kita mampu membuat aplikasi database dengan meminimkan sistem codding/pengkodean.
* Data Report, fasilitas ini cuma ada diedisi Profesional dan Enterprise. Dengan fasilitas inikita bisa menggunakan dan melakukan drag und drop untuk termasuk struktur recordest-nya.
* SQL Editor, fasilitas ini cuma ada diedisi Enterprise. Dengan fasilitas ini kita bisa menambah prosedur baru ke SQL Server dan DB Oracle yg udah ada.
* Format Objects, fasilitas ini ada disemua edisi , yang mendukung dua cara konversi data antara sebuah database dan sebuah bound control. Saat sebuah nilai dibaca dari database, sebuah format object akan ditambahkan kedalam bound control.
Senin, 21 Februari 2011
summarizing of VB
Summarizing of Visual Basic.
ﯽCara Belajar Penggunaan Objek.
Objek : Dapat diartikan sebagai sebuah benda, dalam hal ini anggap saja Objek adalah TextBox, Label, dan Button.
Cara Belajar Penggunaan Event.
Event : Sesuatu kejadian terhadap objek pada saat tertentu, atau setiap komponen dapat beraksi melalui event tertulis dalam layar script button1_click, pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
Misal : Objek Button dapat menerima event click pada saat pemakai software kita nanti mengkliknya.
Cara Belajar Penggunaan Properties.
Properties adalah Sesuatu yang di punyai oleh objek, atau setiap komponen di dalam pemrograman visual basic dapat di atur propetinya sesuai dengan kebutuhan aplikasi. Property yang tidak boleh di lupakan pada setiap komponen adalah “Name” yang berarti nama variable (komponen) yang akan digunakan dalam scripting.
Misal : TextBox mempunyai proeprty nama atau property text
Tiap penggunaan object pasti diikuti propertiesnya. Jika di .net perintah If dan perintah Then (otomatis).
Dalam net, penggunaan database querynya beda, maka connection database-nya akan meminta yang baru....dan itu akan selalu seperti itu or continue (berulang-ulang)..
ﯽCara Belajar Penggunaan Objek.
Objek : Dapat diartikan sebagai sebuah benda, dalam hal ini anggap saja Objek adalah TextBox, Label, dan Button.
Cara Belajar Penggunaan Event.
Event : Sesuatu kejadian terhadap objek pada saat tertentu, atau setiap komponen dapat beraksi melalui event tertulis dalam layar script button1_click, pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
Misal : Objek Button dapat menerima event click pada saat pemakai software kita nanti mengkliknya.
Cara Belajar Penggunaan Properties.
Properties adalah Sesuatu yang di punyai oleh objek, atau setiap komponen di dalam pemrograman visual basic dapat di atur propetinya sesuai dengan kebutuhan aplikasi. Property yang tidak boleh di lupakan pada setiap komponen adalah “Name” yang berarti nama variable (komponen) yang akan digunakan dalam scripting.
Misal : TextBox mempunyai proeprty nama atau property text
Tiap penggunaan object pasti diikuti propertiesnya. Jika di .net perintah If dan perintah Then (otomatis).
Dalam net, penggunaan database querynya beda, maka connection database-nya akan meminta yang baru....dan itu akan selalu seperti itu or continue (berulang-ulang)..
Jumat, 18 Februari 2011
Object Studying
Dengan array kita harus mendeklarasikan terlebih dahulu kapasitas array, tapi bila menggunakan List tidak perlu karena object yang disimpan pada list bersifat dinamis
Contoh penggunaan List sederhana:
Untuk membuat object list baru yang bertipe string kodenya
'Menggunakan List yang bertipe string
Dim objNama As New List(Of String)
Untuk menambahkan nilai bertipe string kedalam list caranya
'cara menambahkan kedalam elemen list
objNama.Add("Erick")
objNama.Add("Anton")
objNama.Add("Willy")
objNama.Add("Bejo")
Untuk mengambil nilai dari object list:
'untuk mengambil elemen yang ada dalam list
For Each strNama As String In objNama
Console.WriteLine(strNama)
Next
List tidak hanya digunakan untuk menampung nilai dengan tipe-tipe data native seperti int,double,currency,dll tapi list juga bisa digunakan untuk menampung nilai yang bertipe object
Contoh Penggunaan List bertipe object
Pertama buat class Employee terlebih dahulu:
Public Class Employee
Private employeeID As Integer
Public Sub New(ByVal theID As Integer)
Me.employeeID = theID
End Sub
Public Property EmpID() As Integer
Get
Return employeeID
End Get
Set(ByVal value As Integer)
employeeID = value
End Set
End Property
End Class
Kemudian buat list yang bertipe class Employee
Dim objEmp As New List(Of Employee)
Isi list dengan object bertipe employee
'mengisi list dengan object bertipe class employee
For intCount As Integer = 1 To 5
objEmp.Add(New Employee(intCount + 100))
Next
Untuk menampilkan atau mengambil nilai pada object employee dalam list
'ambil semua nilai employeeID dari List
For Each objId As Employee In objEmp
Console.WriteLine(objId.EmpID)
Next
Contoh penggunaan List sederhana:
Untuk membuat object list baru yang bertipe string kodenya
'Menggunakan List yang bertipe string
Dim objNama As New List(Of String)
Untuk menambahkan nilai bertipe string kedalam list caranya
'cara menambahkan kedalam elemen list
objNama.Add("Erick")
objNama.Add("Anton")
objNama.Add("Willy")
objNama.Add("Bejo")
Untuk mengambil nilai dari object list:
'untuk mengambil elemen yang ada dalam list
For Each strNama As String In objNama
Console.WriteLine(strNama)
Next
List tidak hanya digunakan untuk menampung nilai dengan tipe-tipe data native seperti int,double,currency,dll tapi list juga bisa digunakan untuk menampung nilai yang bertipe object
Contoh Penggunaan List bertipe object
Pertama buat class Employee terlebih dahulu:
Public Class Employee
Private employeeID As Integer
Public Sub New(ByVal theID As Integer)
Me.employeeID = theID
End Sub
Public Property EmpID() As Integer
Get
Return employeeID
End Get
Set(ByVal value As Integer)
employeeID = value
End Set
End Property
End Class
Kemudian buat list yang bertipe class Employee
Dim objEmp As New List(Of Employee)
Isi list dengan object bertipe employee
'mengisi list dengan object bertipe class employee
For intCount As Integer = 1 To 5
objEmp.Add(New Employee(intCount + 100))
Next
Untuk menampilkan atau mengambil nilai pada object employee dalam list
'ambil semua nilai employeeID dari List
For Each objId As Employee In objEmp
Console.WriteLine(objId.EmpID)
Next
Propeties & Object
Anda memiliki foto pada hard drive anda, lakukan hal berikut:
• Add a Picture Box control to your Form Tambahkan kontrol Picture Box untuk Formulir Anda
• Set the SizeMode Property of the Picture box to StretchImage Mengatur Properti SizeMode dari kotak Gambar untuk StretchImage
• Click on the Image Property, and add the planet.jpg image that you downloaded above Klik pada Gambar Properti, dan menambahkan gambar planet.jpg yang Anda download di atas
• Add two textboxes to the form. Tambahkan dua boks teks pada form. Change the Name of the first one to txtHeight , and the second one to txtWidth . Mengubah Nama pertama untuk txtHeight, dan yang kedua untuk txtWidth. Enter 300 as a the text for both textboxes Masukkan 300 sebagai teks untuk kedua boks teks
• Add two labels to the form. Tambahkan dua label pada form. Set the Text of the first one to Height , and the second one to Width . Mengatur Teks orang pertama yang Tinggi, dan yang kedua untuk Lebar. Move them next to the textboxes Memindahkan mereka di sebelah boks teks
• Add a new button to your form. Tambahkan tombol baru untuk membentuk Anda. Set the Text property to “Change Height and Width” Atur properti Text untuk "Perubahan Tinggi dan Lebar"
VB perlu tahu bahwa Anda ingin mengatur sebuah Properti untuk Kelas Anda. The way you do this is type "Public Property … End Property". Cara Anda melakukannya adalah tipe "Umum Properti ... Akhir Properti".
Access the code for your Class. Akses kode untuk Kelas Anda. Type a few lines of space between the End Sub of your DoMessageBox Method, and the line that reads "End Class". Ketik beberapa baris ruang antara Sub Akhir DoMessageBox Anda Metode, dan garis yang bertuliskan "End Class". On a new line, type the following: Pada baris baru, ketik berikut ini:
Public Property ChangeHeight() As Integer Umum Properti ChangeHeight () As Integer
ChangeHeight is the name of our property, and it's something we made up ourselves. ChangeHeight adalah nama properti kita, dan itu sesuatu yang kita dibuat sendiri. After a pair of round brackets, you add the type of value that will be returned (Just like a function). Setelah sepasang kurung bulat, Anda menambahkan jenis nilai yang akan dikembalikan (Sama seperti fungsi a). Here, we want to return an Integer value. Di sini, kami ingin mengembalikan nilai Integer.
Ketika Anda menekan tombol kembali setelah mengetik baris tersebut, VB selesai dari sisa rintisan kode untuk Anda:
Public Property ChangeHeight() As Integer Umum Properti ChangeHeight () As Integer
Get Mendapatkan
End Get Akhir Dapatkan
Set(ByVal Value As Integer) Set (ByVal Value As Integer)
End Set Akhir Set
End Property Akhir Properti
Before the code is explained, add a new variable right at the top of your code, just below "Public Class changeHeightWidth". Sebelum kode tersebut dijelaskan, tambahkan variabel baru tepat di bagian atas kode Anda, tepat di bawah "changeHeightWidth Kelas Publik". Add this: Tambahkan ini:
Private intHeight As Integer Swasta intHeight As Integer
The Private word means that only code inside of the Class can see this variable. Kata Swasta berarti bahwa kode hanya dalam Kelompok dapat melihat variabel ini. You can't access this code directly from a button on a Form, for example.
Jika Anda ingin Properti Anda untuk menangani teks Anda mungkin memiliki sesuatu seperti ini:
Set( ByVal MyText As String ) Set (ByVal MyText As String)
But you couldn't do this: Tapi Anda tidak bisa melakukan ini:
Set( ByVal Value As Integer , ByVal MyString As String ) Set (ByVal Value As Integer, MyString ByVal As String)
In other words, you can't pass two values to your property. Dengan kata lain, Anda tidak bisa lewat dua nilai untuk properti Anda. You can only pass one value. Anda hanya dapat melewati satu nilai.
But we want to pass a number to our property. Tapi kita ingin lulus nomor ke properti kami. For us, this value will come from the textbox on the form. Bagi kami, nilai ini akan datang dari textbox pada form. Whatever number is inside of the textbox will get handed over to our Property. Apapun nomor dalam textbox akan diserahkan kepada Properti kami.
• Add a Picture Box control to your Form Tambahkan kontrol Picture Box untuk Formulir Anda
• Set the SizeMode Property of the Picture box to StretchImage Mengatur Properti SizeMode dari kotak Gambar untuk StretchImage
• Click on the Image Property, and add the planet.jpg image that you downloaded above Klik pada Gambar Properti, dan menambahkan gambar planet.jpg yang Anda download di atas
• Add two textboxes to the form. Tambahkan dua boks teks pada form. Change the Name of the first one to txtHeight , and the second one to txtWidth . Mengubah Nama pertama untuk txtHeight, dan yang kedua untuk txtWidth. Enter 300 as a the text for both textboxes Masukkan 300 sebagai teks untuk kedua boks teks
• Add two labels to the form. Tambahkan dua label pada form. Set the Text of the first one to Height , and the second one to Width . Mengatur Teks orang pertama yang Tinggi, dan yang kedua untuk Lebar. Move them next to the textboxes Memindahkan mereka di sebelah boks teks
• Add a new button to your form. Tambahkan tombol baru untuk membentuk Anda. Set the Text property to “Change Height and Width” Atur properti Text untuk "Perubahan Tinggi dan Lebar"
VB perlu tahu bahwa Anda ingin mengatur sebuah Properti untuk Kelas Anda. The way you do this is type "Public Property … End Property". Cara Anda melakukannya adalah tipe "Umum Properti ... Akhir Properti".
Access the code for your Class. Akses kode untuk Kelas Anda. Type a few lines of space between the End Sub of your DoMessageBox Method, and the line that reads "End Class". Ketik beberapa baris ruang antara Sub Akhir DoMessageBox Anda Metode, dan garis yang bertuliskan "End Class". On a new line, type the following: Pada baris baru, ketik berikut ini:
Public Property ChangeHeight() As Integer Umum Properti ChangeHeight () As Integer
ChangeHeight is the name of our property, and it's something we made up ourselves. ChangeHeight adalah nama properti kita, dan itu sesuatu yang kita dibuat sendiri. After a pair of round brackets, you add the type of value that will be returned (Just like a function). Setelah sepasang kurung bulat, Anda menambahkan jenis nilai yang akan dikembalikan (Sama seperti fungsi a). Here, we want to return an Integer value. Di sini, kami ingin mengembalikan nilai Integer.
Ketika Anda menekan tombol kembali setelah mengetik baris tersebut, VB selesai dari sisa rintisan kode untuk Anda:
Public Property ChangeHeight() As Integer Umum Properti ChangeHeight () As Integer
Get Mendapatkan
End Get Akhir Dapatkan
Set(ByVal Value As Integer) Set (ByVal Value As Integer)
End Set Akhir Set
End Property Akhir Properti
Before the code is explained, add a new variable right at the top of your code, just below "Public Class changeHeightWidth". Sebelum kode tersebut dijelaskan, tambahkan variabel baru tepat di bagian atas kode Anda, tepat di bawah "changeHeightWidth Kelas Publik". Add this: Tambahkan ini:
Private intHeight As Integer Swasta intHeight As Integer
The Private word means that only code inside of the Class can see this variable. Kata Swasta berarti bahwa kode hanya dalam Kelompok dapat melihat variabel ini. You can't access this code directly from a button on a Form, for example.
Jika Anda ingin Properti Anda untuk menangani teks Anda mungkin memiliki sesuatu seperti ini:
Set( ByVal MyText As String ) Set (ByVal MyText As String)
But you couldn't do this: Tapi Anda tidak bisa melakukan ini:
Set( ByVal Value As Integer , ByVal MyString As String ) Set (ByVal Value As Integer, MyString ByVal As String)
In other words, you can't pass two values to your property. Dengan kata lain, Anda tidak bisa lewat dua nilai untuk properti Anda. You can only pass one value. Anda hanya dapat melewati satu nilai.
But we want to pass a number to our property. Tapi kita ingin lulus nomor ke properti kami. For us, this value will come from the textbox on the form. Bagi kami, nilai ini akan datang dari textbox pada form. Whatever number is inside of the textbox will get handed over to our Property. Apapun nomor dalam textbox akan diserahkan kepada Properti kami.
Event di VB
Ketika Visual Basic program dijalankan, bentuk dan kontrol yang muncul di layar. Biasanya, tidak ada yang terjadi sampai pengguna mengambil tindakan, seperti mengklik Tindakan seperti ini disebut sebuah event. The three steps to creating a Visual Basic program are as follows: Tiga langkah untuk membuat program Visual Basic adalah sebagai berikut:
1. 1. Create the interface; that is, generate, position, and size the objects. Membuat antarmuka, yaitu, menghasilkan, posisi, dan ukuran objek.
2. 2. Set properties; that is, set relevant properties for the objects. Set properti, yaitu relevan untuk mengatur properti objek.
3. 3. Write the code that executes when the events occur. Tuliskan kode yang dijalankan ketika peristiwa terjadi.
mana objectName adalah nama bentuk atau kontrol, properti merupakan salah satu sifat-sifat objek, dan pengaturan adalah pengaturan valid untuk objek tersebut. Such statements are called assignment statements. Laporan seperti ini disebut pernyataan penugasan. They assign values to properties. Mereka memberikan nilai pada properti. Here are three other assignment statements. Berikut adalah tiga pernyataan penugasan lainnya. The statement: Pernyataan itu:
txtBox.Font.Size = 12 txtBox.Font.Size = 12
sets the size of the characters in the text box named txtBox to 12. set ukuran karakter dalam kotak teks bernama txtBox sampai 12.
The statement: Pernyataan itu:
txtBox.Font.Bold = True txtBox.Font.Bold = True
converts the characters in the text box to boldface. mengubah karakter dalam kotak teks untuk huruf tebal.
The statement: Pernyataan itu:
txtBox.Text = “” txtBox.Text = ""
clears the contents of the text box; that is, it invokes the blank setting. membersihkan isi kotak teks, yaitu, ia memanggil pengaturan kosong. Most events are associated with objects. Kebanyakan acara yang berhubungan dengan objek. The event clicking cmdButton is different from the event clicking picBox. Acara mengklik cmdButton berbeda dari acara picBox mengklik. These two events are specified cmdButton_Click and picBox_Click. Kedua peristiwa ini ditentukan cmdButton_Click dan picBox_Click. The statements to be executed when an event occurs are written in a block of code called an event procedure. Laporan akan dieksekusi ketika sebuah peristiwa terjadi yang ditulis dalam blok kode yang disebut prosedur acara. The structure of an event procedure is: Struktur sebuah prosedur acara adalah:
txtBox.Font.Size = 12 txtBox.Font.Size = 12
sets the size of the characters in the text box named txtBox to 12. set ukuran karakter dalam kotak teks bernama txtBox sampai 12.
The statement: Pernyataan itu:
txtBox.Font.Bold = True txtBox.Font.Bold = True
converts the characters in the text box to boldface. mengubah karakter dalam kotak teks untuk huruf tebal.
The statement: Pernyataan itu:
txtBox.Text = “” txtBox.Text = ""
clears the contents of the text box; that is, it invokes the blank setting. membersihkan isi kotak teks, yaitu, ia memanggil pengaturan kosong. Most events are associated with objects. Kebanyakan acara yang berhubungan dengan objek. The event clicking cmdButton is different from the event clicking picBox. Acara mengklik cmdButton berbeda dari acara picBox mengklik. These two events are specified cmdButton_Click and picBox_Click. Kedua peristiwa ini ditentukan cmdButton_Click dan picBox_Click. The statements to be executed when an event occurs are written in a block of code called an event procedure. Laporan akan dieksekusi ketika sebuah peristiwa terjadi yang ditulis dalam blok kode yang disebut prosedur acara. The structure of an event procedure is: Struktur sebuah prosedur acara adalah:
Private Sub objectName_event() Private Sub objectName_event ()
statements laporan
End Sub End Sub
The word Sub in the first line signals the beginning of the event procedure, and the first line identifies the object and the event occurring to that object. Kata Sub pada baris pertama sinyal awal prosedur event, dan baris pertama mengidentifikasi objek dan peristiwa yang terjadi untuk objek tersebut. The last line signals the termination of the event procedure. Baris terakhir sinyal berakhirnya event prosedur. The statements to be executed appear between these two lines. Laporan akan dieksekusi muncul antara dua garis.
(Note: The word Private indicates that the event procedure cannot be invoked by an event from another form. This will not concern us until much later in the text. The word Sub is an abbreviation of Subprogram.) For instance, the event procedure (Catatan: Kata Swasta menunjukkan bahwa prosedur acara tidak dapat dipanggil oleh acara dari bentuk lain ini tidak akan menjadi perhatian kita sampai lama kemudian dalam teks Kata Sub merupakan singkatan dari Subprogram...) Sebagai contoh, prosedur acara
(Note: The word Private indicates that the event procedure cannot be invoked by an event from another form. This will not concern us until much later in the text. The word Sub is an abbreviation of Subprogram.) For instance, the event procedure (Catatan: Kata Swasta menunjukkan bahwa prosedur acara tidak dapat dipanggil oleh acara dari bentuk lain ini tidak akan menjadi perhatian kita sampai lama kemudian dalam teks Kata Sub merupakan singkatan dari Subprogram...) Sebagai contoh, prosedur acara
1. 1. Create the interface in Figure 2-13. Buat antarmuka pada Gambar 2-13. The Name properties of the form, text box, and command button should be set as shown in the Object column. Name sifat dari bentuk, kotak teks, tombol perintah dan harus ditetapkan seperti yang ditunjukkan pada kolom Object. The Caption property of the form should be set to Demonstration, the Text property of the text box should be made blank, and the Caption property of the command button should be set to Make Phrase Bold. Properti Caption dari form harus di set ke Demonstrasi, properti Text dari kotak teks yang harus dibuat kosong, dan properti Caption dari tombol perintah harus ditetapkan Membuat Frasa Bold.
2. 2. Double-click on the text box. Double-klik pada kotak teks. A window, called the Code window, appears. Sebuah jendela, yang disebut jendela Code, muncul. See Figure 2-14. Lihat Gambar 2-14. Just below the title bar are two drop-down list boxes. Tepat di bawah judul bar dua drop-down box. The left box is called the Object box and the right box is called the Procedure box. Kotak kiri disebut kotak Obyek dan kotak kanan disebut kotak Prosedur. (When you position the mouse pointer over one of these list boxes, its type appears.) (Bila Anda posisi pointer mouse di atas salah satu kotak daftar, jenisnya muncul.)
2. 2. Double-click on the text box. Double-klik pada kotak teks. A window, called the Code window, appears. Sebuah jendela, yang disebut jendela Code, muncul. See Figure 2-14. Lihat Gambar 2-14. Just below the title bar are two drop-down list boxes. Tepat di bawah judul bar dua drop-down box. The left box is called the Object box and the right box is called the Procedure box. Kotak kiri disebut kotak Obyek dan kotak kanan disebut kotak Prosedur. (When you position the mouse pointer over one of these list boxes, its type appears.) (Bila Anda posisi pointer mouse di atas salah satu kotak daftar, jenisnya muncul.)
Rabu, 16 Februari 2011
VB History
VB atau yang biasa kita kenal dengan sebutan VISUAL BASIC ini dulunya berawal dari bahsa BASIC yg kemudian dikembangkan pada tahun 1963. BASIC itu SINGKATAN dari Beginner's All Purpose Symbolic Instruction Code. Sesuai namanya, bahasa basic dibuat u/memudahkan user agar dapat dengan mudah mempelajri, membuat/menciptakan, dan mengembangkan program komputer.
VB merupakan pengembanga lebih lanjut dari bahasa basic yg dibuat oleh Microsoft.
VB 1.0 merupakan versi prtama VB dan dirilis tahun 1991....'wah tahun sy lahir nih...!!!"
VB 1.0 ditunjukan u/system operasi Microsoft DOS . S elanjutnya diterusin dengan VB 2.0 tahun 1992, versi 3.0 tahun 1993, versi 4. tahun 1995, versi 5.0 tahun 1997, dan versi 6.0 tahun1998.
VB 6.0 sangat populer dan masih banyak dipakai sampe sekarang. Namun, program yg dbuat VB 6.0 masih dapat dijalankan pada system operasi terbaru seperti Windows Server 2008 maupun Vista
Minggu, 13 Februari 2011
The different of compiler with intrepeter
Intepreter adalah perangkat lunak yang mampu mengeksekusi code program (yang ditulis oleh programer) lalu menterjemahkanya kedalam bahasa mesin, sehingga mesin melakukan instruksi yang diminta oleh programer tersebut. Perintah-perintah yang dibuat oleh programer tersebut dieksekusi baris demi baris, sambil mengikuti logika yang terdapat didalam code tersebut. Proses ini sangat berbeda dengan compiler, dimana pada compiler, hasilnya sudah langsung berupa satu kesatuan perintah dalam bentuk bahasa mesin, dimana proses penterjemahan dilaksanakan sebelm program tersebut dieksekusi.
Sedangkan compiler sendiri yaitu program sistem yang digunakan sebagai alat bantu dalam pemrograman. Perangkat lunak yang melakukan proses penterjemahan code (yang dibuat programer) kedalam bahasa mesin. Hasil dari terjemahan ini adalah bahasa mesin. Pada beberapa compiler, output berupa bahasa mesin dilaksanakan dengan proses assembler yang berbeda.
Sedangkan compiler sendiri yaitu program sistem yang digunakan sebagai alat bantu dalam pemrograman. Perangkat lunak yang melakukan proses penterjemahan code (yang dibuat programer) kedalam bahasa mesin. Hasil dari terjemahan ini adalah bahasa mesin. Pada beberapa compiler, output berupa bahasa mesin dilaksanakan dengan proses assembler yang berbeda.
Langganan:
Postingan (Atom)