Không bắn được lệnh lên telegram

Thảo luận trong 'Bàn luận về Amibroker, Metastock, Metatrader 4' bắt đầu bởi Hieutd, 29/8/21.

Lượt xem : 2,044

  1. Hieutd

    Hieutd New Member

    Tham gia ngày:
    3/8/21
    Bài viết:
    4
    Đã được thích:
    1
    Giới tính:
    Nam
    Em có đoann code lọc và bắn lênhk telegram, không hiểu sao chạy thì ra kết quả trên amibrocker mà không thấy bắn lệnh lên telegram. Mong cả nhà chỉ giáo.
    .
    .
    .
    ///Đoạn code của em:
    _SECTION_BEGIN("PHAN KY HISOGRAM");
    r1 = Param( "Fast avg", 12, 2, 200, 1 );
    r2 = Param( "Slow avg", 26, 2, 200, 1 );
    r3 = Param( "Signal avg", 9, 2, 200, 1 );
    r4 = Param( "Wk slow", 17, 2, 200, 1 );
    r5 = Param( "Wk fast", 8, 2, 200, 1 );
    m1=MACD(r1,r2);
    s1=Signal(r1,r2,r3);
    P = Param("Phan Ky MACD", 14, 2, 14, 1);
    m2 = Zig(MACD(r1,r2),55);
    s2 = Zig(Signal(r1,r2,r3),55);
    VMACD = m2-s2;

    Length = 100;
    Lapse = 3;

    fUp = VMACD > Ref(VMACD, -1) & VMACD > Ref(VMACD, 1) & VMACD >55;
    fDown = VMACD < Ref(VMACD, -1) & VMACD < Ref(VMACD, 1) & VMACD < 45;

    Div = 0;

    for(i = Length; i < BarCount; i++)
    {
    // Bao ban phan ky MACD
    if(fUp)
    {
    k = i-1;
    do
    {
    if(VMACD[k] > VMACD & fUp & fUp[k])
    {
    if(C[k] < C & i-k > Lapse)
    {
    Div = 1;
    }
    k = i-Length;
    }
    else
    k = k-1;
    } while( k > i-Length );
    }
    Sell = fUp;
    // Bao mua phan ky MACD

    if(fDown)
    {
    k = i-1;
    do
    {
    if(VMACD[k] < VMACD & fDown & fDown[k])
    {
    if(C[k] > C & i-k > Lapse)
    {
    Div = -1;
    }
    k = i-Length;
    }
    else
    k = k-1;
    } while( k > i-Length );
    }

    }
    histogrampkbuy = IIf(Div == 0, 0, 1) AND V >= 500000;
    Buy=histogrampkbuy;
    _SECTION_END();
    Setang=MACD(12,26)>Signal(12,26,9);
    ma20=MA(C,20);
    DiemXH=
    IIf(histogrampkbuy,1,0) +//icmk
    IIf(Setang,1,0);///MACD
    //HistogramMACD=histogrampkbuy;
    HistogramMACD=Buy AND Setang;
    Filter=HistogramMACD;
    AddColumn(C,"Gia",1.1);

    _SECTION_BEGIN("Telegram Alerts");
    TelegramAlerts = ParamTrigger("Telegram Alert","Send Alert");
    /////code chinh
    TelegramAPI_ID = ParamStr("Telegram Bot API Key","1712558359:AAECXGBlwLH1HUGnP-Q_opV73iXirbrrqv4"); //Get the Bot API key via BotFather in Telgram
    TelgramCHAT_ID = ParamStr("Telegram Channel ID","@noivongtaylon"); //Channel ID example : @marketcalls_in
    /////code de test
    //TelegramAPI_ID = ParamStr("Telegram Bot API Key","1778455504:AAGjBvQgtgWyTWHSpdDuUoJsdmwKjnGdS4k"); //Get the Bot API key via BotFather in Telgram
    //TelgramCHAT_ID = ParamStr("Telegram Channel ID","@testcanhan"); //Channel ID example : @marketcalls_in
    EnableScript("VBScript");

    <%
    Public Sub Telegram(Message_Text)
    sAPI_ID = AFL.Var("TelegramAPI_ID")
    sChat_ID = AFL.Var("TelgramCHAT_ID")
    sMSG = Message_Text
    'URL to open....
    sUrl = "https://api.telegram.org/bot" & sAPI_ID & "/sendMessage"
    'POST Request to send.
    sRequest = "text=" & sMSG & "&chat_id=" & sChat_ID

    set oHTTP = CreateObject("Microsoft.XMLHTTP")
    oHTTP.open "POST", sUrl,false
    oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    oHTTP.setRequestHeader "Content-Length", Len(sRequest)
    oHTTP.send sRequest
    HTTPPost = oHTTP.responseText

    'Store response
    'msgbox(objXmlHttpMain.responseText)
    'response.Write (objXmlHttpMain.responseText)
    End Sub

    %>
    tg = GetScriptObject();

    if (LastValue(ValueWhen(Ref(HistogramMACD,1),BarIndex())==BarIndex()) AND StaticVarGet(Name()+GetChartID()+"buyAlert")==0 )
    {


    tg.Telegram( "Thoi gian: " + Date()
    +"\n" + "AI Khuyen nghi: " + Name()
    + "\n" + " => Quanh vung gia: " + C
    + "\n" + " => Muc teu an toan 1: " + 1.10*C
    + "\n" + " ==> Muc teu trung han: " + 1.15*C
    + "\n" + " ===> Muc teu dai han: " + 1.2*C
    + "\n" + " <====> Cat lo khi ve: " + 0.93*C);
    StaticVarSet(Name()+ GetChartID() + "buyAlertBar", LastValue(TimeNum()));
    }
    if (LastValue(TimeNum()) == StaticVarGet(Name()+GetChartID()+"buyAlertBar"))
    StaticVarSet(Name()+GetChartID()+"buyAlert",1); //alert was triggered, no more alerts on this bar
    else
    StaticVarSet(Name()+GetChartID()+"buyAlert",0); // new bar formed, and alerts can be trigered.

    //}
    //dieu kien bao 2
    //tg2 = GetScriptObject();
    //if (LastValue(ValueWhen(Ref(Coctaycam,-1),BarIndex())==BarIndex()) AND StaticVarGet(Name()+GetChartID()+"buyAlert")==0 )
    //{
    //tg2.Te?legram("Khuyen nghi mua coc tay cam" +Name() + " : Mua quanh vung gia " + C + " Khong khuyen khich mua duoi " + TimeNum());
    //StaticVarSet(Name()+ GetChartID() + "buyAlertBar", LastValue(TimeNum()));
    //}
    //if (LastValue(TimeNum()) == StaticVarGet(Name()+GetChartID()+"buyAlertBar"))
    //StaticVarSet(Name()+GetChartID()+"buyAlert",1); //alert was triggered,
     
  2. Đang tải...

    Bài viết tương tự Diễn đàn Date
    Ví dụ ko có Amibroker và không có "Phím" thì tìm điểm mua cách nào bằng https://fireant.vn/ Free Bàn luận về Amibroker, Metastock, Metatrader 4 24/5/24
    Có AE nào có Code xác định vùng order block không ạ? Bàn luận về Amibroker, Metastock, Metatrader 4 1/10/24
    Chào các bác ạ, có bác nào có code TDmacd cho amibroker không ạ Bàn luận về Amibroker, Metastock, Metatrader 4 25/6/24
    Không cập nhật được dữ liệu từ cophieu68 Bàn luận về Amibroker, Metastock, Metatrader 4 11/4/23
    Loại bỏ nền chữ để chart không bị che lấp. Bàn luận về Amibroker, Metastock, Metatrader 4 29/12/22

  3. Duc Lee Thanh

    Duc Lee Thanh New Member

    Tham gia ngày:
    13/8/21
    Bài viết:
    1
    Đã được thích:
    0
    Giới tính:
    Nam
    Quan tâm :)
     
  4. nguyenjoe

    nguyenjoe Well-Known Member

    Tham gia ngày:
    18/7/21
    Bài viết:
    93
    Đã được thích:
    166
    Giới tính:
    Nam
    mình có bài trả lời topic mới rồi các bác quan tâm thì vào đọc nhé
     

Lượt bình luận : 2

Chia sẻ trang này