Membuat Program Simulasi Proses Analisis Leksikal Dengan

Membuat Program Simulasi Proses Analisis Leksikal Dengan. Setelah anda membaca mengenai Sekilas program dan cara kerjanya, anda bisa membuat program tersebut tanpa bantuan saya, jika anda mengerti alurnya. Tapi jika anda masih bingung, silahkan baca postingan kali ini.

Pertama, buatlah program dengan layout seperti di bawah ini :

Design disesuaikan dengan kebutuhan dan kegemaran anda, tetapi yang terpenting adalah ada fasilitas untuk menginputkan statement yang akan kita analisis, dan token-token yang digunakan sebagai hasil analisis. jangan lupa tambahkan komponen adodc dan buat databasenya yang berisi tabel-tabel token. Anda juga jangan sampai lupa mengatur koneksi database nya dengan program, seperti yang telah anda pahami sebelumnya. atau anda bisa belajar di DUNIAPROYEKAPLIKASI

Kemudian pada command dengan caption "bersihkan" tambahkan Code berikut :

Private Sub Command2_Click()

Text1.Text = ""

Text1.SetFocus

List1.Clear

List2.Clear

List3.Clear

List4.Clear

List5.Clear

List6.Clear

End Sub

 Dan inti dari program ini adalah Command dengan Caption "Compile", karena pada command ini proses analisis leksikal dimulai.tambahkan code berikut :

If Text1.Text = "" Then

   MsgBox "Isi dulu Kolom di atas"

   Exit Sub

Else

List1.Clear

List2.Clear

List3.Clear

List4.Clear

List5.Clear

List6.Clear

x = 0

For j = 1 To Len(Trim(Text1.Text))

  kt1 = Mid(Trim(Text1.Text), j, 1)

  kta = kta + kt1

  If kt1 = Chr(32) Then

    x = x + 1

    Call BukaDB

    db.RecordSource = "keyword"

    keycari = kta

    rstoken.Open "select* from keyword where nm='" & kta & "'", Conn

    If Not (rstoken.EOF) Then

        List1.AddItem rstoken!nm

        kta = ""

    Else

        Call BukaDB

        db.RecordSource = "operator"

        keycari = kta

        rstoken.Open "select* from operator where nm='" & kta & "'", Conn

        If Not (rstoken.EOF) Then

            List2.AddItem rstoken!nm

            kta = ""

        Else

            Call BukaDB

            db.RecordSource = "delimeter"

            keycari = kta

            rstoken.Open "select* from delimeter where nm='" & kta & "'", Conn

            If Not (rstoken.EOF) Then

                List3.AddItem rstoken!nm

                kta = ""

            Else

                Call BukaDB

                db.RecordSource = "assignment"

                keycari = kta

                rstoken.Open "select* from assignment where nm='" & kta & "'", Conn

                If Not (rstoken.EOF) Then

                    List4.AddItem rstoken!nm

                    kta = ""

                Else

                    If IsNumeric(kta) Then

                    List5.AddItem Trim(kta)

                    kta = ""

                    Else

                      List6.AddItem Trim(kta)

                      kta = ""

                    End If

                End If

            End If

        End If

    End If

  End If

Next j

If x = 0 Then List1.AddItem Trim(kta)

If x > 0 Then List1.AddItem Trim(kta)

End If

Listing tersebut merupakan logika pribadi, anda bisa membuat logika baru atau mengembangkannya. karena program ini masih perlu pengembangan. Semoga bermanfaat bagi anda. wassalam

Posted by :

Posted in: Free Ebook,Komputer,Pemrograman,Tips dan Trik,Tutorial,Visual Basic