Asadullohil Ghalib

Karena ada laporan kalau file yang notasi polish itu corrupt alias tidak bisa dibuka, maka kali ini saya coba upload lagi dalam bentuk *.zip, sebelumnya jika ada yang salah tentang program ini silahkan di komentari di bagian komentar sebagai koreksi bagi saya karena saya tidak sempat untuk melakukan running test terhadap aplikasi ini oke.. ‘

Berikut linknya : Revisi Infix-Prefix-Postfix

Sebenarnya Algoritma dan Aplikasi ini sudah bisa anda temui di berbagai sumber apalagi internet, disini saya hanya menjembatani saja dan sedikit sharing saja, jadi logikanya :

• Pertama anda harus membuat array terbilang untuk tiap angka misal 1  berarti ‘satu’
• Kemudian lakukan kondisi jika < 100 maka terbilangnya ‘puluh ‘ dan seterusnya.

berikut sourcecodenya:
Baca entri selengkapnya »

Hari itu (senin) adalah hari pertama saya UAS di Kampus,, habis UAS seperti biasanya saya mampir dulu ke perpustakaan untuk Online dan menyelesaikan Tugas yang belum selesai. Tapi setelah saya membuka Laptop saya dan membuka isi dari Flashdisk yang di dalamnya berisi Laporan dan tugas-tugas saya yang lain, ternyata semua folder data-data perkuliahan saya berubah wujud menjadi sebuah file dengan font Alien dan tidak dapat dibaca,

Dan Ternyata folder saya rusak dan hancur,,, Saat itu pula saya teringat bahwa di Flashdisk itu juga terdapat Laporan UAS Matakuliah Algoritma Pemrograman yang harus saya kirimkan segera, Akhirnya dengan semangat baru saya kerjakan lagi deh Laporan dan programnya dari Awal.

Ada dua pelajaran yang dapat saya ambil dari kejadian itu yakni, jangan lupa membackup data anda ke hardisk komputer anda yang kedua. Kerja keras itu diperlukan untuk menyelesaikan sesuatu.

Dan saat saya kerjakan lagi ternyata saya bisa menyelesaikan Laporan itu lagi, karena masih teringat dengan kerjaan yang dulu,,, Sekian… koQ aQ malah curhat ya,,, hehehehe  Makasih… sampai jumpa lagi

Berawal dari ada salah satu temen kuliah  saya di Trunojoyo yang bertanya gimana sih cara membuat Aplikasi Konversi Panjang dengan menggunakan Array di VB 2008 yang sekaligus mau dipakai demo pas UAS nanti, oleh karena itu saya ingin sedikit berbagi kepada teman-teman di seluruh Indonesia. Berikut langkah-langkah membuat aplikasi konversi panjang sederhana :

• Buatlah form seperti gambar di bawah ini

• Ketikkan Kode berikut ini

Public Class Form1
    Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}
    Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}
    Dim hasil As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 9
            ListBox1.Items.Add(i & ".   " & satuan(i))
        Next
    End Sub

    Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
        hasil = Val(nilai.Text * feet(txtfrom.Text))
        hasil = Val(hasil / feet(txtto.Text))
        txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)
    End Sub
End Class

Berikut Penjelasan dari kode tersebut

 Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}
    Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}
    Dim hasil As Double

Kode diatas adalah pendeklarasian Array satuan dan Feet serta variable hasil

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 9
            ListBox1.Items.Add(i & ".   " & satuan(i))
        Next
    End Sub

Kode diatas di gunakan untuk menampilkan data pada Array Satuan pada Listbox1

Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
        hasil = Val(nilai.Text * feet(txtfrom.Text))
        hasil = Val(hasil / feet(txtto.Text))
        txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)
    End Sub

Kode Diatas adalah Code untuk Konversi dari ke-9 satuan tersebut.

Program diatas dapat didownload di link berikut ini

Oiza… temen2 jangan lupa ngasih Saran dan kritik yang habis view… oke.. Trims

source kode untuk membuat KHS Mahasiswa dengan menggunakan Record dengan Pemrograman Pascal :

program record_data_mahasiswa;
//uses wincrt;
const nMaks = 100;
Mn = 10;
type
matakuliah = record
kodemk : string[8];
namamk : string[20];
sks : integer;
nilai  : string[2];
sksxnilai : real;
end;
mahasiswa = record
NIM : string[15];
nama : string[20];
skstotal : integer;
nilaitotal: real;
ip : real;
nextsks : string[8];
mk : array[1..Mn] of matakuliah;
end;
var
TabMhs : array[1..nMaks] of mahasiswa;
I, J, M, N : integer;
nilaiN : real;
nilaiH : string[2];
tambah : char;

procedure ambilsks;
begin
if TabMhs[I].ip >= 3.00 then TabMhs[I].nextsks := '22 - 24'
else if (TabMhs[I].ip <= 2.99) and (TabMhs[I].ip >= 2.50) then TabMhs[I].nextsks := '22 - 24'
else if (TabMhs[I].ip <= 2.49) and (TabMhs[I].ip >= 2.00) then TabMhs[I].nextsks := '20 - 22'
else if (TabMhs[I].ip <= 1.99) and (TabMhs[I].ip >= 1.50) then TabMhs[I].nextsks := '18 - 20'
else if TabMhs[I].ip < 1.50 then TabMhs[I].nextsks := '16 - 18';
end;

procedure konversinilai;
begin
nilaiH := TabMhs[I].mk[J].nilai;
if (NilaiH = 'A')       or (nilaiH = 'a')  then nilaiN := 4
else if (nilaiH = 'B+') or (nilaiH = 'b+') then nilaiN := 3.5
else if (nilaiH = 'B')  or (nilaiH = 'b')  then nilaiN := 3
else if (nilaiH = 'C+') or (nilaiH = 'c+') then nilaiN := 2.5
else if (nilaiH = 'C')  or (nilaiH = 'c')  then nilaiN := 2
else if (nilaiH = 'D+') or (nilaiH = 'd+') then nilaiN := 1.5
else if (nilaiH = 'D')  or (nilaiH = 'd')  then nilaiN := 1
else nilaiN := 0;
end;
procedure tampildata;
begin
for I:= 1 to N do
begin
writeln ('                     Kartu Hasil Studi                        ');
writeln ('               Jurusan Teknik Informatika                     ');
writeln ('           Fakultas Teknik - Universitas Trunojoyo            ');
writeln ('                  Semester Gasal 2009/2010                    ');
writeln('===============================================================');
writeln('Nama Mahasiswa : ',TabMhs[I].nama);
writeln('NRP Mahasiswa : ',TabMhs[I].NIM);
writeln('---------------------------------------------------------------');
writeln(' No    Kode MK    Nama Mata Kuliah    SKS   Nilai   SKS x Nilai');
writeln('---------------------------------------------------------------');
for J := 1 to M do
begin
konversinilai;
TabMhs[I].mk[J].sksxnilai := nilaiN * TabMhs[I].mk[J].sks;
writeln(J:2,TabMhs[I].mk[J].kodemk:13,TabMhs[I].mk[J].namamk:20,TabMhs[I].mk[J].sks:5,TabMhs[I].mk[J].nilai:7,
TabMhs[I].mk[J].sksxnilai:13:1);
TabMhs[I].skstotal := TabMhs[I].skstotal + TabMhs[I].mk[J].sks;
TabMhs[I].nilaitotal := TabMhs[I].nilaitotal + TabMhs[I].mk[J].sksxnilai;
end;
writeln('---------------------------------------------------------------');
writeln('                TOTA L           ',TabMhs[I].skstotal:7,TabMhs[I].nilaitotal:20:1);
writeln('---------------------------------------------------------------');
TabMhs[I].ip := TabMhs[I].nilaitotal / TabMhs[I].skstotal;
writeln('IP Semester = ',TabMhs[I].nilaitotal:0:1,'/',TabMhs[I].skstotal,' = ',TabMhs[I].ip:0:2);
ambilsks;
writeln('SKS yang dapat diambil semester berikutnya = ',TabMhs[I].nextsks);
writeln;
end;
end;

procedure bacadata;
begin
for I := 1 to N do
begin
write('NRP Mahasiswa ke - ',I,' = ');readln(TabMhs[I].NIM);
write('Nama Mahasiswa ke - ',I,' = ');readln(TabMhs[I].nama);
write('Jumlah Mata Kuliah = ');readln(M);
writeln('--------------------------------------------------');
for J := 1 to M do
begin
write('Kode Matakuliah ke - ',J,' = ');readln(TabMhs[I].mk[J].kodemk);
write('Nama Matakuliah = ');readln(TabMhs[I].mk[J].namamk);
write('SKS Matakuliah = ');readln(TabMhs[I].mk[J].sks);
write('nilai Matakuliah = ');readln(TabMhs[I].mk[J].nilai);
writeln('--------------------------------------------------');
end;
end;
end;
begin
write('Masukkan Jumlah Data Mahasiswa = ');readln(N);
Repeat
//clrscr;
bacadata;
//clrscr;
tampildata;
write ('Anda Ingin Memasukkan Data Mahasiswa Lagi? [Y/N] : ');readln(tambah);
tambah := Upcase(tambah);
until (tambah <> 'Y');
//Donewincrt;
end.

Jika Anda menggunakan TPW (Turbo Pascal For Windows) maka tanda yang // itu anda hapus, karena saya di sini compiler pascalnya di Linux.