描述

全球最令人擔(dān)憂的問題之一是全球變暖已經(jīng)和將要產(chǎn)生的影響，因此氣候變化對不同經(jīng)濟部門的影響，特別是在發(fā)展中國家，這些部門的人口更易受到影響，抵御能力更差。幾十年前開始進行的科學(xué)觀察表明，地球正在全球變暖，此外還發(fā)現(xiàn)洪水、干旱、熱浪等極端事件的頻率有所增加。

問題：

在哥倫比亞和世界上，必須讓農(nóng)民成為他們所做的事情的專家。就像他們有好時光一樣，他們也有不好的時光。據(jù)我國農(nóng)業(yè)和農(nóng)村發(fā)展部稱，由于極端天氣事件的發(fā)生，特別是在厄爾尼諾和拉尼娜現(xiàn)象階段，這已受到嚴重影響。通過氣候變率與氣候變化有關(guān)的氣候異常在區(qū)域?qū)用娈a(chǎn)生了很大比例的社會經(jīng)濟影響，其中農(nóng)業(yè)依賴于降雨狀況和溫度行為，這會導(dǎo)致耕地發(fā)生洪水和滑坡、病蟲害擴散和疾病蔓延，作物營養(yǎng)周期、害蟲周期變化、生產(chǎn)季節(jié)性增加、作物產(chǎn)量和產(chǎn)量損失。

可怕的圖表，以及為什么一切都會發(fā)生。它顯示了溫室氣體排放量的增加。在過去的 30 年里，它們的增長速度翻了一番。

?

解決方案：

為了達成解決方案，有必要問自己：我們是否有任何方法可以整合科學(xué)和技術(shù)來增加智能農(nóng)業(yè)的發(fā)展，從而以相同的研究方式和與人工智能力量解讀農(nóng)業(yè)氣候變量防災(zāi)？

我的解決方案將使用由 Ada 語言編碼的 Arduino 應(yīng)用程序和傳感器，專門用于監(jiān)測、處理和分析影響作物發(fā)育的農(nóng)業(yè)氣候變量。

通過這種方式，在我們的項目中，我們可以對許多作物進行地理參考并通知收到的警報，與利益相關(guān)者共享作物可追溯性報告，支持農(nóng)業(yè)研究并將其轉(zhuǎn)化為農(nóng)業(yè)生產(chǎn)者的知識來源。

通過我們的解決方案，我們可以表征影響作物生長的農(nóng)業(yè)氣候變量，并且我們可以在日期確定作物的小批量。

上述所有工作都歸功于一個分段的農(nóng)業(yè)氣候站網(wǎng)絡(luò)，該網(wǎng)絡(luò)監(jiān)測溫度、濕度、太陽輻射、紫外線等行為。

我們開始做吧！第一階段：

最初在我們的第一個原型中，我們將設(shè)計和構(gòu)建一個帶有 Arduino UNO 板的小型系統(tǒng)，我們將連接三個基本傳感器：溫度和濕度、水位和氣位。

硬件：

• 我們連接格羅夫盾牌。
• 現(xiàn)在將水位傳感器連接到 Grove 引腳 A0 上的屏蔽層。
• 現(xiàn)在將空氣質(zhì)量傳感器連接到 Grove 引腳 I2C 上的屏蔽層。
• 我們將溫度和濕度傳感器連接在引腳 A1 上。
• 最后，我們將 Arduino UNO 板連接到計算機。

?

?

?

?

1 / 4

?

軟件：AdaCore 社區(qū)

從艾達開始：

對于這個項目，我們必須安裝 AdaCore 社區(qū)程序，我們將使用它來編譯我們的農(nóng)業(yè)系統(tǒng)。為此，我們執(zhí)行以下步驟：

• 轉(zhuǎn)至 AdaCore 官方網(wǎng)站并搜索下載或直接單擊此處。
• 選擇與您的計算機兼容的鏈接。
• 啟動安裝程序并繼續(xù)按照程序的安裝步驟進行操作。

編碼項目：

procedure Fistprototype_I2C is
   use type Interfaces.Unsigned_8;

   TMP102_Address : constant := 16#90#;
   Data : Uno_I2C.I2C.Byte_Array (1..2) := (0, 0);
   Cmd : Uno_I2C.I2C.Byte_Array (1..1) := (1 => 16#00#);
   Status : Uno_I2C.I2C.Error_Status;
   Temp_Value : Integer;
begin
   AVR.UART.Init (103);
   loop
      Data := (0, 0);
      Uno_I2C.Write (Address => TMP102_Address, Bytes => Cmd, Status => Status);
      Uno_I2C.Read (Address => TMP102_Address, Bytes => Data);
      Temp_Value := Integer (Data (1)) * 256;
      Temp_Value := Temp_Value + Integer (Data (2));
      Temp_Value := Temp_Value / 256; -- Basically we ignore the second byte

      AVR.UART.Put ("T:");

      if Temp_Value > 0 then
         Data (1) := Interfaces.Unsigned_8 (Temp_Value);
      else
         AVR.UART.Put ("-");
         Data (1) := Interfaces.Unsigned_8 (-Temp_Value);
      end if;
      AVR.UART.Put (Data (1), Base => 10);
      AVR.UART.Put (" C");
      AVR.UART.CRLF;
      delay 2.0;
   end loop;
end Test_I2C;

結(jié)論：

我很高興學(xué)習(xí)這種新的編程語言，它的界面太專業(yè)了。

應(yīng)該注意的是，我們的項目處于初始階段，因為我是在大學(xué)空閑時間開發(fā)的。

在接下來的幾天里，我將上傳第一個原型的第二階段的更新，我將嘗試集成物聯(lián)網(wǎng)系統(tǒng)以可視化來自云端的變量，并與專家和科學(xué)家分享。