Postingan

Menampilkan postingan dari Mei, 2021

TANGGA NADA

Gambar
  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.

ARAH PUTAR TANK

Gambar
  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.Vi

KALKULATOR

Gambar
    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;     Edit16: TEdit;     Edit17: TEdit;     Edit18: TEdit;     Button5: TButton;     But

MENAMPILKAN BIODATA MAHASISWA MENGGUNAKAN APLIKASI EMBARCADERO

Gambar
  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)