у «Events» і додати подія «onShow» в місці, вказаному на малюнку нижче.
Після подвійним натисканням по події перейти у вікно введення коду і додати наступний шматок коду:
predicates: window: showListener. (_ Source, _Data):-=listEdit_ctl:tryGetVpiWindow(),=listEdit1_ctl:tryGetVpiWindow(),=listEdit4_ctl:tryGetVpiWindow(),=listEdit2_ctl:tryGetVpiWindow(),=listEdit6_ctl:tryGetVpiWindow(),=listEdit3_ctl:tryGetVpiWindow(),=listEdit7_ctl:tryGetVpiWindow(),=listEdit5_ctl:tryGetVpiWindow(),!,:lboxAdd (Mainboard, [«ASUSTeK DSBF-D/SAS/2GBL (RTL) Dual Socket771 lt; i5000P gt;», «GigaByte GA-P35-DS4 (RTL) Socket775», «INTEL S3000AHV (RTL) Socket775 lt; i3000 gt;»]) ,: lboxAdd (Cpu, [«Intel Xeon X5355 BOX Active or 1U Passive 2.66 gt;», «Intel Pentium 4 3.4», «AMDATHLON - 64 X2 +4600 +»]) ,: lboxAdd (Video, [«Albatron NVidia GeForce4 Ti4200 »,« 512Mb lt; PCI-E gt; DDR Gigabyte GV-NX86T512H (RTL) »,« 768Mb lt; PCI-E gt; DDR MSI MS-V801 NX8800GTX-T2D768E-HD-OC (RTL) »]) ,: lboxAdd ( Ram, [«HYUNDAI/HYNIX DDR-II DIMM 1Gb lt; PC - 5300 gt;», «Corsair lt; TWIN3X2048-1333C9DHX gt; DDR-III DIMM 2Gb lt; PC - 10664 gt;», «Kingmax DDR-II DIMM 2Gb KIT 2 * 1Gb lt; PC - 8500 gt; »]) ,: lboxAdd (Rom, [« RAM amp; DVDR/RW amp; CDRW ASUS DRW - 1814BL »,« RAM amp; DVDR/RW amp; CDRW LG GSA-E50L »,« RAM amp; DVDR/RW amp; CDRW TSST SH-S203D »]) ,: lboxAdd (Power, [« ZALMAN lt; CNPS8700 LED gt; (RTL) Cooler for Socket775/754/939/940/AM2 »,« HighPaq lt; FSC-H004-Silver gt; »,« Glacial Tech lt; Igloo 7320 TC (E) gt; Cooler for Socket AM2/754/939/940/F »]) ,: lboxAdd (Monitor, [« 19 MONITOR Acer AL1916Cs »,« 17 MONITOR 0.20 Samsung SyncMaster 793DF »,« 17 'MONITOR ASUS VB171D BK »]) ,: lboxAdd (Hdd, [« 750.0 Gb SATA-II 300 Hitachi 7200rpm »,« 250 Gb SATA-II 300 Seagate Barracuda 7200rpm »,« 500 Gb SATA-II 300 Western Digital 7200rpm »]).
onShow (_, _).
Після цього випадають списки заповнюються даними, які ми вказали.
4.8 Створення бази знань
Для створення бази знань ми використовуємо відповідні предикати, що мають два параметра. Перший параметр - найменування пристрою (вказується в лапках, тому що строковий тип), другий - його ціна (цілий тип). У розділі пропозицій вводимо необхідні значення.
predicates
mainboard: (string, integer) nondeterm (i, o).
cpu: (string, integer) nondeterm (i, o) .: (string, integer) nondeterm (i, o) .: (string, integer) nondeterm (i, o) .: ( string, integer) nondeterm (i, o) .: (string, integer) nondeterm (i, o) .: (string, integer) nondeterm (i, o) .: (string, integer) nondeterm (i, o). («ASUSTeK DSBF-D/SAS/2GBL (RTL) Dual Socket771 lt; i5000P gt;», 15300). («GigaByte GA-P35-DS4 (RTL) Socket775», 10000). («INTEL S3000AHV (RTL) Socket775 lt; i3000 gt; », 5600). (« Intel Xeon X5355 BOX Active or 1U Passive 2.66 », 16800). (« Intel Pentium 4 3.4 », 6200). (« AMD ATHLON - 64 X2 4600+ », +8500). (« Albatron NVidia GeForce4 Ti4200 », 1200). (« 512Mb lt; PCI-E gt; DDR Gigabyte GV-NX86T512H (RTL) », 4000). (« 768Mb lt; PCI-E gt; DDR MSI MS-V801 NX8800GTX-T2D768E-HD-OC (RTL) », 20000). (« HYUNDAI/HYNIX DDR-II DIMM 1Gb lt; PC - 5300 gt; », 550). (« Corsair lt; TWIN3X2048-1333C9DHX gt; DDR-III DIMM 2Gb lt; PC - 10664 gt ; », 15500). (« Kingmax DDR-II DIMM 2Gb KIT 2 * 1Gb lt; PC - 8500 gt; », 7000). (« RAM amp; DVDR/RW amp; CDRW ASUS DRW - 1814BL », 1000). (« RAM amp; DVDR/RW amp; CDRW LG GSA-E50L », +1300). (« RAM amp; DVDR/RW amp; CDRW TSST SH-S203D », 1500). (« 750.0 Gb SATA-II 300 Hitachi 7200rpm », 11000). (« 250 Gb SATA-II 300 Seagate Barracuda 7200rpm », 1800). (« 500 Gb SATA-II 300 Western Digital 7200rpm », 5400). (« ZALMAN lt; CNPS8700 LED gt; (RTL) Cooler for Socket775/754/939/940/AM2 » , 1500). («HighPaq lt; FSC-H004-Silver gt;», 1200). («Glacial Tech lt; Igloo +7320 TC (E) gt; Cooler for Socket AM2/754/939/940/F», 3 700). («19 MONITOR Acer AL1916Cs», 7000). («17 MONITOR 0.20 Samsung SyncMaster 793DF», 5000). («17 'MONITOR ASUS VB171D BK», 5600).
4.9 Додавання обробника кнопки
Щоб додати обробник кнопки «Вивести вартість», необхідно у вікні «Properties» перейти на вкладку «Events» і додати подія «onCost_pushButtonClick» в місці, вказаному на малюнку нижче.
Після подвійним натисканням по події перейти у вікно введення коду і додати наступний шматок коду:
predicates: button: clickResponder. (_ Source)=button: defaultAction: -=listEdit_ctl: getText (),=listEdit1_ctl: getText (),=listEdit2_ctl:getText(),=listEdit3_ctl:getText(),=listEdit4_ctl:getText(),=listEdit5_ctl:getText(),=listEdit6_ctl:getText(),=list...
