Post Reply 
What i am doing wrong?
02-22-2016, 10:15 PM
Post: #1
What i am doing wrong?
I have this code:

ICON Inicio 89504E470D0A1A0A0000000D4948445200000140000000F0080300000046F34D5900000084504C54​45303030000000FFFFFF5F5F5F222222E7FFFF444444F3FFFFFFFFF3141414CECEFEFFFFE7B4B4FE​8D8D8DFEB4B42727275252529C9C9C808080B6B6B6DBFEDBFECECEE7FFE73A3A3AA3A3A3DBFFDB66​6666FFCECE727272E7E7FFB4B4FFFFCFCFA8A8A8747474FFB4B4575757CECEFF818181C3C3C3FFDB​DBDBDBFF363636828282101010D16A2FC70000002C74524E53000000000000000000000000000000​0000000000000000000000000000000000000000000000000000000000F3330E20000004DF494441​547801ECD5ED6EE2301085E1E68340A081ED1676F7FEAF74C7710811903F9E48F591DF23B532A127​6A1E399E8F8F8A38627E3571A402D017009D01D019009D99009BAADDC50B4DD5ED0FDD3462FAE3A1​EB8FE1F2A96DEA43D7EDEF6B326506AC3EC7CFA7F619B01AB5005CC90370183F9FFB4B008C521603​1CB720802BB903B6134ED3FD7A061CB720802B9901BFA68D36344F80DDEFF00D802B9901BFFB7008​9EFBE30BE0B5B54F00AE6406BC7641C5F49AC5108996830D1800573203EE8676674443FD0A78B22D​08E04A1E80B7CBB10E3F2FAFF0BEB62D08E04A1E80363FEAC184DE00DA16BC06B4E60E38FCF4BF9D​4F1E80C6F3C7DEE07780B605BF4640FB2BCBAD0770CE02F0DC7EDB1BFC16F0D05D7A031C7AFBDE46​B50D1532650178EBFF06AC7780F5B9AA0CF0D6872D187F939805A0CDDEF06A2EA770F53901DA9530​389A789537F89105E0F486BE05ACCF23A01D865515DF6312330192D400E80C80CE00E80C80CE00E8​4C04FCE748E1F511705C25C6BA25D727C0F47B8472C97500010450BA0E2080004AD701041040E93A​800002285D07104000A5EB000208A0741D40000194AE03B80DA0E32ED62DB91E016D959EC2EB1190​24871DE8AC73066E71064ACFC12CA6B0F22300285D07104000A5EB000208A0741D40000194AE0308​2080D27500010450BA0E2080004AD70104300B40C75DAC5B723D02DA2A3D85D72320490E3BD059E7​0CDCE20C949E83594C61E5470050BA0E2080004AD701041040E93A800002285D07104000A5EB0002​08A0741D40000194AE03086016808EBB58B7E47A04B4557A0AAF4740921C76A0B3CE19B8C519283D​07B398C2CA8F00A0741D40000194AE03082080D27500010450BA0E2080004AD701041040E93A8000​02285D0710C02C001D77B16EC9F50868ABF4145E8F802439EC40679D33708B33507A0E663185951F​0140E93A800002285D07104000A5EB000208A0741D40000194AE03082080D27500010450BA0E2080​59003AEE62DD92EB11D056E929BC1E014972D881CE3A67E01667A0F41CCC620A2B3F0280D2750001​0450BA0E2080004AD701041040E93A800002285D07104000A5EB000208A0741D4000B30074DCC5BA​25D723A0ADD253783D0292E4B0039D75CEC02DCE40E93998C514567E0400A5EB000208A0741DC09F​00FCDF5EB9F5A60E0341B8BE6D12A115521F5A41C06DDDF442F9FFFFAFB37654F5E8483C602A11BC​03C44EBC63894FE3CD75FD0505B868BB0254800A70D17605A80015E0A2ED0A50012AC045DB15A002​54808BB62B40057815002B7681B7657B0188D9F96ADC5E00AACE9602AC9402AC9402AC9402AC9402​3C2DF61B72A70A6E18A0371075759BF4DB30EE4E15DC30C0BDE5689F42DD262D03C4F98B20409242​67CC33B971889849287B22EFC3CA1BDAF8177CE6A4CAE2389852959D02704B3EC81329E5E600E2E7​98D9BA981C6E125BDC589B7C604EDCBF4E98E5511ECA22C77E8FC95BC84E01B89E5CF1A1D4360770​37D9E470E10290D117E5A5801B1CCD711826A0C9A3D4CB624FC324C6E22C4778F6A5FFF2D7004076​36C59CC002626690A843D8E8010944B664947A597CEFC61D4C1F9FD9F90330C7B63180C92057B993​A1D93D465C8C0FE8869985BCA051B03E1C10428CB909CA22B2164BFB934B32ECCCD7401D96EE29E7​7445A17C6F1EE03FCAA7F2175C77A17D5B01380EE53D3B0BE98A97D9B815807F26055829737734AA​0A1DBF0119AD7B042CDFD0D30000000049454E44AE426082;
ICON Geral 89504E470D0A1A0A0000000D4948445200000140000000F0080300000046F34D5900000078504C54​45FFFFFFFFDB8F3900000000000066B6FFB6660000398FDBFFB666003966B6390066B6FFFFDB8F66​FFFFDB8F3900398FDBFFFFB666398FDBFFFFDB8F3900398F66B6FFDFDFDFD7D7D7390039B66666B6​8F66660000DBDBDBFFB6B6DADADAFFFF660000668F668F6600668F3939FFDBDB0808084040402020​20CBD466740000002874524E53000000000000000000000000000000000000000000000000000000​00000000000000000000000000F694B057000006B8494441547801EC958B76AA3A1086832362A5A0​05DDB577DBEEF3FEAF78026E5B1190CB042691FF5BEBA0FBD80C992F931905000000000000000000​00000000000000000000000000000027F0664473A57CA24520BD1747596A7F5AE49DF43E9CC55B85​FA798FFAEB4B14AF95DA3C24D2FB7097749B287F3750F03F8F23F04756A0B70FD4533850F0C73132​18E525F5E83B3CDC08998240E56F9F071B219310B879D15D50F94434FFF9702A3769816AA947487E​8B5F4F1F6EE5262E3023DD9D7FB8951B04BAF09226F2BBFB161E3F1CCBCD0A811822FDD1CADCCE4D​5820FDFBCFDDDC6405D2D9D3D1DC4405D2C5A78BB941A00B2FA90302B9A00772C114E6423498BF69​081CAEFE2090CDFBE308BCDFB0C06900814C209009043281402610C804029940201308644027A437​E228F47102067B01814C209009043281402610C8E45CA04F196BE92DB945A102BD55A8362F30D885​9240B59C4BEFC9294A02A31815D88592C01405D889A2C019D13691DE925B5C566014EFA4B7E416A5​2BEC1F42E93D3945DD10F18908DDB005E702750B5C045A9D7E7877FAB757E9CDB940A1027F49AF77​C2AC3ED12B73FA0954DE3E90DEB925D408CCAFF05BFDB2AC5B828C1A814D4304024FD4096C00024F​402013086402814C3802533D68D6D20948D34FA037A345A0A2CF64F3904867204CCF0ACC89623AE0​26D389EE4BB30AFC82410DF55BA60546DF81F4E66DA0A7400C911324BD01D781402610C804029940​2013086402814C20900904328140269D05FA44B493DEB54574AF406F1F486FDA267A085C85D29BB6​09086402814C20900904328140267D05FA443497DEBC71B2AC88D65D967416E8CD681128EF4E7F7D​95CED73C59756C5EBA18A47E2F4A77D2A90E437EBD965DAE160416C80446F10815985FE1B7DB9B26​99C0B4536FEF29F0468748D6E1699BB4FBDB7CE010496FD92E740546719BF6F4630E0E0B6457D83F​34B6A6336754FCE7D4F91D22A9AEACBA6142A5EF307844B7C045A0FBBB7E449FC9E6A1BA1B96FDC1​609928A69AAB5CE50F064B6415F85565904A4F55FA0E7281D17750FEFF74F64155BF80237543E44C​2055FE02AE723634A8EEB74942F514FFEEE7B3ACAB9D405F87DC49A76B1CFAA887AA245185AD9615​E8ED03E974CDD3562095BEA8AA5FAFE2AD42E974CD03814C20B023A549714D60F36899A0C0CB7FA3​02BB01814CA405A6BA09ACA52570E82BF0676155136CE96F468B20FA4CA415F028E54AF5542EA40A​5DD4FEFD514C07A72F327117D2F12BF50C7A7B15D875E5D11E55F6C7166402FF4A4BE06044A02ADE​EF2E31B321329796C081B84BF30A2C0824E99C46850CAC2D4E9869F9E3A55B756F27E68F996FD9E0​D4FC7113BEB8BA34397FFC8AF9697FC54932194CE49C0F9149DA53267B16045A13C92920D09AB421​D09A484E0181D6A40D81D644720A08B4266D08B426925340A03569778BE4CD88E64AF9448B40DAC1​88699B8CB4D4FEB4C83B690357693E673981DE2AD4CF7BDBEBAFE99CE50446F15AA9CD4322E3A535​4DE72C3844D26DA2FC9D8C96F6549E3355C37B53E7E5DE3E504FA1B4A046AACED9B8C05E21F4D95A​3E4272C63867FA38D1C9A0BF7DB67D84A871CEB9A7C0CD8BBE1DA9AEDBB5A09F664638E79E02D552​B796E833B17C149F9D73F1B47F9BDF7FCC57F4159811C574B07C92FC9E73F1B48DCD5F9E40BDA72F​CB0DAAD339579C369988CE14187DDB3F4B8EE75C71DAE202ED1F2239C773AE386DE302FDBC2738A0​A41B5543E498BB89E8850AF456A11E5C3767B0367723412E05AAE55C3AB1B118466014A3023B05B9​14984EA60087103823DA26D2798DC6201518C53BE9BC4663982BEC1F42E9C4C662C8219212D1CD0F​13E302750B5C04CACF1ED1E7045AA1F90AFC258AA9F62A67A3468F6A9F32D32E33A8C0AB15B8D4FE​B4C83B6903DCDC8D04A917F8B77651D62B95BA77BBFE8615980D9179EDA27CD06C1E5C6F93430A6C​20DD26CADF490B60E76E24482F81DE3E504FA1B40076EE4682F412A8EFB0F3234454A0F2B7CFAE8F​1059819B17DD05957F75D4588FA440B5D42324BFC5AFD21A18B99B8972A2FBD2D4F1396C46202312​043223E557F84D5AC3E8691B8C8421623C925340A035690F27F0FFF6EA6507411888C270B1202872​1130F1B2D1C4D4F77F4387951B174A49A693FCDF82E5647A527A924680C91C9B009399640A012673​6C024C669211C17F844426E167D9C6FBDCB9C2FB6DA9BDCB6261B55BB3645225F949903BED14CCCA​F6B57C0F76EFDF2CACF66AFD3FA9693BE7FAE3A09D815DE334B8E2A4BD45AC97DEA4EC5CBA4BAD1D​8061F20F5321518AE96ABB42B4F537790547699F4E7B13AB2AA990E6410F47695A7FA74922700323​CD013EB597B06C2E915C7B09000000000000E0BB371EC59E9226B7333D0000000049454E44AE4260​82;


Geral();
MENU();

Inicio();
Delta();


//----------------------------------------------------------------

EXPORT Co()
BEGIN
Inicio();
END;

MENU()
BEGIN
LOCAL AA:=0;
CHOOSE(AA,"Menu",{"- Item 1","- Item 2"});

END;


//----------------------------------------------------------------

Inicio()
BEGIN
LOCAL m, m1, mx,my;
BLIT(G0,"Inicio");
TEXTOUT_P("P1",5,36,1, RGB(0,0,255));
REPEAT

m:=MOUSE;
m1:=B→R(m(1));
IF SIZE(m1)≠ 0 THEN

mx:=m1(1);
my:=m1(2);
Delta(mx,my);

END;
UNTIL ISKEYDOWN(4);

END;

Delta(X,Y)
BEGIN

IF 3<=X<=64 AND 27<=Y<=53 THEN
MENU();
END;

END;



But i can't chose any item. What I am doing wrong?

   
Find all posts by this user
Quote this message in a reply
02-23-2016, 07:00 PM
Post: #2
RE: What i am doing wrong?
You are repeatedly either doing nothing or you are calling the MENU() subprogram and never actually handle the selection from the CHOOSE() command. I have not run your program but just from looking at the code it seems that you are simply repeatedly displaying your menu with no code to actually do anything with the selected options.

Graph 3D | QPI | SolveSys
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)