17 November 2012
SEPADA - Pada Waktunya
Dirigen : Andika Darmawan
Recording by : Rachel Rizky
Converting by : Samba Nugraha
Judul : Pada Waktunya
Pencipta : Henry Soetjipto
Modified by 11 IPA 2
Tuhan membuat
semua indah pada waktunya
untuk segala peristiwa selalu ada
suatu maksud
yang indah
Contoh Coding Select Case
Maker : Ida Ayu Kade Leonita
Private Sub Command1_Click()
Select Case Text1.Text
Case "A"
pn = "Big Bang"
jl = "blue"
tk = 2012
Case "B"
pn = "Boyfriend"
jl = "You and I"
tk = 2011
Case "C"
pn = "Super Junior"
jl = "SPY"
tk = 2012
End Select
Label7.Caption = pn
Label8.Caption = jl
Label9.Caption = tk
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
End Sub
Contoh Coding Select Case
Maker : Hanurita Christy
Private Sub Command1_Click()
Dim kb As String
Select Case Text1.Text
Case "A"
nb = "Anggur"
harga = 20000
Case "J"
nb = "Jeruk"
harga = 8000
Case "D"
nb = "Delima"
harga = 15000
End Select
Label4.Caption = nb
Label5.Caption = harga
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub
Private Sub Command1_Click()
Dim kb As String
Select Case Text1.Text
Case "A"
nb = "Anggur"
harga = 20000
Case "J"
nb = "Jeruk"
harga = 8000
Case "D"
nb = "Delima"
harga = 15000
End Select
Label4.Caption = nb
Label5.Caption = harga
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub
Contoh Coding Select Case
Maker : Yoan Colly
Private Sub Command1_Click()
Select Case Text1.Text
Case "S"
kb = "Sakura"
ab = "Jepang"
Case "A"
kb = "Anggrek"
ab = "Indonesia"
Case "L"
kb = "Lavender"
ab = "Belanda"
Case "M"
kb = "Mawar"
ab = "Inggris"
End Select
Label5.Caption = kb
Text2.Text = ab
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
End Sub
Private Sub End_Click()
End
End Sub
Private Sub Command1_Click()
Select Case Text1.Text
Case "S"
kb = "Sakura"
ab = "Jepang"
Case "A"
kb = "Anggrek"
ab = "Indonesia"
Case "L"
kb = "Lavender"
ab = "Belanda"
Case "M"
kb = "Mawar"
ab = "Inggris"
End Select
Label5.Caption = kb
Text2.Text = ab
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
End Sub
Private Sub End_Click()
End
End Sub
14 November 2012
Bahan Ulangan Sejarah
Sejarah lagi nie...
Buat teman teman Sepatu (Sebelas IPA 1) yang gak masuk hari ini ada Ulangan hari Jumat, 16 Nov 2012... Ini bahan ulangan sejarahnya y....
Selamat Belajar..
Buat teman teman Sepatu (Sebelas IPA 1) yang gak masuk hari ini ada Ulangan hari Jumat, 16 Nov 2012... Ini bahan ulangan sejarahnya y....
Selamat Belajar..
![]() |
| Maap y bahan boleh sejarah... gbr tetep motor... ckckck |
Page 1
Faktor-faktor yang mendukung berdirinya Kerajaan Samudera pasai, yaitu
:
1. Letak kerajaan yang berdekatan dengan jalur pelayaran perdagangan
internasional waktu itu,
Selat Malaka
2. Dengan posisi strategis tersebut Samudera Pasai berkembang pesat
datam kehidupan politik,
ekonomi, social dan budaya
Faktor-faktor penyebab kemunduran Kerajaan samudera pasai, yaitu :
1. Kerajaan Majapahit yang berambisi menyatukan nusantara yaitu pada
tahun 1339 M patih Gajahmada menyerang pasai, tetapi belum berhasil
2. Berdirinya Bandar Malaka yang letaknya lebih strategis
3. Setelah Sultan Malik At-Thahir meninggal, tidak ada penggantinya
yang cakap dan terkenal, sehingga peran penyebaran agama lslam diambil alih
oleh Kerajaan Aceh
9 November 2012
Boredom Night
I think this night is so bored.
In this boredom night sometimes I think about this...
I know,
I just your fans, that only can look at you...
But never looked by you as a good friend...
I already know that,
but I don't know
Why I can't leave you?
Why I can't forget you?
So many question I think this night...
But I must think about myself again,
I'm not a perfect person.
I just a stupid guy, that always make you feel sad...
I know, I can't make you happy
I can't help you when you're in trouble, and always make difficulties for you..
I know you're can't read this tonight so I post it for Myself...
Post It For My Boredom Night....
In this boredom night sometimes I think about this...
I know,I just your fans, that only can look at you...
But never looked by you as a good friend...
I already know that,
but I don't know
Why I can't leave you?
Why I can't forget you?
So many question I think this night...
But I must think about myself again,
I'm not a perfect person.
I just a stupid guy, that always make you feel sad...
I know, I can't make you happy
I can't help you when you're in trouble, and always make difficulties for you..
I know you're can't read this tonight so I post it for Myself...
Post It For My Boredom Night....
Langganan:
Postingan (Atom)


