راه اندزی ماژول وایفا esp8266 با میکرو avr

[امیر قارزی]

سلام
خسته نباشید
می خواستم بدانم کسی اموزشی درباره راه اندازی ماژول وایفا esp8266 با میکرو avr داره میخوام روباتمو باهاش کنترل کنم بیشتر اموزش ها با بلوتوس است و اگه هم با وایفا پولی است
ممنون میشم کمکم کنید
از پاسخ دهی سریعتان ممنون


از اردینو نمیخوام استفاده کنم

[mohammad_pmh]

پاسخ : راه اندزی ماژول وایفا esp8266 با میکرو avr

سلام این برنامه با بسکام هست و کار می کنه . ماِول در حالت سرور هست و با نرم افزارهای تلنت موبایل یا کامژیوتر ip , port رو بزن متصل شد و حروف a , b رو بفرستی رله ی رو روشن و خاموش می کنه.
' 98/02/29






$regfile = "m8adef.dat"
$crystal = 12000000
$hwstack = 200
$swstack = 200
$framesize = 400
Config Watchdog = 1024
Start Watchdog




Config Portd.6 = Output : Relay_1 Alias Portd.6
Config Portd.7 = Output : Relay_2 Alias Portd.7






'------------------------------------------------
dim iekbar_bit_touch as bit
dim bit_senaruo as bit


dim select_input as byte












dim i as byte


Dim waitms_publice As Word
For waitms_publice = 0 To 1500 : Waitms 1 : Reset Watchdog : Next waitms_publice




Enable Interrupts






'------------------------------------------------
$baud = 115200
Config Serialin = Buffered , Size = 24
Declare Sub Getline_wifi(s As String)
Dim inkey_esp8266 As Byte
dim str_input as String * 20 , str_input_1 as String * 20
dim str_mid as String * 1 , str_mid_1 as String * 3
dim str_close_connect as String * 12
Dim makan_str_in As Byte
Dim byte_val As Byte
dim Ssid as String * 40 : Ssid = "esp8266"
dim Password as String * 12 : Password = "00001111"
dim time_waitms_publice as word






Print "AT"
time_waitms_publice = 500 : gosub sub_wait
Print "AT+RST"
time_waitms_publice = 1000 : gosub sub_wait
Print "AT"
time_waitms_publice = 500 : gosub sub_wait
Print "AT"
time_waitms_publice = 500 : gosub sub_wait
Print "AT"
time_waitms_publice = 500 : gosub sub_wait




Print "AT+CIPMUX=1"
time_waitms_publice = 2000 : gosub sub_wait


Print "AT+CWMODE=3"
time_waitms_publice = 2000 : gosub sub_wait


Print "AT+CWSAP={034}" ; Ssid ; "{034}" ; "," ; "{034}" ; Password ; "{034}" ; ",1,4,4,0"
time_waitms_publice = 2000 : gosub sub_wait


Print "AT+CIPSERVER=1,8888"
time_waitms_publice = 2000 : gosub sub_wait








main:


Do




Reset Watchdog


Getline_wifi str_input
str_input_1 = str_input


makan_str_in = Instr(str_input , ":")
makan_str_in = makan_str_in + 1
str_mid = Mid(str_input , makan_str_in , 1)


select case str_mid
case "a":
toggle Relay_1


Print "AT+CIPSEND=0,5"
time_waitms_publice = 100 : gosub sub_wait
print "OK.1."
time_waitms_publice = 10 : gosub sub_wait




case "b":
toggle Relay_2


Print "AT+CIPSEND=0,4"
time_waitms_publice = 100 : gosub sub_wait
print "Ok_b"


time_waitms_publice = 10 : gosub sub_wait


end select
str_mid=""




Reset Watchdog
Loop
end














' Rturn wifi
'-------------------------------------------------------------------------------
Sub Getline_wifi(s As String)
S = ""
Do


inkey_esp8266 = Inkey()
Select Case inkey_esp8266
Case 0
Case 13:
Case 10:
If S <> "" Then Exit Do
Case Else
S = S + Chr(inkey_esp8266)
End Select


Reset Watchdog
Loop


Clear Serialin
End Sub




sub_wait:
for waitms_publice = 1 to time_waitms_publice : Reset Watchdog : waitms 1 : next waitms_publice
return


' End Rturn wifi
'-------------------------------------------------------------------------------