Arsip: operasi untuk dianrata bilanagan

more 14 years ago
andriyanto
teman teman bagai mana ya untuk pengoperasian apabila saya mau bilangan diantara = 0 sampai= 3 saja yang saya mau setting, untuk diluar itu ada message error, tolong ya, misal saya set angka 3 dimana misal A=3,maka edit.text:= 4 +A akan menunjukan angka 7 tapi apabila saya masukan angka 4 yang seharusnya nilai 8 ada mesage error begitupun dengan angka 0, akan menunjukkan bil operasi, tapi apabila saya tulis 4 maka message error yang keluar , terima kasih banyak

more 14 years ago
aireda
diperjelas dung masalahnya.... yar yang mau bantuin ga bingung....
liat tuch... bung DelphiExpert ja kebingungan....
xixixixixix....

more 14 years ago
portege
uses
idGlobal;
onKeyPress(..)
if not(key in ['1','2','3',BACKSPACE]) then
key:=CHAR0;

more 14 years ago
jayadi888
Mungkin bahasa andriyanto harus diperbaiki agar forum ini ngerti maksud-nya :)

more 14 years ago
ksatria_77
Yuhuuuuuu
ooo tau tau maksudnya..
gini ya : kamu mau bilangan diantara 0=<X<=3
dan bilangan X itu mau dioperasikan bebas ya,terus bilangan yang berada diluar jangkauan X apabila dioperasikan akan muncul fungsi error ?
misal: X=1 jadi (4 + X =5...benar)
misal: X=4 jadi (1 + X =5...error)
so..
procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
y:real;
z:real;
begin
x:=StrToFloat(edit1.Text) ;
if (x>=0) and (x<=3) then
begin
y:=strtofloat(edit2.Text);
z:=x+y;
edit3.Text:=FloatToStr(z);
end else ShowMessage('error');
end;
end.
Muddah2an kayak gini ya maksudnya hehehe
adik tingkatnya bosenjadiprogrammer

more 14 years ago
bosenjadiprogrammer
seep mendukung..
kita satu kantor..wekekek satu almamater juga..
musibah bagi kantor yang membayar kita berdua, wekekekke. :twisted:

more 14 years ago
yayaretina
kemaren mau posting.. di lock, eh skrg can post dah di jawab ma ksatria.. well idem deh...
yang rukun ya... jgn berantem... kekekek...
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
- Masalah DbXpress dan QuickReport
by sepoix in Reporting more 12 years ago - Virus Atau Bukan...Yg Gue Bantai.....xixixixixi
by saysansay in Bedah Kasus more 13 years ago - tolongin donk ada yang punya saran ga????
by alvonz in Hal umum tentang Pascal Indonesia more 11 years ago - [ HELP ] Pencerahan tentang database yang sering digunakan.
by binyo in MySQL more 9 years ago - Manggil perintah dalam DLL yang di buat C++
by aandrie77 in Enginering more 10 years ago - menghitung invers cos...???
by alvian_tc in Tip n Trik Pemrograman more 11 years ago - Account yg didisable
by unrevealerror in Kritik & Saran more 10 years ago - adoquery dan combobox (tolong dijawab yaaaa)
by goodday in Tip n Trik Pemrograman more 15 years ago - Tampilan dbedit / dbimage supaya kosong ?
by debby in Hal umum tentang Pascal Indonesia more 13 years ago - Ada yang punya komponen Mysql ???
by kingstoneboy in Enginering more 14 years ago