Aplikasi Kamus Sederhana

kamus

Berikut ini adalah penjelasan coding dari program Kamus Sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form Name Form1

Text Aplikasi Kamu English – Indonesian sederhana – Universitas Trunojoyo

3

Textbox1 Name txtkata

Text

4

Textbox2 Name txtarti

Text

5

RadioButton1 Name Rbeng2ind

Text English – Indonesian

6

RadioButton2 Name Rbind2eng

Text Indonesian – English

7

Datagrid1 Name datagridkamus

Text

8

Button1 Name btntranslate

Text &Translate

KODE PROGRAM

Public Class Form1

Private db As New DataClasses1DataContext

Private Sub terjemah()

If rbeng2ind.Checked Then

Try

Dim eng = From tblkamus In db.tblkamus Where tblkamus.eng Like txtkata.Text Select tblkamus

txtarti.Text = eng.Single.ind

Catch

MessageBox.Show(“kosakata yang anda cari tidak ada”, “Informasi”)

rbeng2ind.Focus()

End Try

ElseIf rbind2eng.Checked Then

Try

Dim ind = From tblkamus In db.tblkamus Where tblkamus.ind Like txtkata.Text Select tblkamus

txtarti.Text = ind.Single.eng

Catch

MessageBox.Show(“kosakata yang anda cari tidak ada”, “Informasi”)

rbind2eng.Focus()

End Try

End If

End Sub

Private Sub btntranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntranslate.Click

terjemah()

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Dim grideng = From tblkamus In db.tblkamus Select tblkamus

datagridkamus.DataSource = grideng

End Sub

Private Sub txtkata_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtkata.KeyUp

If e.KeyCode = Keys.Enter Then

terjemah()

End If

End Sub

Private Sub KamusDigitalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KamusDigitalToolStripMenuItem.Click

AboutBox1.Show()

End Sub

End Class

Berikut Download Laporan dan Aplikasi Kamus  Sederhana :

NAMA_NRP_KELOMPOK_Aplikasi_kamus_sederhana.doc
amus-english.zip

7 thoughts on “Aplikasi Kamus Sederhana

  1. aku minta program turbo pascalnya yang for windows? tolong di upload secepatnya ya. punyaku ada beberapa file yang hilang jadi kl di instal eror terus…

    • ya soalnya tak inputkan cuman 20 kata aja,,, ntar seterusnya biar pengguna aja yang inputkan,,, coz buat tugas himatifnya anak2

  2. Ini yang saya cari-cari, kalau dengan vb6 sudah banyak tutorialnya. Tapi tolong gimana caranya agar membuat form untuk input entri dan edit entri plus hapus entri dari pengguna.
    Jawaban saya tunggu, saya ingin membuat kamus tata bahasa arab,,,
    Terimakasih dan salam kenal.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s