TeraCopy 2.27 Full Version

Sekedar berbagi sesuatu yang mempercepat pekerjaan kalian.
TeraCopy ampuh banget buat mengcopy file2 yang cukup besar size nya, karna sudah terbukti di gw dan cukup mudah untuk insatalasi nya.

oke To The Point

-Download TeraCopy Di Sini
-Extrack terlebih dahulu lalu install, Hingga muncul seperti ini

-Setelah sudah terinstall jalankan TeraCopy dan buka File "Serial" yang ada di dalam folder, lalu ikuti petunjuk yang ada di dalam .

Gampang dan sangat membantu pekerjaan :)

Cara Menggunakan Android Market

Dengan ada nya Android Market kita bisa mendownload apaun yang ada di market tsb. dan tentu nya Youwave kita terasa lebih lengkap dengan ada nya applikasi2 yang ada di Android Market.

Langkah-langkah menginstal Android Market

1. Buka Youwave yang telah terinstall pada PC kawan-kawan

2. Pada menu view, pilih online content.

3. Ketika sudah muncul, pilih Android Market.

4. Tunggu sampai Proses download selesai.

5. Setelah selesai, pada aplikasi pilih installer.

6. Tunggu sampai proses berjalan selesai.

7. Ketika selesai, Android Market sudah terinstal dalam Youwave kita.

8. Buka, aplikasi Android Market

9. Masukkan nama dan password (jika sudah memiliki aku google), dan kemudian tekan sign in.

10. Setelah sign ini selesai, Android Market siap untuk digunakan.

NB : Tetap Membutuhkan Koneksi Internet bro :)

Tambahan dari pengalaman gw jangan pernah install whatsapp terlebih dahulu lalu install Android Market nya karna whatsapp akan error bila mendahului menginstall whatsapp lalu Android Market nya. Jadi install Android Market terlebih dahulu, bila hal ini terjadi mau nggk mau musti install ulang youwave nya.

Cara Memasang Whatsapp Di PC atau Laptop

1. Download aplikasi YOUWAVE ANDROID . bisa di download Disini (FREE) dan Patch Youwave Disini

2. Extract dulu file (Youwave dan Patch) yang sudah di download, lalu Install aplikasi youwave di Laptop/PC kalian
3. Setelah selesai, jangan buka YouWave terlebih dahulu.
4. Copy file patch, yang sudah diextract sebelumnya. dan Paste pada (C://Program files/you_wave)
5. Setelah itu, buka patch dengan klik kanan run as administrator. Dan, cukup klik patch tunggu hingga selesai.

6. Jalan kan Youwave tunggu sampai nyala. Disini tampilan youwave sama dg tab android pada umumnya

7. Buka browser, lalu ketik : whatsapp

8. Cari whatsapp for android, klik lalu download

9. Setelah selesai download, klik lalu install

10. Pilih negara, lalu masukan no hp yg aktif. Tunggu sampai ada SMS kode verifikasi.

11. Masukan kode verifikasi, OK

12. Masukan nama, Next

13. Keluar dari whatsapp, buka Menu lalu klik Contact

14. Tambahkan kontak yg agan&sista punya, lalu save

15. Klik kontak, dan pilih whatsapp.

16. Coba chat dan SELESAI whatsapp udah bisa digunain di laptop atau komputer kalian 

NB : gw nemu cara pasang whatsapp di pc dari forum ternama di indonesia (ya you know lah) dan gak semua langkah pas gw coba bisa, tepat nya di langkah ke 9 yaitu download whatsapp for android nya.

Dari situ gw nyari2 akal biar bisa langsung masuk ke applikasi Youwave_Android nya tanpa harus download lewat situ jadi gini cara nya.

1. Download Whatsapp for android kalian dari web langsung (mozilla bukan dari applikasi Youwave_Android nya).

2. Setelah selesai di download copy yang barusan di download ke C:\Documents and Settings\Nama User\youwave\android apps (disini gw pake OS windows XP).

3. Buka kembali Youwave_Android kalian baru akan muncul Whatsapp, lalu lanjutin dari cara yang ke 10 sampai selesai.

Gampang banget kan sob ?? :)

yang wajib kudu harus itu ada koneksi ke internet !!

Membuat Aplikasi Kalkulator dari Visual Basic

Tutorial Pembuatan Kalkulator dari VB 6.0

1. Jalankan Microsoft Visual Basic 6.0 nya terlebih dahulu

2. Pilih Standard EXE lalu Open


3. Buat Tampilan Seperti berikut ini



 Isi dari Propertis di atas

Label :
(Name) : Label1
Caption : Kalkulator

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) : cmdOperator
Index : 1
Caption : +

Command Button 12:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 13:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 14:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 15:
(Name) : cmdOperator
Index : 5
Caption : %

Textbox :
(Name) : TxtDisplay
Caption : (kosongin)

Command Button 16 :
(Name) : CmdClearEntry
Caption : Ulangi

Command Button 17 :
(Name) : CmdSamaDengan
Caption : Tampil

Nb: Di dalem ganbar ada propertis Command Button (Menu) karna berhubung gw pake gambar yang gw pake buat tugas jadi ada menu disitu, kalo dalem Kalkulator nya sendiri gak ada propertis tsb.

Berikutnya tinggal membuat codingan nya setelah membuat propertis seperti di atas

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

Private Sub CmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub

Private Sub cmdClearEntry_Click()
TxtDisplay.Text = ""
End Sub

Private Sub CmdMenu_Click()
Form3.Show
Unload Me
End Sub

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 opBagi
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalkulator ERROR"
Call CmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
End Select
Operator = opNol
NilaiBaru = True
TxtDisplay.Text = Format$(Hasil)
End Sub

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

Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

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

Private Sub txtDisplay_Change()
TxtDisplay.SelStart = Len(TxtDisplay.Text)
End Sub

Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

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, " Tampil "
cmdSamaDengan_Click
Case " - "
cmdOperator_Click opKurang
Case " / "
cmdOperator_Click opBagi
Case "Ulangi"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

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 vbKeyBack, vbKeyDelete
End Select
KeyCode = 0
End Sub

Sekian Penjelasan untuk Pembuatan Kalkulator di VB 6.0
semoga membantu pekerjaan anda nanti nya :)