Asadullohil Ghalib

Berikut ini adalah penjelasan coding dari program Kamus Sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition
Baca entri selengkapnya »

Berikut ini adalah penjelasan coding dari program kalkulator sangat sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition

'Kode Program
Public Class kalkulator
Private Sub cmdhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhitung.Click
If rbtambah.Checked Then
txthasil.Text = Val(angka1.Text) + Val(angka2.Text)
ElseIf rbkurang.Checked Then
txthasil.Text = Val(angka1.Text) - Val(angka2.Text)
ElseIf rbkali.Checked Then
txthasil.Text = Val(angka1.Text) * Val(angka2.Text)
ElseIf rbbagi.Checked Then
txthasil.Text = Val(angka1.Text) / Val(angka2.Text)
ElseIf rdpangkat.Checked Then
txthasil.Text = Val(angka1.Text) ^ 2
ElseIf rdakar.Checked Then
txthasil.Text = Math.Sqrt(Val(angka1.Text))
End If
End Sub
End Class


Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Kalkulator_Sederhana
Source Kode dan Aplikasi Kalkulator Sederhana

Berikut ini adalah penjelasan coding dari program Konversi Suhu buatan saya dengan menggunakan Visual Basic 2008 Express Edition

Public Class Konversi
Dim response As MsgBoxResult
'tipe data tidak dideklarasikan dan otomatis menjadi tipe data variant

Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
If rbcelcius.Checked Then
txtcelcius.Text = txtsuhu.Text * 1
txtreamur.Text = 4 / 5 * txtsuhu.Text
txtkelvin.Text = 273 + txtsuhu.Text
txtfahrenheit.Text = 32 + (9 / 5 * txtsuhu.Text)
ElseIf rbreamur.Checked Then
txtcelcius.Text = 5 / 4 * txtsuhu.Text
txtreamur.Text = txtsuhu.Text * 1
txtkelvin.Text = 273 + (5 / 4 * txtsuhu.Text)
txtfahrenheit.Text = 32 + (9 / 4 * txtsuhu.Text)
ElseIf rbkelvin.Checked Then
txtcelcius.Text = txtsuhu.Text – 273
txtreamur.Text = 4 / 5 * (txtsuhu.Text – 273)
txtkelvin.Text = txtsuhu.Text * 1
txtfahrenheit.Text = 32 + (9 / 5 * (txtsuhu.Text – 273))
ElseIf rbfahrenheit.Checked Then
txtcelcius.Text = 5 / 9 * (txtsuhu.Text – 32)
txtreamur.Text = 4 / 9 * (txtsuhu.Text – 32)
txtkelvin.Text = 273 + (5 / 9 * (txtsuhu.Text – 32))
txtfahrenheit.Text = txtsuhu.Text * 1
End If
End Sub

Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
response = MsgBox(“Apakah Anda yakin ingin keluar”, MsgBoxStyle.OkCancel, “Konfirmasi Keluar”)
If response = MsgBoxResult.Ok Then
End
End If

End Sub
End Class

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Aplikasi Konverter_suhul
Aplikasi Konverter Suhu

Berikut ini adalah penjelasan coding dari program Pohon Bintang buatan saya dengan menggunakan Turbo Pascal For Windows

program bintang_piramid;
uses wincrt;

var c,a,b,n : integer;
begin
write (‘masukkan angka : ‘);readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (‘ ‘);
for c := 1 to (a*2) do
write (‘*’);
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (‘ ‘);
for c := 1 to (a*2)-1 do
write (‘*’);
writeln;
end;
end.

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Aplikasi_Pohon_Bintang
Aplikasi Pohon Bintang

Berikut ini adalah penjelasan coding dari program Penghitung Jumlah karakter buatan saya dengan menggunakan Visual Basic 2008 Express Edition


Public Class Form1
Dim konfirmasi As MsgBoxResult

Private Sub inputkarakter_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inputkarakter.TextChanged
Label1.Text = Len(inputkarakter.Text)
End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
konfirmasi = MsgBox(“Anda Yakin Ingin Keluar ???”, MsgBoxStyle.OkCancel, “Konfirmasi permintaan”)
If konfirmasi = MsgBoxResult.Ok Then
End
Else
inputkarakter.Text = “”
End If
End Sub
End Class

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini
NAMA_NRP_KELOMPOK_Aplikasi_Penghitung_Karakter.doc
Aplikasi Penghitung karakter