Breaking News
Loading...

What's New

Wednesday, February 27, 2013
Cara Membuat Kalkulator dengan Menggunakan VB 6.0

Cara Membuat Kalkulator dengan Menggunakan VB 6.0

Kali ini saya akan berbagi tutorial mengenai VB tepatnya Visual Basic 6.0, disini terdapat postingan mengenai tutorial membuat program penghitung angka atau kalkulator "sederhana" dengan menggunakan VB6, coba baca lalu praktekan dengan benar. Good Luck !



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


Sumber : http://agustarivan.blogspot.com/2012/01/cara-membuat-kalkulator-dengan-visual.html
no image

Cara Membuat Poster Film dengan Menggunakan Photoshop

Kali ini saya akan Repost atau posting ulang postingan dari ilmuphotoshop.com, mungkin bagi saya ini adalah postingan yang bagus yang layak untuk dishare. Jadi apa salahnya berbagi ilmu dengan yang newbie dan bukan sekedar membajak postingan orang lain. Kali ini bisa kita lihat ada sebuah tutorial mengenai Cara membuat Poster Film atau Movie dengan menggunakan Photoshop, mari kita simak dengan seksama langkah-langkahnya dibawah ini.

Buka dokumen baru ukuran A4 ..dengan resolusi 300 dpi.
Warnai halaman baru tadi dengan warna hitam dengan menggunakan Paint bucket tool..
Sekarang buka gambar latar belakang nya.. saya pake latar belakang kota aja ya.. biar keren :)
Drag gambar kota New York tadi ke dokumen baru…
Bahan gambarnya silahkan download disini
atur gambar nya supaya fit.. gepeng-gepeng gpp… karena nanti itu hanya background yang nanti gak keliat juga.
Action selanjutnya adalah buka gambar api … drag ke dokumen juga..
Sekarang hilangkan background kotak nya.. karena kita cuman butuh gambar api nya saja.
Klik add layer mask di layer palette.
Brush seputar gambar api dengan warna hitam…
jelas kan ?
lanjut yah..  sekarang duplikat gambar api yang sudah dihilangin background nya tadi.. dengan cara ALT + Drag ke samping kanan.
Edit kedua gambar api terserbut dengan mengurangi kontras dan warna nya.. dengan menggunakan hue/saturation
Sekarang buka gambar HULK dan Drag ke dokumen baru
Atur letaknya seperti ini
Seleksi gambar HULK dengan menggunakan PEN Tool.. sebenernya bisa pake magic wand tool.. tapi saya lebih seneng pake PEN Tool karena hasilnya bisa lebih bagus..
Ini pekerjaan yang butuh ketelitian dan menyenangkan.. bisa bikin mata jereng-jereng hehehehe..
Kalo ada kesalahan klik waktu seleksi dengan PEN tool.. tekan CTRL + Z (undo) atau CTRL + ALT + Z kalo salahnya banyak..
kalo udah beres seleksinya.. klik kanan layar lalu pilih Make selection
Hasilnya nanti bakal seperti ini :
Kebetulan sekali si HULK punya background hitam.. jadi tinggal add layer mask aja.. biar hitam nya ilang..
Hasilnya akan seperti ini :
Karena dibagian bawah nya akan dipake buat Credit Text… jadi harus agak gelap.. soalnya nanti text nya berwarna putih..
Buat layer baru di paling atas … Klik Layer > new > layer
Brush bagian bawahnya dengan warna hitam.. secukupnya aja..
Turunkan opacity brush hitam menjadi 75%
Sekarang tulis judulnya.. dengan warna Hitam atau terserah aja..  font nya musti agak tebal . saya pake font IMPACT.(bisa cari di internet kalo gak ada).  IMPACT itu font tebel.. jadi keliatan garang … jangan pake Times new roman ya.. hehehe.. nanti gak serem judulnya..
Klik kanan layer tulisan > blending options
Pilih outer glow dengan warna hijau .. size nya dibesarin dikit biar keliatan glow nya.

Buat Credit Text ( seperti judul nya apa, produksi mana, pemeran nya siapa dll ) .. sekarang ngarang sendiri aja ya.. terserah mau nulis apa juga..ini pake font ARIAL biasa gpp..
Setting di Type palette nya.. Horizontal scale jadi 50% supaya hurufnya lebih rapet.
Kecilin sebagian hurufnya supaya lebih mirip dengan Credit Text..
tambahkan logo Dolby
Hasil akhirnya akan seperti ini :

Sumber : http://ilmuphotoshop.com/cara-membuat-poster-film-menggunakan-adobe-photoshop/

Followers

Back To Top