{"id":381,"date":"2022-04-19T17:47:41","date_gmt":"2022-04-19T17:47:41","guid":{"rendered":"https:\/\/algomojo.com\/blog\/?p=381"},"modified":"2023-09-13T06:09:53","modified_gmt":"2023-09-13T06:09:53","slug":"smart-button-trading-module-trade-automation-amibroker-afl-code","status":"publish","type":"post","link":"https:\/\/algomojo.com\/blog\/smart-button-trading-module-trade-automation-amibroker-afl-code\/","title":{"rendered":"Smart Button Trading Module – Trade Automation – Amibroker AFL Code"},"content":{"rendered":"\n

This Algomojo Button trading module provides 4 modes of the button to place orders with a single click directly from Amibroker using simple smart order controls.<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Four Button Types<\/strong><\/p>\n\n\n\n

BE \u2013 Buy Entry Button \u2013 Enter longs for the selected quantity
BX \u2013 Buy Exit Button \u2013 Exit All Long Open Positions only if the Position is running long else do nothing
SE \u2013 Short Entry Button \u2013 Enter Shorts for the selected quantity
SX \u2013 Short Exit Button \u2013 Exit All Short Open Positions only if the Position is running shorts else do nothing<\/p>\n\n\n\n

Supported Amibroker Version<\/strong><\/p>\n\n\n\n

Amibroker v6.22 or higher<\/p>\n\n\n\n

Supported Broker<\/strong> \u2013 AngelOne<\/p>\n\n\n\n

Automation Platform<\/strong> \u2013 Algomojo Trading Terminal<\/p>\n\n\n\n

Smart Button Trading Module \u2013 Amibroker AFL Code<\/strong><\/p>\n\n\n\n

\/\/ Angel Broking - Smart Button Trading Module\n\/\/ Developer: Algomojo\n\/\/ Date: 19-Apr-2022\n\/\/ Website: algomojo.com\n\n\/\/BE - Buy Entry Button\n\/\/BX - Buy Exit Button - Exit All Long Open Positions only if the Position is running longs\n\/\/SE - Short Entry Button\n\/\/SX - Short Exit Button - Exit All Short Open Positions only if the Position is running shorts\n\n_SECTION_BEGIN("Angel Broking - Broker Controls");\n\nVersion(6.22); \/\/Gui Function Compatibility check\n\nRequestTimedRefresh(1, False); \n\nbroker =ParamStr("Broker","an"); \/\/Broker Short Code - an- angel broking\nver = ParamStr("API Version ","1.0");\nclnt_id = ParamStr("Client ID","xxxx"); \/\/Enter your trading client ID\nuser_apikey = ParamStr("apikey","xxxxxxxxxxxxxxxxxxxxx"); \/\/Enter your API key here\napi_secretkey = ParamStr("secretkey","xxxxxxxxxxxxxxxxxxxxx"); \/\/Enter your API secret key here\n\n_SECTION_END();\n\n_SECTION_BEGIN("Angel Broking - Order Controls");\n\nstgy_name = ParamStr("Strategy Name", "Test Strategy");\nvariety = ParamList("Variety","NORMAL|STOPLOSS|AMO",0); \ntradingsymbol = ParamStr("Trading Symbol","RELIANCE-EQ");\n\n\nexchange = ParamList("Exchange","NSE|NFO|BSE|MCX",0); \nordertype = ParamList("Order Type","MARKET|LIMIT|STOPLOSS_LIMIT|STOPLOSS_MARKET",0);\nproducttype = ParamList("Product Type","DELIVERY|CARRYFORWARD|MARGIN|INTRADAY|AMO_MARGIN|AMO_DELIVERY|AMO_CARRYFORWARD",3);\n\nprice = "0"; \ntriggerprice = "0"; \nquantity = Param("quanity",1,0,10000);\n\nsquareoff = "0"; \nstoploss = "0"; \ntrailingStopLoss = "0"; \ndisclosedquantity = "0"; \nduration = "DAY";\n\n\n\n\nEnableAlgo = ParamList("AlgoStatus","Disable|Enable|LongOnly|ShortOnly",0);\nresp = "";\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+stgy_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+stgy_name+"algostatus";\n\n\nfunction GetPositionsBook()\n{\n\/\/Creating the Trading Bridge\nalgomojo=CreateObject("AMAMIBRIDGE.Main");\n\napi_data = "{ }";\n_TRACE("PositionBook API Request"+api_data);\n\n\/\/Sending The Broker Request for NetOpenPositions\nresp=algomojo.AMDispatcher(user_apikey,api_secretkey,"Positions",api_data,broker,ver);\n_TRACE("PositionBook API Response : "+resp);\n\nreturn resp;\n\n}\n\nfunction NetOpenPositions()\n{\nflag = 0;\n\nresp = GetPositionsBook();\n\nposNetqty =0;\n\nfor( item = 1; ( sym = StrExtract( resp, item,'{' )) != ""; item++ )\n{\n\n\n\nif(Strfind(sym,tradingsymbol) AND StrFind(sym,productType)) \/\/Matches the symbol and \/\/Matches the Order Type\n{\n\nflag = 1; \/\/turn on the flag\n\nfor( jitem = 0; ( posdetails = StrExtract( sym, jitem,',' )) != ""; jitem++ )\n{\n\n if(Strfind(posdetails,"tradingsymbol"))\n  {\n   posdetails = StrExtract(posdetails,1,':');\n   possym = StrTrim(posdetails,"\\"");\n    _TRACE("\\nTrading Symbol : "+possym);\n  }\n\n  if(Strfind(posdetails,"netqty"))\n  {\n   posdetails = StrExtract(posdetails,1,':');\n   posNetqty = StrToNum(StrTrim(posdetails,"\\""));\n   _TRACE("\\nNetQty : "+posNetqty);\n  }\n  \n\n} \/\/end of for loop\n}\n\n}\/\/end of for loop\n\n\nif(flag==0)\n{\n_TRACE("\\nTrading Symbol Not Found");\n posNetqty =0;\n_TRACE("\\nNetQty : "+posNetqty);\n}\n\nreturn posNetqty;\n\n}\n\n\/\/Buy and Sell Order Functions\nfunction Placeorder(TransType,orderqty)\n{\n\t\n    algomojo=CreateObject("AMAMIBRIDGE.Main");\n    symboltoken = "";\n    api_data ="{\\"stgy_name\\": \\""+stgy_name+"\\",  \\"variety\\":\\""+variety+"\\",  \\"tradingsymbol\\":\\""+tradingsymbol+"\\",      \\"symboltoken\\":\\""+symboltoken+"\\",         \\"transactiontype\\":\\""+TransType+"\\",         \\"exchange\\":\\""+exchange+"\\",         \\"ordertype\\":\\""+ordertype+"\\",         \\"producttype\\":\\""+producttype+"\\",         \\"duration\\":\\""+duration+"\\",         \\"price\\":\\""+price+"\\",         \\"squareoff\\":\\""+squareoff+"\\",         \\"stoploss\\":\\""+stoploss+"\\",         \\"quantity\\":\\""+orderqty+"\\",         \\"triggerprice\\": \\""+triggerprice+"\\",  \\"trailingStopLoss\\": \\""+trailingStopLoss+"\\", \\"disclosedquantity\\":\\""+disclosedquantity+"\\" }";\n   \n    _TRACE("API Request"+api_data);\n    resp=algomojo.AMDispatcher(user_apikey, api_secretkey,"PlaceOrder",api_data,broker,ver);\n    _TRACE("API Response : "+resp);\n    _TRACE("Strategy Name : "+stgy_name+"  AlgoStatus : "+ EnableAlgo);\n    _TRACE("Chart Symbol : "+ Name() +"  Trading Symbol : "+  tradingsymbol +"  qty : "+ orderqty +"  Signal : Buy Signal  TimeFrame : "+ Interval(2)+"  ChardId : "+ GetChartID() + " LTP : "+LastValue(C));\n\tSay( "Order Placed" ); \n}\n\n\n\n_SECTION_BEGIN("Algo Dashboard");\n\n\nstatic_name_ = Name()+GetChartID()+interval(2)+stgy_name;\nstatic_name_algo = Name()+GetChartID()+interval(2)+stgy_name+"algostatus";\n\n\/\/StaticVarSet(static_name_algo, -1); \nGfxSelectFont( "BOOK ANTIQUA", 14, 100 );\nGfxSetBkMode( 1 );\nif(EnableAlgo == "Enable")\n{\nAlgoStatus = "Algo Enabled";\nGfxSetTextColor( colorGreen ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=1)\n{\n_TRACE("Algo Status : Enabled");\nStaticVarSet(static_name_algo, 1);\n}\n}\nif(EnableAlgo == "Disable")\n{\nAlgoStatus = "Algo Disabled";\nGfxSetTextColor( colorRed ); \nGfxTextOut( "Algostatus : "+AlgoStatus , 20, 40); \nif(Nz(StaticVarGet(static_name_algo),0)!=0)\n{\n_TRACE("Algo Status : Disabled");\nStaticVarSet(static_name_algo, 0);\n}\n}\n\n\n\n_SECTION_END();\n\n\/\/Button Controls\n\n\nbtn1_name = "BE"; \/\/BE- Buy Entry\nbtn2_name = "BX"; \/\/BX - Buy Exit - close all the open positions\nbtn3_name = "SE"; \/\/SE - Short Entry\nbtn4_name = "SX"; \/\/SX - Short Exit - close all the open positions\n\n\n\nfunction CreateGUI( ButtonName, x, y, width, Height ) {\n\t\/\/\/ @link http:\/\/forum.amibroker.com\/t\/guibuttons-for-everyone\/1716\/4\n\t\/\/\/ by beaver & fxshrat\n\t\/\/\/ version 1.1\n\tglobal IDset;\n\tlocal id, event, clickeven;\n\t\n\tif( typeof( IDset ) == "undefined" ) IDset = 0; \n\n\t\/\/_TRACEF( "IDset before: %g", IDset );\t\n\tGuiButton( ButtonName, ++IDset, x, y, width, height, 7 ); \n\t\/\/_TRACEF( "IDset after: %g", IDset );\n\tresult = 1; \/\/button creation is successful\n\treturn result;\n\t\n}\n\n\nfunction HandleEvents()\n{\n\n\tresult = 0;\n\tid = GuiGetEvent( 0, 0 );\/\/ receiving button id\n\tevent = GuiGetEvent( 0, 1 );\/\/ receiving notifyflag\n\tclickevent = event == 1;\n\t\n\t\n\t\n\t\n\t\n\tBE = id == 1 && clickevent;\n\tBX = id == 2 && clickevent;\n\tSE = id == 3 && clickevent;\n\tSX = id == 4 && clickevent;\n\t\n\t\n\t\n\tresult = 0;\n\t\n\tif(EnableAlgo == "Enable")\n\t{\n\t\n\tif( BE AND StaticVarGet(Name()+GetChartID()+"BuyEntry")==0 ) \n\t{\n\t\t_TRACE("BuyEntry is pressed");\n\t\torderresponse = PlaceOrder("BUY",quantity);\n\t\tresult = 1;\n\t\tStaticVarSet(Name()+GetChartID()+"BuyEntry",1); \n\t}\n\telse\n\t{\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"BuyEntry",0);\n\t}\n\t\n\tif( BX AND StaticVarGet(Name()+GetChartID()+"BuyExit")==0 ) \n\t{\n\t\t_TRACE("BuyExit is pressed");\n\t\tif((qty=NetOpenPositions())>0) \/\/if long positons are open\n\t\t{\n\t\torderresponse = PlaceOrder("SELL",qty);\n\t\tresult = 1;\n\t\t}\n\t\telse\n\t\t{\n\t\t_TRACE("No Long Positions Open");\n\t\t}\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"BuyExit",1); \n\t}\n\telse\n\t{\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"BuyExit",0);\n\t}\n\t\n\tif( SE AND StaticVarGet(Name()+GetChartID()+"ShortEntry")==0 ) \n\t{\n\t\t_TRACE("BShortEntry is pressed");\n\t\torderresponse = PlaceOrder("SELL",quantity);\n\t\tresult = 1;\n\t\tStaticVarSet(Name()+GetChartID()+"ShortEntry",1); \n\t}\n\telse\n\t{\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"ShortEntry",0);\n\t}\n\t\n\n\t\n\tif( SX AND StaticVarGet(Name()+GetChartID()+"ShortExit")==0 ) \n\t{\n\t\t_TRACE("ShortExit is pressed");\n\t\tif((qty=NetOpenPositions())<0) \/\/if short positons are open\n\t\t{\n\t\torderresponse = PlaceOrder("BUY",abs(qty));\n\t\tresult = 1;\n\t\t}\n\t\telse\n\t\t{\n\t\t_TRACE("No Short Positions Open");\n\t\t}\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"ShortExit",1); \n\t}\n\telse\n\t{\n\t\t\n\t\tStaticVarSet(Name()+GetChartID()+"ShortExit",0);\n\t}\n\t\n\t} \n\n\nreturn result;  \/\/result = 1 - order is successfully placed, 0 - Algotrading is in disabled state or orders are not went through\n\t\n}\/\/end of function\n\t\n\tButtonXOffset = Param("Button X-Offset",0,50,1000,50);\n\tButtonYOffset = Param("Button Y-Offset",100,0,1000,50);\n\t\n\tBuyEntry = CreateGUI( btn1_name, ButtonXOffset, ButtonYOffset, 50, 50 );\n\tBuyExit = CreateGUI( btn2_name, ButtonXOffset+50, ButtonYOffset, 50, 50 );\n\t\n\tShortEntry = CreateGUI( btn3_name, ButtonXOffset , ButtonYOffset+50, 50, 50 );\n\tShortExit = CreateGUI( btn4_name, ButtonXOffset +50, ButtonYOffset+50, 50, 50 );\n\n\t\n\t\n\thandleevents();\n\t\n\t\n\t\n\tGuiSetColors( 1, 1, 2, colorGreen, colorBlack, colorGreen, colorWhite, colorBlue, colorYellow, colorRed, colorBlack, colorYellow ); \n\tGuiSetColors( 2, 2, 2, colorred, colorBlack, colorRed, colorWhite, colorBlue, colorYellow, colorRed, colorBlack, colorYellow ); \n\n\n\tGuiSetColors( 3, 3, 2, colorOrange, colorBlack, colorOrange, colorWhite, colorBlue, colorYellow, colorRed, colorBlack, colorYellow ); \n\tGuiSetColors( 4, 4, 2, colorPaleGreen, colorBlack, colorPaleGreen, colorWhite, colorBlue, colorYellow, colorRed, colorBlack, colorYellow ); \n\n_SECTION_END();\t\n\t\n_SECTION_BEGIN("Plot Candles");\t\n\nSetChartOptions(0 , chartShowArrows | chartShowDates);\nPlot(Close,"Candle", colorDefault, styleCandle);\n\n_SECTION_END();\n\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
This Algomojo Button trading module provides 4 modes of the button to place orders with a single click directly from Amibroker using simple smart order controls.<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"default","ast-global-header-display":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":""},"categories":[6],"tags":[103,13,7,109,42,156],"_links":{"self":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/381"}],"collection":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/comments?post=381"}],"version-history":[{"count":3,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/381\/revisions"}],"predecessor-version":[{"id":638,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/posts\/381\/revisions\/638"}],"wp:attachment":[{"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/media?parent=381"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/categories?post=381"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/algomojo.com\/blog\/wp-json\/wp\/v2\/tags?post=381"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}