BAHASA PEMROGRAMAN

TANGGA NADA Tampilan di atas merupakan bentuk tampilan tangga nada sebelum dibunyikan. Kemudian tampilan di bawah ini merupakan tampilan setelah tangga nada 'do' dibunyikan. Tool Palette yang digunakan sebagai berikut: 1. Standard : button 2. Additional : shape Coding dari membunyikan tangga nada di atas adalah sebagai berikut : 1.    Pada bagian uses  harus ditambahkan MMsystem. 2.     Untuk membunyikan nada 'do' rendah yaitu seperti berikut ini.

  KALKULATOR unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, math;   type   TForm1 = class(TForm)     Label1: TLabel;     Shape1: TShape;     Shape2: TShape;     Shape3: TShape;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Button1: TButton;     Shape4: TShape;     Label5: TLabel;     Edit4: TEdit;     Edit5: TEdit;     Edit6: TEdit;     Edit7: TEdit;     Edit8: TEdit;     Edit9: TEdit;     Edit10: TEdit;     Edit11: TEdit;     Edit12: TEdit;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Shape5: TShape;     Shape6: TShape;     Shape7: TShape;     Label6: TLabel;     Label7: TLabel;     Label8: TLabel;     Edit13: TEdit;     Edit14: TEdit;     Edit15: TEdit;

  MENAMPILKAN DATA BAMASIS DENGAN MEMASUKKAN PASSWORD DAN NIM Tool Palette yang digunakan sebagai berikut : 1. Standard : label, edit, button 2. Additional : image 1. Coding  memasukkan password dan apabila password salah akan menampilkan sebuah tulisan ‘WRONG PASSWORD!!!’ 2. Coding untuk masuk ke data bamasis dengan memasukkan NIM masing-masing procedure TForm2.Button1Click(Sender: TObject); begin   if Edit1.Text='20200522' then begin   Form3.Show; end; begin   if Edit1.Text='20200523' then begin   Form4.Show; end; begin   if Edit1.Text='20200524' then begin   Form5.Show; end; begin   if Edit1.Text='20200525' then begin   Form6.Show; end; begin   if Edit1.Text='20200526' then begin   Form7.Show; end; begin   if Edit1.Text='20200527' then begin   Form8.Show; end; begin   if Edit1.Text='20200528' then begin   Form9.Show; end; begin   if Edit1.Text='20200529' then begin   Form10.Show; end; begin   if Edit1.Text='20200530

  MENAMPILKAN BIODATA MAHASISWA MENGGUNAKAN APLIKASI EMBARCADERO Tool Palette yang digunakan sebagai berikut : 1. Standard : label, button 2. Additional : image 1.      Coding pada Button1 (Menampilkan biodata) : 2.      Coding pada Button2 (Menghapus tampilan biodata)        3.      Coding pada Button3 (Menutup tampilan biodata)