Ujian Matrikulasi Pemrograman Visual Basic

Aplikasi yang dibuat adalah "seperti" Billing Wartel, dengan tampilan dibawah ini :

Adapun ketentuan dari aplikasi ini adalah :
1. Button 0 s/d 9 digunakan untuk menampilkan nomer tujuan pada textbox Display.
2. Jika Button Mulai diklik, maka akan muncul durasi dan biaya pada textbox Display, sesuai dengan tarif-nya.
3. Button Selesai digunakan untuk menghentikan perhitungan pulsa, dan data-nya dimasukkan ke listbox Hasil.
4. Berikut ini ketentuan Durasi dan Tarif-nya :

• Interlokal : Awalan 0, Durasi(detik) 60, Tarif (Rp) 915
• GSM : Awalan 08, Durasi(detik) 60, Tarif (Rp) 1000
• International : Awalan 007 Durasi(detik) 60, Tarif (Rp) 8300
• Lokal : Awalan 1s/d9, Durasi(detik) 120, Tarif (Rp) 195

Berikut ini koding-nya :
Dim detik As Integer
Dim harga As Integer
Dim total As Integer
Dim arrTarif(3, 2) As String
Dim idx As Integer
Dim noTelpon As String

Private Sub btn0_Click()
tbDisplay.Text = tbDisplay.Text & btn0.Caption
End Sub

Private Sub btn1_Click()
tbDisplay.Text = tbDisplay.Text & btn1.Caption
End Sub

Private Sub btn2_Click()
tbDisplay.Text = tbDisplay.Text & btn2.Caption
End Sub

Private Sub btn3_Click()
tbDisplay.Text = tbDisplay.Text & btn3.Caption
End Sub

Private Sub btn4_Click()
tbDisplay.Text = tbDisplay.Text & btn4.Caption
End Sub

Private Sub btn5_Click()
tbDisplay.Text = tbDisplay.Text & btn5.Caption
End Sub

Private Sub btn6_Click()
tbDisplay.Text = tbDisplay.Text & btn6.Caption
End Sub

Private Sub btn7_Click()
tbDisplay.Text = tbDisplay.Text & btn7.Caption
End Sub

Private Sub btn8_Click()
tbDisplay.Text = tbDisplay.Text & btn8.Caption
End Sub

Private Sub btn9_Click()
tbDisplay.Text = tbDisplay.Text & btn9.Caption
End Sub

Private Sub Form_Load()
idx = -1
arrTarif(0, 0) = "0"
arrTarif(0, 1) = "60"
arrTarif(0, 2) = "915"
arrTarif(1, 0) = "08"
arrTarif(1, 1) = "60"
arrTarif(1, 2) = "915"
arrTarif(2, 0) = "007"
arrTarif(2, 1) = "60"
arrTarif(2, 2) = "8300"
arrTarif(3, 0) = "1/s9"
arrTarif(3, 1) = "120"
arrTarif(3, 2) = "195"
End Sub

Private Sub btnMulai_Click()
noTelpon = tbDisplay.Text
detik = 0
harga = 0
total = 0
JenisPulsa
Timer1.Enabled = True
End Sub

Private Sub btnSelesai_Click()
Timer1.Enabled = False
lvHasil.AddItem (noTelpon & vbTab & vbTab & detik & vbTab & vbTab & harga)
tbDisplay.Text = ""
total = total + harga
lbTotal.Caption = CStr(total)
End Sub

Private Sub Timer1_Timer()
detik = detik + 1
harga = (detik \ arrTarif(idx, 1) + 1) * arrTarif(idx, 2)
tbDisplay.Text = detik & vbTab & vbTab & CStr(harga)
End Sub

Sub JenisPulsa()
idx = -1
Dim i As Integer
For i = 0 To 2
If Mid(tbDisplay.Text, 1, Len(arrTarif(i, 0))) = arrTarif(i, 0) Then
idx = i
End If
Next
If idx = -1 Then
idx = 3
End If
End Sub

Untuk source code dapat diambil di sini

Selamat mencoba dan tetap semangat :)

Ujian Matrikulasi Pemrograman Web

Aplikasi yang dibuat adalah Numerology , suatu ilmu yang memprediksi sifat dan karakteristik seseorang berdasarkan perhitungan tanggal lahir.

Contoh perhitungan Numerology adalah :

Tanggal lahir : 8-9-1986

Day : 8
Month : 9
Year : 1986

Hasil : 8+9+1+9+8+6
Hasil : 41

Jika dihasilkan lebih dari 1 digit angka, maka hasilnya dijumlahkan lagi :
Hasil : 4+1
Hasil : 5

Jadi Birth Path Number-nya : 5

Berikut ini link untuk mencoba Numerology.

Selamat mencoba...!!!

VB6 vs VB.Net - Bahan Sama, Rasa Beda

Berbicara tentang sejarah bahasa pemrograman visual basic, ternyata dimulai dari tahun 1980 oleh seorang Alan Cooper yang membangun "drag and drop design tool" yang dinamakan Tripod. Selanjutnya Microsoft meluncurkan VBA pada tahun 1991, VB6 tahun 1998 dan akhirnya sejak tahun 2002 terjadi revolusi dengan lahirnya VB.NET. Untuk lebih jelasnya dapat dilihat pada :
http://www.bitwisemag.com/copy/features/vb6/vbpastpresentfuture.html

Pada artikel kali ini, saya ingin memperlihatkan sedikit perbedaan antara VB6 dan VB.Net. Sedangkan untuk teori-nya Anda dapat mengunjungi :
http://www.thescarms.com/VBasic/VB6vsVBNet.aspx

Disini ada sebuah aplikasi tentang menampilkan gambar pada sebuah picturebox, berikut ini screenshot-nya :


Untuk membuat design seperti diatas, maka pada VB.Net Anda harus menambahkan dahulu control DriveListBox, DirListBox dan FileListBox karena ketiga control tersebut bukan merupakan control standar yang sudah ada didalam Toolbox. Sedangkan control yang digunakan untuk menampilkan gambar, pada VB6 anda dapat memilih control Image sedangkan di VB.Net control Image sudah tidak ada lagi, sehingga harus menggunakan control PictureBox yang mana kalau sebelumnya di VB6 tidak mempunyai properties Stretch, maka di VB.Net justru sudah dilengkapi dengan properties SizeMode yang mempunyai pilihan : Normal, StretchImage, Auto dan CenterImage.

Dalam membuat design diatas, jika aplikasi tersebut dijalankan akan terdapat sedikit perbedaan jika form di resize. Karena disetiap control pada VB.Net sudah disediakan properties Dock (dengan pilihan : None, Top, Left, Right, Bottom dan Fill), maka jika Dock dipilih Top misalnya, maka control tersebut akan selalu melekat pada sisi atas form tersebut, tidak perduli form tersebut diubah-ubah ukurannya. Asyik bukan ?.

Lalu bagaimana dengan koding diantara Vb6 dan VB.Net ..... ????
Ada 3 Event yang harus diatur, yaitu :

1. Event pada saat Drive dipilih :
VB6
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

VB.Net
Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal As e System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
DirListBox1.Path = DriveListBox1.Drive
End Sub

2. Event pada saat Directory dipilih :
VB6
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

VB.Net
Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged
FileListBox1.Path = DirListBox1.Path
End Sub

3. Event pada saat memilih file gambar :
VB6
Private Sub File1_DblClick()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub

VB.Net
Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged
PictureBox1.Image = PictureBox1.Image.FromFile(DirListBox1.Path & "\" & _
FileListBox1.FileName)
End Sub

Coba dilihat perbedaannya ?....
Salah satu perbedaannya adalah kalau di dalam event VB.Net terdapat parameter dan pasti diikuti oleh keyword Handles. Jadi sebuah event dijalankan BUKAN karena nama event-nya, melainkan Handles yang dipilih.

Apakah Anda tertarik untuk migrasi ke VB.Net ... ??? Tanya...ken..apa :p

Fenomena Dunia IT

Untuk bergelut di dunia teknologi informasi, tahap pertama seseorang harus menjadi Mesin dulu (baca programmer), jangan lupa untuk selalu up-grade kemampuan programming dan analisa sistem-nya.

Tahap kedua adalah mengembangkan diri dengan cara mampu bekerjasama dengan orang lain, untuk berkarya lebih besar lagi (kerjasama Tim). Selama bekerja dalam Tim, harus juga mengasah soft-skill (misalnya : kemampuan berkomunikasi dan empati). Nah disini juga sebagai ajang untuk mengasah kemampuan me-manage pekerjaan dan orang-orang yang terlibat didalamnya....ujilah diri sendiri dan jadilah Manajer.

Salah satu fenomena yang menarik adalah, tidak semua orang yang katanya "suka" dengan programming...."berjodoh" !!.

Artinya dari ribuan mahasiswa informatika, mungkin hanya 10% yang pada kenyataannya akan bekerja di bidang IT. so.... kemana yang lainnya ??

Hehehe....usut punya usut...ternyata kebanyakan dari mereka justru berprofesi sebagai tenaga Marketing.. :p, marketing IT... ? memasarkan software, hardware atau sekalian brainware... :)

Finally, Mesin-Manager-Marketing.... 3M. Mau pilih yang mana ? atau memang bukan merupakan pilihan, tapi takdir ???... *keep smile*.