KLICK PADA GAMBAR AKAN MENGARAHKAN PADA BLOG TENTANG DUNIA PERKAPALAN
Diri Ini Boleh Bermimpi Besar Tapi Pikirkanlah Sebesar Apakah Dirimu Untuk Sebuah Mimpi,,,
Tampilkan postingan dengan label trik n tips komputer. Tampilkan semua postingan
Tampilkan postingan dengan label trik n tips komputer. Tampilkan semua postingan

Jumat, 02 Juli 2010

Carane Gawe Kalkulator ( (edisi boso jowo)

pertama sing dibutuhke yaiku program VB 6.0 (visual basic 6.0). sakjane akeh program liane sing iso di gawe contohe c++, java dll.

nah kebetulan aku milih nganggo VB 6.0 amargi menurutku paling gampang di banding program liane.

bismillahirohmaanirrohim,..

1) buka program VB 6.0

2) pilih standard EXE, trus klik open

3) jendelo kerjone iso di gedekno ben ben luwih ombo, klik max (+)

4) Dadine koyo ngeneki kiro2,..gampang to, enak to,mantep to,..

5) gawenen format koyokgambar nag ngisor iki, nganggo toolbox sing sebelah samping iku.

6) Tahap selanjute yoiku ngatur propertine,..nang window properti

komponen

properti

nilai

form1

name

frmoperator


caption

operator dan fungsi matematika

label1

caption

masukkan bilangan 1

label2

caption

masukkan bilangan 2

label3

caption

hasil

textbox1

name

txtbil1

textbox2

name

textbil2

textbox3

name

txthasil

command1

name

cmdjumlah


caption

+

command2

name

cmdkurang


caption

-

command3

name

cmdkali


caption

*

command4

name

cmdbagi


caption

/

command5

name

cmdbagilnt


caption

\

command6

name

cmdmodulus


caption

Mod

command7

name

cmdpangkat


caption

^

command8

name

cmdlbhkecil


caption

<

command9

name

cmdlbhbesar


caption

>

command10

name

cmdlbhkecilsamadgn


caption

<=

command11

name

cmdlebihbesarsamadgn


caption

>=

command12

name

cmdconcatenation


caption

CON

command13

name

cmdsin


caption

sinus

command14

name

cmdcos


caption

cosinus

command15

name

cmdtangen


caption

tangen

command16

name

cmdlogbasen


caption

LogBN

command17

name

cmdlog


caption

Log

command18

name

cmdexponen


caption

Exp

command19

name

cmdakar


caption

Sqr

command20

name

cmdtutup


caption

Exit

7) Nak wis bar hasile koyo ngene

8) nambah kode program, carane :

a) klik tombol (+) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

b) klik tombol (-) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

c) klik tombol (*) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

d) klik tombol (/) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

e) klik tombol (\) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

f) klik tombol (Mod) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) + CSng(txtbil2.Text)

g) klik tombol (^) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) ^ CSng(txtbil2.Text)

h) kliik tombol (CON) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) &CSng(txtbil2.Text)

i) klik tombol (<) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) <>

j) klik tombol (>) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) > CSng(txtbil2.Text)

k) klik tombol (<=) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) <= CSng(txtbil2.Text)

l) klik tombol (>=) trus tambah karo kode nang ngisor iki.

txthasil.Text = CSng(txtbil1.Text) >= CSng(txtbil2.Text)

m) klik tombol (sinus) trus tambah karo kode nang ngisor iki.

txthasil.Text = sin(CSng(txtbil1.Text)*3.1416/180)

n) klik tombol (cosinus) trus tambah karo kode nang ngisor iki.

txthasil.Text = cos(CSng(txtbil1.Text)*3.1416/180)

o) klik tombol (tangen) trus tambah karo kode nang ngisor iki.

txthasil.Text = tan(CSng(txtbil1.Text)*3.1416/180)

p) klik tombol (LogBN) trus tambah karo kode nang ngisor iki.

txthasil.Text = Log(CSng(txtbil1.Text)) /Log( CSng(txtbil2.Text))

q) klik tombol (Log) trus tambah karo kode nang ngisor iki.

txthasil.Text = Log(CSng(txtbil1.Text)) + Log(CSng(txtbil2.Text))

r) klik tombol (Exp) trus tambah karo kode nang ngisor iki.

txthasil.Text =Exp( CSng(txtbil1.Text))

s) klik tombol (Sqr) trus tambah karo kode nang ngisor iki.

txthasil.Text = sqr(CSng(txtbil1.Text))

t) klik tombol (Exit) trus tambah karo kode nang ngisor iki.

Unload me

9) ngelakokno program kalkulator sing wis dig awe,..,carane klik play sing ono nang toolbar utowo klik run, klik start,



Selengkapnya ....