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
January 2017
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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: