Arsip: Operasi aritmatik pada Edit untuk Form Penjualan...

more 13 years ago
ii_irwan
Saya mau tanya..
SAYA punya form yang isinya edit1a,edit1b,edit2a,edit2b, edit1 , edit2, edit3
edit3 adalah hasil dari edit1+edit2
edit1 = hasil jumlah dari edit1a dan edit1b
edit2 = hasil jumlah dari edit2a dan edit2b
saya memakai operasi ini untuk mengoperasikan penjumlahan ..
edit1.text := Inttostr(strtoint(edit1a.text)+strtoint(edit1b.text));
edit2.text := Inttostr(strtoint(edit2a.text)+strtoint(edit2b.text));
Edit3.text := Inttostr(strtoint(edit1.text)+strtoint(edit2.text));
di event formshow saya set edit1a,edit1b,edit2a,edit2b,edit1,edit2,edit3 dengan nilai 0 dengan cara edit1.text := '0'; begitupun jg edit2 dan edit3
yang ingin saya. tampilkan adalah... saat form di tampilkan . edit1a,edit1b,edit2a,edit2b,edit1,edit2,edit3 nilainya langsung terset seperti di event formshow.
di edit1a pada event OnChange saya beri perintah.
Edit1.text := Inttostr(strtoint(edit1a.text)+strtoint(edit1b.text));
(begitupun juga di edit1b event OnChange)
di edit2a pada event OnChange saya beri perintah.
Edit2.text := Inttostr(strtoint(edit2a.text)+strtoint(edit2b.text));
(begitupun juga di edit2b event OnChange)
_____________
yang jadi masalah saat saya mau menampilkan form ini . saya .mendapatkan error yaitu "edit1.text is not valid integer"
saya g tau dimana naruh . perintah
Edit3.text := Inttostr(strtoint(edit1.text)+strtoint(edit2.text));
atau cara saya terlalu primitif ya heheh.
mohon pencerahannyaa..
(*ini berlaku pada form penjualan dengan 1 no transaksi penjualan dan 2 jenis penjualan (penjualan obat bebas dan penjualan obat resep) asumsi saya . 1 no trans = 2 detil jual yaitu bebas dan resep.)
MOHON PENCERAHANNYA.....!

more 13 years ago
ahmad
Mungkin Edit1.Text blm terset 0 jadi masih karakter null.. coba liat lagi programmnya kemudian supaya tidak bingung bnyk skali konversi inttostr atau sebliknya.. sebaiknya gunakan variable..
misal var a,b,c : integer;
a := strtoint(edit1.text);
b := strtoint(edit2.text)
c := a+b;
edit3.text := inttostr(c);
mungkin error diatas harus dicek sequensial penempatan codingnya.. pastikan inisialisasi nol harus diawal baru kemudian process penjumlahn... untuk memastikan silahkan trace [F8]..

more 13 years ago
purnomo2007
Mungkin pas kamu RUn aplikasinya di komponen edit masih ada tulisan "edit1" dan begitu juga dengan komponen edit lainnya. MEnding kamu delete semua aja property text di tiap komponen edit sehingga properti text nya kosong gak ada isinya.

more 13 years ago
ulyl86
setuju dengan mas ahmad kemudian sintaknya tulis saja di form show...atau bisa dengan procedure/fungsi!!nanti procedure atau fungsinya di panggil di form show..!!
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Tampilan rupiah
by xproof in Tip n Trik Pemrograman more 14 years ago - Masalah muncul ketika eksekusi .exe,masalah dari RAVE
by sudrun in Reporting more 14 years ago - Tab SHEET lebih menarik...
by akudana in Hal umum tentang Pascal Indonesia more 13 years ago - Master-detail di Fastreport v3
by khairul in Reporting more 14 years ago - Store Procedure Insert,Update, Delete SQL Server
by IdrisZZ in Hal umum tentang Pascal Indonesia more 15 years ago - refresh per menit
by javaman in Hal umum tentang Pascal Indonesia more 16 years ago - fungsi scanline
by Casanova in Multimedia & Graphic Enhancement more 15 years ago - Deteksi error zeos
by om20020 in MySQL more 14 years ago - NewBie, tolong kasih saran buat Sistem Ujian Online !!
by Bl4ckNinj4z in Hal umum tentang Pascal Indonesia more 16 years ago - mapping dengan delphi (GPS)
by skh_cay in Hal umum tentang Pascal Indonesia more 14 years ago