Pemograman visual studio 2008

19.27 | Diposting oleh Dewana Blog | | Edit Entri

Pada posting kali ini saya akan memberikan beberapa script untuk membuat program sederhana dengan menggunakan Visual Studio 2008. Perlu diketahui bahasa pemograman visual studio dengan visual basic itu sama, hanya saja berbeda aplikasi. Untuk lebih jelasnya tentang visual studio bisa kamu browsing dan download aplikasi nya di google.

Jika sudah punya aplikasinya silahkan copy paste aja script nya sob..
Script dibawah ini merupakan script untuk membuat program pengolahan data.
Semoga bermanfaat...




1.Program pengolahan data mahasiswa dengan menggunakan array

Imports System.Console
Module Module1

    Sub Main()
        Dim nim(9), nama(9), jur(9) As String
        Dim IP(9) As Single
        Dim mulai As Boolean = True
        Dim n As Integer = 0
        Dim jwb

        Do While mulai = True
            Write("nomor induk mahasiswa=")
            nim(n) = ReadLine()
            Write("nama mahasiswa=")
            nama(n) = ReadLine()
            Write("jurusan=")
            jur(n) = ReadLine()
            Write("index prestasi=")
            IP(n) = ReadLine()
            WriteLine("________________________________")
            jwb = MsgBox("anda ingin input data lagi?", MsgBoxStyle.YesNo,
            "perhatian")    
            n = n + 1

            If jwb = vbNo Then
                mulai = False
            End If

        Loop
        WriteLine()
        WriteLine()
        WriteLine("               data nilai mahasiswa              ")
        WriteLine("_________________________________________________")
        WriteLine("  nim      nama mahasiswa      jurusan     IP    ")
        WriteLine("_________________________________________________")

        For a As Integer = 0 To (n - 1)
            Write(nim(a) & Space(10) & nama(a) & Space(6) & jur(a) &
            Space(17) & IP(a))
            WriteLine()
        Next
        WriteLine("________________________________________________")
        ReadLine()

    End Sub

End Module



2.Program untuk menampilkan data barang
Imports System.Console
Module Module1

    Sub Main()
        Dim barang(3, 2) As String
        For x As Integer = 0 To 2
            WriteLine("data ke" & x + 1)
            For y As Integer = 0 To 2

                Select Case x
                    Case 0
                        Write("nama barang=")
                    Case 1
                        Write("harga barang=")
                    Case 2
                        Write("jumlah=")
                End Select
                barang(x, y) = ReadLine()
            Next
            WriteLine("_____________________________")

        Next
        ReadLine()
    End Sub

End Module




3.Program pengolahan data gaji pegawai
Imports System.Console
Module Module1

    Sub Main()
        Dim NIP(49), NP(49), GOL(49) As String
        Dim GP(49), TF(49), TA(49), PPH(49), GK(49), GB(49), JA(49), MK(49), TM(49) As Integer

        Dim start As Boolean = True
        Dim n As Integer = 0
        Dim answer

        Do While start = True
            Write("Nomor Induk Pegawai = ")
            NIP(n) = ReadLine()
            Write("Nama Pegawai        = ")
            NP(n) = ReadLine()
            Write("Golongan            = ")
            GOL(n) = ReadLine()
            Write("Tahun Masuk         = ")
            TM(n) = ReadLine()
            Write("Jumlah Anak         = ")
            JA(n) = ReadLine()

            Select Case GOL(n)
                Case "A" : GP(n) = 1000000
                Case "B" : GP(n) = 1500000
                Case "C" : GP(n) = 2000000
                Case "D" : GP(n) = 2500000
            End Select

            MK(n) = 2012 - TM(n)

            Select Case MK(n)
                Case 0 To 5 : TF(n) = 0 * GP(n)
                Case 6 To 15 : TF(n) = 0.1 * GP(n)
                Case 16 To 25 : TF(n) = 0.2 * GP(n)
                Case Is > 25 : TF(n) = 0.3 * GP(n)
            End Select

            Select Case JA(n)
                Case 0 : TA(n) = 0
                Case 1 : TA(n) = 50000
                Case 2 : TA(n) = 75000
                Case 3 : TA(n) = 100000
                Case Is > 3 : TA(n) = 150000
            End Select

            If GP(n) < 1000000 Then
                PPH(n) = 0 * GP(n)
            ElseIf GP(n) > 1000000 Then
                PPH(n) = 0.05 * GP(n)
            End If

            GK(n) = GP(n) + TF(n) + TA(n)
            GB(n) = GK(n) - PPH(n)


            WriteLine("=========================================")
            WriteLine()
            answer = MsgBox("anda ingin Input Data Lagi? ",
            MsgBoxStyle.YesNo, "PERHATIAN")
            n = 1
            If answer = vbNo Then
                start = False
            End If



        Loop

        For payroll As Integer = 0 To (n - 1)
            WriteLine("                 SLIP GAJI PEGAWAI               ")
            WriteLine()
            WriteLine("NIP       = " & NIP(payroll))
            WriteLine("NAMA      = " & NP(payroll))
            WriteLine("Pendapatan")
            WriteLine("           1. Gaji Pokok       = " & GP(payroll))
            WriteLine("           2. Tunj. Fungsional = " & TF(payroll))
            WriteLine("           3. Tunj. Anak       = " & TA(payroll))
            WriteLine("Pengeluaran")
            WriteLine("          1. Pajak(PPH)= " & PPH(payroll))
            WriteLine("===========================================")
            WriteLine(" Total Gaji Bersih = " & GB(payroll))
        Next

        ReadLine()

    End Sub

End Module



4. Program pengolahan data nilai mahasiswa dengan menggunakan subprogram

Option Explicit On
Imports System.Console
Module Module1
    Public nim, nm_mhs, kode_mtk, nm_mtk As String

    Sub Main()
        WriteLine("PENGOLAHAN DATA MHS, DATA MTK, DATA DOSEN & DATA NILAI")
        WriteLine("======================================================")
        Call DATA_MAHASISWA()
        Call DATA_MATAKULIAH()
        Call DATA_DOSEN()
        Call DATA_NILAI()

    End Sub

    Sub DATA_MAHASISWA()
        Dim jur, tpl, dpa As String
        Dim tgl As Byte
        Write("nomor induk mahasiswa      :")
        nim = ReadLine()
        Write("nama mahasiswa             :")
        nm_mhs = ReadLine()
        Write("jurusan                    :")
        jur = ReadLine()
        Write("tempat lahir               :")
        tpl = ReadLine()
        Write("dosen PA                   :")
        dpa = ReadLine()

        WriteLine("-----------------------------------------------------")

        ReadLine()
    End Sub

    Sub DATA_MATAKULIAH()
        Dim sks, sms As Byte
        Write("kode mata kuliah           :")
        kode_mtk = ReadLine()
        Write("nama matakuliah            :")
        nm_mtk = ReadLine()
        Write("sistem kredit semester     :")
        sks = ReadLine()
        Write("semester                   :")
        sms = ReadLine()

        WriteLine("-----------------------------------------------------")

        ReadLine()

    End Sub

    Sub DATA_DOSEN()
        Dim nidn, nm_dos, pdt, tl As String
        Dim tgl As Date
        Write("nomor induk dosen nasional :")
        nidn = ReadLine()
        Write("nama dosen                 :")
        nm_dos = ReadLine()
        Write("pendidikan terakhir        :")
        pdt = ReadLine()
        Write("tempat lahir               :")
        tl = ReadLine()
        Write("tanggal lahir              :")
        tgl = ReadLine()

        WriteLine("-----------------------------------------------------")

        ReadLine()

    End Sub

    Sub DATA_NILAI()
        Dim nh As String
        Dim s_ks, nk, nt, nmid, nuas, na As Single
        WriteLine("nomor induk mahasiswa  :" & nim)
        WriteLine("nama mahasiswa         :" & nm_mhs)
        WriteLine("kode matakuliah        :" & kode_mtk)
        WriteLine("nama matakuliah        :" & nm_mtk)
        Write("sistem kredit semeseter    :")
        s_ks = ReadLine()
        Write("nilai kehadiran            :")
        nk = ReadLine()
        Write("nilai tugas                :")
        nt = ReadLine()
        Write("nilai mid                  :")
        nmid = ReadLine()
        Write("nilai uas                  :")
        nuas = ReadLine()
        na = (0.1 * nk) + (0.2 * nt) + (0.3 * nmid) + (0.4 * nuas)
        If na >= 80 Then
            nh = "A"
        ElseIf na >= 70 Then
            nh = "B"
        ElseIf na >= 60 Then
            nh = "C"
        ElseIf na >= 50 Then
            nh = "D"
        Else
            nh = "E"



        End If
        WriteLine()
        WriteLine("nilai akhir              =" & na)
        WriteLine("nilai huruf              =" & nh)

       
        ReadLine()


    End Sub

End Module



5. Program untuk menghitung luas & keliling lingkaran dengan menggunakan subprogram

Option Explicit On
Imports System.Console
Module Module1
    Public JARI As Single
    Sub Main()
        WriteLine("  MENGHITUNG LUAS & KELILING LINGKARAN")
        WriteLine("----------------------------------------")
        Write("Jari-jari lingkaran :")
        JARI = ReadLine()
        Call LUAS_LINGKARAN()
        Call KELILING_LINGKARAN()
    End Sub

    Sub LUAS_LINGKARAN()
        Dim luas As Single
        Const phi As Single = 3.14
        luas = phi * (JARI ^ 2)
        Write("luas lingkaran      :" & luas)
        ReadLine()
    End Sub

    Sub KELILING_LINGKARAN()
        Dim keliling As Single
        Const phi As Single = 3.14
        keliling = 2 * phi * JARI
        Write("keliling lingkaran  :" & keliling)
        ReadLine()
    End Sub

End Module





6. Program untuk menghitung luas & keliling persegi dengan menggunakan function
Option Explicit On
Imports System.Console
Module Module1
    Public PANJANG, LEBAR As Integer
    Sub Main()
        WriteLine("MENGHITUNG LUAS DAN KELILING " & " SEGIEMPAT")
        WriteLine("============================================")
        Write("PANJANG SEGIEMPAT :")
        PANJANG = ReadLine()
        Write("LEBAR SEGIEMPAT   :")
        LEBAR = ReadLine()
        WriteLine("LUAS SEGIEMPAT     :" & luas_SEGIEMPAT())
        WriteLine("KELILING SEGIEMPAT :" & keliling_SEGIEMPAT())
        ReadLine()
    End Sub
    Function luas_SEGIEMPAT()
        Dim luas As Integer
        luas = PANJANG * LEBAR
        Return luas
    End Function
    Function keliling_SEGIEMPAT()
        Dim keliling As Integer
        keliling = 2 * (PANJANG + LEBAR)
        Return keliling
        ReadLine()
    End Function
End Module


Label:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Translate

Popular Posts

Diberdayakan oleh Blogger.

Categories