ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 2 از 2
  1. #1
    2017/02/25
    26
    2

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

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


    از اردینو نمیخوام استفاده کنم
  2. #2
    2016/06/16
    3
    1

    پاسخ : راه اندزی ماژول وایفا 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
    '-------------------------------------------------------------------------------



نمایش نتایج: از 1 به 2 از 2

موضوعات مشابه

  1. قهر کردن ماژول ESP8266
    توسط arvinfx در انجمن ماژول های شبکه و WIFI
    پاسخ: 2
    آخرين نوشته: 2016/12/30, 22:22
  2. wps در ماژول ESP8266
    توسط sm.km در انجمن ماژول های شبکه و WIFI
    پاسخ: 0
    آخرين نوشته: 2016/08/29, 11:01
  3. ماژول ارسال صوت روی گوشی با وایفا میخوام
    توسط nimaaryamehr در انجمن ماژول های شبکه و WIFI
    پاسخ: 0
    آخرين نوشته: 2015/12/11, 16:29
  4. اتصال همزمان میکرو به ماژول و ماژول esp8266 enc28j60
    توسط p_ersian در انجمن میکروکنترلرهای AVR
    پاسخ: 1
    آخرين نوشته: 2015/10/20, 21:05
  5. پاسخ: 3
    آخرين نوشته: 2009/05/05, 12:46

کاربرانی که این تاپیک را مشاهده کرده اند: 2

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •