SYAHRIL FEBRI PRATAMA: 2012

Sabtu, 28 Januari 2012

ketentuan no.2(syahril Febri)

Listing Program:

Public Class Form1
Sub buattabel()
LV.Columns.Add("npm", 70, HorizontalAlignment.Center)
LV.Columns.Add("nama", 180, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub

Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
LV.Items.Add(lst)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
npm.Text = ""
nama.Text = ""
End Sub

End Class

SOAL 3 (SYAHRIL FEBRI PRATAMA)

ketentuan soal 3

Listing Program:

Public Class FormLogint

Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
If Username.Text = "Aril" And Password.Text = "1234" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Username.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub

Private Sub FormLogint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Hasil program:

Listring Program

Public Class FormMenu

Private Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenggajianKaryawanToolStripMenuItem.Click
pegawai.Show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub

Private Sub FormMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Hasil Program

Listing Program

Public Class pegawai

Sub buattabel()

LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)

LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)

LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Left)

LV.Columns.Add("Gaji Pokok", 70, HorizontalAlignment.Left)

LV.Columns.Add("Status", 70, HorizontalAlignment.Left)

LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)

LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Left)

LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Left)

LV.Columns.Add("Pajak", 70, HorizontalAlignment.Left)

LV.Columns.Add("Lembur", 70, HorizontalAlignment.Left)

LV.Columns.Add("Jam Lembur", 70, HorizontalAlignment.Left)

LV.Columns.Add("Total Gaji", 70, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub isitabel()

Dim Lst As New ListViewItem

Lst.Text = NIK.Text

Lst.SubItems.Add(Nama.Text)

Lst.SubItems.Add(jabatan.Text)

Lst.SubItems.Add(gapok.Text)

Lst.SubItems.Add(Stts.Text)

Lst.SubItems.Add(J_Ank.Text)

Lst.SubItems.Add(T_Istri.Text)

Lst.SubItems.Add(T_Ank.Text)

Lst.SubItems.Add(pajak.Text)

Lst.SubItems.Add(lembur.Text)

Lst.SubItems.Add(lemb.Text)

Lst.SubItems.Add(Total.Text)

LV.Items.Add(Lst)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

buattabel()

jabatan.Items.Add("Mandor")

jabatan.Items.Add("Kepala Bagian")

jabatan.Items.Add("Staf")

NIK.Items.Add("100")

NIK.Items.Add("200")

NIK.Items.Add("300")

NIK.Items.Add("400")

Stts.Items.Add("MENIKAH")

Stts.Items.Add("BELUM MENIKAH")

End Sub

Sub clearisian()

NIK.Text = ""

Nama.Text = ""

jabatan.Text = ""

gapok.Text = ""

Stts.Text = ""

J_Ank.Text = ""

T_Istri.Text = ""

T_Ank.Text = ""

pajak.Text = ""

lemb.Text = ""

lembur.Text = ""

Total.Text = ""

NIK.Focus()

End Sub

Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

If jabatan.Text = "Mandor" Then

gapok.Text = 1750000

ElseIf jabatan.Text = "Kepala Bagian" Then

gapok.Text = 2500000

ElseIf jabatan.Text = "Staf" Then

gapok.Text = 1250000

Else

gapok.Text = 0

End If

End Sub

Private Sub Stts_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stts.SelectedIndexChanged

If Stts.Text = "BELUM MENIKAH" Then

T_Istri.Text = 0

T_Ank.Text = 0

J_Ank.Text = 0

ElseIf Stts.Text = "MENIKAH" Then

T_Istri.Text = 0.9 / 100 * gapok.Text

End If

End Sub

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

If J_Ank.Text = 1 Then

T_Ank.Text = J_Ank.Text * (0.3 / 100 * gapok.Text)

ElseIf J_Ank.Text >= 2 Then

T_Ank.Text = J_Ank.Text * (0.7 / 100 * gapok.Text)

End If

pajak.Text = Val(1.5 / 100 * gapok.Text)

Total.Text = Val(gapok.Text) + Val(T_Ank.Text) + Val(T_Istri.Text) + Val(lembur.Text) - Val(pajak.Text)

isitabel()

NIK.Text = ""

Nama.Text = ""

jabatan.Text = ""

gapok.Text = ""

Stts.Text = ""

J_Ank.Text = ""

T_Istri.Text = ""

T_Ank.Text = ""

pajak.Text = ""

lembur.Text = ""

lemb.Text = ""

Total.Text = ""

End Sub

Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

If NIK.Text = "100" Then

Nama.Text = "Aril"

ElseIf NIK.Text = "200" Then

Nama.Text = "Arol"

ElseIf NIK.Text = "300" Then

Nama.Text = "Arul"

ElseIf NIK.Text = "400" Then

Nama.Text = "Arel"

End If

End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

Call clearisian()

End Sub

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

End

End Sub

Private Sub gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gapok.TextChanged

End Sub

Private Sub lemb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lemb.TextChanged

If jabatan.Text = "Mandor" Then

lembur.Text = lemb.Text * 7500

ElseIf jabatan.Text = "Kepala Bagian" Then

lembur.Text = lemb.Text * 1000

ElseIf jabatan.Text = "Staf" Then

lembur.Text = lemb.Text * 5000

Else

lembur.Text = 0

End If

End Sub

End Class

Hasil Program

Rabu, 18 Januari 2012

PEMROGRAMAN VISUAL

Aplikasi SMS dengan VB & Mobile FBUS 1.5 ActiveX Control Part 2

PROGRAM UNTUK MENGIRIM SMS

Ikutilah langkah-langkah berikut untuk membuat program yang dapat mengirimkan sebuah SMS:
1. Dari form yang telah kita buat sebelumnya, tambahkan sebuah CommandButton dan rubahlah
captionnya menjadi “Kirim SMS”. Lalu aturlah letak component-componentnya sehingga
tampilannya menjadi seperti gambar dibawah ini.

2. Click dua kali pada CommandButton yang mempunyai caption “Kirim SMS”, kemudian
ketikkan listing program berikut :
Private Sub Command3_Click()
'Variabel A adalah variabel yang akan menampung nilai hasil proses
pengiriman SMS
'A akan bernilai TRUE jika pengiriman berhasil dan FALSE jika
pengiriman gagal
'Proses pengiriman SMS ini akan mengembalikan suatu nilai yang bertype
BOOLEAN
'Nomor tujuan untuk pengiriman SMS saat ini adalah ABCDEFGHIJKL. Nomor
ini dapat
'diganti sesuai dengan kebutuhan
'Begitu pula dengan pesan SMS yang dikirimkan dapat diganti sesuai
dengan kebutuhan
A = MFBUS15Control1.SMS.SendMessage("ABCDEFGHIJKL ", "Hallo, ini hanya
test")
'Untuk melakukan cek, apakah pengiriman SMS berhasil atau gagal
If A = True ThenMsgBox "Pengiriman SMS berhasil"
Else
MsgBox "Pengiriman SMS gagal"
End If
End Sub
3. Jalankan program, kemudian click CommandButton Connect sehingga koneksi berhasil. Setelah
koneksi berhasil, klik CommandButton Kirim SMS maka program akan memberitahu apakah
pengiriman SMS berhasil atau gagal.

Regular Expression Menggunakan Visual Basic .NET Part 2

Ekspresi Validasi Data

Untuk melakukan validasi data, terlebih dahulu Anda harus membuat suatu ekspresi. Di mana ekspresi ini
terbentuk dari susunan pola-pola sesuai dengan sintaks dasar penulisan regex. Melalui ekspresi inilah
nantinya Anda dapat membandingkan, mengubah, mengganti, atau menghapus string. Regular expression
memungkinkan Anda untuk melakukan validasi data melalui ekspresi-ekspresi yang telah Anda tentukan
sebelumnya. Berdasarkan aturan yang ditetapkan, sebenarnya Anda juga dapat membuat pola yang lebih
kompleks. Secara umum, ada beberapa ekspresi yang cukup sering membantu kita di dalam menyelesaikan

persoalan validasi.
• Ekspresi karakter numerik
Karakter numerik dituliskan dengan menggunakan ekspresi [0-9] atau \d. Ekspresi ini memiliki arti sesuai
atau cocok dengan bilangan desimal tunggal antara 0 sampai 9.
• Ekspresi karakter non-numerik
Karakter non-numerik di sini diartikan sebagai semua karakter kecuali karakter angka. Cara penulisannya
cukup singkat, yaitu menggunakan ekspresi [^0-9] atau \D. Ingat kembali karakter ^ di dalam kurung siku
pada pembahasan sebelumnya, di mana memiliki arti semua karakter kecuali angka 0 sampai 9. Perhatikan
bahwa karakter ^ di dalam kurung siku bukan merupakan asersi seperti contoh kasus tahun.
• Ekspresi huruf kecil dan huruf besar
Huruf besar diekspresikan dengan karakter [A-Z], sedangkan ekspresi huruf kecil adalah [a-z]. Ekspresi ini
memiliki arti huruf antara a sampai dengan z, sehingga angka 0 sampai 9 tidak termasuk didalamnya. Jika
ingin mendapatkan huruf besar dan huruf kecil, Anda tinggal menggabungkannya menjadi [a-zA-Z].
• Ekspresi alamat IP
Sebagaimana Anda ketahui, alamat IP (Internet Protocol) versi 4 dituliskan seperti contoh berikut:
192.168.0.3. Ada pun untuk menyatakan alamat IP yang valid, kita menggunakan pola dalam ekspresi
regex berikut:
\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}
Jika Anda perhatikan, ekspresi di atas mengandung tiga subpola yang dibatasi oleh tanda titik. Subpola
pertama adalah ekspresi \d{1,3}, artinya angka 0 sampai 9 dan paling sedikit 1 angka serta tidak boleh
lebih dari 3 angka. Tanda backslash digunakan untuk meloloskan tanda titik, sehingga didapatkan alamat
IP yang valid. Ada pun tiga subpola lainnya sama dengan subpola pertama, hanya saja subpola terakhir
tidak memerlukan tanda titik.
• Ekspresi alamat email
Alamat email secara umum dituliskan seperti contoh berikut: didik_rpl@yahoo.com. Dari sini Anda sudah
dapat merancang pola yang tepat, yakni terdiri dari tiga subpola.
^([\w-]+)@([\w-]+\.)+[A-Za-z]{2,3}$
Untuk mendapatkan pola yang tepat, kita mengawali dengan karakter ^ dan menutup dengan karakter $.
Berikutnya, subpola pertama menyatakan semua karakter diperbolehkan, dan dilanjutkan dengan karakter
@. Setelah itu meloloskan tanda titik untuk digunakan sebagai akhir nama domain. Terakhir adalah
penulisan TLD (Top Level Domain), di mana boleh dua tetapi tidak lebih dari 3 karakter.
Di dalam kelas Regex terdapat beberapa method static yang memungkinkan Anda untuk menggunakan
regular expression tanpa secara eksplisit menciptakan objek Regex. Artinya, kita tidak harus
menginstantiasi kelas Regex untuk menciptakan objek Regex, karena method static akan menciptakan
objek secara implisit.
Berdasarkan ekspresi-ekspresi di atas, Anda dapat melakukan validasi melalui pola yang telah Anda
definisikan. Untuk contoh kasus yang lebih lanjut, diharapkan masukan berupa tanggal dalam format
dd/mm/yyyy. Di mana tanggal tidak boleh lebih dari 31 dan bulan juga tidak boleh lebih dari 12.
Bagaimana cara menyelesaikannya? Perhatikan kode program berikut:
' Import namespace untuk kelas Regex
Imports System.Text.RegularExpressions
Public Class Form1
Inherits System.Windows.Forms.Form
Function IsValidDate(ByVal dt As String) As Boolean
' Tulis ekspresi dalam satu baris menyamping
' Mengembalikan True jika string sesuai dengan pola yang didefinisikan
Return (Regex.IsMatch(dt, _
"(^0[1-9]{1}|^[12][0-9]|3[01])-(0[1-9]|1[012])-(19|20)\d\d$"))
End Function
Private Sub Button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles Button1.Click
Dim tgl1, tgl2 As String
tgl1 = "30-06-2005"
tgl2 = "2005-07-25"
If IsValidDate(tgl1) Then
Label1.Text = tgl1 + " Valid Date"
Else
Label1.Text = tgl1 + " Not Valid Date"
End If
If IsValidDate(tgl2) Then
Label2.Text = tgl2 + " Valid Date"
Else
Label2.Text = tgl2 + " Not Valid Date"
End If
End Sub
End Class
Pada contoh di atas, kita tidak menciptakan objek Regex secara eksplisit, tetapi menggunakan method
IsMatch, yang juga merupakan method statik. Hasil dari kode program di atas pasti sudah dapat Anda
tebak, di mana string pertama merupakan penulisan format tanggal yang tepat, sedangkan string kedua
tidak sesuai dengan pola Anda.
Validasi dengan Regular Expression
Setelah cukup memahami dasar-dasar regular expression, kita akan melakukan implementasi dalam rangka
mendapatkan data yang sah. Untuk melengkapi validasi yang Anda buat, Anda juga dapat memanfaatkan
kontrol ErrorProvider.
Sekarang siapkan project baru, kemudian masukkan empat buah kontrol TextBox, sebuah kontrol
ErrorProvider, dan sebuah Button. Masing-masing textbox akan kita gunakan untuk masukan nama,
tanggal, email, dan alamat URL. Kode program selengkapnya yang digunakan adalah sebagai berikut:
Imports System.Text.RegularExpressions
Public Class Form1
Inherits System.Windows.Forms.Form
' Windows Form Designer generated code
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
' membatasi karakter tanggal
TextBox2.MaxLength = 10
End Sub
Private Sub TextBox1_Leave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox1.Leave
If TextBox1.Text = "" Then
TextBox1.Focus()
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Not IsAlpha(TextBox1.Text) Then
ErrorProvider1.SetError(TextBox1, _
"Isi dengan Huruf A-Z atau a-z" & Chr(10) & _
"Satu kata saja ya.. ")
Else
ErrorProvider1.SetError(TextBox1, "")
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If Not IsValidDate(TextBox2.Text) Then
ErrorProvider1.SetError(TextBox2, _
"Isi dengan tgl-bln-th," & Chr(10) & _
"misal: 01/12/2005")
Else
ErrorProvider1.SetError(TextBox2, "")
End If
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If Not IsValidEmail(TextBox3.Text) Then
ErrorProvider1.SetError(TextBox3, _
"Alamat Email Tidak Valid")
Else
ErrorProvider1.SetError(TextBox3, "")
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If Not IsValidURL(TextBox4.Text) Then
ErrorProvider1.SetError(TextBox4, _
"URL Tidak Valid")
Else
ErrorProvider1.SetError(TextBox4, "")
End If
End Sub
' Fungsi untuk memeriksa input huruf (satu kata)
' mengembalikan nilai True jika string sesuai
Function IsAlpha(ByVal str As String) As Boolean
Return (Regex.IsMatch(str, "^[A-Za-z]+$"))
End Function
' Fungsi untuk memeriksa format tanggal
Function IsValidDate(ByVal tgl As String) As Boolean
Return (Regex.IsMatch(tgl, _
"(^0[1-9]{1}|^[12][0-9]|3[01])[/](0[1-9]|1[012])[/](19|20)\d\d$"))
End Function
' Fungsi untuk memeriksa format alamat email
Function IsValidEmail(ByVal email As String) As Boolean
Return (Regex.IsMatch(email, "^([\w-]+)@([\w-]+\.)+[A-Za-z]{2,3}$"))
End Function
' Fungsi untuk memeriksa format URL
Function IsValidURL(ByVal url As String) As Boolean
Return (Regex.IsMatch(url, "http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"))
End Function
End Class
Pada validasi ini, Anda juga dapat menggunakan event-event TextBox lain yang mendukung, misalnya
Leave, KeyPress, atau lainnya. Ada pun di sini kita menggunakan event TextChanged, karena memiliki
waktu tanggap lebih cepat. Akibatnya ikon error juga akan lebih sering muncul, meskipun sebenarnya data
yang Anda masukkan belum selesai dituliskan.

Membuat Kalkulator Sederhana dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada
salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3

Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0

Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else

txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="

cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Belajar VB 6.0

Gbr.Visual Basic 6.0

Hampir sekian lama saya tidak menulis posting di blog ini...mungkin karena kurangnya waktu untuk mengurusi blog ini..heheh :)
Tapi kali saya mau berbagi sedikit ilmu tentang pemrograman menggunakanVB 6.0...

Visual Basic merupakan salah satu RAD (Rapid Application Development) Tool yang sangat terkenal mudah untuk dipelajari, digunakan dan cepat dalam membangun suatu aplikasi visual. Konsep pengembangan aplikasi dengan Visual Basic akan dimulai dengan pembentukkan user interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user interface (warna tombol, warna layar, judul layar, dll) , dan baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event) untuk setiap objek yang digunakan.

Untuk mengaktifkan IDE(Integrated Developement Environment) Visual Basic, salah satu caranya adalah lewat menu Start -> All Programs -> Microsoft Visual Basic 6.0 -> Microsoft Visual Basic 6.0 (shortcut). Kemudian akan muncul pilihan jenis aplikasi yang akan kita gunakan dalam pembuatan program dengan Visual Basic 6.0. Biasanya untuk pemula dan untuk memulai belajar Visual Basic 6.0 kita memilih Standard EXE.

Berikut komponen window standar pada Visual Basic 6.0 :

1. Menu Bar
Untuk memilih tugas-tugas tertentu seperti membuat project baru, menyimpan project, membuka Project,dll.

2. Main Tool Bar
Untuk melakukan tugas-tugas tertentu dengan cepat melalui tombol icon-icon yang melambangkan fungsinya masing-masing.

3. Form Design
Merupakan tempat untuk objek-objek dan komponen-komponen yang akan kita gunakan dalam merancang user interface suatu aplikasi.

4. Code Window
Merupakan tempat bagi programmer untuk menuliskan kode program. Jendela ini dapat ditampilkan dengan menekan tombol F7 pada keyboard atau dengan double kilik pada objek atau komponen yang akan disisipi kode program.

5. Project Window
Berisi gambaran dari semua modul yang terdapat dalam aplikasi, biasanya terstruktur secara hirarki baik berdasarkan nama ataupun group.

6. Properties Window
Merupakan daftar properti-properti object yang sedang terpilih. Lewat jendela properties ini kita dapat mengubah jenis font, ukuran font, style font, warna background, dll.

7. Tool Box
Berisi komponen-komponen yang dapat digunakan untuk mengembangkan user interface.

8. Form Layout Window
Menunjukan bagaimana form yang bersangkutan ditampilkan ketika runtime/program di eksekusi.

Tipe data pada Visual Basic 6.0 :

Penulisan komentar pada Visual Basic 6.0

Komentar sangat berguna sekali untuk menjelaskan maksud dari suatu kode program sehingga memudahkan dalam pembacaan alur program. Pada Visaul Basic 6.0, untuk menuliskan komentar, kita bias menggunakan tanda petik satu ( ‘ ).
Contoh : Dim bil_1 As Integer ‘deklasai variabel bil_1

Operator Aritmatika, Komparasi dan Logika pada Visual basic 6.0

Cara Membuat Textbox Agar Hanya Dapat Diisi Angka dengan Visual Basic 6.0

Berikut ini penjelasannya :

1. Tambahkan 1 buah form.
2. Tambahkan 2 buah textbox, ubah event-nya menjadi KeyPress.
3. Masukkan kode berikut disetiap kontrol :
‘code dibawah hanya berfungsi agar dapat diTambahkan dengan angka 1 – 9 :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then KeyAscii = 0
End Sub

‘Code dibawah berfungsi agar tombol lainnya seperti Delete, BackSpace, dan SpaceBar juga bisa diterima:
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
msgbox "Isikan Angka Saja"
KeyAscii = 0
End If
End Sub

4. Jalankan program tersebut, lalu lihat hasilnya.
5. Selesai.

KEGIATAN SEHARI-HARI

Saya seorang mahasiswa di STMIK BUDIDARMA sem 5
di awali dari pagi hari saya pergi ke kampus.Setelah pulang dari kampus lakuin hal hal yang g jelas ngumpul ma teman-teman,canda2,makan siang dll....
setelah main sama teman2 saya pulang..setelah sampai di rumah saya makan malam...
main internet,game online....klu da lelah molor deh...

Pada saat tidak kuliah,saya biasanya menghabiskan waktu dengan selalu bermain internet,kalau uda lelah ya istirahat.....sambil dgrkan music....
terserah mau music apa yang penting cocok ma kuping......

kalaw di saat libur kuliah saya ngabisin waktu dengan maen game ,tidur ampe muka pucat ngerokok kalaw bosan cari tempat nongkrong sama teman tau dehj jam berapa pulang nya ,,

kalaw dahj nyampe di rumah biasa nya sih saya suka denger musik di lante atas pake headshet muter lagu dari Rock sampe dangdut yg penting bisa geleng kepala kalaw dahj lelah tepar lagi ,,

Kini kegiatan saya sudah bertambah, sejak saya mengikuti pelatihan gratis dari pemerintah. Pelatihan ini sangat penting buat saya dan masa depan saya. Pelatihan ini di jalani hari sabtu dan minggu saja jam 14:00. Palatihan yang saya ikuti mengajarkan disain grafis, yang di ajarkan meliputi :
1. Photoshop
2. Corel draw
3. sablon

Duhj ga tau lagi apa mo di certaiin bingung -_-!!