Devans Community
Indonesia :
Saya Harap Anda Login Atau Register Ke Forum kami
Untuk Mengetahui Isi Dari Forum Ini Tersebut

English :
I Hope you Login Or Register To Our Forum
To Learn Content From Forum This Cover

Spanyol :
I Por favor Ingresa o Registrar a nuestro foro
Para aprender de este foro debe relleno

Yunani :
Έχω Παρακαλώ Σύνδεση ή Εγγραφή στο φόρουμ μας
Για να μάθετε από αυτό το φόρουμ πρέπει να συμπληρώσει

Regards,




O'im
my Facebook :
oim.devans@facebook.com
Atau
Facebook Forum :
Devans_community@yahoo.com

--------------------------------------------------------



Info : Jika anda Berkenan, Harap Membuat Topik atau Membalas Comment untuk Meramaikan Suasana.


Selamat Datang di Devans Community
 
IndeksRulez ForumFAQPendaftaranLogin
Selamat Datang Di Devans Community - Tempat Berbagi dan Tempat Belajar Sesuatu yang indah
Selamat Bergabung di Devans Community.
Belajar itu indah
Anda Sopan Kami Segan, Anda Baik kami juga baik.
< Sertakan Credit , untuk mengetahui Itu Hak Milik Siapa !
< Selamat Menunaikan ibadah Puasa.
Siapa yang online ??
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 53 pada Wed Aug 14 2013, 13:18
Similar topics
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Devans Community Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
 Rulez Devans Community
Top posters
marlboro
 
sheen
 
sherge
 
DeVans
 
™†Devans†HUGO™
 
aburame
 
zha niedlich
 
utty_Sinaga
 
Fiqih
 
TukangCabul
 
Topic Terakhir ini
» Counter Strike: Condition Zero AMX Mod X and Death Match
Mon Apr 13 2015, 19:58 by dikaluis12

» Download Project Blackout Full Client (PB offline )
Sun Dec 07 2014, 07:49 by irfanagres

» RF TITANIUM 2.2.3.2 PVP SERVER
Mon Jun 23 2014, 00:46 by dhenisalfa

» RF OFFLINE Giga 4 Episode 1
Thu Jun 12 2014, 11:19 by kamaljaya

» RF While Neverdie To Pvp 2.2.3.2
Tue May 20 2014, 18:26 by dhenisalfa

» [Tips] Cara Biar Cewe Ketagihan Sex
Mon Apr 21 2014, 18:12 by *-D4k0c4n-*

» NEW RELEASE RF-PRISON 2.2.3.2 FULL PVP SERVER "Show Your Strength In Prison"
Thu Apr 17 2014, 16:39 by dhenisalfa

» Membuat Deatchmatch Map
Sun Apr 06 2014, 16:47 by *-D4k0c4n-*

» RF Gipsy 2.2.3.2 Full PvP Server
Thu Apr 03 2014, 16:04 by reyhan

Info Pendaftaran Devans
Total 3161 user terdaftar
User terdaftar terakhir adalah wildanfrst

Total 1897 kiriman artikel dari user in 730 subjects
December 2016
MonTueWedThuFriSatSun
   1234
567891011
12131415161718
19202122232425
262728293031 
CalendarCalendar
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 Cara Membuat Kakulator Sederhana

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Hatake-Kakashi
Level 0
Level 0


Posting : 19
Gold Medal : 238
Bergabung Sejak : 29.12.10

PostSubyek: Cara Membuat Kakulator Sederhana   Wed Dec 29 2010, 07:23

-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

Credit:Kira03

Thanks To adri
Kembali Ke Atas Go down
utty_Sinaga
Level 1
Level 1


Posting : 66
Gold Medal : 243
Bergabung Sejak : 15.08.10

Game Voting
Diecing Rollings:
1/1  (1/1)

PostSubyek: Re: Cara Membuat Kakulator Sederhana   Sat Jan 08 2011, 12:21

haha Razz

kk bisa kasih liat SS nya gak ??
biar ane tauk.
Kembali Ke Atas Go down
 
Cara Membuat Kakulator Sederhana
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» (bagaimana) cara membuat peringatan di chatbox?
» [Tutorial] Cara membuat forum forumotion
» [Blender] How to Cellshading
» (Ask) Cara Memakai Paddock
» bikin blog hemat energi!

Permissions in this forum:Anda tidak dapat menjawab topik
Devans Community :: Learn, Develops, Internet Help , And Discussion Center :: Source Code-
Navigasi: