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