Arsip: Cannot Find Implementation of Method TLMChange ?

 
user image
more 13 years ago

hermawan-dki

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
user image
more 13 years ago

DelphiExpert

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...
user image
more 13 years ago

hermawan-dki

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...
user image
more 13 years ago

DelphiExpert

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.
user image
more 13 years ago

hermawan-dki

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..
user image
more 13 years ago

DelphiExpert

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...
user image
more 13 years ago

hermawan-dki

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..
user image
more 13 years ago

cyber_hecker

wakakaka.... DE mberitahu caranya sampe berbusa-busa mulutnya.. tapi gak mudenk juga.... kalo unit yang kamu buat itu udah di add berdasarkan cara yang diberitau oleh DE, maka agar form tempelan tersebut bisa jalan sebagai form utama : 1. dari menu PROJECT > OPTIONS pilih tab FORMS 2. pada combobox pilih nama form kamu yang baru aja di tempel selamat mencoba...
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com