描述

介紹

ADA 編程，這是我第一次體驗 ADA 語言。我們都知道它強(qiáng)大的高級語言，只是用我的項目嘗了一下。作為第一步，我列出了我?guī)齑嬷械碾娐钒?，以檢查與 ADA 一起使用的兼容電路板。我有幾個 Micro:bit BBC 板，所以想使用它們。

ADA 入門

我從這里 [ https://www.adacore.com/community ] 開始，下載所需的工具并安裝，我想制作關(guān)于 ADA 入門的教程，不幸的是沒有發(fā)生。然后我嘗試了 BBC:micro:bit 的示例程序“滾動文本”。

?

下一步開始考慮想法/概念。我正在開發(fā)一些雷達(dá)應(yīng)用程序，突然想到將雷達(dá)集成到 ADA 中。只要看到里面的“R ADA R”就有 ADA :) 自豪地成為這條線的創(chuàng)始人。

我還需要使用無線連接 (BLE)，所以我查看了 Github [ https://github.com/AdaCore/Ada_Drivers_Library]開始的好地方。

智能門禁

在敲定電路板后，我的想法被調(diào)整并進(jìn)入最終形狀，稱為“智能入口門”在敲定想法之前用 RADAR做了一些實(shí)驗。

這個想法的原因是，我們有很多傳感器，但雷達(dá)比其他傳感器更可靠。此外，它通過不使用基于相機(jī)的昂貴傳感器來降低成本。這個智能入口門計算進(jìn)出車輛并計算可用停車位。可以通過電話 (Ibeacon) 訪問此信息。在 Beacon 數(shù)據(jù)中傳輸?shù)耐＼囄恍畔ⅰ?

?

我已經(jīng)拿了伺服示例并進(jìn)行了測試，然后集成了顯示器。對于無線，我找到了 Beacon 示例。我根據(jù)我的要求修改了 BLE Beacon 數(shù)據(jù)包。最后我整合了所有的代碼。

塊

?

?

硬件

來自雷達(dá)的信號焊接在通用 PCB 中。伺服的 PWM 輸出也是從那里取出的。雷達(dá)板必須從實(shí)際的開發(fā)套件中移除。此外，板電阻器 R11 應(yīng)移除以在自主模式下運(yùn)行。引腳 11 和引腳 5 來自 Microbit。

?

?

?

?

1 / 2

?

入口塊的設(shè)計采用輕木和熱膠槍設(shè)計。該板通過 USB 電纜由 5V 供電。

這個怎么運(yùn)作

該雷達(dá)傳感器通過在芯片內(nèi)部運(yùn)行的算法（自主模式）檢測移動物體或任何運(yùn)動。我們得到兩個輸出信號 1。目標(biāo)輸出和相位。目標(biāo)為我們提供了運(yùn)動信息。如果檢測到運(yùn)動，我們會得到 LOW 和綠色 LED 燈亮。另一個引腳使用目標(biāo)方向。如果物體向芯片移動，我們在引腳上獲得高電平（紅色 LED 關(guān)閉），如果物體向相反方向移動，我們在引腳上獲得低電平，紅色 LED 發(fā)光。

使用這個我做了一個邏輯來檢測進(jìn)來的汽車和出去的汽車。

if MicroBit.IOs.Set(11) and MicroBit.IOs.Set(5) and bIsLeave then
         Count_value := Count_value - 1;
         Total_Count_value := Total_Count_value +1;
         Microbit.Display.Display(Total_Count_value'Image);
         bIsLeave := False;
      end if;

門在汽車到達(dá)入口時打開，在左側(cè)或超時發(fā)生后關(guān)閉。

?

?

?