saya barusan bikin coding sesuai dengan buku, dan udah di ketik semua udah bikin form dan di beri NAME dll. Tapi pas dicoba di run ngak bisa, maksud nya tombol run nya tidak befrungsi. ini listing pascal nya unit prak1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; TLM: TEdit; THK: TEdit; TJUMLAH: TEdit; CMULAI: TButton; CSELESAI: TButton; procedure CMULAIClick(Sender: TObject); procedure CSELESAIClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure THKChange(Sender: TObject); procedure TLMChange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R .dfm} procedure TForm1.CMULAIClick(Sender: TObject); begin Tlm.Text:=' '; Thk.Text:=' '; Tjumlah.Text:=' '; Tlm.SetFocus; end; end. Procedure TForm1.CSELESAIClick(Sender: TObject); begin Application.Terminate; end; Procedure TForm1.FormCreate(Sender: TObject); begin Tjumlah.enabled:=False; Tjumlah.color:=clbtnface; end; Procedure TForm1.THKChange(Sender: TObject); var Sjml:string[30]; Tsem:integer; Slm,Shk,Sjumlah:single; begin Val (Tlm.text,Slm,Tsem); Val (Thk.text,Shk,Tsem); Sjumlah:=Slm Shk; str(Sjumlah:30:0,Sjml); Tjumlah.text:=Sjml; end; Procedure TForm1.TLMChange(Sender: TOBject); var Sjml:string[30]; Tsem:integer; Slm,Shk,Sjumlah:single; Begin Val (Tlm.text,Slm,Tsem); Val (Thk.text,Shk,Tsem); Sjumlah:=Slm*Shk; str(Sjumlah:30:0,Sjml); Tjumlah.text:=Sjml; end; barangkali ada yang bisa membantu

koq ngga' sinkron title ama yg ditanyakan... :mrgreen: Cannot Find Implementation of Method TLMChange ama di run ngak bisa, maksud nya tombol run nya tidak befrungsi. di run ngga' bisa karena unit prak1; tsb. harus ditempelin di sebuah project. File-New-Application, setelah itu Project-Add to Project...

ini list form nya mas.. object Form1: TForm1 Left = 202 Top = 173 Width = 783 Height = 540 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 72 Top = 64 Width = 76 Height = 13 Caption = 'Lama Menginap' end object Label2: TLabel Left = 72 Top = 96 Width = 86 Height = 13 Caption = 'Harga Kamar/Hari' end object Label3: TLabel Left = 72 Top = 128 Width = 33 Height = 13 Caption = 'Jumlah' end object TLM: TEdit Left = 168 Top = 64 Width = 177 Height = 21 TabOrder = 0 OnChange = TLMChange end object THK: TEdit Left = 168 Top = 96 Width = 177 Height = 21 TabOrder = 1 end object TJUMLAH: TEdit Left = 168 Top = 128 Width = 177 Height = 21 TabOrder = 2 end object Button1: TButton Left = 120 Top = 256 Width = 75 Height = 25 Caption = '&MULAI' TabOrder = 3 end object Button2: TButton Left = 256 Top = 256 Width = 75 Height = 25 Caption = 'S&ELESAI' TabOrder = 4 end end di mana kira kira salah nya, wong udah ketik dll..kok masih salah ngak bisa...

ketik DLL ? maksud lo? di run ngga' bisa karena unit prak1; tsb. harus ditempelin di sebuah project. File-New-Application, setelah itu Project-Add to Project... kalau project adalah DLL, dikau harus set di menu Run-Parameters, Host Application harus di isi dng executable yg me load DLL tsb.

saya itu masih beginner di delphi..mas.. jadi saya tinggal nulis coding dari buku BORLAND DELPHI Dalam PRAKTEK.. terbitan DATA pas saya jalankan terus tombol run ">" mati alias ngak bisa di clik..dan ada error seperti dalam subject saya itu..

di run ngga' bisa; karena unit prak1; tsb. harus ditempelin di sebuah project. Caranya klik menu File-New-Application, setelah itu klik menu Project-Add to Project...

saya kurang teliti :d ngak tahu nya di dalam button itu captionya harus di tulis CMULAI, dan CSELESAI.. pas saya run langsung finish gitu.. ngak ada inputan.. macem2.. , debug juga ndak ada error ( ada ada pengaruh dengan menghapus unit1.pas ) kalau unit1.pas ngak di hapus..keluar form kosong saja..