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 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Tanya : algoritma membuat akar pangkat ??
by whs-84 in Tip n Trik Pemrograman more 16 years ago - Cari j2sdk1.4.2_10 ?
by umarbakri in Hal umum tentang Pascal Indonesia more 16 years ago - [tanya] gmana cara buat bar code
by charlie in Hal umum tentang Pascal Indonesia more 17 years ago - Access denied.......
by mas_kofa in Hal umum tentang Pascal Indonesia more 16 years ago - tentang ocx
by w11 in Network, Files, I/O & System more 12 years ago - Mengambil Nilai Terbesar Dari 2 Colom Pada Tabel Yang Sama
by isoke in MsSQL more 15 years ago - Epson LQ1150 custom paper size
by _lmz in Network, Files, I/O & System more 14 years ago - ambil tanggal & jam milik komputer server
by imunk in Enginering more 18 years ago - cara mengisi DBGrid???
by nrkhlsmjd in Tip n Trik Pemrograman more 16 years ago - minta masukan, query ngecek buku ada atau lagi dipinjam...
by imunk in Network, Files, I/O & System more 17 years ago