描述

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

問題：

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

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

?

解決方案：

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

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

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

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

上述所有工作都歸功于一個分段的農業氣候站網絡，該網絡監測溫度、濕度、太陽輻射、紫外線等行為。

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

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

硬件：

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

?

?

?

?

1 / 4

?

軟件：AdaCore 社區

從艾達開始：

對于這個項目，我們必須安裝 AdaCore 社區程序，我們將使用它來編譯我們的農業系統。為此，我們執行以下步驟：

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

編碼項目：

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;

結論：

我很高興學習這種新的編程語言，它的界面太專業了。

應該注意的是，我們的項目處于初始階段，因為我是在大學空閑時間開發的。

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