Fungsi Terbilang Dalam Rupiah (Visual Basic)

Public Function Terbilang(Angka As Double) As String Dim strJmlHuruf$, intPecahan As Integer, strPecahan$, Urai$, Bill$, strTot$, Bil2$ Dim X As Integer, Y As Integer, z As Integer Dim Bil1 As String If IsNull(Angka) Then Terbilang = "" Exit Function ElseIf Angka = 0 Then Terbilang = " NOL RUPIAH" Exit Function ElseIf Angka < 0 Then Terbilang = "MINUS " & Terbilang(Abs(Angka)) Exit Function End If strJmlHuruf = LTrim(CStr(Angka)) intPecahan = Val(Mid(CStr(Round(Angka - Int(Angka), 2)), 3, 2)) If (intPecahan = 0) Then strPecahan = "" Else strPecahan = LTrim(Str(intPecahan)) + "/100 " strJmlHuruf = LTrim(CStr(Int(Angka))) End If X = 0 Y = 0 Urai = "" While (X < Len(strJmlHuruf)) Bil1 = "" Bil2 = "" X = X + 1 strTot = Mid(strJmlHuruf, X, 1) Y = Y + Val(strTot) z = Len(strJmlHuruf) - X + 1 Select Case Val(strTot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then ...

PENGOPERASIAN TURBO PASCAL


A.    Menjalankan Turbo Pascal
Ada beberapa cara menjalankan Turbo Pascal antara lain:
*       Untuk system operasi DOS
-       Pindah ke drive tempat master Turbo Pascal disimpan (misalnya ketik D: ¿ jika masternya ada di D)
-       Masuk ke direktori QBASIC dengan cara mengetik CD Turbo Pascal ¿
-       Ketik lagi TPX¿  untuk menjalankan Turbo Pascal
Contoh:
Misalakan Turbo Pascal berada di: E:\Program Languange Tools\Pascal\PASCAL For Dos
*      Untuk system operasi Windows
-       Buka Windows Exlporer
-       Cari letak masternya
-       Jika ketemu klik dua kali file exe-nya misalnya TPX.EXE

Gambar dibawah ini menunjukkan merupakan tampilan awal dari Turbo Pascal jika dibuka. Pada tampilan ini diperlihatkan pembuat dan tahun pembuatannya. Untuk menghilangkan kotak dialog informasi tersebut dan memulai membuat program tekan tombol Enter pada Keyboard atau klik OK.
Jendela program yang siap digunakan untuk membuat program

B.    Menu-Menu Pada Turbo Pascal
  1. Menu File
Menu ini berisi pengolahan File berupa Membuka File Baru (New), Membuka File Lama (Open), Menyimpan File (Save atau Save As atau Save All), Mengganti direktori (Change Dir), Mencetak Listing (Print), Menuju Ke DOS (Dos Shell), Dan Keluar dari program (EXIT).





  1. Menu Edit
Menu Edit merupakan menu yang diperuntukkan untuk mengolah isi File dalam hal ini: Membatalkan sesuatu yang baru dilakukan (undo), Mematalak Undo (Redo), Memindahkan Listing(Cut), Menggandakan Listing (Copy), Mengaplikasikan Cut atau Copy (Paste), Mengahapus Listing yang terblok (Clear), dan Melihat Isi Clipboar (Show Clipboard).
  1. Menu Search

Menu ini menyediakan Fasilitas Untuk Pencarian bagian tertentu listing dan vasilitas untuk mengganti listing yang diamksud.







  1. Menu Run
Menu yang menyediakan Fasilitas Menjalankan program yang telah dibuat





  1. Menu Compiler
Menu yang digunakan untuk menkompiler program







  1. Menu Debug
Debug digunakan untuk mencari letak suatu fungsi atau prosedur. Intinya menu ini menyediakan fasilitas cabang program





  1. Menu Tools

  1. Menu Options
Menu Option digunakan sebagai pengatur dari Editor Bahasa Pascal









  1. Menu Windows
Menu yang menyediakan Fasilitas Untuk tampilan Pemrograman Pascal







  1. Menu Help
Menu yang menyediakan Fasitas Bantuan pada program Pascal










C.    Input dan Ouput pada Pascal

Perintah Input da Output yang paling banyak dugunakan adalah READ dan WRITE
READ digunakan untuk membaca data (Input) bentuk umumnya:

Read(<<NamaVariabel>>); atau Readln(<<NamaVariabel>>);

Readln digunakan jika penginputan  data perbaris. Masudnya Jika ditekan Enter maka pengimputan selanjutnya berda dibaris berikutnya. Lain dengan Read tetap berda dibaris yang sama.

Printah WRITE digunakan untuk menampilkan data (Output), Bentuk Umumnya:

Write(<<NamaVariabel>>); atau Writeln(<<NamaVariabel>>);

Ini digunakan jika yang ditampilkan langsung dari variable


Write(‘..Pesan atau kalimat..’); atau Writeln(‘..Pesan atau kalimat..’);

Ini digunakan jika yang ditampilkan hanya pesan atau kalimat


Write(‘..Pesan atau kalimat..’,<<NamaVariabel>>); atau
Writeln(‘..Pesan atau kalimat..’,<<NamaVariabel>>);

Ini digunakan jika yang ditampilkan pesan atau kalimat dan Nilai variable

WRITELN (Write Line New) digunakan untuk ganti baris untuk perintah berikutnya:

Contoh:
Program Hallo;
Begin
WRITELN(‘Hallo AKBA’);
WRITELN(‘Lagi Belajar’);
WRITELN(‘Bro.. DoA kan Ya’);
End.


D.    Gotoxy

Perintah Gotoxy digunakan untuk mengarahkan kursor ke bagian tertentu pada layar. Pada layar monitor memiliki 80 karakter secara horizontal dan 25 karakter secara vertical.
Bentuk Umum :

GOTOXY(x,y);

x à menyatakan jarak dari sisi kiri monitor
yà menyatakan jarak dari atas monitor

Contoh:

Gotoxy(5,3); Write(‘Tulisan ini dimulai dari koordinat 5,3’);

Hasilnya:
                         1               2
         12345678901234567890…….
1
2
3        Tulisan ini dimulai dari koordinat 5,3’
4
5
6
7
8
9
           10
..
..

Komentar

Postingan populer dari blog ini

Fungsi Terbilang Dalam Rupiah (Visual Basic)

Soal Dan Jawaban Final Algoritma