Bahasa Pemrograman Visual Basic 6.0

“Perangkat lunak adalah program-program yang digunakan atau diperlukan untuk menjalankan perangkat kerasnya, diantaranya adalah bahasa pemrograman, sistem operasi dan program aplikasi (Adi Kurniadi, 1999:2)”. Perangkat lunak dapat juga dikatakan sebagai rangkaian elektronis untuk menghasilkan data menjadi informasi. Adapun perangkat lunak yang digunakan pada laporan tugas akhir ini adalah Visual Basic 6.0 pada sistem operasi Windows 98. “Program adalah kata, ekspresi, atau kombinasi yang disusun dan dirangkai menjadi satu kesatuan prosedur yang berupa urutan langkah untuk menyelesaikan masalah yang diimplementasikan dengan menggunakan bahasa pemrograman sehingga dapat dieksekusi oleh komputer (Adi Kurniadi, 1999:3)”. “Bahasa pemrograman adalah prosedur atau tata cara penulisan program. Dalam bahasa pemrograman terdapat dua faktor penting yaitu sintaks dan semantik. Sintaks adalah aturan-aturan gramatikal yang mengatur tata cara penulisan kata, ekspresi dan pernyataan. Sedang semantic adalah aturan untuk menyatakan suatu arti (Adi Kurniadi, 1999:3)”. “Bahasa pemrograman Visual Basic adalah suatu event-driven sistem pemrograman visual dari perusahaan Microsoft untuk Microsoft Windows yang popular. Bila didefinisikan kata perkata Visual Basic antara lain kata Visual dalam nama bahasa pemrograman ini mewakili pada metode untuk membuat Graphical User Interface. Dengan hanya mengatur letak dari elemen-elemen sebuah interface tanpa menuliskan baris kode yang banyak (Adi Kurniadi, 1999:5)”. “Sedangkan kata BASIC sendiri merupakan kependekkan dari Begginers All-Purpose Symbolic Instruction Code. Visual Basic merupakan pengembangan dari bahasa BASIC yang aslinya. Di dalam bahasa Visual BASIC telah dilengkapi dengan beberapa ratus pernyataan, fungsi, dan kata kunci, banyak diantaranya berkaitan langsung dengan GUI dari Windows (Adi Kurniadi, 1999:5)”. Bahasa pemrograman Visual Basic tidak hanya khusus untuk membuat program aplikasi saja. Sistem dari bahasa pemrograman Visual BASIC pada edisi aplikasi dimasukkan dalam Microsoft Excel, Microsoft Acces dan masih banyak apilikasi lainnya. 1 Visual Basic dilengkapi dengan perlengkapan-perlengkapan penunjang seperti (Adi Kurniadi, 1999:7): a. Fitur data access memungkinkan untuk membuat database, aplikasi front-end, dan komponen scalable server-side untuk format database yang paling popular, termasuk Microsoft SQL Server dan perusahaan level database lainnya b. Teknologi ActiveX™ memungkinkan untuk memakai fungsi-fungsi yang disediakan dari aplikasi lain, seperti pengolah kata Microsoft Word, Microsoft Excel spreadsheet, dan aplikasi Windows lainnya. Kita dapat menambahkan aplikasi otomatisdan objek yang dibuat menggunakan edisi Profesional atau edisi Enterprise dari Visual BASIC. c. Kemampuan Internet memberikan kemudahan untuk menyediakan akses ke dokumen dan aplikasi melalui internet atau intranet dari dalam maupun luar aplikasi yang telah selesai, atau untuk membuat aplikasi server internet. d. Aplikasi yang telah selesai merupakan file dengan ekstension.exe yang menggunakan Visual Basic Virtual Machine yang dapat kita distribusikan secara gratis. 2 Lingkungan Visual basic 6.0 Lingkungan Visual basic 6.0 terdiri dari (Adi Kurniadi, 1999:23) : 1 Statement Statement adalah suatu perintah atau instruksi untuk menjalankan operasi pada komputer. Statement data mengoperasikan jenis tindakan atau deklarasi sebagai berikut. 1) Dim Digunakan untuk mendeklarasikan variabel atau untuk mengalokasikan ruang array. Sintaks : Dim nama variabel As type Statement dim juga dapat ditempatkan didalam prosedure atau di dalam model untuk seluruh prosedure 2) If…then…else Fungsinya untuk mengeksekusi blok statement berdasarkan nilai ekspresi Sintaks : If kondisi then [ Statement 1 ] Else if kondisi – n then [ Statement 2 ] Endif Blok statement if…then…else harus diakhiri oleh statement endif. 3) Select Case Berfungsi untuk mengeksekusi satu atau blok statement berdasarkan uji nilai ekspresi. Sintaks : Select Case Uji Ekspresi [case daftar ekspresi – n] [statement – n] case else [statement lain] end select Penulisan statement select bisa lebih dari satu bila uji ekspresinya labih dari satu. 4) Private Digunakan pada tingkat modul untuk mendeklarasikan variabel private dan mengalokasikan ruang array. Sintaks : Private nama variabel Private nama variabel As type Variabel private hanya tersedia didalam modul yang dideklarasikan Stetment private harus ditempatkan pada awal modul. 5) Print Digunakan untuk menulis file data berurutan. Sintaks ; Daftar output : Ekspresi atau daftar ekspresi yang dicetak. Spc (n) : (fungsi) menyisipkan ruang karakter dimana n adalah jumlah karakter. Tab : (fungsi) menyisipkan kolom dimana n adalah jumlah kolom yang ada. Ekspresi : Ekspresi numeric atau string yang digunakan untuk mencetak keluaran.

Tips Belajar Bahasa Pemrograman Web

Pemrograman web merupakan salah satu bahasa yang digemari oleh beberapa pemula yang baru belajar bahasa pemrograman web. Digemari pemula dikarenakan pengaksesannya bisa dilakukan oleh orang banyak, menggunakan internet, sehingga membuat para pemula yang ingin mengekspresikan dirinya agar dikenal oleh orang banyak.

          Dan lagi sebagai tempat berbagi. Namun banyak para pemula saat belajar bahasa pemrograman web, merasa sangat sulit dalam mengimplementasikan perintah perintah, baik  yang sudah berbau php, padahal seperti kita ketahui perintah php berguna untuk membuat suatu website yang dinamis.

Operator Dalam Bahasa Pemrograman

Dalam bahasa pemrograman tidak terlepas dari penggunaan operator. Terdapat beberapa jenis operator di dalam bahasa pemrograman. Berikut akan di bahas beberapa dari operator tersebut.

1. Operator Aritmatika
Digunakan untuk melakukan pemrosesan yang berhubungan dengan aritmatika yaitu +,-,/,Mod,*

Seperti contoh  A = A + 1, maka tanda + dinamakan operator yang tergolong aritmatika.

2. Operator Penugasan/Asigment
Digunakan untuk penyimpanan suatu nilai. Operator Penugasan ini yaitu tanda = (sama dengan).

Seperti contoh diatas A = A + 1, maka tanda = tergolong operator penugasan.

penilaian mahasiswa

 

 

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110403")

        npm.Items.Add("12110820")

        npm.Items.Add("12110057")

        npm.Items.Add("12110351")

        npm.Items.Add("12110288")

        kd_dos.Items.Add("1001")

        kd_dos.Items.Add("1002")

        kd_dos.Items.Add("1003")

        kd_dos.Items.Add("1004")

        kd_dos.Items.Add("1005")

        kd_matkul.Items.Add("701")

        kd_matkul.Items.Add("702")

        kd_matkul.Items.Add("703")

        kd_matkul.Items.Add("704")

        kd_matkul.Items.Add("705")

        Dim r As Integer

        For r = 1 To 100

            kehadiran.Items.Add(r)

            tugas.Items.Add(r)

            uts.Items.Add(r)

            uas.Items.Add(r)

        Next r

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select npm.Text

            Case "12110403"

                nama.Text = "Rina"

                jenjang.Text = "S1"

                jurusan.Text = "T1"

            Case "12110820"

                nama.Text = "Vera"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12110057"

                nama.Text = "Lia"

                jenjang.Text = "S1"

                jurusan.Text = "SI"

            Case "12110351"

                nama.Text = "Wani"

                jenjang.Text = "D3"

                jurusan.Text = "MI"

            Case "12110288"

                nama.Text = "Yayuk"

                jenjang.Text = "S1"

                jurusan.Text = "TI"

        End Select

    End Sub

    Private Sub kd_dos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dos.SelectedIndexChanged

        Select (kd_dos.Text)

            Case "1001"

                namadosen.Text = "Rivarly K Hondro"

            Case "1002"

                namadosen.Text = "Pristiwanto, S.Kom"

            Case "1003"

                namadosen.Text = "Surya Darma Nasution, S.Kom"

            Case "1004"

                namadosen.Text = "Mesran, S.Kom, M.Kom"

            Case "1005"

                namadosen.Text = "Kennedi Tampubolon, S.Si"

        End Select

    End Sub

    Private Sub kd_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_matkul.SelectedIndexChanged

        Select Case (kd_matkul.Text)

            Case "701"

                matkul.Text = "Struktur Data"

            Case "702"

                matkul.Text = "Sistem Operasi"

            Case "703"

                matkul.Text = "Sistem Basis Data"

            Case "704"

                matkul.Text = "Pemrograman Visual"

            Case "705"

                matkul.Text = "Komunikasi Data"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * kehadiran.Text + 0.15 * tugas.Text + 0.4 * uts.Text + 0.6 * uas.Text

        If na.Text >= 80 Then

            huruf.Text = "A"

            ket.Text = "Lulus"

        ElseIf na.Text >= 70 Then

            huruf.Text = "B"

            ket.Text = "Lulus"

        ElseIf na.Text >= 60 Then

            huruf.Text = "C+"

            ket.Text = "Lulus"

        ElseIf na.Text >= 50 Then

            huruf.Text = "C"

            ket.Text = "Perbaikan"

        ElseIf na.Text >= 40 Then

            huruf.Text = "D"

            ket.Text = "Mengulang"

        Else

            huruf.Text = "E"

            ket.Text = "Tidak Lengkap"

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kd_dos.Text = ""

        namadosen.Text = ""

        kd_matkul.Text = ""

        matkul.Text = ""

        kehadiran.Text = ""

        tugas.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        huruf.Text = ""

        ket.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class