Latihan_03_46110055

Public Class Latihan_03_46110055

    Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter

        tb146110055.Text = Val(masuksd46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110055.Enter

        tb246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub

Private Sub tb346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110055.Enter

        tb346110055.Text = Val(tb246110055.Text) / Val(tb146110055.Text) * 100

    End Sub

Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click

        masuksd46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        tb146110055.Text = ""

        tb246110055.Text = ""

        tb346110055.Text = ""

    End Sub

End Class



Komentar :
Pada dasarnyasama dengan latihan 01, cuman script di balik tombol hitung di latihan 01 dipindahkan dibalik textbox dengan even yang sesuai yaitu dengan cara menambahkan (Enter) pada akhir rumus Private Sub. jadi, kita hanya menekan tombol Enter, jika ingin melihat hasilnya.

Latihan_02_46110055

Public Class Latihan_02_46110055

    Private Sub kisah46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kisah46110055.Click

        isi46110055.Text = "Nama saya adalah " & nama46110055.Text & ", saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & alamat46110055.Text & ". Orang tua saya bernama " & ayah46110055.Text & " dan " & ibu46110055.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & sd46110055.Text & ", setelah lulus di sekolah dasar " & sd46110055.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & sd46110055.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & smp46110055.Text & ". Setelah selesai di SLTP kami sama-melanjutkan   di sebuah SLTA, namun ketika di SLTA si " & smp46110055.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & sma46110055.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & kul46110055.Text & ". Hingga semester ini saya masih berteman baik dengan si " & kul46110055.Text & "."

    

 End Sub

Private Sub sekian46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekian46110055.Click

        nama46110055.Text = ""

        alamat46110055.Text = ""

        ayah46110055.Text = ""

        ibu46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        isi46110055.Text = ""

    End Sub

End Class



Komentar :

1. Tanda (“...”) pada rumus diatas yaitu sebagai penanda bahwa itu adalah sebuah karakter
2. Tanda (“&”) yaitu sebagai penghubung data yang diinput di dalam textbox

Latihan_01_46110055

Public Class Latihan_01_46110055

    Private Sub hitung46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110055.Click

        tbg146110055.Text = Val(umur46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

        tbg246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

        tbg346110055.Text = Val(tbg246110055.Text) / Val(tbg146110055.Text) * 100

    End Sub

Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click

        umur46110055.Text = ""

        sd46110055.Text = ""

        smp46110055.Text = ""

        sma46110055.Text = ""

        kul46110055.Text = ""

        tbg146110055.Text = ""

        tbg246110055.Text = ""

        tbg346110055.Text = ""

    End Sub

End Class

Komentar :

1. Tanda (+) dalam rumus diatas diartikan sebagai penjumlahan dari textbox yang sudah kita buat sebelumnya.
2. Kata (val) yaitu value diartikan untuk menjumlahkan seluruh angka – angka yang telah kita masukkan di dalam textbox yang sudah dibuat sebelumnya
3. Tanda (“”) yaitu agar data-data yang telah kita masukkan dapat di kosongkan lagi

APKOM 4

LATIHAN 1

Public Class Latihan_01_46110055

    Private Sub hitung46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110055.Click
        tbg146110055.Text = Val(umur46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)
        tbg246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)
        tbg346110055.Text = Val(tbg246110055.Text) / Val(tbg146110055.Text) * 100


    End Sub


Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click
        umur46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        tbg146110055.Text = ""
        tbg246110055.Text = ""
        tbg346110055.Text = ""

    End Sub
End Class


LATIHAN 2


Public Class Latihan_02_46110055

    Private Sub kisah46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kisah46110055.Click
        isi46110055.Text = "Nama saya adalah " & nama46110055.Text & ", saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & alamat46110055.Text & ". Orang tua saya bernama " & ayah46110055.Text & " dan " & ibu46110055.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & sd46110055.Text & ", setelah lulus di sekolah dasar " & sd46110055.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & sd46110055.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & smp46110055.Text & ". Setelah selesai di SLTP kami sama-melanjutkan   di sebuah SLTA, namun ketika di SLTA si " & smp46110055.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & sma46110055.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & kul46110055.Text & ". Hingga semester ini saya masih berteman baik dengan si " & kul46110055.Text & "."
   
 End Sub


Private Sub sekian46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekian46110055.Click
        nama46110055.Text = ""
        alamat46110055.Text = ""
        ayah46110055.Text = ""
        ibu46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        isi46110055.Text = ""
    End Sub
End Class


LATIHAN 3


Public Class Latihan_03_46110055

    Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter
        tb146110055.Text = Val(masuksd46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub


Private Sub tb246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110055.Enter
        tb246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub


Private Sub tb346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110055.Enter
        tb346110055.Text = Val(tb246110055.Text) / Val(tb146110055.Text) * 100
    End Sub


Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click
        masuksd46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        tb146110055.Text = ""
        tb246110055.Text = ""
        tb346110055.Text = ""
    End Sub
End Class

SPEAK NOW TAYLOR SWIFT

SPEAK NOW

TAYLOR SWIFT 

Intro: F

F                    C
I am not the kind of girl
              Em                     G
who should be rudely barging in on a white veil occasion.
    F                       C  
But you are not the kind of boy
              Em                 G
who should be marrying the wrong girl.
F                       C
I sneak in and see your friends,
        Em
and her snotty little family 
               G
all dressed in pastel.
     F                  C
And she is yelling at a bridesmaid
         Em         
somewhere back inside her room
          G
wearing a gown shaped like a pastry.
F    C  Em                                   G
This is surely not what you thought it would be.
F C                Em
I lose myself in a daydream.
                      G
Where I stand and say.

F              C
Don't say yes, run away now
   Em                                G
I'll meet you when you're out of the church at the back door.
      F                 C
Don't wait, or say a single vow
Em
You need to hear me out
 G
and they said speak now.

Reapeat F chord.

F                 C       
Fond gestures are exchanged
        Em                              G    
and the organ starts to play a song that sounds like a death march.
    F                  C
and I am hiding in the curtains
                   Em
It seems that I was uninvited by your lovely
G
bride to be.
F         C                      Em            G    
She floats down the aisle like a pageant queen.
F C    Em          
I know you wish it was me
    G
you wish it was me
don't you?
[ Tab from: http://www.guitaretab.com/t/taylor-swift/251065.html ]
F              C
Don't say yes, run away now
   Em                                G
I'll meet you when you're out of the church at the back door.
      F                 C
Don't wait, or say a single vow
Em
You need to hear me out
 G
and they said speak now.
F              C
Don't say yes, run away now
   Em                                G
I'll meet you when you're out of the church at the back door.
      F                 C
Don't wait, or say a single vow
Em           
your time is running out
   G
and they said speak now.

F, C, Em, G (2x)

F
I hear the preacher say
C              Em              G
Speak now or forever hold your peace.
F
There's a silence

There's my last chance
C
I stand up with shaking hands
    Em      G
all eyes on me.
F                    C
Horrified looks from everyone in the room,
    Em                  G
But I'm only looking at you.

F                    C
I am not the kind of girl
              Em                     G
who should be rudely barging in on a white veil occasion.
    F                       C  
But you are not the kind of boy
              Em                   G
who should be marrying the wrong girl.

 F              C
So Don't say yes, run away now
   Em                                G
I'll meet you when you're out of the church at the back door.
      F             C
Don't wait, or say a single vow
    Em
You need to hear me out
   G
and they said speak now.
F              C           
And you'll say let's run away now
     Em                          G
I'll meet you when I'm out of my tux at the back door.
F             C
Baby, I didn't say my vows
     Em                  G
so glad you were around when they said
Speak Now.

Outro with the F chord.   

taylor swift straight hair 2009 | 2012 Hair Styles

taylor swift straight hair 2009 | 2012 Hair Styleshttp://www.hairstylesnew2012.tk/uncategorized/taylor-swift-straight-hair-2009

me

putih merah . hahahahahaha