libreoffice120LibreOffice Basic adalah aplikasi untuk membuat program komputer dengan bahasa BASIC (Beginner's All-purpose Symbolic Instruction Code). Sesuai dengan namanya, BASIC adalah keluarga bahasa pemrograman tingkat tinggi serba guna yang filosofi desainnya menekankan kemudahan penggunaan bagi pemula dalam pembuatan program komputer (Wikipedia).

Bahasa BASIC dirancang, dibuat, dikembangkan pertama kali oleh John G. Kemeny dan Thomas E. Kurtz pada tahun 1964 di Dartmouth College. Kedua orang ini menginginkan siswa di bidang selain sains dan matematika untuk menggunakan komputer. Pada saat itu, hampir semua penggunaan komputer membutuhkan penulisan perangkat lunak khusus, yang hanya dipelajari oleh para ilmuwan dan ahli matematika (Wikipedia).

Pengembangan selanjutnya bahasa BASIC dimulai dengan munculnya Microsoft BASIC, yaitu produk perangkat lunak dasar dari perusahaan Microsoft. Ini pertama kali muncul pada tahun 1975 sebagai Altair BASIC, yang merupakan versi pertama bahasa BASIC yang diterbitkan oleh Microsoft dan merupakan bahasa pemrograman tingkat tinggi pertama yang tersedia untuk komputer mikro Altair 8800 (Wikipedia).

Program komputasi dalam contoh berikut dibuat dengan LibreOffice Basic, yaitu bahasa BASIC yang dijalankan dalam lingkungan LibreOffice (Witer, Calc, Impress). LibreOffice Basic ini mirip dengan Visual Basic for Applications (VBA), yaitu bahasa Visual Basic yang dijalankan dalam lingkungan Microsof Office (Word, Excel, PowerPoint).

  1. Prokom Rerata dan Simbaku

    Pembahasan pertama penggunaan LibreOffice Basic adalah pembuatan program komputasi untuk menghitung nilai rerata (rata-rata, rataan, mean, average, arithmatic mean) dan simbaku (simpangan baku, deviasi standar, standard deviation, root for sumsquares of error mean, akar rerata jumlah kuadrat galat). Pembahasan ini meliputi langkah-langkah sebagai berikut:

    1. Menyelesaikan contoh soal statistik mengenai rerata dan simbaku data sampel.
      • Contoh Soal:
        Dari sekelompok mahasiswa tertentu diambil sebuah sampel acak berukuran 10 orang. Hasil pengukuran tinggi badan 10 mahasiswa tersebut adalah 165, 162, 180, 170, 161, 173, 162, 156, 150, dan 159 cm. Carilah rerata dan simbaku tinggi badan mahasiswa, nyatakan hasilnya sampai 1 angka di belakang koma.
      • Jawaban:

        Jadi rerata tinggi badan mahasiswa adalah 163,8 cm dengan simbaku 8,7 cm.
    2. Membuat flowchart penentuan rerata dan simbaku data sampel.
    3. Menulis program komputasi rerata dan simbaku data sampel sesuai dengan flowchart yang telah dibuat. Penulisan program ini bisa dilakukan dalam salah satu aplikasi LibreOffice (Writer, Calc, Draw, Impress), dengan langkah-langkah:
      1. Aktifkan aplikasi LibreOffice Writer sehingga muncul dokumen baru Untitled 1.
      2. Klik icon Save sehingga muncul halaman Save.
      3. Isi Name: rerata-simbaku-basic, klik Save.
      4. Klik Tools, tunjuk Macros, tunjuk Organize Macros, klik LibreOffice Basic... sehingga muncul halaman LibreOffice Basic Macros.
      5. Pada halaman LibreOffice Basic Macros, klik rerata-simbaku-basic, klik New.
      6. Pada halaman New Module, isi Name: Module1, klik OK.
      7. Ketikkan kode program di bawah ini dalam Module1.
    4. Menjalankan program komputasi rerata dan simbaku data sampel seperti terlihat pada video di bawah ini.
    5. Membuat interface untuk menjalankan program komputasi rerata dan simbaku seperti terlihat pada video di bawah ini.
  2. Prokom Maksimum dan Minimum

    Pembahasan kedua penggunaan LibreOffice Basic adalah pembuatan program komputasi untuk menghitung nilai maksimum dan minimum. Pembahasan ini meliputi langkah-langkah sebagai berikut:

    1. Menyelesaikan contoh soal statistik mengenai maksimum dan minimum data sampel.
      • Contoh Soal:
        Dari sekelompok mahasiswa tertentu diambil sebuah sampel acak berukuran 10 orang. Hasil pengukuran tinggi badan 10 mahasiswa tersebut adalah 165, 162, 180, 170, 161, 173, 162, 156, 150, dan 159 cm. Carilah maksimum dan minimum tinggi badan mahasiswa.
      • Jawaban:
        180, 173, 170, 165, 162, 162, 161, 159, 156, 150
        Jadi maksimum tinggi badan mahasiswa adalah 180 cm dan minimum tinggi badan adalah 150 cm.
    2. Membuat flowchart penentuan maksimum dan minimum data sampel.
    3. Menulis program komputasi maksimum dan minimum data sampel sesuai dengan flowchart yang telah dibuat. Penulisan program ini bisa dilakukan dalam salah satu aplikasi LibreOffice (Writer, Calc, Draw, Impress), dengan langkah-langkah:
      1. Aktifkan aplikasi LibreOffice Writer sehingga muncul dokumen baru Untitled 1.
      2. Klik icon Save sehingga muncul halaman Save.
      3. Isi Name: maksimum-minimum-basic, klik Save.
      4. Klik Tools, tunjuk Macros, tunjuk Organize Macros, klik LibreOffice Basic... sehingga muncul halaman LibreOffice Basic Macros.
      5. Pada halaman LibreOffice Basic Macros, klik maksimum-minimum-basic, klik New.
      6. Pada halaman New Module, isi Name: Module1, klik OK.
      7. Ketikkan kode program di bawah ini dalam Module1, atau copy paste kode program ini ke dalam editor teks (gedit, notepad), selanjutnya dari editor teks, copy paste kode program ke dalam Module1.
        Sub maks_dan_min
        On Error GoTo Line1
        Dim n As Integer
        n=InputBox("Inputkan banyaknya data! Default: 10", ,10)
        Dim A(n) As Double
        Dim i As Integer
        If n=False Then
        GoTo Line2
        Else
        GoTo Line3
        End If
        Line2:
        Exit Sub
        Line3:
        For i=1 To n
        A(i)=InputBox("Masukkan datanya!",i)
        If A(i)=False Then
        Exit Sub
        End If
        Next i
        Maks=A(1)
        Min=A(1)
        For i=2 To n
        If A(i)>Maks Then
        Maks=A(i)
        Elseif A(i)Min Then
        Min=A(i)
        End If
        Next i
        MsgBox "Maksimum: "&Maks
        MsgBox "Minimum: "&Min
        Exit Sub
        Line1:
        End Sub
    4. Menjalankan program komputasi maksimum dan minimum data sampel seperti terlihat pada video di bawah ini.
    5. Membuat interface untuk menjalankan program komputasi maksimum dan minimum seperti terlihat pada video di bawah ini.
  3. Prokom Median

    Pembahasan ketiga penggunaan LibreOffice Basic adalah pembuatan program komputasi untuk menghitung median. Pembahasan ini meliputi langkah-langkah sebagai berikut:

    1. Menyelesaikan contoh soal statistik mengenai median data sampel.
      • Contoh Soal:
        Dari sekelompok mahasiswa tertentu diambil sebuah sampel acak berukuran 10 orang. Hasil pengukuran tinggi badan 10 mahasiswa tersebut adalah 165, 162, 180, 170, 161, 173, 162, 156, 150, dan 159 cm. Carilah median tinggi badan mahasiswa.
      • Jawaban:
        180, 173, 170, 165, 162, 162, 161, 159, 156, 150
        Median adalah nilai yang terletak di tengah-tengah apabila data diurutkan dari nilai terbesar sampai nilai terkecil atau sebaliknya. Karena ukuran datanya 10, median adalah rerata nilai pengamatan ke-5 (nilainya 162) dan ke-6 (nilainya 162). Jadi median tinggi badan mahasiswa adalah 162 cm.
    2. Membuat flowchart penentuan median data sampel.
    3. Menulis program komputasi median data sampel sesuai dengan flowchart yang telah dibuat. Penulisan program ini bisa dilakukan dalam salah satu aplikasi LibreOffice (Writer, Calc, Draw, Impress), dengan langkah-langkah:
      1. Aktifkan aplikasi LibreOffice Writer sehingga muncul dokumen baru Untitled 1.
      2. Klik icon Save sehingga muncul halaman Save.
      3. Isi Name: median-basic, klik Save.
      4. Klik Tools, tunjuk Macros, tunjuk Organize Macros, klik LibreOffice Basic... sehingga muncul halaman LibreOffice Basic Macros.
      5. Pada halaman LibreOffice Basic Macros, klik median-basic, klik New.
      6. Pada halaman New Module, isi Name: Module1, klik OK.
      7. Ketikkan kode program di bawah ini dalam Module1, atau copy paste kode program ini ke dalam editor teks (gedit, notepad), selanjutnya dari editor teks, copy paste kode program ke dalam Module1.
        Sub median
        On Error GoTo Line1
        Dim n As Integer
        n=InputBox("Inputkan banyak data! Default: 10", ,10)
        Dim A(n) As Double
        Dim i As Integer
        For i=1 To n
        A(i)=InputBox("Inputkan datanya!",)
        next i
        For i=1 To n-1
        For j=1 To n-1
        If A(j)>A(j+1) Then
        x=A(j)
        A(j)=A(j+1)
        A(j+1)=x
        End If
        Next j
        Next i
        Print "Susunan data: ";
        For i=1 To n : Print A(i);" "; : Next
        Print
        If n mod 2 = 1 Then
        med=Val(A((n+1)/2))
        Else
        med=(A(n/2)+A(n/2+1))/2
        End If
        MsgBox "Median: "&med
        Exit Sub
        Line1:
        End Sub
    4. Menjalankan program komputasi median data sampel seperti terlihat pada video di bawah ini.
    5. Membuat interface untuk menjalankan program komputasi median seperti terlihat pada video di bawah ini.
  4. Prokom Modus

    Pembahasan keempat penggunaan LibreOffice Basic adalah pembuatan program komputasi untuk menghitung modus. Pembahasan ini meliputi langkah-langkah sebagai berikut:

    1. Menyelesaikan contoh soal statistik mengenai modus data sampel.
      • Contoh Soal:
        Dari sekelompok mahasiswa tertentu diambil sebuah sampel acak berukuran 10 orang. Hasil pengukuran tinggi badan 10 mahasiswa tersebut adalah 165, 162, 180, 170, 161, 173, 162, 156, 150, dan 159 cm. Carilah modus tinggi badan mahasiswa.
      • Jawaban:
        180, 173, 170, 165, 162, 162, 161, 159, 156, 150
        Modus adalah nilai pengamatan yang paling sering muncul. Jadi modus tinggi badan mahasiswa adalah 162 cm.
    2. Membuat flowchart penentuan modus data sampel.
    3. Menulis program komputasi modus data sampel sesuai dengan flowchart yang telah dibuat. Penulisan program ini bisa dilakukan dalam salah satu aplikasi LibreOffice (Writer, Calc, Draw, Impress), dengan langkah-langkah:
      1. Aktifkan aplikasi LibreOffice Writer sehingga muncul dokumen baru Untitled 1.
      2. Klik icon Save sehingga muncul halaman Save.
      3. Isi Name: modus-basic, klik Save.
      4. Klik Tools, tunjuk Macros, tunjuk Organize Macros, klik LibreOffice Basic... sehingga muncul halaman LibreOffice Basic Macros.
      5. Pada halaman LibreOffice Basic Macros, klik modus-basic, klik New.
      6. Pada halaman New Module, isi Name: Module1, klik OK.
      7. Ketikkan kode program di bawah ini dalam Module1, atau copy paste kode program ini ke dalam editor teks (gedit, notepad), selanjutnya dari editor teks, copy paste kode program ke dalam Module1.
        Sub modus
        On Error GoTo Line7
        Dim A(30) As Integer
        Dim NM(30) As Integer
        Dim n As Integer
        n=InputBox("Input banyak data, default 10, minimal 2.",,10)
        If n<2 Then
        GoTo Line1
        Else
        GoTo Line2
        End If
        Line1:
        Msgbox "Banyak data minimal 2."
        Exit Sub
        Line2:
        For i=1 To n
        A(i)=InputBox("Masukkan data ke-i!",i)
        If A(i)=False Then
        GoTo Line3
        Else
        GoTo Line4
        End If
        Line3:
        Exit Sub
        Line4:
        Next i
        For i=1 To n-1
        For j=1 To n-1
        If A(j)>A(j+1) Then
        x=A(j)
        A(j)=A(j+1)
        A(j+1)=x
        End If
        Next j
        Next i
        ib=2
        DO
        fbil=1
        Do while u=n and A(ib)=A(ib-1)
        ib=ib+1 : fbil=fbil+1
        Loop
        If fbil>1 then
        If fbil>fmod then
        fmod=fbil : inmod=1
        NM(1)=A(ib-1)
        Else
        If fbil=fmod then
        inmod=inmod+1
        NM(inmod)=A(ib-1)
        End If
        End If
        End If
        ib=ib+1
        Loop while ib=n
        If inmod>0 then
        GoTo Line5
        Else
        GoTo Line6
        End If
        Line5:
        Print "Modus: ";
        For i=1 To inmod : Print NM(i);" "; : Next
        Print
        Exit Sub
        Line6:
        MsgBox "Tidak ada modus."
        Line7:
        Exit Sub
        End Sub
    4. Menjalankan program komputasi modus data sampel seperti terlihat pada video di bawah ini.
    5. Membuat interface untuk menjalankan program komputasi modus seperti terlihat pada video di bawah ini.