Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' ini yang terjemah
If TextBox1.Text = "hi" Then
TextBox2.Text = "Hai"
TextBox3.Text = "Menyapa sesama;"
ElseIf TextBox1.Text = "hello" Then
TextBox2.Text = "Halo"
TextBox3.Text = "Kata pertama yang disebutkan jika menelpon orang; menyapa sesama (lihat 'hi')"
ElseIf TextBox1.Text = "halo" Then
TextBox2.Text = "Lingkaran Cahaya"
TextBox3.Text = "Lingkaran cahaya; Pagar bulan; lingkaran kekeramatan; lingkaran cahaya yg mengelilingi matahari"
ElseIf TextBox1.Text = "what" Then
TextBox2.Text = "Apa"
TextBox3.Text = "Kata tanya (contoh: What is that? (Apakah itu?)); menanyakan tentang apa;"
ElseIf TextBox1.Text = "why" Then
TextBox2.Text = "Kenapa; Mengapa;"
TextBox3.Text = "menanyakan sebab; menanyakan alasan; (contoh: why is that could happened? (mengapa itu bisa terjadi))"
ElseIf TextBox1.Text = "who" Then
TextBox2.Text = "Siapa"
TextBox3.Text = "menanyakan orang; menanyakan pelaku;"
ElseIf TextBox1.Text = "how" Then
TextBox2.Text = "Bagaimana; Bagaimanakah"
TextBox3.Text = "menanyakan petunjuk; kata tanya"
ElseIf TextBox1.Text = "when" Then
TextBox2.Text = "Kapan"
TextBox3.Text = "Menanyakan waktu"
ElseIf TextBox1.Text = "where" Then
TextBox2.Text = "Dimana"
TextBox3.Text = "Menanyakan lokasi; menanyakan tempat"
ElseIf TextBox1.Text = "i" Then
TextBox2.Text = "Saya; Aku; Gue; Gua; Awak;"
TextBox3.Text = "'I' menyatakan kata yang artinya 'aku'"
ElseIf TextBox1.Text = "you" Then
TextBox2.Text = "Kamu; Anda; Engkau;"
TextBox3.Text = "Menyatakan kata yang artinya 'kamu'"
ElseIf TextBox1.Text = "we" Then
TextBox2.Text = "Kami; Kita;"
TextBox3.Text = "Menyatakan kata berarti 'kita'"
ElseIf TextBox1.Text = "they" Then
TextBox2.Text = "Mereka"
TextBox3.Text = "Menyatakan kata yang artinya 'mereka'"
ElseIf TextBox1.Text = "He" Then
TextBox2.Text = "Dia (laki - laki)"
TextBox3.Text = "Contoh : He is married (Dia sudah menikah) menunjuk kepada laki laki"
ElseIf TextBox1.Text = "She" Then
TextBox2.Text = "Dia (perempuan)"
TextBox3.Text = "Contoh : She has got a computer (Dia mempunyai sebuah komputer) menunjuk kepada perempuan"
ElseIf TextBox1.Text = "a" Then
TextBox2.Text = "Sebuah;"
TextBox3.Text = "Contoh : A book (sebuah buku)"
ElseIf TextBox1.Text = "the" Then
TextBox2.Text = "Yang;"
TextBox3.Text = "Kata ini kadang kadang tidak berarti apa apa; -nya; itu;"
ElseIf TextBox1.Text = "then" Then
TextBox2.Text = "Kemudian;"
TextBox3.Text = "Terus; Lalu; Maka;"
ElseIf TextBox1.Text = "that" Then
TextBox2.Text = "Itu"
TextBox3.Text = "Bahwa; Sehingga; Agar; Kalau; Maka; Supaya;"
ElseIf TextBox1.Text = "this" Then
TextBox2.Text = "Ini"
TextBox3.Text = "yang ini;"
ElseIf TextBox1.Text = "there" Then
TextBox2.Text = "Di sana"
TextBox3.Text = "Ada; Situ; Di situ; Sana;"
ElseIf TextBox1.Text = "here" Then
TextBox2.Text = "Di sini"
TextBox3.Text = "Ke sini; Sini; Mari; Ke mari; Di mari; Begini;"
ElseIf TextBox1.Text = "jobs" Then
TextBox2.Text = "Pekerjaan"
TextBox3.Text = ""
ElseIf TextBox1.Text = "work" Then
TextBox2.Text = "Bekerja"
TextBox3.Text = "Pekerjaan; Kerja; Upaya; berupaya; Usaha; Mengusahakan; Mengerjakan;"
ElseIf TextBox1.Text = "update" Then
TextBox2.Text = "Memperbarui"
TextBox3.Text = "Menjadikan baru; memperbaharui"
ElseIf TextBox1.Text = "new" Then
TextBox2.Text = "Baru"
TextBox3.Text = "Sesuatu yang baru;"
ElseIf TextBox1.Text = "old" Then
TextBox2.Text = "Tua"
TextBox3.Text = "Kuno; Usang; Lawas; Jompo; Lama; Sepuh; Dahulu"
ElseIf TextBox1.Text = "park" Then
TextBox2.Text = "Taman"
TextBox3.Text = "Kebun raya; Menaruh; Menenpatkan; Memarkirkan;"
ElseIf TextBox1.Text = "parking" Then
TextBox2.Text = "Parkir"
TextBox3.Text = "Parkir kendaraan;"
ElseIf TextBox1.Text = "land" Then
TextBox2.Text = "Lahan"
TextBox3.Text = "Tanah; Mendarat; Darat; Mendaratkan;"
ElseIf TextBox1.Text = "from" Then
TextBox2.Text = "Dari"
TextBox3.Text = "Sejak; Mulai; Oleh;"
ElseIf TextBox1.Text = "to" Then
TextBox2.Text = "Untuk"
TextBox3.Text = "Tujuan; Ke; Kepada; Teruntuk;"
ElseIf TextBox1.Text = "language" Then
TextBox2.Text = "Bahasa"
TextBox3.Text = "Cara menulis;"
ElseIf TextBox1.Text = "listen" Then
TextBox2.Text = "Dengar"
TextBox3.Text = "Mendengarkan; Memperhatikan;"
ElseIf TextBox1.Text = "listening" Then
TextBox2.Text = "Mendengarkan;"
TextBox3.Text = "Sedang mendengarkan; sedang memperhatikan;"
ElseIf TextBox1.Text = "write" Then
TextBox2.Text = "Tulis;"
TextBox3.Text = "Catat;"
ElseIf TextBox1.Text = "writing" Then
TextBox2.Text = "Menulis;"
TextBox3.Text = "Mencatat; Menyatat; Mengarang;"
ElseIf TextBox1.Text = "search" Then
TextBox2.Text = "Cari"
TextBox3.Text = "Pencarian; Mencari; Menelusuri;"
ElseIf TextBox1.Text = "more" Then
TextBox2.Text = "Lebih"
TextBox3.Text = "Ekstra; Lebih banyak; Tambah; Lagi;"
ElseIf TextBox1.Text = "help" Then
TextBox2.Text = "Tolong"
TextBox3.Text = "Bantu; Uluran; Menyumbang; Membantu; Menolong;"
ElseIf TextBox1.Text = "change" Then
TextBox2.Text = "Ubah"
TextBox3.Text = "Perubahan; Tukar; Menukar; Ganti; Mengganti;"
ElseIf TextBox1.Text = "if" Then
TextBox2.Text = "Jika"
TextBox3.Text = "Apabila; Bila; Kalau; Jikalau"
ElseIf TextBox1.Text = "else" Then
TextBox2.Text = "Lain"
TextBox3.Text = "Lainnya; Jika bukan;"
ElseIf TextBox1.Text = "clear" Then
TextBox2.Text = "Jelas"
TextBox3.Text = "Bersih; Jernih; Bening; Cerah; Kosong;"
ElseIf TextBox1.Text = "map" Then
TextBox2.Text = "Peta"
TextBox3.Text = "Arah jalan;"
ElseIf TextBox1.Text = "news" Then
TextBox2.Text = "Berita"
TextBox3.Text = "Kabar; Warta;"
ElseIf TextBox1.Text = "message" Then
TextBox2.Text = "Pesan"
TextBox3.Text = "Amanat; Pesanan;"
ElseIf TextBox1.Text = "massage" Then
TextBox2.Text = "Pijat"
TextBox3.Text = "Mengurut; Memijat; Masase;"
ElseIf TextBox1.Text = "image" Then
TextBox2.Text = "Gambar"
TextBox3.Text = "gambaran;"
ElseIf TextBox1.Text = "noun" Then
TextBox2.Text = "Kata benda"
TextBox3.Text = ""
ElseIf TextBox1.Text = "verb" Then
TextBox2.Text = "Kata kerja"
TextBox3.Text = ""
ElseIf TextBox1.Text = "adjective" Then
TextBox2.Text = "Kata sifat"
TextBox3.Text = ""
ElseIf TextBox1.Text = "pronouns" Then
TextBox2.Text = "Kata ganti"
TextBox3.Text = ""
ElseIf TextBox1.Text = "plural" Then
TextBox2.Text = "Jamak"
TextBox3.Text = "Lebih dari satu;"
ElseIf TextBox1.Text = "singular" Then
TextBox2.Text = "Tunggal"
TextBox3.Text = "Tidak lebih dari satu; Hanya satu; Ganjil;"
ElseIf TextBox1.Text = "not" Then
TextBox2.Text = "Tidak"
TextBox3.Text = "Bukan; Tak; Tiada;"
ElseIf TextBox1.Text = "no" Then
TextBox2.Text = "Tidak"
TextBox3.Text = "Bukan; Tak; Tiada;"
ElseIf TextBox1.Text = "yes" Then
TextBox2.Text = "Ya"
TextBox3.Text = "Menyetujui; Sahutan 'ya';"
ElseIf TextBox1.Text = "lazy" Then
TextBox2.Text = "Malas"
TextBox3.Text = "Culas; Males;"
ElseIf TextBox1.Text = "has" Then
TextBox2.Text = "Telah"
TextBox3.Text = "Kata ini untuk He, She, It (contoh: He has finished his jobs)"
ElseIf TextBox1.Text = "have" Then
TextBox2.Text = "Telah"
TextBox3.Text = "Memiliki; Mempunyai; Kata ini hanya untuk I, We, You, They (contoh: We have got a TV)"
ElseIf TextBox1.Text = "want" Then
TextBox2.Text = "Ingin"
TextBox3.Text = "Mau; Meminta; Menginginkan; Hendak;"
ElseIf TextBox1.Text = "poor" Then
TextBox2.Text = "Miskin"
TextBox3.Text = "Malang; Jelek; Lemah; Fakir; Remang; Buruk;"
ElseIf TextBox1.Text = "rich" Then
TextBox2.Text = "Kaya"
TextBox3.Text = "Berharga; Penuh; Subur;"
End If
End Sub