BAHASA PEMROGRAMAN

 

ARAH PUTAR TANK Langkah-langkah percobaan : Buatlah gambar tank sebanyak 36 buah dengan posisi yang berbeda. Tool palette yang digunakan pada percobaan ini adalah Edit, BitBtn, dan Image. Coding pada saat tank berputar 10 derajat adalah sebagai berikut. procedure TForm1.BitBtn1Click(Sender: TObject); begin if Edit1.Text='10' then begin   Image1.Visible:=false;   Image2.Visible:=true;   Image3.Visible:=false;   Image4.Visible:=false;   Image5.Visible:=false;   Image6.Visible:=false;   Image7.Visible:=false;   Image8.Visible:=false;   Image9.Visible:=false;   Image10.Visible:=false;   Image11.Visible:=false;   Image12.Visible:=false;   Image13.Visible:=false;   Image14.Visible:=false;   Image15.Visible:=false;   Image16.Visible:=false;   Image17.Visible:=false;   Image18.Visible:=false;   Image19.Visible:=false;   Image20.Visible:=false;   Image21.Visible:=false;   Image22.Visible:=false;   Image23.Visible:=false;   Image24.Visible:=false;   Image25.Visible:=false;   Image26.Visi

 RUNNING LED Langkah-langkah dalam pembuatan running LED adalah sebagai berikut : Buatlah design seperti gambar di atas menggunakan tool palette standard yaitu label & button, tool palette additional yaitu image, serta tool palette system yaitu timer. Dalam tiap-tiap Button kecepatan perubahan warna lampu berbeda-beda. Coding pada Button 1 yaitu :      3. Coding pada Button 2 yaitu :     4. Coding pada Button 3 yaitu :     5. Coding pada Button 4 yaitu :     6. Coding pada Timer 1 yaitu :     7. Coding pada Timer 2 sampai dengan Timer 27 sama dengan  Timer 1 hanya saja terdapat perbedaan pada kondisi Visible di tiap-tiap shape, image, dan label mana yang ingin ditampilkan pada Timer tersebut.

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;