Aplikasi Kamus Sederhana

kamus

Berikut ini adalah penjelasan coding dari program Kamus Sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition
Baca lebih lanjut

Iklan

Aplikasi Kalkulator Sederhana


kalkulator

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

No

Komponen

Properties

Nilai

1

Form

Name

kalkulator

Text

Kalkulator Sederhana

2

Textbox1

Name

Angka1

Text

0

3

Textbox2

Name

Angka2

Text

0

4

Textbox2

Name

txthasil

Text

0

6

Button1

Name

cmdhasil

Text

&Hasil

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

No

Komponen

Properties

Nilai

1

Form

Name

kalkulator

Text

Kalkulator Sederhana

2

Textbox1

Name

Angka1

Text

0

3

Textbox2

Name

Angka2

Text

0

4

Textbox2

Name

txthasil

Text

0

6

Button1

Name

cmdhasil

Text

&Hasil

'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

Aplikasi Converter Suhu dengan VB2008

suhuconverter

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

No

Komponen

Properties

Nilai

1

Form

Name

Konversi

Text

Aplikasi Konversi Suhu Dunia

2

Label

Text

Konversi Desimal dan Biner

Text

Nilai

3

Textbox1

Name

txtsuhu

Text

4

Textbox2

Name

txtcelcius

Text

3

Textbox3

Name

txtreamur

Text

4

Textbox4

Name

txtfahrenheit

Text

4

Textbox5

Name

txtkelvin

Text

5

RadioButton1

Name

rbcelcius

Text

Celcius

6

RadioButton2

Name

rbreamur

Text

Reamur

5

RadioButton3

Name

rbfahrenheit

Text

Fahrenheit

6

RadioButton4

Name

rbkelvin

Text

Kelvin

7

Button1

Name

Cmdconvert

Text

&Convert

8

Button2

Name

Cmdexit

Text

&Exit

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

Aplikasi Pohon Bintang dengan Pascal

pohon

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

Aplikasi Menghitung Jumlah Karakter

karakter

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

No

Komponen

Properties

Nilai

1

Form

Name

Form1

Text

Penghitung Jumlah Karakter

2

Label

Text

Jumlah Karakter =

Text

0

3

Textbox1

Name

karakter

Text

5

Button1

Name

Btnexit

Text

&Exit


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

Aplikasi Konversi Desimal – Octal

screenshot

Berikut ini adalah penjelasan coding dari program decimal – octal converter buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

Form1

Text

Aplikasi Konversi Desimal Biner

2

Label

Text

Konversi Desimal dan Biner

Text

Nilai

3

Textbox1

Name

Nilai

Text

0

4

Textbox2

Name

Hasil

Text

0

5

RadioButton1

Name

Rbdec2oct

Text

Desimal -> Octal

6

RadioButton2

Name

Rboct2dec

Text

Octal -> Desimal

7

Button1

Name

Btnkonversi

Text

&Konversi

8

Button2

Name

Btnreset

Text

&Reset

9

Button3

Name

Btnexit

Text

&Exit

Public Class Form1

Dim response As MsgBoxResult

Private Sub btnkonversi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkonversi.Click

If rbdec2oct.Checked Then

hasil.Text = Oct(nilai.Text)

ElseIf rboct2dec.Checked Then

hasil.Text = 0

For g As Integer = Len(nilai.Text) To 1 Step -1

hasil.Text = hasil.Text + Mid(nilai.Text, g, 1) * (8 ^ (Len(nilai.Text) - g))

Next g

End If

End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

response = MsgBox("Apakah Anda yakin ingin keluar", MsgBoxStyle.OkCancel, "Konfirmasi Keluar")

If response = MsgBoxResult.Ok Then

End

End If

End Sub

Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click

nilai.Text = ""

hasil.Text = ""

End Sub

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

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_octal_Desimal

Aplikasi Konverter Octal-Desimal

Aplikasi Konversi Desimal Biner

Converter biner-Kubat

Converter biner-Kubat

Berikut ini adalah penjelasan coding dari program decimal – biner converter buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

Form1

Text

Aplikasi Konversi Desimal Biner

2

Label

Text

Konversi Desimal dan Biner

Text

Nilai

3

Textbox1

Name

Nilai

Text

0

4

Textbox2

Name

Hasil

Text

0

5

Button1

Name

Btnkonversi

Text

&Konversi

6

Button2

Name

Btnreset

Text

&Reset

7

Button3

Name

Btnexit

Text

&Exi


Public Class Form1
Dim n, pem, sisa, has As Long
Dim bin As String
Dim response As MsgBoxResultPrivate Sub btnkonversi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkonversi.Click
If rbdec2bin.Checked Then
n = nilai.Text
While n > pem
has = n \ 2
sisa = n Mod 2
bin = Str(sisa) & bin
n = has
End While
hasil.Text = bin
bin = ""
Else
hasil.Text = 0
For g As Integer = Len(nilai.Text) To 1 Step -1
hasil.Text = hasil.Text + Mid(nilai.Text, g, 1) * (2 ^ (Len(nilai.Text) - g))
Next g
End If
End Sub
‘----------------------------------------------------------------

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
response = MsgBox(“Apakah Anda yakin ingin keluar”, MsgBoxStyle.OkCancel, “Konfirmasi Keluar”)
If response = MsgBoxResult.Ok Then
End
End If
End Sub
‘——————————————————————
Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
nilai.Text = “”
hasil.Text = “”
End Sub
End Class

NAMA_NRP_KELOMPOK_Aplikasi Konverter_biner_Desimal
Aplikasi Konverter Desimal-Biner