- Berikan contoh dasar bahasa pemrograman dan pengkodean
- Berilah contoh salah satu pengujian perangkat lunak
Jawab :
Contoh dasar bahasa pemrograman ini menggunakan bahasa Pascal...
Dan disini kami mengambil contoh program Mengcopy File dengan bahasa Pascal...
Berikut Codingnya :
Coding Program Untuk Mengcopy File
{ Nama Program: BlcRead.PAS }
{ For Windows: Uses WinCrt; }
{ Program mengcopy file }
Uses Crt;
Var
DariFile, KeFile: File;
NomorBaca, NomorTulis: Word;
Buffer: Array[1..2048] of Char;
Sumber, Tujuan: String[79];
Begin
Clrscr;
Writeln(‘mengcopy file’);
Writeln;
Write(‘Ketik Nama File yang akan di Copy[Contoh: D :\TP\TPX.EXE]: ‘);
Readln(Sumber);
Assign(DariFile, Sumber);
Reset(DariFile, 1);
If IOResult <> 0 then
Begin
Writeln(‘file tidak ditemukan...!!’);
Readln;
Exit;
End;
Write(‘Dicopy ke Drive? [ Contoh: B:\TPX.EXE]: ‘0;
Readln(Tujuan);
Assign(KeFile, Tujuan);
Rewrite(KeFile, 1);
Writeln(‘Sabar! Sedang mengcopy file: ‘, FileSize(DariFile), ‘byte...’);
Repeat
Blockread(DariFile, Buffer, SizeOf(Buffer), NomorBaca);
BlockWrite(keFile, Buffer, NomorBaca, NomorTulis);
Until (NomorBaca = 0) or (NomorTulis <> NomorBaca);
Close(DariFile);
Close(KeFile);
Writeln;
Writeln(‘Selesai...!!!’);
Write(‘Tekan Enter kembali ke program...’);
Readln;
End.
Seperti Pada Program tersebut jika dijalankan (RUN/ CTRL F9), maka hasil yang diinginkan adlah seperti berikut :
Mencopy file
Ketik Nama File yang akan di Copy[Contoh: D:\TP\TPX.EXE]:
D:\TP\TPX.EXE (Tekan enter maka akan muncul kata – kata selanjutnya...)
Dicopy ke Drive? [Contoh: B:\ TPX.EXE] B: \TURBO.EXE (tekan enter)
Sabar! Sedang mengcopy file: 474321 byte....
Selesai!
Tekan Enter kembali ke Program...
Program ini adalah untuk mengcopy file TPX.EXE yang ada pada direktori D: \TP ke drive B, sambil mengubah namanya menjadi TURBO.EXE...
Pada saat pembuatan program, terjadi Error.... Pertama, kesalahan dalam pengetikan seperti tampak pada gambar berikut :
]Pengujian Perangkat Lunak :
Untuk Menguji Program yang telah dibuat, pertam menggunakan eksekusi program sehingga tidak terjadi Error dan Program berhasil dijalankan....
Pengujian dilakukan menggunakan Pengujian LOOP... Dimana Program di eksekusi berulang – ulang sehingga tidak terdapat Error. Uji Coba Simple LOOP....
Contoh : Pada Program tersebut, seperti pad gambar berikut :
Program tetap akan melakukan Looping, sampai apa yang diinginkan berhasil di eksekusi oleh program. Uji coba Loop dilakukan berulang – ulang,mengingat program yang kami buat adalah bahasa dasar yaitu Pascal. Terkadang Pascal tidak bisa dijalnakan di Sistem Operasi seperti Windows Seven. Kendalanya juga terkadanag Program ini terkendala jika pada Hardware yang tidak Receive terhadap programnya. Ini menggunakan Sistem Pengujian Fungsional dan integrasi. Error yang terjadi jika salah dalam memasukkan perintah, misalnya seperti pada contoh... Ketik nama file yang ingin di copy, namun jika format yang diketikkan salh, mak tidak akan mau.... bahkan bisa langsung close darim program,.....
