B4R(Arduino)偵測溫溼度後，在LCD面板上顯示

今天為大家介紹的是使用Arduino控制DHT11溫溼度感測器，取得溫溼度後將資料傳送到1602 LCD面板顯示出來。我們仍然使用的是B4R編輯器編輯程式，也為您準備好範例程式，請參考下方說明。

本次範例 Arduino UNO、1602 LCD、DHT11 電路配置圖：

本次範例成果圖：

本次範例B4R程式與說明：

Copy to Clipboard

#Region Project Attributes
	#AutoFlushLogs: True
	#CheckArrayBounds: True
	#StackBufferSize: 300
#End Region

Sub Process_Globals
	Public Serial1 As Serial
	Dim    lcd     As LiquidCrystal
    Dim    dht11   As dht
End Sub

Private Sub AppStart
	Serial1.Initialize(115200)
	Log("AppStart")
	lcd.Initialize(9,255,10,Array As Byte(5,4,3,2))  '根據LCD 1602規格，要從LCD的左側到右順序不能相反，必須是5,4,3,2
	lcd.Begin(16,2)                                  '使用1602型號LCD，具備16 Column，2 Row
	lcd.DisplayOn = True							 '讓LCD顯示
	lcd.CursorOn = True								 '顯示LCD游標
	lcd.SetCursor(0,0)								 '將游標設定在第0 Column、0 Row的位置
	lcd.Write(" Hello ARDUINO!")					 '在LCD上顯示 Hello ARDUINO!
	Delay(8000)										 '讓程式延遲8秒鐘
	lcd.Clear									     '將LCD螢幕清空
	AddLooper("Looper_tmp")							 '反覆執行 Looper_tmp
End Sub

Sub Looper_tmp
	Dim chk As Int
	chk = dht11.Read11(7)							 '使用DHT11溫溼度感應器
	lcd.SetCursor(0,0)
	lcd.Write("Temp: ")
	lcd.Write(dht11.GetTemperature)					 '在LCD第1行顯示現在溫度
	'lcd.Write((char)223);
	lcd.Write("C")
	lcd.setCursor(0,1)
	lcd.Write("Humidity: ")
	lcd.Write(dht11.GetHumidity)					 '在LCD第2行顯示現在濕度
	lcd.Write("%")
	Delay(1000)
End Sub

請按讚：

邀請您加入我們的社群

近期文章：

B4R(Arduino)偵測溫溼度後，在LCD面板上顯示

分享此文：

請按讚：

邀請您加入我們的社群

近期文章：