Membuat program console application untuk menghitung faktorial dengan pengulangan. Diketahui faktorial sebagai berikut.

3! = 3 x 2 x 1 = 6
4! = 4 x 3 x 2 x 1 = 24

Rumusnya adalah :

Sub main()
        Dim total As String
        Dim tambah, n, i As Integer
        total = ""
        tambah = 1
        Console.Write("Faktorial    : ")
        n = (Console.ReadLine)
        For i = n To 1 Step -1
            tambah = tambah * i
            If i = 1 Then
                total += CStr(i) & " = "
            Else
                total += CStr(i) & " x "
            End If
        Next i
        total += CStr(tambah)
        Console.WriteLine(total & "")

        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Membuat program consoloe application di Microsoft Visual Studio untuk menentukan rata-rata dari sejumlah nilai yang diinput oleh user.

rumusnya adalah:

    Sub Main()
        Dim bilangan1, bilangan2, bilangan3, rata As Decimal
        Console.Write("Bilangan 1 : ")
        bilangan1 = Console.ReadLine()
        Console.Write("Bilangan 2 : ")
        bilangan2 = Console.ReadLine()
        Console.Write("Bilangan 3 : ")
        bilangan3 = Console.ReadLine()
        rata = (bilangan1 + bilangan2 + bilangan3) / 3
        Console.WriteLine()
        Console.WriteLine("Rata-Rata : " & rata)
        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Membuat program console application di Microsoft Visual Studio untuk menampilkan nama jurusan sesuai dengan kode jurusan diinput oleh user !

• 111     =     Teknik Informatika
• 211     =     Sistem Informasi
• 031     =     Komputerisasi Akutansi
• 021     =     Managemen Informatika

Rumusnya di bawah ini :

    Sub Main()

        Dim kode As Integer

        Console.Write("Masukkan Kode Jurusan =")

        kode = Console.ReadLine

        If kode = "111" Then : Console.WriteLine("Teknik Informatika")

        ElseIf kode = "211" Then : Console.WriteLine("Sistem Informasi")

        ElseIf kode = "031" Then : Console.WriteLine("Komputerisasi Akuntansi")

        ElseIf kode = "021" Then : Console.WriteLine("Manajemen Informatika")

        Else : Console.WriteLine("Kode Salah")

        End If

        Console.ReadKey()

    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Membuat console application untuk menerima input NIM(Nomor Induk Mahasiswa) dari user, Kemudian tampilkan stambuk, jurusan, dan waktu kuliah dari NIM tersebut dengan ketentuan:

• Stambuk ditentukan dari 2 digit terdeoan dari input NIM
• Jurusan Ditentukan mulai dari digit ke-3 s.d ke-5, dengan ketentuan

• 111       Teknik Informatika
• 211       Sistem Informasi Bisnis
• 212       Sistem Informasi Akuntansi
• 021       Managemen Informatika
• 031       Komputerisasi Akuntasi

• Waktu kuliah ditentukan dari digit paling belakang dengan ketentuan:

• P        Pagi
• S        Sore

Contoh tampilan pada jendela CMD :

Rumusnya silahkan lihat di bawah ini:

Sub Main()

        Dim NIM, stambuk, waktu As String

        Dim jurusan As Integer

        Console.WriteLine("Masukkan NIM :")

        NIM = Console.ReadLine

        stambuk = Left(NIM, 2)

        Console.WriteLine("Stambuk  :20" & stambuk)

        jurusan = Mid(NIM, 3, 3)

        If jurusan = "111" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Teknik Informatika")

        ElseIf jurusan = "211" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Sistem Informasi Bisnis")

        ElseIf jurusan = "212" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Sistem Informasi Akutansi")

        ElseIf jurusan = "021" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Manajemen Informatika")

        ElseIf jurusan = "031" Then

            Console.Write("Jurusan :")

            Console.WriteLine("Komputerisasi Akutansi")

        End If

        waktu = Right(NIM, 1)

        If waktu = "P" Then

            Console.Write("Waktu Kuliah :")

            Console.WriteLine("Pagi")

        ElseIf waktu = "S" Then

            Console.Write("Waktu Kuliah :")

            Console.WriteLine("Siang")

        End If

        Console.ReadLine()

    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Buatlah program console application di Microsoft Visual Studio menggunakan if dalam if dengan inputan jurusan dan waktu kuliah yang menampilkan output yang berupa biaya kuliah dengan ketentuan sebagai berikut.

Rumusnya dibawah ini :

Sub Main()
        Dim jurusan, waktu As String
        Dim pagi, sore As Integer
        Console.Write("Masukkan Jurusan         :")
        jurusan = Console.ReadLine
        Console.Write("Masukkan Waktu Kuliah    :")
        waktu = Console.ReadLine

        If jurusan = "Teknik Informatika" Then
            If waktu = pagi Then
                Console.WriteLine("Biaya Kuliah Rp. 4.750.000")
            ElseIf waktu = sore Then
                Console.WriteLine("Biaya Kuliah Rp. 5.250.000")
            Else
            End If
        ElseIf jurusan = "Sistem Informasi" Then
            If waktu = pagi Then
                Console.WriteLine("Biaya Kuliah Rp. 4.300.000")
            ElseIf waktu = sore Then
                Console.WriteLine("Biaya Kuliah Rp. 4.800.000")
            Else

            End If
        ElseIf jurusan = "Komputerisasi Akutansi" Then
            If waktu = pagi Then
                Console.WriteLine("Biaya Kuliah Rp. 4.250.000")
            ElseIf waktu = sore Then
                Console.WriteLine("Biaya Kuliah Rp. 4.500.000")
            Else
            End If
        End If
        Console.ReadLine()

        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Berdasarkan tampilan hasil eksekusi program berikut ini, buatlah program console application di Microsoft Visual Studio.

Rumusnya silahkan lihat di bawah ini :

Sub Main()
        Dim nim, nama As String
        Dim UTS, Tugas, UAS, nilai As Decimal
        Console.Write("NIM              :")
        nim = Console.ReadLine
        Console.Write("Nama Mahasiswa   :")
        nama = Console.ReadLine
        Console.Write("Nilai UTS        :")
        UTS = Console.ReadLine
        Console.Write("Nilai Tugas      :")
        Tugas = Console.ReadLine
        Console.Write("Nilai UAS        :")
        UAS = Console.ReadLine
        nilai = (UTS * 30 + Tugas * 20 + UAS * 50) / 100
        Console.WriteLine()
        Console.WriteLine("Nilai mahasiswa dengan nama {0}  < NIM :{1} > Adalah sebagai berikut UTS : {2} Tugas : {3} UAS : {4} Nilai Akhir : {5}", nama, nim, UTS, Tugas, UAS, nilai)
        Console.ReadKey()

    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Membuat sebuah program untuk mengitung nilai huruf dari sekumpulan mahasiswa yang datanya disimpan ke dalam sebuah array. Data yang diinpu adalah NIM, Nama, UTS, TGS, UAS. Data mahasiswa diinput melalui keyboard dengan n sebagai banyaknya mahasiswa.

NA = 30% UTS+30%TGS+40%UAS
NH = "A" | 100 >= NA > 90
NH = "B+" | 90 >= NA > 80
NH = "B" | 80 >= NA > 70
NH = "C+" | 70 >= NA > 60
NH = "C" | 60 >= NA > 50
NH = "D" | NA >= 50

Rumus lihat dibawah ini :

Structure mahasiswa
        Dim nama As String
        Dim i, nim, uts, uas, tgs As Integer
        Dim na As Single
        Dim nh As String

    End Structure

    Sub Main()
        Dim mhs() As mahasiswa
        Dim n As Integer

        Console.Write("Masukkan Jumlah Mahasiswa  : ")
        n = Console.ReadLine

        ReDim mhs(n - 1)

        For i = 0 To mhs.GetUpperBound(0)
            Console.Write("NIM Mahasiswa ke-" & i + 1 & ": ")
            mhs(i).nim = Console.ReadLine
            Console.Write("Nama Mahasiswa Ke-" & i + 1 & ": ")
            mhs(i).nama = Console.ReadLine
            Console.Write("Nilai UTS : ")
            mhs(i).uts = Console.ReadLine
            Console.Write("Nilai Tugas : ")
            mhs(i).tgs = Console.ReadLine
            Console.Write("Nilai UAS : ")
            mhs(i).uas = Console.ReadLine

            mhs(i).na = 0.3 * mhs(i).uts + 0.3 * mhs(i).tgs + 0.4 * mhs(i).uas

            If 90 < mhs(i).na Then
                mhs(i).nh = "A"
            ElseIf 80 < mhs(i).na Then
                mhs(i).nh = "B+"
            ElseIf 70 < mhs(i).na Then
                mhs(i).nh = "B"
            ElseIf 60 < mhs(i).na Then
                mhs(i).nh = "C+"
            ElseIf 50 < mhs(i).na Then
                mhs(i).nh = "C"
            Else
                mhs(i).nh = "D"
            End If

            Console.WriteLine(StrDup(50, "="))
            Console.WriteLine()

        Next
        Console.Clear()

        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima Kasih atas kunjungannya !!

Read More

Membuat sebuah program console application di Microsoft Visual Studio untuk menghitung dan menampilkan dan menampilkan daftar pegawai beserta total gaji yang diterimanya. Data pegawai diinput melalui keyboard dengan n sebagai banyaknya pegawai.

      Data yang diinput :

1. NIP
2. Nama
3. Alamat
4. Status
5. Jumlah Anak
6. Golongan
7. Jam Lembur
8. Jika menikah dan memilii anak >=2 orang, maka tunjangan anak Rp. 100.000/per anak. Maksimal 3 anak.
9. Jika tidak menikah maka tidak mendapatkan tunjangan anak.
10. Jumlah_lembur = honor_lembur * jam_lembur
11. Total_gaji = Gapok + Jumlah_lembur + tunjangan_anak
12. Ketentuan Gaji

• Golongan  A  Gaji Pokok Rp 5.000.000  Honor Lembur / Jam Rp. 75.000
• Golongan  B  Gaji Pokok Rp 3.500.000  Honor Lembur / Jam Rp. 50.000
• Golongan  C  Gaji Pokok Rp 1.650.000  Honor Lembur / Jam Rp. 30.000 

Rumusnya silahkan cek di bawah ini :
 Structure pegawai
        Dim nip, nama, alamat, status, status_pegawai, golongan, gapok As String
        Dim jumlah_anak, tunjangan_anak As Integer
        Dim jumlah_lembur, honor_lembur, jam_lembur As Integer
        Dim total_gaji As Integer
    End Structure
    Sub Main()
        Dim pgw() As pegawai
        Dim n As Integer

        Console.Write("Masukkan Jumlah Pegawai      : ")
        n = Console.ReadLine
        Console.WriteLine(StrDup(50, "="))

        ReDim pgw(n - 1)

        For i = 0 To pgw.GetUpperBound(0)
            Console.Write("Masukkan NIP Pegawai     : ")
            pgw(i).nip = Console.ReadLine
            Console.Write("Masukkan Nama Pegawai    : ")
            pgw(i).nama = Console.ReadLine
            Console.Write("Masukkan Alamat Pegawai  : ")
            pgw(i).alamat = Console.ReadLine
            Console.Write("Masukkan Status Pegawai  : ")
            pgw(i).status = Console.ReadLine
            Console.Write("Masukkan Jumlah Anak     : ")
            pgw(i).jumlah_anak = Console.ReadLine
            Console.Write("Masukkan Golongan        : ")
            pgw(i).golongan = Console.ReadLine
            Console.Write("Masukkan Jam Lembur      : ")
            pgw(i).jam_lembur = Console.ReadLine

            pgw(i).jumlah_lembur = pgw(i).honor_lembur * pgw(i).jam_lembur
            pgw(i).total_gaji = pgw(i).gapok + pgw(i).jumlah_lembur + pgw(i).tunjangan_anak

            If pgw(i).status = "1" Then
                pgw(i).status_pegawai = "Menikah"
            Else
                pgw(i).status_pegawai = "Tidak Menikah"
            End If

            If pgw(i).golongan = "A" Then
                pgw(i).gapok = "5.000.000"
                pgw(i).honor_lembur = "75.000"
            ElseIf pgw(i).golongan = "B" Then
                pgw(i).gapok = "3.500.000"
                pgw(i).honor_lembur = "50.000"
            Else
                pgw(i).gapok = "1.650.000"
                pgw(i).honor_lembur = "30.000"
            End If

            If pgw(i).status = "Menikah" And pgw(i).jumlah_anak = 2 Then
                pgw(i).tunjangan_anak = "200.000"
            ElseIf pgw(i).status = "Menikah" And pgw(i).jumlah_anak >= 3 Then
                pgw(i).tunjangan_anak = "300.000"
            ElseIf pgw(i).status = "Menikah" And pgw(i).jumlah_anak = 1 Then
                pgw(i).tunjangan_anak = "0"
            Else
                pgw(i).tunjangan_anak = "0"
            End If

            Console.WriteLine(StrDup(50, "="))
            Console.WriteLine()
        Next

        Console.WriteLine("NIP" & Space(3) & "NAMA" & Space(7) & "Alamat" & Space(7) & "Status" & Space(13) & "Jumlah Anak" & Space(2) & "Golongan" & Space(2) & "Jam Lembur" & Space(2) & "Jumlah Lembur" & Space(7) & "Total Gaji" & Space(7))
        Console.WriteLine(StrDup(65, "="))
        For i = 0 To n - 1
            Console.WriteLine(pgw(i).nip & Space(5 - Len(pgw(i).nip)) & pgw(i).nama & Space(7 - Len(pgw(i).nama)) & pgw(i).alamat & Space(7 - Len(pgw(i).alamat)) & pgw(i).status_pegawai & Space(10 - Len(pgw(i).status_pegawai)) & pgw(i).jumlah_anak & Space(3 - Len(pgw(i).jumlah_anak)) & pgw(i).golongan & Space(3 - Len(pgw(i).golongan)) & pgw(i).gapok & Space(10 - Len(pgw(i).gapok)) & pgw(i).jam_lembur & Space(4 - Len(pgw(i).jam_lembur)) & pgw(i).jumlah_lembur & Space(7 - Len(pgw(i).jumlah_lembur)) & pgw(i).tunjangan_anak & Space(7 - Len(pgw(i).tunjangan_anak)) & pgw(i).total_gaji & Space(7 - Len(pgw(i).total_gaji)))
        Next
        Console.WriteLine(StrDup(65, "="))
        Console.ReadKey()
    End Sub

Silahkan copy rumus diatas. Terima kasih atas kunjungannya !!

Read More