Teknik perulangan [ Looping ] Pada vb6

Kali ini penulis coba angkat topik teori perulangan, kemaren sempet ada yang menanyakan hal ini kepada penulis akhirnya penulis ingin membahasnya.

Loop adalah proses perulangan yang mengerjakan satu atau lebih statement. Loop diperlukan untuk mengerjakan suatu proses operasi secara tahap demi tahap dengan nilai variabel yang menaik atau menurun.

Bila digambarkan aliran loop seperti gambar berikut

Function Do…Loop

Fungsi ini digunakan untuk mengulang blok statement bila kondisi benar atau sampai kondisi menjadi benar. Bila tidak ada perintah keluar fungsi loop akan terus berjalan.

Contoh sintaksnya sebagai berikut

Do [while|until] kondisi

Statement

Exit do

Statement

Loop

Nah sebagai contoh dalam pemrogramannya seperti berikut :

Coba buat 1 project dengan 1 form kemudian isikan script berikut

Private sub form_load()

Dim stptrs, bilrndm, helpfile, context

Do until stptrs = vbno

Bilrndm = int(3 * rnd + 1)

Stptrs = msgbox (“berhenti/lanjut?”, vbyesno, “bilangan random: “&bilrndm, helpfile, context)

Loop

End sub

Nah berikut hasil dari tampilan tersebut

Oke Silakan kalian kembangkan funtion loop ini secara maksimal dengan cara yang kalian inginkan…dan tetap semangat buat belajar

membuat program text editor dengan vb6

Mungkin dari kalian ada yang ingin membuat program text editor sendiri, yah smacam program notepad milik windows gtu deeh...Nah kali ini penulis mencoba membuat program text editor sederhana.
Oke berikut tampilan dari program text editornya
tambahkan common dialog control pada formnya
Dan berikut script kodenya

Dim saved As Boolean

Private Sub bkcolor_Click()
On Error Resume Next
cd.ShowColor
Text1.BackColor = cd.Color
End Sub

Private Sub close_Click()
Dim retval As VbMsgBoxResult
If saved = False Then
retval = MsgBox("Do you want to save your file?", vbQuestion Or vbYesNoCancel, "Save file?")
If retval = vbYes Then save_Click
If retval = vbCancel Then Exit Sub
End If
Unload Me
End Sub

Private Sub copy_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Private Sub cut_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
Text1.Text = ""
End Sub

Private Sub font_Click()
On Error Resume Next
With cd
.Flags = cdlCFBoth Or cdlCFEffects
.DialogTitle = "Choose a font"
.ShowFont
End With

With Text1
.SelFontName = cd.FontName
.SelFontSize = cd.FontSize
.SelBold = cd.FontBold
.SelItalic = cd.FontItalic
.SelColor = cd.Color
.SelUnderline = cd.FontUnderline
.SelStrikeThru = cd.FontStrikethru
End With

End Sub

Private Sub Form_Load()
Dim argz As String
argz = Command
If argz <> "" Then
openfile (argz)
End If

saved = True
End Sub

Private Sub Form_Resize()

If Me.ScaleWidth > 250 And Me.ScaleHeight > 300 Then
Text1.Width = Me.ScaleWidth - 250
Text1.Height = Me.ScaleHeight - 300
End If
End Sub

Private Sub new_Click()
Dim retval As VbMsgBoxResult
If saved = False Then
retval = MsgBox("Do you want to save your file?", vbQuestion Or vbYesNoCancel, "Save file?")
If retval = vbYes Then save_Click
If retval = vbCancel Then Exit Sub
End If
Text1.Text = ""
End Sub

Private Sub open_Click()
cd.ShowOpen
Text1.LoadFile cd.FileName

End Sub

Private Sub paste_Click()
If (Clipboard.GetFormat(rtfCFRTF) = True Or Clipboard.GetFormat(rtfCFText) = True) Then
Text1.Text = Clipboard.GetText
Else
MsgBox "Clipboard contains unknown data type!", vbCritical, "Error"
End If
End Sub

Private Sub save_Click()
On Error GoTo canc
cd.ShowSave
Text1.SaveFile cd.FileName
saved = True
GoTo end1
canc:
saved = False
end1:
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
saved = False
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
PopupMenu edit
End If
End Sub


Private Sub txtcolor_Click()
On Error Resume Next
cd.ShowColor
Text1.SelColor = cd.Color
End Sub

Private Function openfile(ByVal fn As String)
Text1.FileName = fn
End Function

Yups sgitua aja scriptnya, semoga pembahasan ini bermanfaat dan bisa menjadi bahan referensi bagi vbthok mania. Bagi yang tidak ingin pusing tetep silakan download scritpnya

membuat program memiliki waktu trial/expired [vb6]

Kali ini penulis akan mencoba membuat program expired/shareware yang berfungsi untuk menonaktifkan program sesuai dengan masa waktu yang sudah kita tentukan, ini adalah sebuah contoh demo yang bisa kalian kembangkan sendiri sesuai ide dan kreasi kalian.
Pemakaiannya mudah, tinggal jalankan program shareware.vbp kemudian sharetest untuk mengetes apa program tersebut sudah dibuat shareware, nah jika sudah habis masa waktunya program meminta no register dan silakan masukkan no register a1234.
Berikut bentuk tampilan programnya



script kodenya sebagai berikut :

'main form shareware

Private Sub Command1_Click()
frmshare.Show

End Sub

Private Sub Command2_Click()
Dim lresult As Long
lresult = DeleteRegKey("\Software\venky", "value")
lresult = DeleteRegKey("\Software\venky", "days")
lresult = DeleteRegKey("\Software\venky", "uses")
lresult = DeleteRegKey("\Software\venky", "lock")
lresult = DeleteRegKey("\Software", "venky")
End Sub

Private Sub Command3_Click()
Unload Me
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim lresult As Long

' Remove the test data from the registry

End Sub

'main form shareware

Private Sub Command1_Click()
Dim lresult As Long
Dim sKey As String
Dim sSubkey As String
Dim sSubkey1 As String
Dim sKeyValue1 As String
sKey = "\Software\venky\shareware"
frmMain.Command2.Enabled = True
If Option1(0).Value = True Then
sSubkey = "days"
If Option2(0).Value = True Then sKeyValue1 = (Date + 30)
If Option2(1).Value = True Then sKeyValue1 = (Date + 15)
If Option2(2).Value = True Then sKeyValue1 = (Date + 1)
lresult = SetRegValue(sKey, sSubkey, sKeyValue1)
lresult = SetRegValue(sKey, "value", Date)
lresult = SetRegValue(sKey, "lock", "true")
End If
If Option1(1).Value = True Then
sSubkey = "uses"
If Option2(3).Value = True Then sKeyValue1 = 1
If Option2(4).Value = True Then sKeyValue1 = 5
If Option2(5).Value = True Then sKeyValue1 = 10
lresult = SetRegValue(sKey, sSubkey, sKeyValue1)
lresult = SetRegValue(sKey, "value", "1")
lresult = SetRegValue(sKey, "lock", "true")
End If
MsgBox "Lock Made"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
If Option1(0).Value = True Then
Option2(3).Value = False
Option2(4).Value = False
Option2(5).Value = False
End If
CreateRegKey ("\Software\venky\shareware")
End Sub

Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
Option2(3).Value = False
Option2(4).Value = False
Option2(5).Value = False
End If
If Option1(1).Value = True Then
Option2(0).Value = False
Option2(1).Value = False
Option2(2).Value = False
End If
End Sub

Private Sub Option2_Click(Index As Integer)
If Option2(2).Value = True Then
Option1(1).Value = False
Option1(0).Value = True
End If
If Option2(1).Value = True Then
Option1(1).Value = False
Option1(0).Value = True
End If
If Option2(0).Value = True Then
Option1(1).Value = False
Option1(0).Value = True
End If
If Option2(3).Value = True Then
Option1(0).Value = False
Option1(1).Value = True
End If
If Option2(4).Value = True Then
Option1(0).Value = False
Option1(1).Value = True
End If
If Option2(5).Value = True Then
Option1(0).Value = False
Option1(1).Value = True
End If
End Sub

'main form testshareware

Dim op4 As Integer
Dim op1 As String

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Dim lresult As Long
Dim sKeyValue As String
Dim op3 As Integer
Dim op As String
Dim op9 As Date
Dim op8 As Date
Dim op10 As Date
Dim op11 As String
lresult = GetRegValue("\Software\venky\shareware", "lock", sKeyValue)
If sKeyValue = "false" Then
Label1.Caption = "Registered Copy'"
Exit Sub
Exit Sub
End If
lresult = GetRegValue("\Software\venky\shareware", "days", sKeyValue)
If Not sKeyValue = "" Then
op = sKeyValue
op9 = op
op8 = Date
lresult = GetRegValue("\Software\venky\shareware", "value", sKeyValue)
op11 = sKeyValue
op10 = op11
If op10 > op8 Then
frmregister.Show
Exit Sub
End If
If op8 < op9 Then
Label1.Caption = (op9 - op8) & " days left"
Exit Sub
Else
frmregister.Show
End If
Else
lresult = GetRegValue("\Software\venky\shareware", "uses", sKeyValue)
op = sKeyValue
op3 = Val(op)
If op3 = 0 Then
MsgBox "Make A Lock First"
Unload frmmain
End If
lresult = GetRegValue("\Software\venky\shareware", "value", sKeyValue)
op1 = sKeyValue
op4 = Val(op1)
If op4 <= op3 Then
Label1.Caption = "This Program has been run " & op1 & " times from a maximum of " & op3 & " times"
Dim op2 As String
op4 = op4 + 1
op2 = op4
lresult = SetRegValue("\Software\venky\shareware", "value", op2)
Else
frmregister.Show
End If
End If
End Sub

'main form register

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Please Enter Serial no"
Exit Sub
End If
If Text1.Text = "a1234" Then
Dim lresult As Long
lresult = SetRegValue("\Software\venky\shareware", "lock", "false")
If lresult = o Then MsgBox "Registration Successful"
Unload Me
frmmain.Show
Else: MsgBox "Bad Serial No"
End If
End Sub

Private Sub Command2_Click()
Unload Me
Unload frmmain
End Sub

menggerakan mouse menggunakan fungsi API [vb6]

Berikut ini penulis akan membuat sebuah contoh program sederhana yang memanfaatkan fungsi API dan dibuat dengan Visual Basic 6.0 yang akan membuat mouse bergerak gerak.

Langkah-Langkahnya :

1. Buat 1 project baru dengan 1 CommandButton, dan 1 buah timer.
2. Atur interval timer menjadi 100 dan nilai enable dibuat false pada jendela properties.
3. Ketik kode berikut ke dalam code editor form :


Option Explicit
Private Declare Function SetCursorPos Lib “user32″ (ByVal x As Long, ByVal y As Long) As Long

Dim xx As Integer
Dim yy As Integer

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib “user32″ (lpPoint As POINTAPI) As Long
Dim sh As Integer
Dim sw As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
xx = Rnd * 10 + 1
yy = Rnd * 10 + 1
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If vbKeyEscape Then
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Dim pt As POINTAPI

GetCursorPos pt
’sebelum merubah kordinat posisi kursor, program harus mendapatkan terlebih
’dahulu posisi kursor berada.
sh = (Screen.Height / 15) - 1
sw = (Screen.Width / 15) - 1

If pt.x <= 0 Then xx = -xx
If pt.x >= sw Then xx = -xx
If pt.y <= 0 Then yy = -yy
If pt.y >= sh Then yy = -yy

DoEvents
pt.x = pt.x + xx
pt.y = pt.y + yy

SetCursorPos pt.x, pt.y
Label1.Caption = “Koordinat Posisi Kursor (X, Y): ” & pt.x & ” , ” & pt.y
End Sub

Fungsi API yang digunakan dalam program :

* SetCursorPos, fungsi API SetCursorPos terdapat pada file pustaka user32.dll Fungsi ini berguna untuk merubah kordinat posisi kursor.

Parameter :

x : merupakan suatu point dengan acuan kordinat sumbu x.
y : merupakan suatu point dengan acuan kordinat sumbu y.

* GetCursorPos, fungsi ini berguna untuk mendapatkan kordinat posisi kursor pada layar dengan mengembalikan nilai kordinat posisi (x,y).

Parameter :

lpPoint : merupakan deklarasi struktur POINTAPI yang berguna sebagai penerima kordinat posisi kursor pada layar. Sebelumnya kita harus mendeklarasikan Type POINT API terlebih dahulu.

Belajar Pemrograman C++

Pendahuluan

Bahasa pemrograman C++ didasarkan atas bahasa C sehingga compiler C++ dapat digunakan untuk melakukan kompilasi program-program yang ditulis dengan bahasa C. Keistimewaan dari bahasa C++ adalah karena bahasa ini mendukung pemrograman berarah objek atau yang sering dikenal dengan istilah Object Oriented Programming (OOP).
Struktur program C++

Bahasa C++ secara umum memiliki struktur program seperti berikut:
Daftar header file
Deklarasi variabel global dan fungsi-fungsi tambahan
Kepala fungsi utama/main
Definisi fungsi utama/main
Definisi fungsi-fungsi tambahan (subroutine)
Subroutine dapat dituliskan setelah fungsi main atau di dalam file pustaka (library). Namun bila diletakan pada library, maka file library harus disertakan dengan menggunakan prepocessor directive #include yang diletakan pada daftar header file.
Contoh: /* contoh program turbo C++ */  komentar
#include  preprosesor/header file
main(){  fungsi utama
cout << “teknik ElektroUII”;  definisi fungsi utama return 0; } Aturan umum penulisan bahasa C++

1. Bahasa C++ membedakan penulisan huruf besar dan kecil.
2. Untuk memberi komentar pada suatu statement (keadaan), dapat menggunakan /* di awal dan */ di akhir atau // dalam satu baris.
3. Awal dan akhir subroutine atau fungsi harus diapit kurung kurawal.
4. Setiap statement harus diakhiri tanda titik koma.
5. Setiap variabel yang digunakan wajib dideklarasikan terlebih dahulu.
Fungsi main

Merupakan fungsi yang menjadi inti dari program dan merupakan awal dan akhir eksekusi. Fungsi ini harus ada dalam setiap program. Tanda kurawal buka { merupakan tanda awal fungsi main dan tanda kurawal tutup } merupaka tanda berakhirnya fungsi main.
Prepocessor directive
Preprocessor directive merupakan suatu pernyataan yang akan diikiutsertakan dalam program, dimana pernyataan tersebut akan di-compile sebelum proses compilasi yang sebenarnya dilakukan.
Perintah-perintah dasar C++

* cout <<>
Merupakan perintah yang berguna untuk memasukan data, yang selanjutnya didefinisikan sebagai data variabel.
example: int age;
cin >> age;
Konstanta

Adalah nilai numeris/karakter yang tetap atau tidak berubah. Dalam C++ ada 4 kelas konstanta, yaitu:
1. Konstanta integer, berupa integer biasa, integer panjang (long int) dan integer tak bertanda (unsigned integer). Nilainya dapat berupa desimal, oktal atau hexadesimal.
2. Konstanta floating point, dapat mengandung nilai pecahan, yang biasa ditulis dalam bentuk pecahan biasa maupun bentuk eksponensial dan selalu dinyatakan dalam double, kecuali jika diakhiri dengan F atau f (menyatakan konstanta float).
3. Konstanta string, merupakan deretan karakter yang diawali dan diakhiri dengan tanda petik ganda (“…“). Juga dapat mengandung karakter yang menggunakan tanda \ yang disebut karakter escape (escape sequence).
4. Konstanta karakter, selalu diawali dan diakhiri dengan tanda petik tunggal (‘…’). Beberapa konstanta karakter dapat diawali dengan tanda \ (penempatannya setelah tanda petik tunggal).
Tabel rangkaian karakter escape

Sequence Karakter Deskripsi \a Bel Alert (bunyi bell) \b BS Backspace (mundur 1 karakter) \f FF Form feed (berganti halaman) \n LF New line (berganti baris baru) \r CR Carriage return (kembali ke kolom 1) \t HT Horizontal Tab (tabulasi horizontal) \v VT Vertical Tab (tabulasi vertikal) \\ \ Backslash \’ ‘ Petik tunggal \” “ Petik ganda \? ? Tanda tanya \DDD Apapun DDD adalah digit nilai oktal \xHHH Apapun HHH adalah digit nilai heksadesimal Null Karakter ASCII = 0 Adalah suatu nilai yang dapat dinyatakan dalam bentuk konstanta atau variabel dan operator. Konstanta menyatakan nilai yang tetap, sedangkan variabel menyatakan nilai yag dapat berubah-ubah selama eksekusi berlangsung. Tipe data simple merupakan tipe data bawaan dari C++, tipe data ini terdiri dari beberapa tipe data yaitu: o Tipe data integral merupakan tipe data yang terdiri dari bilangan dengan range yang berbeda-beda. Tipe Data Integral Bytes Range Panjang Range Char 1 -128 – 127 0 – 255 Short 2 -32.768 – 32.767 0 – 65.535 Int 2 -32.768 – 32.767 0 – 65.535 o Floating merupakan tipe data untuk bilangan desimal. Untuk semua Turbo C++, type floating-point yang menggunakan format-format IEEE floating-point digunakan oleh intel 8087. Type float menggunakan real format 32-bit IEEE. Type double menggunakan real format 64-bit IEEE. Type long double menggunakan extended real format 80-bit IEEE. Tipe Data Integral Bytes Range Float 4 3.4E-38 – 3.4E+38 (7 digit) Double 4 1.7E-308 – 1.7E+308 (15 digit) Long Double 8 1.7E-308 – 1.7E+308 (15 digit) Address merupakan tipe data yang digunakan untuk menunjuk suatu alamat memori. Sedangkan tipe data structured merupakan tipe data bentukan. Berikut adalah contoh program C++ : //Contoh 1 penjumlahan a dan b adalah nilai untuk c #include main() { int a,b,c; a = 25; b = 20; c = a+b; printf(“%d”,c); } //Contoh 2 menampilkan inputan nama #include main() { char nama[20]; printf(“Masukan Nama anda : “);scanf(“%s”,nama); printf(“\nJadi Nama Anda :%s”, nama); } //Contoh 3 perhitungan luas #include #define pi 3.14 void main() { float luas; float jejari=5; luas = 4*jejari*jejari; printf(“\nLuas adalah : %5.2f\n”,luas); } //Contoh 4 #include void main() /*program untuk menghitung luas persegipanjang */ { float P; int Luas,L; printf(“Isikan nilai panjang (p) = “);scanf(“%f”,&P); printf(“Isikan nilai lebar (l) = “);scanf(“%d”,&L); Luas = P*L; printf(“Luas persegi panjang (L) = %-6d\n”,Luas); } //Contoh 5 #include #include //untuk mengaktifkan clrscr() dan getch() void main() {int P; float Luas,L,A; clrscr(); printf(“Isikan data P = “);scanf(“%d”,&P); printf(“Isikan data L = “);scanf(“%f”,&L); A = 0.5; Luas = A*P*L; printf(“Luas Segitiga = %6.2f\n”,Luas); getch(); } //Contoh 6 #include #include void main() { char C; int I; long int LI; double D; float F; long double LD; clrscr(); printf(“\t Daftar Ukuran tipe data \n”); printf(“\t Ukuran karakter : %d bytes \n”,sizeof(C)); printf(“\t Ukuran integer : %d bytes \n”,sizeof(I)); printf(“\t Ukuran long integer : %d bytes \n”,sizeof(LI)); printf(“\t Ukuran double : %d bytes \n”,sizeof(D)); printf(“\t Ukuran float : %d bytes \n”,sizeof(F)); printf(“\t Ukuran long double : %d bytes \n”,sizeof(LD)); getch(); }

cara mengetahui keberadaan keylogger dari cara senyuman penjaga warnet

Keylogger di warnet biasanya dipasang oleh staff warnet untuk mendapatkan hal-hal yang rahasia. Bisakah anda diam saja menghadapi staff gila seperti ini? Anda mungkin tidak bisa menghapus keylogger, tapi tentunya anda bisa menghapus senyum di wajahnya yang menantikan keystroke dari anda. Setelah anda membaca tulisan ini, dijamin, staff pemasang keylogger akan bertekuk lutut dihadapan anda.

Tehnik #1. Pancingan Maut
Masuklah kewarnet dengan gaya orang kaya, pakek jas, sepatu kulit, atau minimal anting berkilau walau berlian palsu. Datanglah ke meja staff, dan katakan kepadanya :
“Mas/Mbak, koneksi sini kenceng ga sih? Soalnya saya mau internet banking neh! Buru-buru! Penting, ada barang yang harus dibeli secepatnya! PC Athlon64 Dual Core Surround Sound System saya dirumah rusak soalnya!”
Kemudian, perhatikanlah mukanya. Jika dia TERSENYUM LICIK, berarti komputer warnet tersebut dipasang keylogger.


Tehnik #2.
Kebalikan dari tehnik #1, berlagaklah miskin dengan baju bolong-bolong, ditambah muka yang ga ngerti komputer alias muka coba-coba. Tidak usah katakan apa apa, tapi perhatikan muka staff. Jika dia KECEWA, berarti komputer warnet tersebut dipasang keylogger.

Tehnik #3. Size Does Matter
Lihat kapasitas hardisk komputer di warnet. Bisa lewat dos, atau properties, kemudian catat free spacenya. Setelah itu, sembarangan ngetik saja di notepad atau wordpad, atau pindah-pindah drive dengan adress bar. Jangan sampai ada cache atau apapun yang masuk. Lakukan sebanyak-banyaknya, sampai 10-15 menitan, kemudian lihat lagi kapasitas hardisk. Jika free space berkurang, itu tandanya ada log yang ditulis ke harddisk dari ketikan dan apa yang anda lakukan. Ini berarti komputer warnet tersebut dipasang keylogger.

Tehnik #4. Malu-malu Untung
Setelah anda main cukup lama, katakanlah dengan suara keras : “Yes! Ada yang nyumbangin E-Gold ke account gue! Baru aja gue buka tau-tau dapet!” dan perhatikan apa yang dilakukan oleh staff. Jika tiba-tiba dia sibuk sambil TERSENYUM LICIK, tandanya dia sedang asik memeriksa log keystroke, berarti komputer warnet tersebut dipasang keylogger. Walaupun anda malu, saya rasa keuntungannya sebanding.

Tehnik #5. Panti Pijat Spesial
Raba-raba bagian belakang CPU terutama daerah cokan Keyboard seperti pemijat ahli. Pijit-pijitlah bagian tersebut dan rasakan, jika ujungnya lebih panjang dari keyboard biasa, berarti itu adalah Hardware Keylogger. Hal tersebut berarti komputer warnet tersebut dipasang keylogger. Untuk mencegahnya, SELALU BAWA KEYBOARD SENDIRI DARI RUMAH.

Tehnik #6. The Art Of Killing Keylogger (master)
Bawa preman banyak-banyak, dan pukuli staff sehingga dia geger otak dan hilang ingatan. Hal ini akan membuat anda bisa sesukanya mengakses walaupun komputer tersebut dipasangi keylogger karena sudah tentu si staff licik telah lupa password atau lokasi log dari keylogger karena geger otak.

Tehnik #7. Holy Touch your Heart
Jika anda main, bawalah selalu Ustadz, Pendeta, Resi, Biksu, atau siapa saja yang dalem agamanya, dan saat anda main, mintalah beliau untuk menunggu disamping staff dan jangan lupa untuk memberikan ceramah mengenai Dosa sehingga si staff akan insyaf dan bertaubat nasuha untuk tidak lagi menggunakan keylogger.

Tehnik #8. Pemberdayaan Wanita
Jika staffnya laki-laki, anda bisa membawa wanita cantik, dan suruhlah dia mengatakan : “Tipe Cowokku itu ga perlu ganteng loch. Yang penting, dia ga suka pakek keylogger~” dan usahakan agar ucapan tersebut didengar oleh staff.

Tehnik #9. Gue Orang Hebat!
Jika anda kaya, buatlah warnet sendiri dan jadilah staffnya serta tidak usah pekerjakan staff yang lain. Jika anda menggunakan keylogger, pukullah diri anda kemudian pecat diri anda dari warnet tersebut. Dijamin anda akan bisa bermain di warnet (anda) tanpa gangguan keylogger.
Sumber:link

FAKTA : 90Th lagi Minyak Habis

Minyak akan habis dalam waktu 90 tahun sebelum energi alternatif ditemukan, demikian hasil penelitian terbaru dari Universitas California, Davis.

Prediksi ini dipublikasikan secara online pada 8 November dalam jurnal Environmental Science & Technology.

Penelitian ini didasarkan pada teori bahwa investor jangka panjang adalah penaksir terbaik untuk menjelaskan mengapa dan kapan teknologi energi alternatif terbarukan menjadi biasa digunakan.

"Hasil penelitian kami menunjukkan bahwa butuh waktu lama sebelum bahan bakar alternatif yang bisa diperbarui bisa bertahan, setidaknya dari perspektif pasar," kata pemimpin penelitian, Debbie Niemeier, profesor teknik sipil dan lingkungan pada Universitas California, Davis.

Niemeier dan rekannya Nataliya Malyshkina berencana membuat perangkat baru yang akan membantu pembuat kebijakan menyusun target-target yang realistis mengenai ketahanan lingkungan dan mengevaluasi kemajuan yang dicapai untuk sasaran-sasaran itu.

Dua unsur kunci dari teori baru ini adalah kapitalisasi pasar (berdasarkan harga saham) dan dividen dari perusahaan-perusahaan minyak milik pemerintah dan perusahaan-perusahaan energi alternatif.

Para analis lain sebelumnya telah menggunakan persamaan-persamaan yang mirip untuk memprediksi iven-iven dalam keuangan, politik dan olah raga.

"Investor yang canggih cenderung meletakkan upaya besar pada pengumpulan, pemrosesan, dan pemahaman informasi yang relevan dengan masa depan arus kas yang dibayarkan sekuritas-sekuritas," kata Malyshkina.

Hasilnya, lanjut dia, penaksiran pasar terhadap iven-iven masa depan yang mewakili prediksi bagian terbesar investor itu cenderung relatif akurat.

Niemeier mengatakan hasil penelitian terbaru ini adalah peringatan terhadap target bahan bakar terbarukan sekarang yang tak cukup ambisius dalam mencegah masyarakat, pembangunan ekonomi dan ekosistem alam dirugikan karena ini.

"Kita memerlukan dukungan kebijakan yang lebih kuat untuk mendorong pembangunan teknologi pengganti ini," katanya.

sumber :http://wahw33d.blogspot.com/2010/11/diperkirakan-90-tahun-lagi-minyak-akan.html