Subscribe:

Senin, 31 Oktober 2011

Lirycs and Chord Insomnia - Craig David


Intro: Bb - C - Am - Dm (2x)

Verse:
Bb                               C
I never thought that i'd fall in love, love, love, love
Am                        Dm
But it grew from a simple crush, crush, crush, crush
Bb                                       C
Being without you girl, i was all messed up, up, up, up
Am                                       Dm
When you walked out, said that you'd had enough-nough-nough-nough


       Bb              C
Been a fool, girl i know
         Am                           Dm
Didn't expect this is how things would go
         Bb                          C
Maybe in time, you'll change your mind
           Am                      Dm
Now looking back i wish i could rewind

Chorus:

        Bb                       C
Because i can't sleep til you're next to me
       Am                       Dm
No i can't live without you no more
       Bb                C     
Oh i stay up til you're next to me
         Am                      Dm
Til this house feels like it did before
           Bb          C               Am        Dm
Feels like insomnia ah ah, feels like insomnia ah ah
           Bb          C               Am        Dm
Feels like insomnia ah ah, feels like insomnia ah ah


Bb                                              C
Remember telling my boys that i'd never fall in love, love, love, love
Am                                              Dm 
You used to think i'd never find a girl i could trust, trust, trust, trust
Bb                                                    C
And then you walked into my life and it was all about us, us, us, us
Am                                                         Dm
But now i'm sitting here thinking i messed the whole thing up, up, up, up

       Bb                  C
Been a fool (fool), girl i know (know)
        Am                            Dm    
Didn't expect this is how things would go
         Bb                              C
Maybe in time (time), you'll change your mind (mind)
           Am                       Dm
Now looking back i wish i could rewind

Chorus:
        Bb                      C
Because i can't sleep til you're next to me
     Am                        Dm     
No i can't live without you no more (without you no more)
    Bb                  C 
Oh i stay up til you're next to me (to me)
         Am                      Dm
Til this house feels like it did before (because it)
            Bb          C              Am       Dm
Feels like insomnia ah ah, feels like insomnia ah ah
            Bb          C              Am       Dm
Feels like insomnia ah ah (ah), feels like insomnia ah ah

Bb     C          
Ah, i just can't go to sleep
Am                        Dm
Cause it feels like i've fallen for you
Bb     C      
It's getting way too deep
Am..........  
And i know that it's love because

Bb                      C  
I can't sleep til you're next to me
Am                            Dm
No i can't live without you no more (without you no more)
Bb                      C
Oh i stay up til you're next to me (to me)
Am                              Dm
Til this house feels like it did before
            Bb         C              Am          Dm
Feels like insomnia ah ah, feels like insomnia ah ah
            Bb         C              Am          Dm 
Feels like insomnia ah ah, feels like insomnia ah ah
            Bb         C              Am          Dm
Feels like insomnia ah ah, feels like insomnia ah ah
            Bb         C              Am          Dm 
Feels like insomnia ah ah, feels like insomnia ah ah
Baca Selengkapnya»»

Kamis, 13 Oktober 2011

Cara Membuat Program Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, 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
End Sub
Baca Selengkapnya»»

Cara Install Windows 7



1. Pastikan dari BIOS booting komputer Anda di setting untuk DVD
2. Masukkan DVD windows 7
3. Tekan sembarang tombol saat muncul boot from cd or dvd
4. Akan terlihat gambar seperti dibawah ini
 5. Pilihlah Indonesian pada Language, time, currency, and location
 6. Tekan tombol install
 8. Centang pada I accept the license terms sebagai persetujuan penggunaan windows 7 kemudian klik next
 9. Pilih saja custom (advanced) untuk memilih di drive mana windows 7 akan di install
 10. Anda bisa mengatur drive sekaligus partisi pada step ini, saya sarankan bagilah hardisk Anda minimal 2 drive, satu untuk drive untuk windows 7 (C) dan satu drive untuk data (D) dengan memilih drive option, atau langsung saja tekan next dengan asumsi Anda akan mempartisi hardisk setelah instalasi windows 7 selesai.
 11. Tunggulah proses ini beberapa saat



 12. Secara otomatis windows akan restart
 13. Setelah restart akan muncul gambar berikut ini
 14. Tunggulah proses Setting up the services hanya beberapa saat saja
 15. Instalasi akan dilanjutkan secara otomatis
 16. Masukkan Nama User dan Nama Komputer sesuka Anda
 17. Jika perlu password ketikkan passwordnya 2 kali atau kosongkan saja jika Anda tidak ingin mem-password user Anda
18. Masukkan product key serial number windows 7 Anda
 19. Pilihlah level proteksi keamanan dari Microsoft
 20. Atur Zona waktu Anda (untuk Indonesia +7 dari GMT)
21. Selesai

Baca Selengkapnya»»

Selasa, 04 Oktober 2011

Cara Membuat Efek Marquee atau Teks Berjalan

Marquee adalah suatu printah dalam program HTML yang berfungsi untuk membuat teks bisa bergerak atau berjalan.


1.  Teks Berjalan Kekiri Kekanan Tiga Kali :
Berjalan Kekanan Tiga Kali

2.  Teks Berhenti Jika Mouse Menyentuh Daerah Marquee :


Teks Berhenti Jika Mouse Menyentuh Daerah Marquee




3.  Teks Berjalan Efek Bounce :
Teks Berjalan Efek Bounce


4.  Teks Berjalan Ke-kiri sekali saja :
Berjalan Kekiri Sekali


5.  Teks Bolak-Balik Secara Horizontal :
Teks Bolak-Balik Horizontal


6.  Teks Bolak-Balik Secara Vertikal :
Teks Bolak-Balik Vertikal


7.  Teks Bergerak Ke Kiri-Ke Kanan :
Bergerak ke kiri dan ke kanan


8.  Teks Marquee Yang Diberi Background :
Marquee dengan efek warna



9.  Teks Marquee Countinue :
Teks Kekanan Continue



Cara Pasang Kode Effek Marquee >>>
Anda sudah tau kode - kodenya sekarang tugas anda memasukkan kode - kode HTML tersebut ke dalam sidebar blog anda, Cara pasang code teks berjalan pada Sidebar blog adalah sebagai berikut :
  1. Login ke Blogger dengan ID anda.
  2. Klik Layout / Tata Letak.
  3. Klik Add Gadget / Tambah Gadget di lokasi yang Anda inginkan.
  4. Pilih HTML/Javascript.
  5. Copy paste code HTML diatas ke dalam Content yang telah tersedia.
  6. Klik Tombol Simpan.
Bagaimana Kalau di pasang di posting??? Jika cara pasang code HTML ke dalam postingan, anda cukup copy paste kode tersebut ke dalam content postingan Anda, Keterangannya :
  1. Width : Untuk mengatur panjang ruangan teks dalam satuan pixel.
  2. Height : Untuk mengatur lebar ruangan teks dalam satuan pixel.
  3. Scrolldelay : Untuk mengatur waktu tunda gerakan dalam satuan mili detik.
  4. Scrollamount : Untuk mengatur kecepatan gerakan dalam satuan pixel.
  5. Dari kode di atas, yang kita tambahkan adalah kode yang diberi (_) bisa anda ganti dengan teks anda sendiri.
Nah, sangat mudah kan? Jika ada masalah, silahkan Bertanya via e-mail. Jika ini berhasil silahkan dinikmati ( Jika ingin request artikel terbaru tentang Software, Tips N Trik silahkan Berkomentar ).
Baca Selengkapnya»»

Cara Membuat Tulisan Bergerak(Marquee)


Bagaimana agar bisa membuat tulisan berjalan?

Seperti Ini ??


Bergerak kekanan !

Bergerak kekiri !

Ke Kanan dan Kekiri ??

Bergerak kekanan Perlahan !

Ke Kanan dan Kekiri Dan Bisa Di stop??


Bergerak Ke Atas



Bergerak Ke bawah

Oke ini kode nya :

Untuk Yang bergerak ke-kanan


Untuk Yang bergerak ke-kiri


Untuk Yang Ke Kanan dan Kekiri



Untuk Yang Bergerak kekanan Perlahan : Note : nilai scrolldelay menentukan cepat atau lambatnya tulisan bergerak.Direction = menentukan arah bergerak



Untuk Yang Ke Kanan dan Kekiri Dan Bisa Di stop



Untuk Yang Bergerak Ke Atas



Untuk Yang Bergerak Ke Atas dan Ke bawah


Note : Anda bisa merubah warna tulisan dengan mengubah angka pada :
rgb(255,0,0)=menjadi merah
rgb(0,255,0)=menjadi Hijau
rgb(0,0,255)=menjadi Biru
Atau dikombinasi....Coba-coba aja ya....

Update:
Karena ada pertanyaan soal bagaiamana cara agar gambar bisa bergerak kekanan atau kekiri, maka saya perlu tambahkan sedikit disini ...
caranya pertama anda bikin dulu image yang anda inginklan, lalu anda upload image tersebut ke photobucket.com
Kemudian nanti dari photobucket anda akan mendapatkan URL dari image yang anda upload tsb.
Kemudian masukkan ke dalam script marque(Berjalan) seperti yg ada diatas.
Berikut contoh script untuk image Photo DC yg BergeraK Kekanan;
<marquee direction="right"><img src="https://lh5.googleusercontent.com/-Ocxd81AWnnk/TlXWZIq_sqI/AAAAAAAAATw/PJBXJeOoDpc/DC%252520community.jpg" /></marquee>

Ini contoh image yg bisa bergerak kekanan :


Ganti Tulisan yang berwarna BIRU dengan URL image milik anda.

Semoga membantu.....
Baca Selengkapnya»»

Sabtu, 01 Oktober 2011

Ayu Tingting - Alamat Palsu





kemana kemana kemana ku harus mencari kemana
kekasih tercinta tak tahu rimbanya
lama tak datang ke rumah
dimana dimana dimana tinggalnya sekarang dimana
ke sana kemari membawa alamat
namun yang ku temui bukan dirinya
sayang yang ku terima alamat palsu
ku tanya sama teman-teman semua
tetapi mereka bilang tidak tahu
sayang mungkin diriku tlah tertipu
membuat aku frustrasi dibuatnya
dimana dimana dimana tinggalnya sekarang dimana
ke sana kemari membawa alamat
namun yang ku temui bukan dirinya
sayang yang ku terima alamat palsu
ku tanya sama teman-teman semua
tetapi mereka bilang tidak tahu
sayang mungkin diriku tlah tertipu
membuat aku frustrasi dibuatnya
kemana kemana kemana ku harus mencari kemana
kekasih tercinta tak tahu rimbanya
lama tak datang ke rumah
dimana dimana dimana tinggalnya sekarang dimana
Topik yang berhubungan: Lirik Alamat palsu, lirik lagu ALAMAT PALSU, lirik lagu alamat palsu ayu tingting, ayu ting ting, lirik lagu ayu ting ting alamat palsu, alamat palsu, AYU TINGTING, ayu tingting alamat palsu, ayu ting ting alamat palsu, lirik alamat palsu ayu ting ting. Jangan lupa, jika Anda suka dengan lagu ini (atau teks lagunya), dukung penyanyi yang bersangkutan agar terus berkarya dengan cara membeli kaset / CD mereka atau setidaknya berlangganan NSP / RBT lagu-lagu mereka. Oke, cuy? :)
Baca Selengkapnya»»