Arsip: Cannot Find Implementation of Method TLMChange ?

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

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

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

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.

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

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

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

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



more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- DBGrid & SQL Server
by tAtA in Tip n Trik Pemrograman more 12 years ago - image pada procedure
by willbrig in Tip n Trik Pemrograman more 13 years ago - Delphi vs Ms.Access
by wiedhodho in Hal umum tentang Pascal Indonesia more 14 years ago - How to make appearance smootly?
by johnizzy in Form Enhancement & Graphical Controls more 12 years ago - Size Kaos Biar Nga Trouble
by saysansay in Hal umum tentang Pascal Indonesia more 14 years ago - halaman dinamis fastreport????
by bintanghtm in Reporting more 12 years ago - ribet dengan stok
by e_soep in Tip n Trik Pemrograman more 11 years ago - ASK : Cara memasukkan checkbox / checklist ke dbgrid
by akbaaar in Hal umum tentang Pascal Indonesia more 8 years ago - DBGrid masking??
by adokonax in Tip n Trik Pemrograman more 14 years ago - recovery ms sql server 2000
by ndenkltop in Lain-lain more 13 years ago