1. BUAT CONSOLE BALOK :
Imports System.Console
Module Module1
Sub Main()
Dim P, L, T, V, LP As Integer
WriteLine("MENCARI VOLUME DAN LUAS PENAMPANG BALOK")
ReadLine()
WriteLine("LEGEND :")
WriteLine("P : Panjang")
WriteLine("L : Lebar")
WriteLine("T : Tinggi")
ReadLine()
Write("Isi P : ")
P = ReadLine()
Write("Isi L : ")
L = ReadLine()
Write("Isi T : ")
T = ReadLine()
V = P * L * T
LP = (2 * P * L) + (2 * P * T) + (2 * L * T)
WriteLine("HASILNYA :")
ReadLine()
WriteLine("Volume Balok adalah :" & V)
ReadLine()
WriteLine("Dan Luas Penampang Balok adalah : " & LP)
ReadLine()
Write("TERIMAKASIH *RK*")
Read()
End Sub
End Module
2. BUAT CONSOLE SEGITIGA :
Imports System.Console
Module Module1
Sub Main()
Dim a, t, Lu As Integer
WriteLine("Aplikasi Segitiga")
ReadLine()
Write("Masukan Nilai alas : ")
a = ReadLine()
Write("Masukan Nilai tinggi : ")
t = ReadLine()
Lu = (a * t) / 2
Write("Jadi Luas Segitiga adalah: " & Lu)
Read()
End Sub
End Module
3. BUAT CONSOLE KUBUS :
Imports System.Console
Module Module1
Sub Main()
Dim s, L, LP As Integer
WriteLine(" SELAMAT DATANG ")
WriteLine(" Di Program Volume dan Luas permukaan Kubus ")
ReadLine()
Write(" Masukan Nilai sisi: ")
s = ReadLine()
L = s ^ 3
LP = (s ^ 2) * 6
WriteLine()
Write(" Maka Luas Kubus adalah : " & L)
ReadLine()
WriteLine(" Dan Luas Permukaan Kubus adalah : " & LP)
ReadLine()
Write(" TERIMAKASIH *RK* ")
ReadLine()
End Sub
End Module
4. BUAT CONSOLE LINGKARAN :
Imports System.Console
Module Module1
Sub Main()
Dim R, L, KLL As Decimal
WriteLine("APLIKASI MENGHITUNG LUAS DAN KELILING LINGKARAN")
ReadLine()
Write("Masukan Nilai Jari Jari: ")
R = ReadLine()
L = 3.14 * R * R
KLL = 2 * (3.14 * R)
WriteLine()
WriteLine(" Jadi Luas Lingkaran adalah :" & L)
WriteLine(" Dan Keliling lingkaran adalah : " & KLL)
ReadLine()
WriteLine(" TERIMAKASIH *RK* ")
Read()
End Sub
End Module
5. BUAT CONSOLE DATA GAJI
Imports System.Console
Module Module1
Sub Main()
Dim NP As String
Dim JA, GP, TA, TI, TB, GK As Integer
WriteLine("Slip Gaji")
ReadLine()
Write("Masukan Nama Pegawai: ")
NP = ReadLine()
Write("Masukan Gaji Pokok: ")
GP = ReadLine()
Write("Masukan Jumlah Anak: ")
JA = ReadLine()
TA = 0.1 * GP * JA
TI = 0.05 * GP
TB = (2 + JA) * 25000
GK = GP + TI + TA + TB
WriteLine("------------------------------------------------------------")
WriteLine("Penghasilan : " & NP)
WriteLine("------------------------------------------------------------")
WriteLine("Tunjangan Anak = Rp. " & TA)
WriteLine()
WriteLine("Tunjangan Isteri = Rp. " & TI)
WriteLine()
WriteLine("Tunjangan Beras = Rp. " & TB)
WriteLine()
WriteLine("Gaji Kotor = Rp. " & GK)
Read()
End Sub
End Module
6. BUAT CONSOLE DATA NILAI :
Imports System.Console
Module Module1
Sub Main()
Dim NS, NM As String
Dim NK, NT, NUTS, NUAS, NA As Integer
WriteLine("Data Nilai")
WriteLine("------------")
ReadLine()
Write("Nama Siswa : ")
NS = ReadLine()
Write("Nama Mata Kuliah : ")
NM = ReadLine()
Write("Masukan Nilai Kehadiran: ")
NK = ReadLine()
Write("Masukan Nilai Tugas: ")
NT = ReadLine()
Write("Masukan Nilai Ujian Tengah Semester: ")
NUTS = ReadLine()
Write("Masukan Nilai Ujian Akhir Semester: ")
NUAS = ReadLine()
NA = (0.1 * NK) + (0.2 * NT) + (0.3 * NUTS) + (0.4 * NUAS)
WriteLine()
WriteLine("---------------------------------------------------------")
WriteLine("Nilai Akhir dari : " & NS)
WriteLine("Pada Mata Kuliah : " & NM)
WriteLine("---------------------------------------------------------")
ReadLine()
WriteLine()
WriteLine("---------------------------------------------------------")
WriteLine("Nilai Akhir Siswa Adalah: " & NA)
WriteLine("---------------------------------------------------------")
WriteLine(" TERIMAKASIH *RK*")
WriteLine("---------------------------------------------------------")
Read()
End Sub
End Module
Kalau ada yang kurang mohon maklum ya....
Semoga berhasil SI UNILAK 2012 - 2013....
Tidak ada komentar:
Posting Komentar
Silahkan anda berikan komentar tapi sopan ya