Daftar Isi
Rabu, 11 April 2012
Senin, 26 Maret 2012
Kalkulator Sederhana With VB 6.0
Cara pembuatan kalkultor Sederhana
1.Bukalah VB
2.Pilih Standart
3.Buat 2 Label ,2text ,5Command
4.Biarkan label 1 dan tetap kosong ,(hapus caption pada 2 label tersebut) dan beri caption X, : , - ,=,<= pada command
5.
A.klik 2 kali command yang telah diberi caption X
dan isikan kode berikut dibawah kode tsb:
Label1.caption="X"
End Sub
B.klik 2 kali command yangdiberi caption ":"
dan isikan kode berikut dibawah kode tsb:
Label1.caption=":"
End Sub
C.klik 2 kali command yangdiberi caption "-"
dan isikan kode berikut dibawah kode tsb:
Label1.caption="-"
End Sub
D.Klik 2 kali command yang diberi caption "="
dan isikan kode berikut dibawah kode tsb:
If Label1.caption ="X" then
Label2.caption=Text1.text*Text2.text
End If
If Label1.caption =":" then
Label2.caption =Text1.text/Text2.text
End If
If Label1.caption ="-" then
Label2.caption =Text1.text-Text2.text
End If
If Text1.Text="" Then
Label2.Caption="Masukkan nomor"
End If
If Text2.Text="" Then
Label2.Caption="Masukkan nomor"
End If
End Sub
E.Klik 2 kali pada command yang diberi caption "<="
Dan isikan kode berikut dibawah kode tsb :
Text1.text=""
Text2.text=""
Label1.Caption=""
6. Silahkan Dicoba kalkulator buatan mu!!!!
1.Bukalah VB
2.Pilih Standart
3.Buat 2 Label ,2text ,5Command
4.Biarkan label 1 dan tetap kosong ,(hapus caption pada 2 label tersebut) dan beri caption X, : , - ,=,<= pada command
5.
A.klik 2 kali command yang telah diberi caption X
dan isikan kode berikut dibawah kode tsb:
Label1.caption="X"
End Sub
B.klik 2 kali command yangdiberi caption ":"
dan isikan kode berikut dibawah kode tsb:
Label1.caption=":"
End Sub
C.klik 2 kali command yangdiberi caption "-"
dan isikan kode berikut dibawah kode tsb:
Label1.caption="-"
End Sub
D.Klik 2 kali command yang diberi caption "="
dan isikan kode berikut dibawah kode tsb:
If Label1.caption ="X" then
Label2.caption=Text1.text*Text2.text
End If
If Label1.caption =":" then
Label2.caption =Text1.text/Text2.text
End If
If Label1.caption ="-" then
Label2.caption =Text1.text-Text2.text
End If
If Text1.Text="" Then
Label2.Caption="Masukkan nomor"
End If
If Text2.Text="" Then
Label2.Caption="Masukkan nomor"
End If
End Sub
E.Klik 2 kali pada command yang diberi caption "<="
Dan isikan kode berikut dibawah kode tsb :
Text1.text=""
Text2.text=""
Label1.Caption=""
6. Silahkan Dicoba kalkulator buatan mu!!!!
Sabtu, 31 Desember 2011
Tanpa JUDUL
Suatu Hari di suatu desa tinggal lah 3 bersaudara ,salah satu dari mereka mempunyai penemuan dan diperlihatkan kepada saudara nnya (Kakak nya) ia mengajari semua yg dia ketahui kepada kakak nya,
sampai pada suatu hari kakak orang tersebut lebih pintar dari nya malah si kakak tidak mau megajari kepada adik nya agar diya menjadi yang terbaik.....
Sebenarnya sih ini juga pengalaman ku..
>Jadi kalau kalian punya ilmu jangan sembarangan kalian berikan kepada seseorang mereka mungkin bisa menjadi sombong karena nya
Minggu, 11 Desember 2011
MUSIC
Maaf Entri yang 1 ini membuat Blogger /Web menjadi rusak
Mohon dimengerti saya menghapus music ini karena membuat Web /Blogger saya menjadi rusak TOTAL.
Sekali lagi Saya mohon maaf Untuk mengganti nya kami menyediakan beberapa link:
==>www.4shared.com>>MUSIC BLOGGER /MUSIC FOR PC
==>videokeman.com >>MUSIC BLOGGER
===== = = = ===== = ===== ===== = = = ======
= = = = = = = = = = = = = =
= = == = ==== ===== = = == ======
= = = = = = = = = = = = = =
===== = = = = = ===== = = = = ======
==========================================>SEKIAN DARI KAMI<======================================
»» Selengkapnya >>...
Senin, 05 Desember 2011
PR MATEMATIKA
Pak Bambang yang pertama kirim itu bukan punya saya tetapi itu milik teman saya pak
Maaf pak itu semua dikirimkan oleh teman teman ..............
Jadi maafkan kesalahpahaman ini
INI PAK JAWABAN SAYA
Saya capek mau ketik lagi jadi di download saja ya pak
Eit jangan lupa dicatat :
NAMA :MUSTOFA HILMI
NO : 24
Rabu, 30 November 2011
Pr Matematika P.BAMBANG
Sebelum membaca jawaban nya Tulis dulu pak
Nama: Mustofa Hilmi
No:24
UPDATE : {Saya tealah tidak mengaktifkan sistem Copy Paste agar tidak ada kecurangan}
No 2
G.)
x+y =g---------------->PERSAMAAN 1
x =9-y-------------->PERSAMAAN 2
2x+1=x+y
2x-x-y=-1
x-y =-1-------------->PERSAMAAN 3
Subsitusikan x dari persamaan 2->3
x-y=-1
(9-y)-y=-1
-2y =-10
y = 5
Subsitusikan y=5 ke persamaan 2
x= 9-y
x=9-5=4
HP {(4,5)}
H.)
x-y=y----------------->PERSAMAAN 1
2(x-y+y) =15
2x-2y+y=15
2x-y=15--------------->PERSAMAAN 2
-y=15-2N
y=-15+2x ---------> PERSAMAAN 3
Subsitusikan nilai y dari persamaan dari persamaan 3->1
x-y=y
x-(-15-2x)=-15+2N
x+15 -2x =-15-15
x-4x =-30
-3x =-30=10
Subsitusikan x= 10 ke persamaan 3
y=-15+12x
y=-15+2 (10)
y=-15+20=5
HP {10,5}
G.)
x+y =g---------------->PERSAMAAN 1
x =9-y-------------->PERSAMAAN 2
2x+1=x+y
2x-x-y=-1
x-y =-1-------------->PERSAMAAN 3
Subsitusikan x dari persamaan 2->3
x-y=-1
(9-y)-y=-1
-2y =-10
y = 5
Subsitusikan y=5 ke persamaan 2
x= 9-y
x=9-5=4
HP {(4,5)}
H.)
x-y=y----------------->PERSAMAAN 1
2(x-y+y) =15
2x-2y+y=15
2x-y=15--------------->PERSAMAAN 2
-y=15-2N
y=-15+2x ---------> PERSAMAAN 3
Subsitusikan nilai y dari persamaan dari persamaan 3->1
x-y=y
x-(-15-2x)=-15+2N
x+15 -2x =-15-15
x-4x =-30
-3x =-30=10
Subsitusikan x= 10 ke persamaan 3
y=-15+12x
y=-15+2 (10)
y=-15+20=5
HP {10,5}
No 3
G.)
3(x+y)-2x = 19 -> 3x+3y-2x =19 -> x+3y=19
5x-3(x+y) = 22 -> 5x-3y-3x =22->2x-3y=22 +
3x =3x =41
x = 41
3
x +3y =19
41 +3y=19
3
3y=19 - 41
3
y= 16----------> Hp {(41 , 16)}
3
H.)
4(x-3y)+7y=5-->4x -12y+ 7y =5 -> 4x-5y =5
9y-4(x-3y)=43-->9y-14x+12y=43->-4x+21y=43 +
16y =48
y =48
16
y =3
4x-5y =5
4x-5(3) =5
4x-15 =5
4x =5+15
4x =20
x =20 =5 HP = {5,3}
4
4 .
D.)
2 (x +2) -1 (y+3) =5
3 4
8(x+2) -3(y+3) =5
12
8x+16-3y-9 =5
12
8x-3y =53
3 (x+1) + (2y+1) =7,5
4 2
3(x+1) +2 (2y +1)=7,5
4
3x+3+4y+2 =7,5
4
3x+4y+5=30
3x+4y =25-------->2
Eliminsi nilai x
8x -3y=53 | x3 | 24x-9y =159
3x +4y=25| x8 | 24x+32y=200
-41 y= -41
y= 1
3x+4y =25
3x+4(1)=25
3x =25-4
x =21 =7
3
HP { 7,1 }
1(x+y)=15
2
3(x+y)=15
2
3 x+ 3y=15
2 2
3x+ 3y=15
2
3x+3y=30------------->PERSAMAAN 1
3 (2x-y)=14
11
14 (2x-y)=14
11
28 x- 14 y=14
11 11
28x-14y=14
11
28x-14 y=154
2x - y =11------------>PERSAMAAN 2
Eliminiasi nilai y
3x+3y=30|X1| 3x+3y =30
2x+y=11 |X3| 6x-3y =22 -
9x =63
x =7
2x-y =11
2 (7)-y =11
14-y=11
-y =11-14
y =3
HP {7,3}
9y-4(x-3y)=43-->9y-14x+12y=43->-4x+21y=43 +
16y =48
y =48
16
y =3
4x-5y =5
4x-5(3) =5
4x-15 =5
4x =5+15
4x =20
x =20 =5 HP = {5,3}
4
4 .
D.)
2 (x +2) -1 (y+3) =5
3 4
8(x+2) -3(y+3) =5
12
8x+16-3y-9 =5
12
8x-3y =53
3 (x+1) + (2y+1) =7,5
4 2
3(x+1) +2 (2y +1)=7,5
4
3x+3+4y+2 =7,5
4
3x+4y+5=30
3x+4y =25-------->2
Eliminsi nilai x
8x -3y=53 | x3 | 24x-9y =159
3x +4y=25| x8 | 24x+32y=200
-41 y= -41
y= 1
3x+4y =25
3x+4(1)=25
3x =25-4
x =21 =7
3
HP { 7,1 }
1(x+y)=15
2
3(x+y)=15
2
3 x+ 3y=15
2 2
3x+ 3y=15
2
3x+3y=30------------->PERSAMAAN 1
3 (2x-y)=14
11
14 (2x-y)=14
11
28 x- 14 y=14
11 11
28x-14y=14
11
28x-14 y=154
2x - y =11------------>PERSAMAAN 2
Eliminiasi nilai y
3x+3y=30|X1| 3x+3y =30
2x+y=11 |X3| 6x-3y =22 -
9x =63
x =7
2x-y =11
2 (7)-y =11
14-y=11
-y =11-14
y =3
HP {7,3}
Selasa, 22 November 2011
Indonesia Vs Malaysia
Wah ini sangat mengejutkan seagames kali ini dimenangkan oleh malaysia pada bidang olahraga sepak bola.
Dukungan demi dukungan sudah saya berikan malah Kalah . MENGECEWAKAN Indonesia pertama nya bagus tambah lama tambah semrawut ,tapi tidak apa -apalah yang penting TIM GARUDA MUDA telah berjuang pada seagames kali ini . Harapan untuk menjadi juara Seagames jagan putus karena kalah lawan tim malaysia .ini malah harus memotivasi group GARUDA MUDA untuk tidak melakukan kesalahan kesalahan yang sama pada tahun ini. Tahun ini kalah ,tahhun depan KOBARKAN SEMANGAT MU ................................................. MAJU INDONESIA KAMI DISINI TUK MENDUKUNG MU
Langganan:
Postingan (Atom)