Desainnya terdiri dari:
- 3 Label
- 3 TextBox
- 2 Button
Source codenya..
Untuk Button1 Click
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
Untuk Button2 Click atautombol reset pakau code berikut
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ini reset
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
Edit Form1.Designer1.Designer.vb
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.CharacterCasing = System.Windows.Forms.CharacterCasing.Lower
Me.TextBox1.Location = New System.Drawing.Point(12, 25)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(326, 20)
Me.TextBox1.TabIndex = 0
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(15, 97)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(323, 20)
Me.TextBox2.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(29, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Kata"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 81)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(33, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Hasil:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 133)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(44, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Definisi:"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(263, 263)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 6
Me.Button1.Text = "Hapus"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(74, 51)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(209, 23)
Me.Button2.TabIndex = 7
Me.Button2.Text = "Terjemahkan ke Bahasa Indonesia"
Me.Button2.UseVisualStyleBackColor = True
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.SystemColors.Control
Me.TextBox3.Location = New System.Drawing.Point(12, 149)
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.ReadOnly = True
Me.TextBox3.Size = New System.Drawing.Size(326, 108)
Me.TextBox3.TabIndex = 8
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLight
Me.ClientSize = New System.Drawing.Size(350, 298)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Kamus Inggris - Indonesia"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
End Class
0 komentar:
Posting Komentar