Lirik Lagu FALLING IN REVERSE-Listen Up

Listen up 'cause this is not the end,
You're the last thing that crossed my mind.
Relationships are based on trust,
Well I guess this one was based on lies,
Based on lies. (x4)

Listen up to the ones you trust,
Just a few by your side.
(Your side).
Give in, everythings gonna be alright,
(Here we are, the ones who make time)
Now it's time for me to go,
I know, you know, the fights are getting old.

This is the last chance I have to say to you,
So, sorry but I have to go,
Wash my hands of you.

You say, you will never change,
I say, that's too bad.
I'm sorry for all the things that you and I (could have had).
But it's your fault, all the stupid things,
That you and I have done and said.
The lies, the cries, it's no wonder that you were dead.

This is the last chance I have to say to you,
So, sorry but I have to go,
Wash my hands of you.

Your honesty, is killing me.
The page I read,
The word that said that you still love me.
You lied to me, and you don't see,
The things you've said, and now you're dead,
And that's alright by me.

This is the last chance I have to say to you,
So, sorry but I have to go,
Wash my hands of you.

Listen up 'cause this in not the end!

Download Lagunya Di sini:

http://mp3skull.com/mp3/falling_in_reverse_listen_up.html

Lirik Lagu FALLING IN REVERSE-Keep Holding On

KEEP HOLDING ON

I thought I had myself all figured out
But I spent my whole life holding myself down
And it seems to be that sort of thing I keep doing constantly
Addicted to the pain I cause myself
My head is floating somewhere in the clouds
While I'm paid to entertain a lovely crowd
They sing my songs and feel my pain
Cause pain is what creates my fame
A vicious cycle some day I'll get out

I can't believe I'm standing here at all
I can't believe I made it this far
All the way with a smile on my face
See the the top and I'm not falling off
And all I need is a microphone, I'll sing
About the things that have been hurting me
It's safe to say, all the kids, I relate
To their lives so just keep holding on

It's hard enough try walking in my shoes
To be picked on by my peers who much abuse
And I'm tired of not fitting in true friends is my final wish
Just let me be myself and make it through
I have tried so hard to be a better soul
I have worked so hard at making myself whole
And through it all my better years are still ahead my mind is clear
Just trust me when I say I'm in control

I can't believe I'm standing here at all
I can't believe I made it this far
All the way with a smile on my face
See the the top and I'm not falling off
And all I need is a microphone, I'll sing
About the things that have been hurting me
It's safe to say, all the kids, I relate
To their lives so just keep holding on

I believe I'm just like you
I believe I'll make it through
It's hard to see at times like this
But I'm not giving in, but I'm not giving
In

I believe I'm just like you
I believe I'll make it through
It's hard to see at times like this
But I'm not giving in, but I'm not giving in

And all I need is a microphone
I'll sing about the things that have been hurting me
It's safe to say, all the kids, I relate
To their lives so just keep holding on

I can't believe I'm standing here at all
I can't believe I made it this far
All the way with a smile on my face
See the the top and I'm not falling off
And all I need is a microphone, I'll sing
About the things that have been hurting me
It's safe to say, all the kids, I relate
To their lives so just keep holding on

Silahkan Download Lagunya Di sini:
http://mp3skull.com/mp3/falling_in_reverse_keep_holding_on.html

Lirik Lagu SECRETS-The Oath

Three can keep a secret,
if two of them are dead,
I’ll bury all the pages,
to keep my words unsaid.

Through thick or thin, I’m holding it.
Loose lips sink our ships.
Lips are sewn shut

Hush baby don’t tell,
lets keep this inside.
I got a secret,
I wont let it out this time.
Your grave gets deeper,
all the secrets you hide,
so let it out let it out,
but no one will hear your cries.

I’ll watch them fall,
come crawling out your mouth.
I want to save myself,
for the last few minutes.

I’ll tear this place apart with every intention,
of burning every bridge I ever stepped foot on.

Hush baby don’t tell,
lets keep this inside.
I got a secret,
I wont let it out this time.
Your grave gets deeper,
all the secrets you hide,
so let it out let it out,
but no one will hear your cries.

I have these demons,
I keep them inside,
believe what you want,
but its probably a lie.
one makes it two,
two makes it three,
three makes a crowd so your coming with me.

I’m sinking faster,
and its hard for me to breath.
My whole world crumbles before me,
as I’m left here on my knee’s.

Silahkan Download Lagunya Di sini:

http://mp3skull.com/mp3/secrets_the_oath.html

Program Penilaian Mahasiswa

Ketikkan Perintah Di bawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110378")
        NPM.Items.Add("12110321")
        NPM.Items.Add("12110336")
        NPM.Items.Add("12110597")
        NPM.Items.Add("12110320")

        KodeDosen.Items.Add("301")
        KodeDosen.Items.Add("302")
        KodeDosen.Items.Add("303")
        KodeDosen.Items.Add("304")
        KodeDosen.Items.Add("305")

        KodeMakul.Items.Add("301")
        KodeMakul.Items.Add("302")
        KodeMakul.Items.Add("303")
        KodeMakul.Items.Add("304")
        KodeMakul.Items.Add("305")



        Dim x As Integer
        For x = 100 To 1 Step -3
            Hadir.Items.Add(x)
        Next (x)
        x = 100

        Do While x >= 1
            Tugas.Items.Add(x)
            x = x - 3
        Loop
        For x = 100 To 1 Step -3
            UTS.Items.Add(x)
        Next (x)

        For x = 100 To 1 Step -3
            Nilai_Uas.Items.Add(x)
        Next (x)
    End Sub

    Friend WithEvents Ma As System.Windows.Forms.Label
    Friend WithEvents jurusan As System.Windows.Forms.TextBox

    Private Sub kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "301"
                Dosen.Text = "Toni Limbong,S.Kom,M.Kom"
            Case "302"
                Dosen.Text = "Sinar Sinurat,ST,M.Kom"
            Case "303"
                Dosen.Text = "Mesran,S.Kom,M.Kom"
            Case "304"
                Dosen.Text = "Kennedi Tampubolon,S.Si"
            Case "305"
                Dosen.Text = "Kristian Siregar,S.Kom"
        End Select
    End Sub

    Private Sub kode_matakulyah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMakul.SelectedIndexChanged
        Select Case KodeMakul.Text
            Case "301"
                Makul.Text = "Sistem Basis Data"
            Case "302"
                Makul.Text = "Matematika Diskrit"
            Case "303"
                Makul.Text = "Pemrogaman Visual Basic"
            Case "304"
                Makul.Text = "Kalkulus II"
            Case "305"
                Makul.Text = "HTML"

        End Select
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ("")
        Mahasiswa.Text = ("")
        Jenjang.Text = ("")
        jurusan.Text = ("")
        KodeDosen.Text = ("")
        Dosen.Text = ("")
        KodeMakul.Text = ("")
        Makul.Text = ("")
        Hadir.Text = ("")
        Tugas.Text = ("")
        UTS.Text = ("")
        Nilai_Uas.Text = ("")
        Nilai_Akhir.Text = ("")
        Nilai_Huruf.Text = ("")
        Keterangan.Text = ("")
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Nilai_Akhir.Text = 0.45 * Nilai_Uas.Text + 0.3 * UTS.Text + 0.15 * Tugas.Text + 0.1 * Hadir.Text()

        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf (Nilai_Akhir.Text >= 70) And (Nilai_Akhir.Text < 80) Then
            Nilai_Huruf.Text = "B"
        ElseIf (Nilai_Akhir.Text >= 60) And (Nilai_Akhir.Text < 70) Then
            Nilai_Huruf.Text = "C"
        ElseIf (Nilai_Akhir.Text >= 50) And (Nilai_Akhir.Text < 60) Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
         Select NPM.Text
            Case "12110389"
                Mahasiswa.Text = "Awal"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110321"
                Mahasiswa.Text = "cahyo Shobirin"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110320"
                Mahasiswa.Text = "Yuyun"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110400"
                Mahasiswa.Text = "Steven"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
        End Select
    End Sub
End Class