TAB MENU
Mikki Books
Info
mikkibooks.blogspot.com | ||||
email : mikkijoin@gmail.com | ||||
Contact : 085865235997 | ||||
GREISINDA PRESS | GRP | |||
Kode Barang | Nama Barang | Harga Bruto | Discount | Harga Netto |
GRP0001 | KEN AROK (KERIS PUSAKA HAUS DARAH) | 5000 | 45 | 2750 |
GRP0002 | KISAH PARA PAHLAWAN BANGSA | 6500 | 45 | 3575 |
GRP0003 | KISAH RADEN AYU TUNJUNG SEKAR | 6500 | 45 | 3575 |
GRP0004 | KOLEKSI HURUF INDAH | 5000 | 45 | 2750 |
GRP0005 | KUMPULAN CERITA RAKYAT MANCANEGARA | 6000 | 45 | 3300 |
GRP0006 | KUMPULAN CERITA RAKYAT NUSANTARA | 6000 | 45 | 3300 |
GRP0007 | KUMPULAN DONGENG RAKYAT NUSANTARA | 6000 | 45 | 3300 |
GRP0008 | KUMPULAN DONGENG SI KANCIL | 5000 | 45 | 2750 |
GRP0009 | KUMPULAN RUMUS MATEMATIKA LENGKAP (BERHITUNG) | 4500 | 45 | 2475 |
GRP0010 | LEGENDA & DONGENG PENGANTAR TIDUR | 6000 | 45 | 3300 |
GRP0011 | MARI BELAJAR MENULIS ANGKA SAMBIL MEWARNA | 5000 | 45 | 2750 |
GRP0012 | PANDUAN PRAKTIS MENGUASAI MICROSOFT OFFICE EXCEL | 8000 | 45 | 4400 |
GRP0013 | PENYEMBUAH ALAMIAH DGN PIJAT URAT & OBAT KUNO | 6000 | 45 | 3300 |
GRP0014 | PERJALANAN HIDUP SYAIKH ABDUL QODIR AL JAILANI RA | 7000 | 45 | 3850 |
GRP0015 | PINTAR IPS SD UNTUK KLS 4,5,6 | 10000 | 45 | 5500 |
GRP0016 | PRIMBON WANITA LENGKAP | 4500 | 45 | 2475 |
GRP0017 | RADEN JAKA TINGKIR BERDIRINYA KERAJAAN PAJANG | 4000 | 45 | 2200 |
GRP0018 | RAHASIA PENERAPAN RUMUS2 MATEMATIKA SD | 9000 | 45 | 4950 |
GRP0019 | RAHASIA PENERAPAN RUMUS2 MATEMATIKA SD BESAR | 23000 | 45 | 12650 |
GRP0020 | RAKSASA DAN PUTRI TIMUN EMAS | 5000 | 45 | 2750 |
GRP0021 | RPAL SESUAI KURIKULUM BERBASIS KOMPETENSI | 10000 | 45 | 5500 |
GRP0022 | RPUL UNTUK SD KELAS 4,5, DAN 6 | 9000 | 45 | 4950 |
GRP0023 | SARI KATA BAHASA INDONESIA UNTUK SEKOLAH DASAR | 4750 | 45 | 2612.5 |
GRP0024 | SKEMA ZONE REFLEKSOLOGI PIJAT URAT SYARAF | 3600 | 45 | 1980 |
Daftar Harga Buku Penerbit Gresinda Press
mikkibooks.blogspot.com | ||||
email : mikkijoin@gmail.com | ||||
Contact : 085865235997 | ||||
GREISINDA PRESS | GRP | |||
Kode Barang | Nama Barang | Harga Bruto | Discount | Harga Netto |
GRP0001 | KEN AROK (KERIS PUSAKA HAUS DARAH) | 5000 | 45 | 2750 |
GRP0002 | KISAH PARA PAHLAWAN BANGSA | 6500 | 45 | 3575 |
GRP0003 | KISAH RADEN AYU TUNJUNG SEKAR | 6500 | 45 | 3575 |
GRP0004 | KOLEKSI HURUF INDAH | 5000 | 45 | 2750 |
GRP0005 | KUMPULAN CERITA RAKYAT MANCANEGARA | 6000 | 45 | 3300 |
GRP0006 | KUMPULAN CERITA RAKYAT NUSANTARA | 6000 | 45 | 3300 |
GRP0007 | KUMPULAN DONGENG RAKYAT NUSANTARA | 6000 | 45 | 3300 |
GRP0008 | KUMPULAN DONGENG SI KANCIL | 5000 | 45 | 2750 |
GRP0009 | KUMPULAN RUMUS MATEMATIKA LENGKAP (BERHITUNG) | 4500 | 45 | 2475 |
GRP0010 | LEGENDA & DONGENG PENGANTAR TIDUR | 6000 | 45 | 3300 |
GRP0011 | MARI BELAJAR MENULIS ANGKA SAMBIL MEWARNA | 5000 | 45 | 2750 |
GRP0012 | PANDUAN PRAKTIS MENGUASAI MICROSOFT OFFICE EXCEL | 8000 | 45 | 4400 |
GRP0013 | PENYEMBUAH ALAMIAH DGN PIJAT URAT & OBAT KUNO | 6000 | 45 | 3300 |
GRP0014 | PERJALANAN HIDUP SYAIKH ABDUL QODIR AL JAILANI RA | 7000 | 45 | 3850 |
GRP0015 | PINTAR IPS SD UNTUK KLS 4,5,6 | 10000 | 45 | 5500 |
GRP0016 | PRIMBON WANITA LENGKAP | 4500 | 45 | 2475 |
GRP0017 | RADEN JAKA TINGKIR BERDIRINYA KERAJAAN PAJANG | 4000 | 45 | 2200 |
GRP0018 | RAHASIA PENERAPAN RUMUS2 MATEMATIKA SD | 9000 | 45 | 4950 |
GRP0019 | RAHASIA PENERAPAN RUMUS2 MATEMATIKA SD BESAR | 23000 | 45 | 12650 |
GRP0020 | RAKSASA DAN PUTRI TIMUN EMAS | 5000 | 45 | 2750 |
GRP0021 | RPAL SESUAI KURIKULUM BERBASIS KOMPETENSI | 10000 | 45 | 5500 |
GRP0022 | RPUL UNTUK SD KELAS 4,5, DAN 6 | 9000 | 45 | 4950 |
GRP0023 | SARI KATA BAHASA INDONESIA UNTUK SEKOLAH DASAR | 4750 | 45 | 2612.5 |
GRP0024 | SKEMA ZONE REFLEKSOLOGI PIJAT URAT SYARAF | 3600 | 45 | 1980 |
mikkibooks.blogspot.com | ||||
email : mikkijoin@gmail.com | ||||
Contact : 085865235997 | ||||
GALAXY | GLX | |||
Kode Barang | Nama Barang | Harga Bruto | Discount | Harga Netto |
GLX0001 | KUNCI PERCAKAPAN HC | 19000 | 35 | 12350 |
GLX0002 | KUNCI PERCAKAPAN SC | 14500 | 35 | 9425 |
GLX0003 | EFC | 6500 | 35 | 4225 |
GLX0004 | KAMUS JEPANG SC | 17000 | 35 | 11050 |
GLX0005 | KAMUS PERANCIS HC | 17000 | 35 | 11050 |
GLX0006 | KAMUS PERANCIS SC | 13000 | 35 | 8450 |
GLX0007 | MICROSFT OFFICE | 11000 | 35 | 7150 |
GLX0008 | ADOBE PAGEMAKER | 10500 | 35 | 6825 |
GLX0009 | RESEP KUE TRADISIONAL | 6000 | 35 | 3900 |
GLX0010 | CANTIK DAN SEHAT | 6000 | 35 | 3900 |
GLX0011 | TERAPI JUS | 5000 | 35 | 3250 |
GLX0012 | RAMUAN TRADISIONAL | 10000 | 35 | 6500 |
GLX0013 | DAJJAL | 6500 | 35 | 4225 |
GLX0014 | AJARAN SITI JENAR | 6000 | 35 | 3900 |
GLX0015 | ILMU KHADAM | 9000 | 35 | 5850 |
GLX0016 | SULAP MODERN | 5500 | 35 | 3575 |
GLX0017 | SULAP KLASIK | 5000 | 35 | 3250 |
GLX0018 | SULAP KARTU | 6000 | 35 | 3900 |
GLX0019 | SULAP TINGKAT TINGGI | 5000 | 35 | 3250 |
GLX0020 | MAGIC FOR KIDS 1 | 4500 | 35 | 2925 |
GLX0021 | MAGIC FOR KIDS 2 | 4500 | 35 | 2925 |
GLX0022 | MAGIC FOR KIDS 3 | 4500 | 35 | 2925 |
GLX0023 | PANDUAN PIDATO | 5500 | 35 | 3575 |
GLX0024 | CONTOH PIDATO | 6500 | 35 | 4225 |
GLX0025 | LATIHAN DASAR PIDATO | 5500 | 35 | 3575 |
GLX0026 | PONSEL | 6000 | 35 | 3900 |
GLX0027 | KAMUS ARAB | 10000 | 35 | 6500 |
GLX0028 | KAMUS ARAB AL MISBAH | 5000 | 35 | 3250 |
GLX0029 | PERCAKAPAN 3 BAHASA | 5000 | 35 | 3250 |
GLX0030 | PANDUAN SURAT DINAS | 8500 | 35 | 5525 |
GLX0031 | PRIMBON LENGKAP | 12500 | 35 | 8125 |
GLX0032 | AYAT AYAT CINTA | 6000 | 35 | 3900 |
GLX0033 | HOROSKOP,SHIO | 5500 | 35 | 3575 |
GLX0034 | 112 CARA MEMBAHAGIAKAN | 5500 | 35 | 3575 |
GLX0035 | MESIN BUBUT | 7000 | 35 | 4550 |
GLX0036 | RESEP INDUSTRI | 9000 | 35 | 5850 |
GLX0037 | PENYEMBUHAN DENGAN DOA | 5500 | 35 | 3575 |
GLX0038 | JUZ AMMA | 6000 | 35 | 3900 |
GLX0039 | INTISARI MUJAROBAT | 6000 | 35 | 3900 |
GLX0040 | ROHUL KUDUS | 5500 | 35 | 3575 |
GLX0041 | CERITA MISTIK | 7000 | 35 | 4550 |
GLX0042 | RUMAHKU SURGAKU | 10000 | 35 | 6500 |
GLX0043 | TERAPI SHOLAT | 5500 | 35 | 3575 |
GLX0044 | KHUTBAH JUMAT | 15000 | 35 | 9750 |
GLX0045 | 43 DOSA KECIL | 13000 | 35 | 8450 |
GLX0046 | SAMUDRA TASAWUF | 12000 | 35 | 7800 |
GLX0047 | KUMP.SHALAT WAJIB | 6000 | 35 | 3900 |
GLX0048 | MEMBELI SURGA | 15000 | 35 | 9750 |
GLX0049 | IMAM AL GHOZALI | 6000 | 35 | 3900 |
GLX0050 | KUMPULAN DOA SC | 14500 | 35 | 9425 |
GLX0051 | GITAR "DEWA" | 9000 | 35 | 5850 |
GLX0052 | GITAR "IWAN FALS" | 9000 | 35 | 5850 |
GLX0053 | INI SULAP BUKAN SIHIR | 5000 | 35 | 3250 |
GLX0054 | THE MASTER | 5000 | 35 | 3250 |
GLX0055 | SULAP TERBESAR | 5000 | 35 | 3250 |
GLX0056 | 16 TENSES BAHASA INGGRIS | 5000 | 35 | 3250 |
GLX0057 | SMS CINTA | 5000 | 35 | 3250 |
Daftar Harga Buku Penerbit Galaxy
mikkibooks.blogspot.com | ||||
email : mikkijoin@gmail.com | ||||
Contact : 085865235997 | ||||
GALAXY | GLX | |||
Kode Barang | Nama Barang | Harga Bruto | Discount | Harga Netto |
GLX0001 | KUNCI PERCAKAPAN HC | 19000 | 35 | 12350 |
GLX0002 | KUNCI PERCAKAPAN SC | 14500 | 35 | 9425 |
GLX0003 | EFC | 6500 | 35 | 4225 |
GLX0004 | KAMUS JEPANG SC | 17000 | 35 | 11050 |
GLX0005 | KAMUS PERANCIS HC | 17000 | 35 | 11050 |
GLX0006 | KAMUS PERANCIS SC | 13000 | 35 | 8450 |
GLX0007 | MICROSFT OFFICE | 11000 | 35 | 7150 |
GLX0008 | ADOBE PAGEMAKER | 10500 | 35 | 6825 |
GLX0009 | RESEP KUE TRADISIONAL | 6000 | 35 | 3900 |
GLX0010 | CANTIK DAN SEHAT | 6000 | 35 | 3900 |
GLX0011 | TERAPI JUS | 5000 | 35 | 3250 |
GLX0012 | RAMUAN TRADISIONAL | 10000 | 35 | 6500 |
GLX0013 | DAJJAL | 6500 | 35 | 4225 |
GLX0014 | AJARAN SITI JENAR | 6000 | 35 | 3900 |
GLX0015 | ILMU KHADAM | 9000 | 35 | 5850 |
GLX0016 | SULAP MODERN | 5500 | 35 | 3575 |
GLX0017 | SULAP KLASIK | 5000 | 35 | 3250 |
GLX0018 | SULAP KARTU | 6000 | 35 | 3900 |
GLX0019 | SULAP TINGKAT TINGGI | 5000 | 35 | 3250 |
GLX0020 | MAGIC FOR KIDS 1 | 4500 | 35 | 2925 |
GLX0021 | MAGIC FOR KIDS 2 | 4500 | 35 | 2925 |
GLX0022 | MAGIC FOR KIDS 3 | 4500 | 35 | 2925 |
GLX0023 | PANDUAN PIDATO | 5500 | 35 | 3575 |
GLX0024 | CONTOH PIDATO | 6500 | 35 | 4225 |
GLX0025 | LATIHAN DASAR PIDATO | 5500 | 35 | 3575 |
GLX0026 | PONSEL | 6000 | 35 | 3900 |
GLX0027 | KAMUS ARAB | 10000 | 35 | 6500 |
GLX0028 | KAMUS ARAB AL MISBAH | 5000 | 35 | 3250 |
GLX0029 | PERCAKAPAN 3 BAHASA | 5000 | 35 | 3250 |
GLX0030 | PANDUAN SURAT DINAS | 8500 | 35 | 5525 |
GLX0031 | PRIMBON LENGKAP | 12500 | 35 | 8125 |
GLX0032 | AYAT AYAT CINTA | 6000 | 35 | 3900 |
GLX0033 | HOROSKOP,SHIO | 5500 | 35 | 3575 |
GLX0034 | 112 CARA MEMBAHAGIAKAN | 5500 | 35 | 3575 |
GLX0035 | MESIN BUBUT | 7000 | 35 | 4550 |
GLX0036 | RESEP INDUSTRI | 9000 | 35 | 5850 |
GLX0037 | PENYEMBUHAN DENGAN DOA | 5500 | 35 | 3575 |
GLX0038 | JUZ AMMA | 6000 | 35 | 3900 |
GLX0039 | INTISARI MUJAROBAT | 6000 | 35 | 3900 |
GLX0040 | ROHUL KUDUS | 5500 | 35 | 3575 |
GLX0041 | CERITA MISTIK | 7000 | 35 | 4550 |
GLX0042 | RUMAHKU SURGAKU | 10000 | 35 | 6500 |
GLX0043 | TERAPI SHOLAT | 5500 | 35 | 3575 |
GLX0044 | KHUTBAH JUMAT | 15000 | 35 | 9750 |
GLX0045 | 43 DOSA KECIL | 13000 | 35 | 8450 |
GLX0046 | SAMUDRA TASAWUF | 12000 | 35 | 7800 |
GLX0047 | KUMP.SHALAT WAJIB | 6000 | 35 | 3900 |
GLX0048 | MEMBELI SURGA | 15000 | 35 | 9750 |
GLX0049 | IMAM AL GHOZALI | 6000 | 35 | 3900 |
GLX0050 | KUMPULAN DOA SC | 14500 | 35 | 9425 |
GLX0051 | GITAR "DEWA" | 9000 | 35 | 5850 |
GLX0052 | GITAR "IWAN FALS" | 9000 | 35 | 5850 |
GLX0053 | INI SULAP BUKAN SIHIR | 5000 | 35 | 3250 |
GLX0054 | THE MASTER | 5000 | 35 | 3250 |
GLX0055 | SULAP TERBESAR | 5000 | 35 | 3250 |
GLX0056 | 16 TENSES BAHASA INGGRIS | 5000 | 35 | 3250 |
GLX0057 | SMS CINTA | 5000 | 35 | 3250 |
- Naruto Shippuden Chapter 581-585 Klik Download
- Naruto Shippuden Chapter 576-580 Klik Download
- Naruto Shippuden Chapter 571-575 Klik Download
- Naruto Shippuden Chapter 566-570 Klik Download
- Naruto Shippuden Chapter 561-565 Klik Download
- Naruto Shippuden Chapter 556-560 Klik Download
- Naruto Shippuden Chapter 551-555 Klik Download
- Naruto Shippuden Chapter 546-550 Klik Download
- Naruto Shippuden Chapter 541-545 Klik Download
- Naruto Shippuden Chapter 536-540 Klik Download
- Naruto Shippuden Chapter 531-535 Klik Download
- Naruto Shippuden Chapter 526-530 Klik Download
- Naruto Shippuden Chapter 521-525 Klik Download
- Naruto Shippuden Chapter 516-520 Klik Download
- Naruto Shippuden Chapter 511-515 Klik Download
- Naruto Shippuden Chapter 506-510 Klik Download
- Naruto Shippuden Chapter 501-505 Klik Download
Komik Naruto Shippuden
- Naruto Shippuden Chapter 581-585 Klik Download
- Naruto Shippuden Chapter 576-580 Klik Download
- Naruto Shippuden Chapter 571-575 Klik Download
- Naruto Shippuden Chapter 566-570 Klik Download
- Naruto Shippuden Chapter 561-565 Klik Download
- Naruto Shippuden Chapter 556-560 Klik Download
- Naruto Shippuden Chapter 551-555 Klik Download
- Naruto Shippuden Chapter 546-550 Klik Download
- Naruto Shippuden Chapter 541-545 Klik Download
- Naruto Shippuden Chapter 536-540 Klik Download
- Naruto Shippuden Chapter 531-535 Klik Download
- Naruto Shippuden Chapter 526-530 Klik Download
- Naruto Shippuden Chapter 521-525 Klik Download
- Naruto Shippuden Chapter 516-520 Klik Download
- Naruto Shippuden Chapter 511-515 Klik Download
- Naruto Shippuden Chapter 506-510 Klik Download
- Naruto Shippuden Chapter 501-505 Klik Download
object Form1: TForm1
Left = 161
Top = 119
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Calculator : Direct Manipulation Style'
ClientHeight = 326
ClientWidth = 522
Color = clGradientInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 522
Height = 313
Align = alClient
object Label1: TLabel
Left = 16
Top = 56
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 1'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 40
Top = 80
Width = 72
Height = 20
Alignment = taRightJustify
Caption = 'Operator'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 16
Top = 104
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 2'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 0
Top = 0
Width = 125
Height = 13
Caption = 'Dibuat oleh Mikki'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Bevel1: TBevel
Left = 132
Top = 131
Width = 40
Height = 166
Style = bsRaised
end
object Bevel2: TBevel
Left = 12
Top = 131
Width = 120
Height = 166
Style = bsRaised
end
object Label5: TLabel
Left = 0
Top = 313
Width = 522
Height = 13
Align = alBottom
Alignment = taCenter
Caption = 'Dibuat oleh Teddy Marcus'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object EdtHasil: TEdit
Left = 16
Top = 24
Width = 217
Height = 28
BevelKind = bkFlat
BorderStyle = bsNone
Color = clGradientActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Button1: TButton
Left = 16
Top = 216
Width = 33
Height = 33
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 56
Top = 216
Width = 33
Height = 33
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 96
Top = 216
Width = 33
Height = 33
Caption = '3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 16
Top = 176
Width = 33
Height = 33
Caption = '4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 56
Top = 176
Width = 33
Height = 33
Caption = '5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 96
Top = 176
Width = 33
Height = 33
Caption = '6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 16
Top = 136
Width = 33
Height = 33
Caption = '7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 56
Top = 136
Width = 33
Height = 33
Caption = '8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = Button8Click
end
object Button9: TButton
Left = 96
Top = 136
Width = 33
Height = 33
Caption = '9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = Button9Click
end
object Button10: TButton
Left = 16
Top = 256
Width = 73
Height = 33
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button10Click
end
object Button11: TButton
Left = 136
Top = 136
Width = 33
Height = 33
Caption = '/'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = Button11Click
end
object Button12: TButton
Left = 136
Top = 176
Width = 33
Height = 33
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 136
Top = 216
Width = 33
Height = 33
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = Button13Click
end
object Button14: TButton
Left = 136
Top = 256
Width = 33
Height = 33
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button14Click
end
object Button15: TButton
Left = 96
Top = 256
Width = 33
Height = 33
Caption = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = Button15Click
end
object EdtOp1: TEdit
Left = 120
Top = 56
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 16
OnChange = EdtOp1Change
end
object EdtOp2: TEdit
Left = 120
Top = 104
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 17
OnChange = EdtOp2Change
end
object EdtOp: TEdit
Left = 120
Top = 80
Width = 113
Height = 21
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 18
OnChange = EdtOpChange
end
object Button16: TButton
Left = 176
Top = 256
Width = 33
Height = 33
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
OnClick = Button16Click
end
object Button17: TButton
Left = 176
Top = 136
Width = 33
Height = 33
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 20
OnClick = Button17Click
end
object btnDetil: TButton
Left = 220
Top = 275
Width = 33
Height = 14
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
OnClick = btnDetilClick
end
object Memo1: TMemo
Left = 267
Top = 15
Width = 249
Height = 274
Alignment = taCenter
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Lines.Strings = (
'Program Calculator Versi M.3'
''
'Dibuat oleh Mikki'
''
'Selamat mencoba')
ParentFont = False
ReadOnly = True
TabOrder = 22
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 528
Top = 288
end
end
Left = 161
Top = 119
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Calculator : Direct Manipulation Style'
ClientHeight = 326
ClientWidth = 522
Color = clGradientInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 522
Height = 313
Align = alClient
object Label1: TLabel
Left = 16
Top = 56
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 1'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 40
Top = 80
Width = 72
Height = 20
Alignment = taRightJustify
Caption = 'Operator'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 16
Top = 104
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 2'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 0
Top = 0
Width = 125
Height = 13
Caption = 'Dibuat oleh Mikki'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Bevel1: TBevel
Left = 132
Top = 131
Width = 40
Height = 166
Style = bsRaised
end
object Bevel2: TBevel
Left = 12
Top = 131
Width = 120
Height = 166
Style = bsRaised
end
object Label5: TLabel
Left = 0
Top = 313
Width = 522
Height = 13
Align = alBottom
Alignment = taCenter
Caption = 'Dibuat oleh Teddy Marcus'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object EdtHasil: TEdit
Left = 16
Top = 24
Width = 217
Height = 28
BevelKind = bkFlat
BorderStyle = bsNone
Color = clGradientActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Button1: TButton
Left = 16
Top = 216
Width = 33
Height = 33
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 56
Top = 216
Width = 33
Height = 33
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 96
Top = 216
Width = 33
Height = 33
Caption = '3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 16
Top = 176
Width = 33
Height = 33
Caption = '4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 56
Top = 176
Width = 33
Height = 33
Caption = '5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 96
Top = 176
Width = 33
Height = 33
Caption = '6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 16
Top = 136
Width = 33
Height = 33
Caption = '7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 56
Top = 136
Width = 33
Height = 33
Caption = '8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = Button8Click
end
object Button9: TButton
Left = 96
Top = 136
Width = 33
Height = 33
Caption = '9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = Button9Click
end
object Button10: TButton
Left = 16
Top = 256
Width = 73
Height = 33
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button10Click
end
object Button11: TButton
Left = 136
Top = 136
Width = 33
Height = 33
Caption = '/'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = Button11Click
end
object Button12: TButton
Left = 136
Top = 176
Width = 33
Height = 33
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 136
Top = 216
Width = 33
Height = 33
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = Button13Click
end
object Button14: TButton
Left = 136
Top = 256
Width = 33
Height = 33
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button14Click
end
object Button15: TButton
Left = 96
Top = 256
Width = 33
Height = 33
Caption = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = Button15Click
end
object EdtOp1: TEdit
Left = 120
Top = 56
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 16
OnChange = EdtOp1Change
end
object EdtOp2: TEdit
Left = 120
Top = 104
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 17
OnChange = EdtOp2Change
end
object EdtOp: TEdit
Left = 120
Top = 80
Width = 113
Height = 21
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 18
OnChange = EdtOpChange
end
object Button16: TButton
Left = 176
Top = 256
Width = 33
Height = 33
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
OnClick = Button16Click
end
object Button17: TButton
Left = 176
Top = 136
Width = 33
Height = 33
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 20
OnClick = Button17Click
end
object btnDetil: TButton
Left = 220
Top = 275
Width = 33
Height = 14
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
OnClick = btnDetilClick
end
object Memo1: TMemo
Left = 267
Top = 15
Width = 249
Height = 274
Alignment = taCenter
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Lines.Strings = (
'Program Calculator Versi M.3'
''
'Dibuat oleh Mikki'
''
'Selamat mencoba')
ParentFont = False
ReadOnly = True
TabOrder = 22
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 528
Top = 288
end
end
Pseudecode membuat kalkulator dengan delphi
object Form1: TForm1
Left = 161
Top = 119
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Calculator : Direct Manipulation Style'
ClientHeight = 326
ClientWidth = 522
Color = clGradientInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 522
Height = 313
Align = alClient
object Label1: TLabel
Left = 16
Top = 56
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 1'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 40
Top = 80
Width = 72
Height = 20
Alignment = taRightJustify
Caption = 'Operator'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 16
Top = 104
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 2'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 0
Top = 0
Width = 125
Height = 13
Caption = 'Dibuat oleh Mikki'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Bevel1: TBevel
Left = 132
Top = 131
Width = 40
Height = 166
Style = bsRaised
end
object Bevel2: TBevel
Left = 12
Top = 131
Width = 120
Height = 166
Style = bsRaised
end
object Label5: TLabel
Left = 0
Top = 313
Width = 522
Height = 13
Align = alBottom
Alignment = taCenter
Caption = 'Dibuat oleh Teddy Marcus'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object EdtHasil: TEdit
Left = 16
Top = 24
Width = 217
Height = 28
BevelKind = bkFlat
BorderStyle = bsNone
Color = clGradientActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Button1: TButton
Left = 16
Top = 216
Width = 33
Height = 33
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 56
Top = 216
Width = 33
Height = 33
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 96
Top = 216
Width = 33
Height = 33
Caption = '3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 16
Top = 176
Width = 33
Height = 33
Caption = '4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 56
Top = 176
Width = 33
Height = 33
Caption = '5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 96
Top = 176
Width = 33
Height = 33
Caption = '6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 16
Top = 136
Width = 33
Height = 33
Caption = '7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 56
Top = 136
Width = 33
Height = 33
Caption = '8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = Button8Click
end
object Button9: TButton
Left = 96
Top = 136
Width = 33
Height = 33
Caption = '9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = Button9Click
end
object Button10: TButton
Left = 16
Top = 256
Width = 73
Height = 33
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button10Click
end
object Button11: TButton
Left = 136
Top = 136
Width = 33
Height = 33
Caption = '/'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = Button11Click
end
object Button12: TButton
Left = 136
Top = 176
Width = 33
Height = 33
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 136
Top = 216
Width = 33
Height = 33
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = Button13Click
end
object Button14: TButton
Left = 136
Top = 256
Width = 33
Height = 33
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button14Click
end
object Button15: TButton
Left = 96
Top = 256
Width = 33
Height = 33
Caption = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = Button15Click
end
object EdtOp1: TEdit
Left = 120
Top = 56
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 16
OnChange = EdtOp1Change
end
object EdtOp2: TEdit
Left = 120
Top = 104
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 17
OnChange = EdtOp2Change
end
object EdtOp: TEdit
Left = 120
Top = 80
Width = 113
Height = 21
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 18
OnChange = EdtOpChange
end
object Button16: TButton
Left = 176
Top = 256
Width = 33
Height = 33
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
OnClick = Button16Click
end
object Button17: TButton
Left = 176
Top = 136
Width = 33
Height = 33
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 20
OnClick = Button17Click
end
object btnDetil: TButton
Left = 220
Top = 275
Width = 33
Height = 14
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
OnClick = btnDetilClick
end
object Memo1: TMemo
Left = 267
Top = 15
Width = 249
Height = 274
Alignment = taCenter
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Lines.Strings = (
'Program Calculator Versi M.3'
''
'Dibuat oleh Mikki'
''
'Selamat mencoba')
ParentFont = False
ReadOnly = True
TabOrder = 22
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 528
Top = 288
end
end
Left = 161
Top = 119
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Calculator : Direct Manipulation Style'
ClientHeight = 326
ClientWidth = 522
Color = clGradientInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 522
Height = 313
Align = alClient
object Label1: TLabel
Left = 16
Top = 56
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 1'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 40
Top = 80
Width = 72
Height = 20
Alignment = taRightJustify
Caption = 'Operator'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 16
Top = 104
Width = 96
Height = 20
Alignment = taRightJustify
Caption = 'Operand - 2'
Color = clInactiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 0
Top = 0
Width = 125
Height = 13
Caption = 'Dibuat oleh Mikki'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
Visible = False
end
object Bevel1: TBevel
Left = 132
Top = 131
Width = 40
Height = 166
Style = bsRaised
end
object Bevel2: TBevel
Left = 12
Top = 131
Width = 120
Height = 166
Style = bsRaised
end
object Label5: TLabel
Left = 0
Top = 313
Width = 522
Height = 13
Align = alBottom
Alignment = taCenter
Caption = 'Dibuat oleh Teddy Marcus'
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object EdtHasil: TEdit
Left = 16
Top = 24
Width = 217
Height = 28
BevelKind = bkFlat
BorderStyle = bsNone
Color = clGradientActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object Button1: TButton
Left = 16
Top = 216
Width = 33
Height = 33
Caption = '1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 56
Top = 216
Width = 33
Height = 33
Caption = '2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 96
Top = 216
Width = 33
Height = 33
Caption = '3'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 16
Top = 176
Width = 33
Height = 33
Caption = '4'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 56
Top = 176
Width = 33
Height = 33
Caption = '5'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 96
Top = 176
Width = 33
Height = 33
Caption = '6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button6Click
end
object Button7: TButton
Left = 16
Top = 136
Width = 33
Height = 33
Caption = '7'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button7Click
end
object Button8: TButton
Left = 56
Top = 136
Width = 33
Height = 33
Caption = '8'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = Button8Click
end
object Button9: TButton
Left = 96
Top = 136
Width = 33
Height = 33
Caption = '9'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = Button9Click
end
object Button10: TButton
Left = 16
Top = 256
Width = 73
Height = 33
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button10Click
end
object Button11: TButton
Left = 136
Top = 136
Width = 33
Height = 33
Caption = '/'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = Button11Click
end
object Button12: TButton
Left = 136
Top = 176
Width = 33
Height = 33
Caption = '*'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = Button12Click
end
object Button13: TButton
Left = 136
Top = 216
Width = 33
Height = 33
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = Button13Click
end
object Button14: TButton
Left = 136
Top = 256
Width = 33
Height = 33
Caption = '+'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button14Click
end
object Button15: TButton
Left = 96
Top = 256
Width = 33
Height = 33
Caption = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = Button15Click
end
object EdtOp1: TEdit
Left = 120
Top = 56
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 16
OnChange = EdtOp1Change
end
object EdtOp2: TEdit
Left = 120
Top = 104
Width = 113
Height = 21
Color = clGradientInactiveCaption
ReadOnly = True
TabOrder = 17
OnChange = EdtOp2Change
end
object EdtOp: TEdit
Left = 120
Top = 80
Width = 113
Height = 21
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 18
OnChange = EdtOpChange
end
object Button16: TButton
Left = 176
Top = 256
Width = 33
Height = 33
Caption = '='
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
OnClick = Button16Click
end
object Button17: TButton
Left = 176
Top = 136
Width = 33
Height = 33
Caption = 'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 20
OnClick = Button17Click
end
object btnDetil: TButton
Left = 220
Top = 275
Width = 33
Height = 14
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
OnClick = btnDetilClick
end
object Memo1: TMemo
Left = 267
Top = 15
Width = 249
Height = 274
Alignment = taCenter
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Lines.Strings = (
'Program Calculator Versi M.3'
''
'Dibuat oleh Mikki'
''
'Selamat mencoba')
ParentFont = False
ReadOnly = True
TabOrder = 22
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 528
Top = 288
end
end
Menerima Pesanan Alat Peraga Untuk Sekolah, Untuk Harga dan diskon bise Nego..,.
Alat Peraga SD, SMP & SMA
Menerima Pesanan Alat Peraga Untuk Sekolah, Untuk Harga dan diskon bise Nego..,.
We are on