http://www.4shared.com/folder/OirYdB0V/_online.html
Blogger templates
Senin, 20 Juni 2011
Rabu, 25 Mei 2011
VGA Termahal
6 VGA Termahal di Dunia Dan Akhirat
HARGA : 11jt
5.Leadtek Quadro FX 4600
HARGA : 23jt
4.Leadtek Quadro FX 5600
HARGA : 35jt
3. Leadtek Quadro FX 4500X2
HARGA : 37jt
2.Leadtek Quadro FX 4000SDI
HARGA : 57jt
1.XFX HD 5970 Black Limited Edition
HARGA : 95jt
Rabu, 11 Mei 2011
komputer
First Media Raih Transaksi Korporasi 11 Mei 2011  PT First Media Tbk hari ini menggelar Rapat Umum Pemegang Saham Luar Biasa (RUPS-LB). Tujuan penandatanganan tersebut adalah untuk meminta persetujuan dari para pemegang saham, berkaitan dengan Rencana Transaksi yang akan dilakukan oleh ... |
Intel Siap Produksi Chip dengan Transistor 3-D 10 Mei 2011  Baru-baru ini Intel mengumumkan desain transistor tiga-dimensi untuk chip yang siap diproduksi. Disebut dengan 3-D Tri-Gate, transistor tiga-dimensi ini merupakan terobosan Intel yang akan menggantikan transistor dua-dimensi yang sekarang dipakai pada semua ... |
Komputer Imut Kurang dari Rp 250.000 10 Mei 2011  Jika sekarang ini kita mengenal netbook sebagai komputer mungil maka yang satu ini bisa dibilang komputer liliput akibat ukurannya yang sangat kecil alias hanya seukuran ... |
Agar Flashdisk Kebal Virus
Agar Flashdisk Kebal Virus
10 Mei 2011
Cuma colok sebentar, tahu-tahu sudah tertular. Bagaimana sih membuat flashdisk bisa kebal dari penularan ...
Selasa, 19 April 2011
6 Posisi Kerja Yang Meningkatkan Konsentrasi
Rata-rata pekerja kantoran duduk enam jam sehari dan 80 persen dari pekerja menderita nyeri punggung. Apa yang harus Anda lakukan untuk menjaga kesehatan di kantor?
Berikut ini posisi yang baik saat bekerja. Bila postur tubuh ideal maka aliran darah lebih lancar dan Anda lebih mudah untuk berkonsentrasi kerja.
1. Jangan menyilangkan kaki. Menyilangkan kaki dapat menyebabkan nyeri punggung bawah dan masalah hernia. Menyilangkan kaki juga dapat menurunkan sirkulasi darah yang dapat memicu masalah pada pembuluh vena.
2. Taruh kaki di tempat lebih tinggi. Dengan menempatkan satu kaki di buku yang tebal atau bangku pendek (dingklik), Anda bisa mengurangi tekanan di sekitar pinggang.
3. Sesuaikan monitor komputer dengan tinggi mata Anda.
4. Berdirilah minimal setiap 30 menit sekali. Dengan rajin berdiri dan berjalan dapat meningkatkan sirkulasi darah dan mendapatkan peregangan otot.
5. Saat duduk, tarik perut Anda ke dalam untuk mendapatkan postur tubuh yang baik.
6. Ambil pernapasan dalam dan fokuslah. Cara ini dapat mengurangi tekanan darah yang memicu stres. Dengan bernapas akan menambah energi Anda.
Cara Membuat Kalkulator Sederhana dengan Microsoft Visual Basic 6.0
Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika Anda mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Langkah pertama yang harus Anda lakukan adalah, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti ini:
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
Langkah pertama yang harus Anda lakukan adalah, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti ini:
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
Selasa, 29 Maret 2011
pemograman
Pemrograman
Enyo Framework Pengembangan Aplikasi WebOS Terbaru dari Palm
Palm memberikan preview singkat Enyo, yang akan menjadi framework... Read More »
Adobe Meluncurkan InMarket & Adobe AIR 2.5 di TV, Android, Blackberry Tablet & Windows Phone 7
Adobe memamerkan Adobe... Read More »
Soal dan Jawaban Perakitan LCD
BIMA
Soal Dan Jawaban Perakitan LCD
SOAL
1) Sebutkan kegunaan tombol pada LCD yang pernah dirakit pada bagian panel atas!
2) Sebutkan fungsi port / terminal LCD pada bagian panel belakang!
3) Sebutkan fungsi komponen yang ada di bagian depan LCD!
4) Sebutkan bagian-bagian hardware LCD!
5) Sebutkan langkah-langkah pemasangan mainboard!
6) Sebutkan langkah-langkah pemasangan lampu LCD!
7) Sebutkan langkah-langkah pemasangan power supply LCD!
8) Sebutkan cara pensettingan LCD untuk keperluan pencahayaan!
JAWABAN
1)a. tombol power untuk menghidupkan dan mematikan LCD
b. zoom ring untuk mengatur zoom untuk memperbesar / memperkecil gambar
c. focus ring untuk mengatur focus
d. exit untuk keluar dari menu
e. menu menghidupkan OSD (On Screen Display)
f. kanan untuk mengatur koreksi keystone
g. kiri untuk mengatur koreksi keystone
h. power indikator light untuk menunjukkan proyektor yang sedang beroperasi
2) · Port Panel Belakang LCD:
1.Kensongton anti-thet lock slot
2.RS232 control port
3.USB socket
4.RGB (PC) component video
5.RGB signal ouput socket
6.Video socket
7.S-Video socket
8.Audio socket
.IR Remote Control
.Lensa
. Rear Adjuster foot
Bagian-bagian LCD Proyektor secara umum. Sebagai contoh LCD proyektor
1. Power swich
2. Key pad
3. Security lock
4. Zoom ring
5. Focus ring
6. Computer and video conector
Perhatikan kabel harus sesuai penenmpatannya jangan sampai terjepit atau terbalik.
Pasang MAinboard pada wadah atau tempatnya dengan hati-hati
Kencangkan sekrup dan mur-nya
Periksa kembali apakah sudah benar penempatannya
Jika sudah benar lanjutkan kepemasangan komponen berikutnya
- Pasangkan kabel dan port yang terhubung pada lampu LCD
- Pasamgkan mur dan sekrupnya lalu kencangkan sekrup dan mur tersebut
- Pasang lalu kencangkan
- Pilih brightness
- Atur seberapa terang cahaya sesuai dengan keperluan
- Jika sudah pilih exit
- Putar lensa hingga mendapatkan gambar terang dan bagus
Kamis, 24 Maret 2011
harga USB flash
harga STABILIZER & UPS STABILIZER
Langganan:
Postingan (Atom)
Popular Posts
-
BIMA Soal Dan Jawaban Perakitan LCD SOAL 1) Sebutkan kegunaan tombol pada LCD yang pernah dirakit pada bagian panel atas! 2) Sebutkan fung...
-
Agar Flashdisk Kebal Virus 10 Mei 2011 Cuma colok sebentar, tahu-tahu sudah tertular. Bagaimana sih membuat flashdisk bisa kebal dari pen...
-
Personal computer From Wikipedia, the free encyclopedia This article is about personal computers in general. For computers generally refer...
-
CANON Color LBP-5200 A4, 9600 x 600 dpi, 19/4 pp...
-
6 VGA Termahal di Dunia Dan Akhirat 6.Leadtek Quadro FX 3800 SLI HARGA : 11jt 5.Leadtek Quadro FX 4600 HARGA : 23jt 4.L...
-
Floppy Disk Drive External Floppy Disk Drive 1.4...
-
Penyakit akibat sering bermain komputer - Pernah sakit mata saat liat monitor terus-terusan? Atau pernah pegal-pegal di daerah p... -
ADAPTER ...
-
Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika Anda mencoba membuat kal... -
First Media Raih Transaksi Korporasi 11 Mei 2011 PT First Media Tbk hari ini menggelar Rapat Umum Pemegang Saham Luar Biasa (RUPS-LB). Tu...