Indestructible - SNSD

Tiffany] mmmm... Indestructible 

([All] Indestructible) Yeah yeah

[Seohyun] Hayai no ne tsukihi nagare
The way we are
[Yuri] Omoi atte ita hazu ga itsukara ka
[Tiffany] Kooron mugon subete o
Tomoni shita wa
[Yoona] Soredemo sonogoe de hotto shiteru

[Tiffany] How you like me?
[Sooyoung] Atarashi I kanjouron wa
[Tiffany] It's so hard
[Sunny] Kantan janai kedo attakai~

[All/Taeyeon] Kono indestructible
Unbreakable
Kesshite kowarenai kizuna
Tamashi wa twin soul

[All/Sunny]Tatoe anata ga gake kara
Ochiso ni natta to shite mo
[Jessica] Sonote dake wa
Hanasanai no
[All] Indestructible
[Hyoyeon] Mamorinukukara

[Sooyoung] Anata no okage kana zuibun
I like myself
[Hyoyeon] Kiraina koto mo daibu ne
Hettari shite
[Yuri] Ai wo shiru to hito wa tsuyoku nareru tte
[Sunny] Toi mukashi papa ga itte ita koto

[Seohyun] Konsenchu?
[Jessica] Omoi wa umaku todoku kana
[Seohyun] Dakedo
[Taeyeon] Sunao ni ima tsutaetai~

[All/Sunny] Toki ni taisetsunamono wa tada
Invisible menimienai dakara
Nando mo iwanakya
[All/Taeyeon]Fureru koto naku chitte yuku
Shinjitsu ni furetakute
[Seohyun] Kono destiny arigatou

[Sooyoung] Fune wo dasou fukisusabu raising
[Tiffany] Arashi no naka surrender
[Sunny] Kesshite yamenai
[Seohyun] tsuranaru omoi tsunaide
[Taeyeon] Mada never ever minai sekai e~

[Jessica] Kono indestructible
Unbreakable
Kesshite kowarenai Kizuna
Tashikana our soul

[Tiffany] Tatoe darekaga watashi wo kizutsukeyou to shite mo
[Seohyun] Nani ga atte mo
[All/Jessica] Daijoubu taisetsunamono wa
Invisible menimienai dakara
Nando mo ii tai no
[All/Taeyeon]Anata nashide wa ima kono
Watashi wa nakatta yo
Kono destiny

[Tiffany] indestructible...
[All] Indestructible
[Seohyun] Indestructible..



source: www.lyricsfreak.com

Divine - Girls' Generation

[ Taeyeon ] Oohhh....

[ Sunny ] Aha ha.. ah 

[ Jessica ] Amarini mo moroi no ne
Kimochi wa tayasuku yurete
Yoga akeru to kieru
Kotae sagashi teru 

[ Tiffany ] Tada tachihadakaru kono close road
Michishirube ni naru starlight
Nē oshiete hoshī no
Ikubeki basho o 

[ Yoona ] Kon'nani tōkute [ Hyoyeon ] Kujike-sōde mo 

[Sooyoung] Tenmei o matteru 

[Seohyun] Kore ga destiny

[ Taeyeon ] Todoroki o utsu aranami ni marude
Muryokude chīsana watashidakedo
[ Seohyun ] Umi sae kitto
Warete soko ni michiwotsukuru
[Tiffany] Itsunohika 

[ Jessica ] We can be divine 

[ Seohyun ] Hieta tsuchi no ue o mo
Hadashi de aruite yuku
Anata no nukumori ga
Sasae ni naru  [ Tiffany ] (You always by my side) 

[ Taeyeon ] Hitori de umareta no ni
Deaubeku shi tete au
Anata wa dare yori mo
Watashi o shitteru 

[Yoona] Tachimukatte yuku
[Sooyoung] Oukina fatally
[ Sunny ] Anata tonaraba [ Tiffany ]Tsuyoku nareru 

[ Seohyun ] Kowaimono nado nakatta hazunanoni
Ne e ima wa anata o ushinaitakunai [ Jessica &Taeyeon ] Kumo no sukima 

Hikari terasu sonohi made wa [ Taeyeon ] Sayonarahaiwanaide 

[ Sunny ] Sorezore no michi 

Aka reta sonotoki [ Seohyun ] Kitto omoidasu nodeshou 

Kono negai 

[ Taeyeon ] Tomoni ayunda michinori o 

[ Tiffany ] Akashi ni shiyou eien ni 

[Jessica] We are always one (We are always one)

[ All/Taeyeon ] Todoroku yōna aranami o mae ni
Watashitachi nani ga dekiru no to iu nodarou
Kono kon'nan o sotto yorisoi mukaeyou
[ Taeyeon ] Shinji teru [ All ] We can be divine

[ Tiffany ] Omoi wa hitotsu 

[ Jessica ] We can be divine 

credit: http://sonexotic-shiners-kpopers.blogspot.com/

Mencari Volume

 

 

Option Compare Database

Private Sub CmdHapusBalok_Click()
TxtPanjang = ""
TxtLebar = ""
TxtTinggi = ""
TxtHasilBalok = ""
End Sub

Private Sub CmdHapusKubus_Click()
TxtSisi = ""
TxtHasilKubus = ""
End Sub

Private Sub CmdHitungBalok_Click()
Dim p, l, t, vb As Integer
p = (TxtPanjang)
l = (TxtLebar)
t = (TxtTinggi)
vb = p * l * t
TxtHasilBalok = vb
End Sub

Private Sub CmdHitungKubus_Click()
Dim s, vk As Integer
s = (TxtSisi)
vk = s * s * s
TxtHasilKubus = vk
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub OptBalok_GotFocus()
FraVolBalok.Visible = True
TxtPanjang.Visible = True
TxtLebar.Visible = True
TxtTinggi.Visible = True
TxtHasilBalok.Visible = True
CmdHapusBalok.Visible = True
CmdHitungBalok.Visible = True
FraVolKubus.Visible = False
TxtSisi.Visible = False
TxtHasilKubus.Visible = False
CmdHapusKubus.Visible = False
CmdHitungKubus.Visible = False
End Sub

Private Sub OptKubus_Click()
FraVolKubus.Visible = True
TxtSisi.Visible = True
TxtHasilKubus.Visible = True
CmdHitungKubus.Visible = True
CmdHapusKubus.Visible = True
FraVolBalok.Visible = False
TxtPanjang.Visible = False
TxtHasilBalok.Visible = False
TxtTinggi.Visible = False
TxtLebar.Visible = False
CmdHapusBalok.Visible = False
CmdHitungBalok.Visible = False
End Sub

Mencari Kalor

Option Compare Database


Private Sub CmdHapusLebur_Click()
TxtMassaLebur = ""
TxtKalorLebur = ""
TxtQL = ""
End Sub

Private Sub CmdHapusUap_Click()
TxtMassaUap = ""
TxtKalorUap = ""
TxtQU = ""
End Sub

Private Sub CmdHitungLebur_Click()
Dim ML, Kl, QL As Integer
ML = Val(TxtMassaLebur)
Kl = Val(TxtKalorLebur)
QL = ML * Kl
TxtQL = QL

End Sub

Private Sub CmdHitungUap_Click()
Dim MU, KU, QU As Integer
MU = (TxtMassaUap)
KU = (TxtKalorUap)
QU = MU * KU
TxtQU = QU
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Close

End Sub

Private Sub OptKalorLebur_GotFocus()
FraKalorLebur.Visible = True
TxtMassaLebur.Visible = True
TxtKalorLebur.Visible = True
TxtQL.Visible = True
CmdHitungLebur.Visible = True
CmdHapusLebur.Visible = True
FraKalorUap.Visible = False
TxtMassaUap.Visible = False
TxtKalorUap.Visible = False
TxtQU.Visible = False
CmdHitungUap.Visible = False
CmdHapusUap.Visible = False
End Sub

Private Sub OptKalorUap_GotFocus()
FraKalorUap.Visible = True
TxtMassaUap.Visible = True
TxtKalorUap.Visible = True
TxtQU.Visible = True
CmdHitungUap.Visible = True
CmdHapusUap.Visible = True
FraKalorLebur.Visible = False
TxtMassaLebur.Visible = False
TxtKalorLebur.Visible = False
TxtQL.Visible = False
CmdHitungLebur.Visible = False
CmdHapusLebur.Visible = False

End Sub

Mencari Luas Lingkaran

Private Sub CmdHapus_Click()
CboJariJari = ""
TxtLuas = ""
LblJariJariLingkaran = "Isi Jari-Jari"
CboJariJari.SetFocus
End Sub

Private Sub CmdHitung_Click()
If CboJariJari = "" Then
MsgBox ("Isi Nilai Jari-Jari")
End If
r = CboJariJari
If r = 7 Or r = 14 Or r = 21 Or r = 28 Or r = 35 Then
p = 22 / 7
Else
If r = 1 Or r = 2 Or r = 3 Or r = 4 Or r = 5 Or r = 6 Or r = 8 Or r = 9 Or r = 10 Or r = 11 Or r = 12 Or r = 13 Or r = 15 Or r = 16 Or r = 17 Or r = 18 Or r = 19 Or r = 20 Or r = 22 Or r = 23 Or r = 24 Or r = 25 Or r = 26 Or r = 27 Or r = 29 Or r = 30 Or r = 31 Or r = 32 Or r = 33 Or r = 34 Or r = 36 Or r = 37 Or r = 38 Or r = 39 Or r = 40 Then
p = 3.14
End If
End If
Hasil = p * (r ^ 2)
TxtLuas = Hasil
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub Form_Load()
Dim i As Integer
CboJariJari = ""
TxtLuas = ""
For i = 1 To 40
CboJariJari.AddItem i
Next i
End Sub

Mencari Luas Segitiga

Private Sub CboAlas_Change()
LblAlas.Caption = CboAlas
End Sub

Private Sub CboTinggi_change()
LblTinggi.Caption = CboTinggi
End Sub

Private Sub CmdHapus_Click()
CboAlas = ""
CboTinggi = ""
TxtHasil = ""
LblAlas.Caption = "Isi Alas"
LblTinggi.Caption = "Isi Tinggi"
CboAlas.SetFocus
End Sub

Private Sub CmdHitung_Click()
If CboAlas = "" Or CboTinggi = "" Then
MsgBox ("Isi Nilai Alas dan Tinggi")
Else
Alas = CboAlas
Tinggi = CboTinggi
Hasil = (Alas * Tinggi) / 2
TxtHasil = Hasil
End If
End Sub

Private Sub CmdKeluar_Click()
DoCmd.Save
DoCmd.Close
End Sub

Private Sub Form_LOad()
Dim i As Integer
CboAlas = ""
CboTinggi = ""
TxtHasil = ""
For i = 1 To 20
CboAlas.AddItem i
CboTinggi.AddItem i
Next i
End Sub

Blajar Alpabet(?)

kita harus tulis apa? mmm....Kita harus tulis...
Oh aku tau aku tau tulis kayak conversation gitu

A: Aku
B : bilang
C :Cepat
D:datang
E:Ehehe
F:Fasti kamu telat
G:getuh
H:hhhhh
I:Ingat
J:jangan
K:Kabur
L:lari
M:mana
N:nanti
O:Ok?
P:pasti
Q:Qu
R:Robek
S:sepatu
T:tali
U: uuuuuu
V: vas
W: waaaaa
X:xassssss
Y: yeayyyyyy
Z: zzz

beginilah critanya yg mau blajar alpabet. kalo belajar pasti sesat. #canda #gausahdianggapserius #biarinaja #kalobisadishare #wkwkwkwk.