سلام و خسته نباشید
من نیاز دارم که یه سری دستورات رو از گوشی به میکرو بفرستم که توسط ماژول وافای esp8266 این کار رو میکنم
و میتونم رله ای رو خاموش یا روشن کنم
خوب حالا ما تو ویژوال بیسیک 2006 وقتی میخواستیم یه متنی و به دو قسمت تعریف کنیم این کار رو میکردیم
که یعنی هر چی قبل از # اومد بره تو دستور هرچی بعد از مربع اومد بره تو طرف
این کد رو امتحان کردم اما متاسفانه جواب نداد
من نیاز دارم که یه سری دستورات رو از گوشی به میکرو بفرستم که توسط ماژول وافای esp8266 این کار رو میکنم
و میتونم رله ای رو خاموش یا روشن کنم
[FONT=Yekan] Home : Lcd Index : Locate 1 , 16 : Lcd Chr(0)[/FONT]
If Index > 10 Then
Waitms 100
Cls : Lcd Index : Locate 1 , 16 : Lcd Chr(0)
Lowerline
For I = 1 To Index
If Arr(i) <> 10 And Arr(i) <> 13 Then
Lcd Chr(arr(i))
S = S + Chr(arr(i))
End If
Next I
Pos = Instr(s , "on")
If Pos > 0 Then
Relay1 = 1 : Relay_status = 1
Wait 1
Print "AT+CIPSEND=0,15"
Wait 1
Print "RELAY TURN ON"
End If
Pos = Instr(s , "off")
If Pos > 0 Then
Relay1 = 0 : Relay_status = 0
Wait 1
Print "AT+CIPSEND=0,16"
Wait 1
Print "RELAY TURN OFF"
End If
End If
If Doorpass = 1 Then
Ramz = Instr(s , Ramz)
Wait 1
Print "AT+CIPSEND=0,20"
Wait 1
Print Ramz
Doorpass = 0
Writeeeprom Doorpass , 10
End If
Pos = Instr(s , "status")
If Pos > 0 Then
If Relay_status = 1 Then
Print "AT+CIPSEND=0,13"
Wait 1
Print "Relay is On"
Else
Print "AT+CIPSEND=0,14"
Wait 1
Print "Relay is Off"
End If
End If
'wait 1 sec to receive unused echo data
Wait 1
'move cursor of arr to 1 to clear unused received data
Index = 1
S = ""
For I = 1 To 30
Arr(i) = 32 'clr arr with space
Next I
Cls
End If
Loop
[FONT=Yekan] End[/FONT]
خوب حالا ما تو ویژوال بیسیک 2006 وقتی میخواستیم یه متنی و به دو قسمت تعریف کنیم این کار رو میکردیم
[FONT=Yekan]If InStr(1, Message, "#", vbTextCompare) <> 0 Then[/FONT]Dim dastur As String
Dim taraf As String
dastur = LCase(Left(Message, InStr(Message, "#") - 1))
[FONT=Yekan]taraf = Mid(Message, InStr(Message, "#") + 1)[/FONT]
که یعنی هر چی قبل از # اومد بره تو دستور هرچی بعد از مربع اومد بره تو طرف
این کد رو امتحان کردم اما متاسفانه جواب نداد
