Lirik lagu dan kunci gitar Fatin Shidqiah - Dia dia dia

Lirik dan kunci gitar

Lirik lagu dan kunci gitar Fatin Shidqiah - Dia dia dia

5:38 PM Komentar

 Lirik lagu dan kunci gitar Fatin - Dia dia dia

(Intro)
B Bbm G#m C# F# 2x
F# C# D#m
selalu kupikir bahwa aku tegar
B Bbm G#m
aku tak pernah menyangka kan begini
F# Bb D#m G#
dan saat engkau tak di sisiku lagi
B Bbm G#m C# F#
baru kurasakan arti kehilangan

(Reff)
B Bbm
ingin kubicara, hasrat mengungkapkan
Bb D#m
masih pantaskah ku bersamamu
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa
G#m Bbm B C# F#
dia dia dia tlah mencuri hatiku

(Interlude)
B Bbm G#m C# F#
F# C# D#m
dan saat hari dimana kau tinggalkanku
B Bbm G#m C#
kupikir semuanya kan baik-baik saja
F# Bb D#m G#
dan kini baru kusadari semua
G#m Bbm B C# F#
dia dia dia tlah mencuri hatiku

(Reff)
B Bbm
ingin kubicara, hasrat mengungkapkan
Bb D#m
masih pantaskah ku bersamamu
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa
G#m Bbm B C# D#m
dia dia dia tlah mencuri hatiku

(Solo)
D#m C# B F# Bb
(Reff)
B C# Bbm D#m
ingin kubicara..
G#m C# F#
tuk lalui hitam putih hidup ini
B Bbm
saat engkau pergi, tak kau bawa hati
Bb D#
dan tak ada lagi yang tersisa

(Reff) (overtune + backingvocal)
C# Cm
ingin kubicara, hasrat mengungkapkan
C Fm
masih pantaskah ku bersamamu (bersamamu)
Bbm D# G#
tuk lalui hitam putih hidup ini (hitam putih, hidup ini)
C# Cm
saat engkau pergi, tak kau bawa hati
C F
dan tak ada lagi yang tersisa …
Bbm Cm C# D# Fm
dia dia dia tlah mencuri hatiku
Bbm Cm C# D# G#
dia dia dia tlah mencuri ha..tiku
Bbm D# G#
tlah mencuri ha..ti..ku
(Ending)
C# Cm Bbm D# G#
Ooooh…


Tag : lirik lagu fatin, kunci gitar fatin, lirik lagu, kunci gitar, lirik lagu dan kunci gitar fatin, fatin sidqiah

Baca selengkapnya

Aplikasi Blackberry Messenger di hanphone Nokia

Aplikasi

Aplikasi Blackberry Messenger di hanphone Nokia

2:33 AM Komentar

Aplikasi Blackberry messenger di handphone nokia
Pasti semua pernah dengar kalau Blackberry messenger sekarang tidak hanya ada di handphone blackberry saja, tetapi sudah ada di android.
Dan kali ini saya ingin berbagi blackberry messenger atau BBM di handphone Nokia dan Java.
pasti anda sudah penasaran kan...
Tapi ini bukan asli blackberry messenger seperti yang ada di blackberry.
ini hanya aplikasi yang mirip seperti blackberry dan mempunyai PIN juga sama seperti Blackberry messenger yang asli.
dan nama asli aplikasi ini adalah MOZAK, yaitu aplikasi seperti blackberry messenger yang mempunyai PIN dan chat seperti blackberry yang asli.
buktikan dan download BBM di nokia di sini 

Aplikasi Blackberry Messenger di hanphone Nokia

Baca selengkapnya

VisualBasic 2008 Menghitung Nilai Mahasiswa

TUGAS KAMPUS

VisualBasic 2008 Menghitung Nilai Mahasiswa

5:49 AM Komentar

Belajar Bahasa Pemrograman

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110667")

        NPM.Items.Add("12110082")

        NPM.Items.Add("12110407")

        KODEDOSEN.Items.Add("MS001")

        KODEDOSEN.Items.Add("PL002")

        KODEDOSEN.Items.Add("TN003")

        KODEMATAKULIAH.Items.Add("PV001")

        KODEMATAKULIAH.Items.Add("AD002")

        KODEMATAKULIAH.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            NILAIHADIR.Items.Add(x)

            NILAITUGAS.Items.Add(x)

            NILAIUAS.Items.Add(x)

            NILAIUTS.Items.Add(x)

        Next x

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110667"

                NAMA.Text = "SONI RIVALDI"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

            Case "12110082"

                NAMA.Text = "BENTO"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

            Case "12110407"

                NAMA.Text = "AHMAD FAUZI LINGGA"

                JURUSAN.Text = "TEKNIK INFORMATIKA"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Right(NPM.Text, 2)

        If NPM.Text = "12110667" Then

            JENJANG.Text = "S1"

        ElseIf NPM.Text = "12110082" Then

            JENJANG.Text = "S1"

        ElseIf NPM.Text = "12110407" Then

            JENJANG.Text = "S1"

        End If

    End Sub

    Private Sub KODEDOSEN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEDOSEN.SelectedIndexChanged

        Select Case KODEDOSEN.Text

            Case "MS001"

                NAMADOSEN.Text = "Mesran M.Kom"

            Case "PL002"

                NAMADOSEN.Text = "Yasir Hasan S.Kom"

            Case "TN003"

                NAMADOSEN.Text = "Pristiwanto S,Kom"

        End Select

    End Sub

    Private Sub KODEMATAKULIAH_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODEMATAKULIAH.SelectedIndexChanged

        Select Case KODEMATAKULIAH.Text

            Case "PV001"

                MATAKULIAH.Text = "Program Visual"

            Case "AD002"

                MATAKULIAH.Text = "Sistem Basis Data"

            Case "SBD003"

                MATAKULIAH.Text = "Sistem Operasi"

        End Select

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        NILAIAKHIR.Text = 0.1 * NILAIHADIR.Text + 0.15 * NILAITUGAS.Text + 0.35 * NILAIUTS.Text + 0.45 * NILAIUAS.Text

        If NILAIAKHIR.Text >= "50" Then

            KETERANGAN.Text = "LULUS"

        Else

            KETERANGAN.Text = "GAGAL"

        End If

        If NILAIAKHIR.Text >= "80" Then

            NILAIHURUF.Text = "A"

        ElseIf NILAIAKHIR.Text >= "70" Then

            NILAIHURUF.Text = "B"

        ElseIf NILAIAKHIR.Text >= "60" Then

            NILAIHURUF.Text = "C"

        ElseIf NILAIAKHIR.Text >= "50" Then

            NILAIHURUF.Text = "D"

        Else

            NILAIHURUF.Text = "E"

        End If

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NPM.Text = ""

        NAMA.Text = ""

        JENJANG.Text = ""

        JURUSAN.Text = ""

        NAMADOSEN.Text = ""

        MATAKULIAH.Text = ""

        KODEDOSEN.Text = ""

        KODEMATAKULIAH.Text = ""

        NILAIAKHIR.Text = ""

        NILAIHADIR.Text = ""

        NILAIHURUF.Text = ""

        NILAITUGAS.Text = ""

        NILAIUAS.Text = ""

        NILAIUTS.Text = ""

        KETERANGAN.Text = ""

    End Sub

End Class

VisualBasic 2008 Menghitung Nilai Mahasiswa

Baca selengkapnya