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





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









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









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






جهت تبلیغ در وب سایت ECA کلیک کنید.

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

صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 17
  1. #1
    2013/08/03
    3
    0

    ماشين كنترلي

    سلام............
    من ميخوام يه ماشين كنترلي بي سيم ساده بسازم..از كجا بايد شروع كنم؟
  2. #2
    2012/02/07
    72
    0

    پاسخ : ماشين كنترلي

    اگه ميخواي خودت بسازي و ساده باشه oo: به نظر من وقتتو نزار چون آمادش تو بازار به قيمت 10 تومن هست
    ولي اگه ميخواي يه چيزي بسازي که مثلا روش ردوربين بسازي يا برد کنترلش در حد چند کيلومتر باشه و بشه ازش به عنوان ماشين هاي جاسوس استفاده کرد که خوبه
    اول بايد ببيني از چه وسايلي ميخواي استفاده کني :read:
    يعني ببيني ماشيني که ميخواي بسازي اول چه کارايي بايد بکنه بعد شروع کني به انتخاب لوازم :read:
    به نظرم اول بگو ميخواي چيکار کنه تا بعد شاسي و برد کنترل و کلا هر چيزي نيازه رو بررسي کنيم
    زکات علم نشر آن است
  3. #3
    2012/07/09
    303
    12

    پاسخ : ماشين كنترلي

    اگه اولین رباتته بهتره بری سمت مسیر یاب (چیز های بیشتری تو روند ساختش یاد میگیری)
  4. #4
    2013/08/03
    3
    0

    پاسخ : ماشين كنترلي

    ممنونم از اين كه جواب دادين :rolleyes: ..ببينيد ميخوام يه چيزي ياد بگيرم كه ميخوام بسازمش ....ميخوام طوري باشه بتونه به چهار طرف گردش داشته باشه....با ميكرو بتونم كنترلش كنم...بعد ميشه در مورد دوربين هم فك كرد كه روش بذاريم ...بعد يه سوال اين كه واسه راه اندازي موتورش بايد از درايور استفاده كنم ؟؟ چه طوري برنامشو براي ميكرو بنويسم ؟؟...در كل ممنون ميشم اگه راهنماييم بكنيد
  5. #5
    2012/02/07
    72
    0

    پاسخ : ماشين كنترلي

    نقل قول نوشته اصلی توسط mars 21
    ممنونم از اين كه جواب دادين :rolleyes: ..ببينيد ميخوام يه چيزي ياد بگيرم كه ميخوام بسازمش ....ميخوام طوري باشه بتونه به چهار طرف گردش داشته باشه....با ميكرو بتونم كنترلش كنم...بعد ميشه در مورد دوربين هم فك كرد كه روش بذاريم ...بعد يه سوال اين كه واسه راه اندازي موتورش بايد از درايور استفاده كنم ؟؟ چه طوري برنامشو براي ميكرو بنويسم ؟؟...در كل ممنون ميشم اگه راهنماييم بكنيد
    درکل اول بگو چي بلدي تا بگيم چيکار کن
    اينارو بلدي؟
    1- برنامه نويسي ميکرو(کدوم زبان؟ :read
    2- طراحي مدار(کدوم نرم افزار؟ :read
    3- چاپ برد(با چه روشي؟ :read
    4-چقدر ميتوني هزينه کني؟(مايه چقدر ميزاري واسه کارات؟ oo
    5-تحليل مدار(در حد کم :agree
    زکات علم نشر آن است
  6. #6
    2012/07/09
    303
    12

    پاسخ : ماشين كنترلي

    منظورتون از طراحی مدار چیه؟ صرفا فقط یاد داشتن یک نرم افزار مثل پروتئوس هست؟
  7. #7
    2012/02/07
    72
    0

    پاسخ : ماشين كنترلي

    نقل قول نوشته اصلی توسط rezabagheri
    منظورتون از طراحي مدار چيه؟ صرفا فقط ياد داشتن يک نرم افزار مثل پروتئوس هست؟
    اوهوم
    طراحي شماتيک و پي سي بي منظورمه
    چون واقعا ديگه در شان يه مهندس نيست بخواد روي بردبرد مداري ببنده(منظورم نهايي هست) يا از اين برد هاي 1000 سوراخ
    بهتره يه نرم افزار مثل همني که گفتين يا پروتل رو ياد بگيرين
    زکات علم نشر آن است
  8. #8
    2012/07/09
    303
    12

    پاسخ : ماشين كنترلي

    گزینه تحلیل مدار رو هم توضیح بدید یعنی چی
  9. #9
    2007/10/22
    مازندران - بابل
    135
    19

    پاسخ : ماشين كنترلي

    سلام
    من از این ماشین ها تا دلت بخواد ساختم .برای درایور موتور از درایور رله استفاده کردم چون موتورم زیاد جریان میکشید
    واسه ارتباط میکرو و کنتزل از ماژول های مختلف میتونی استفاده کنی
    1- Hmt , Hmr
    2- از از 2 تا HMTR در صورت دوطرفه بودن ارتباط
    3- JK73 برای برد بالا مثل 2 یا 3 کیلومتر

    برای کنترلش هم من دسته پلی استیشن استفاده کردم .اونو به ATmega8 وصل کردم و دستور رو از دسته بازی میگرفتم و یه کد رو از طریق ماژول HMT ارسال میکردم
    .تو گیرنده هم وقتی کد مورد نظر را از طریق HMRدریافت میکرد همون حرکت رو انجام میدادم
    برنامه میکرو گیرنده :

    $regfile = "m16def.dat"

    Config Porta = Output
    Config Portc = Output

    $crystal = 8000000


    $baud = 9600

    'Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0

    'Config Lcd = 16 * 2

    Declare Sub Forward
    Declare Sub Leftt
    Declare Sub Rightt
    Declare Sub Leftk
    Declare Sub Rightk
    Declare Sub Back
    Declare Sub Stopp
    Declare Sub Ton
    Declare Sub Ttond
    Declare Sub Bala
    Declare Sub Paien

    Dim Gh As String * 10

    '************************************--Start Program--**************************

    'Cursor Off Noblink

    'Cls

    'Lcd "Hello"

    'Wait 1

    'Cls

    Dim K As Byte
    Dim A As String * 200
    Lcd "Starting..."

    Do

    Input A

    'Cls

    'Lcd "Val:" ; A

    K = 0

    'Waitms 50

    K = Instr(a , "FF&quot
    If K <> 0 And Gh <> "FF" Then
    Call Forward()
    Gh = "FF"
    End If

    K = Instr(a , "LL&quot
    If K <> 0 And Gh <> "LL" Then
    Call Leftt()
    Gh = "LL"
    End If

    K = Instr(a , "RR&quot
    If K <> 0 And Gh <> "RR" Then
    Call Rightt()
    Gh = "RR"
    End If

    K = Instr(a , "BB&quot
    If K <> 0 And Gh <> "BB" Then
    Call Back()
    Gh = "BB"
    End If

    K = Instr(a , "SS&quot
    If K <> 0 And Gh <> "SS" Then
    Call Stopp()
    Gh = "SS"
    End If


    K = Instr(a , "NN&quot
    If K <> 0 And Gh <> "NN" Then
    Call Bala()
    Gh = "NN"
    End If

    K = Instr(a , "TT&quot
    If K <> 0 And Gh <> "TT" Then
    Call Paien()
    Gh = "TT"
    End If

    K = Instr(a , "PP&quot
    If K <> 0 And Gh <> "PP" Then
    Call Ttond()
    Gh = "PP"
    End If

    K = Instr(a , "OO&quot
    If K <> 0 And Gh <> "OO" Then
    Call Ton()
    Gh = "OO"
    End If
    K = 0

    Loop

    '*******************************--Functions--***********************************

    Sub Bala()
    Set Porta.2
    Reset Porta.3
    End Sub

    Sub Paien()
    Set Porta.3
    Reset Porta.2
    End Sub

    Sub Ttond()
    Set Porta.0
    End Sub

    '-------------------------------------------------------------------------------

    Sub Ton()
    Toggle Porta.1
    Waitms 500
    End Sub

    Sub Forward()
    Set Porta.4
    Reset Porta.5
    Set Porta.6
    Reset Porta.7
    End Sub

    '----------------------------------------------------------------------

    Sub Leftt()
    Reset Porta.4
    Set Porta.5
    Set Porta.6
    Reset Porta.7
    End Sub

    '----------------------------------------------------------------------

    Sub Rightt()
    Set Porta.4
    Reset Porta.5
    Reset Porta.6
    Set Porta.7
    End Sub

    '----------------------------------------------------------------------

    Sub Back()
    Reset Porta.4
    Set Porta.5
    Reset Porta.6
    Set Porta.7
    End Sub

    '----------------------------------------------------------------------

    Sub Stopp()
    Reset Portc.2
    Reset Portc.3
    Reset Portc.4
    Reset Portc.5
    Reset Porta.4
    Reset Porta.5
    Reset Porta.6
    Reset Porta.7

    End Sub

    '----------------------------------------------------------------------
    '*******__________END OF PROGRAM_________*******************

    برنامه فرستنده:

    $regfile = "m8def.dat"
    $crystal = 8000000
    $baud = 9600

    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.1 , Db6 = Portc.0 , Db7 = Portc.5 , Rs = Portc.4 , E = Portc.3
    Config Lcd = 16 * 2


    Config Portb.1 = Output
    Config Portb.2 = Output
    Config Portd.7 = Input
    Config Portd.6 = Output

    Att Alias Portb.1 'yellow
    Cmd Alias Portd.6 'orange
    Dat Alias Pind.7 'brown pullup with 1k
    Clk Alias Portb.2 'blue
    'red: VCC
    'black: GND
    Declare Sub Rddata()

    Dim A As Byte
    Dim B As Byte
    Dim Ps2 As Byte
    Dim Ps3 As Byte
    Dim Ps4 As Byte
    Dim Ps5 As Byte

    Do

    Call Rddata()

    If Ps4 = 255 And Ps5 = 255 Then
    Print "SSSSSSSSSS"
    Lcd "STOP"
    Else

    If Ps4 = &B11100111 Then
    Print "FFFFFFFFFF"
    Lcd "FORWARD"
    Elseif Ps4 = &B10011111 Then
    Print "BBBBBBBBBB"
    Lcd "BACKWARD"
    Elseif Ps4 = &B11001111 Then
    Print "RRRRRRRRRR"
    Lcd "RIGHT"
    Elseif Ps4 = &B00111111 Then
    Print "LLLLLLLLLL"
    Lcd "LEFT"
    End If

    Lowerline

    If Ps5 = &B10011111 Then
    Print "NNNNNNNNNNNNNNN"
    Lcd "ZARB"
    Elseif Ps5 = &B10111111 Then
    Print "MMMMMMMMMMMMMMM"
    Lcd "MORABA"
    Elseif Ps5 = &B11001111 Then
    Print "HHHHHHHHHHHHHHH"
    Lcd "DAYERE"
    Elseif Ps5 = &B11100111 Then
    Print "MOSALAS"
    Lcd "MOSALAS"
    Elseif Ps5 = &B11111001 Then
    Print "L1"
    Lcd "L1"
    Elseif Ps5 = &B11110011 Then
    Print "R1"
    Lcd "R1"
    Elseif Ps5 = &B11111100 Then
    Print "R2"
    Lcd "R2"
    End If

    End If

    Waitms 80
    Cls
    Loop





    Sub Rddata()

    Set Cmd
    Set Clk
    Reset Att
    Waitus 1

    A = &H01
    For B = 0 To 7
    Cmd = A.b
    Reset Clk
    Waitus 1
    Set Clk
    Next B

    Set Cmd
    Waitus 1

    A = &H42
    For B = 0 To 7
    Cmd = A.b
    Reset Clk
    Waitus 1
    Ps2.b = Dat
    Set Clk
    Next B

    Set Cmd
    Waitus 1

    For B = 0 To 7
    Reset Cmd
    Reset Clk
    Waitus 1
    Ps3.b = Dat
    Set Clk
    Next B

    Set Cmd
    Waitus 1


    Reset Cmd
    Reset Clk
    Waitus 1
    Set Clk
    'Ps4 = 0

    For B = 0 To 7
    Reset Cmd
    Reset Clk
    Waitus 1
    If B = 0 Then
    Ps4.b = 1
    Else
    Ps4.b = Dat
    End If
    Set Clk
    Next B

    Set Cmd
    Waitus 1

    'Ps5 = 0
    For B = 0 To 6
    Reset Cmd
    Reset Clk
    Waitus 1
    Ps5.b = Dat
    Set Clk
    Next B
    Ps5.b = 1
    Set Cmd
    Waitus 1

    Set Cmd
    Waitus 1
    Set Att


    End Sub Rddata()


    این ماژول ها خیلی نویز داره من واسه اینکه نویزش کم بشه اومدم یه حرف مثل F رو ده بار فرستادم یا بصورت FFFFFFFFFFF فرستادم و تو گیرنده گفتم اگه در کد دریافتی حرف F وجود داشت برو جلو و غیره و در صورتی که هیچ کلیدی زده نشه S که بمعنی Stop ارسال میشه
  10. #10
    2012/07/09
    303
    12

    پاسخ : ماشين كنترلي

    حسن آقا شما نوع سوختی از این ماشین هارو هم ساختی؟؟
صفحه 1 از 2 12 آخرین
نمایش نتایج: از 1 به 10 از 17

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

  1. كارتهاي كنترلي زيمنس
    توسط mostafa6369 در انجمن مباحث دیگر علم الکترونیک
    پاسخ: 0
    آخرين نوشته: 2016/01/25, 09:43
  2. پاسخ: 74
    آخرين نوشته: 2013/04/27, 14:05
  3. پاسخ: 4
    آخرين نوشته: 2012/04/21, 19:27
  4. ساخت دماسنج كنترلي براي جوجه كشي
    توسط afsoon811 در انجمن میکروکنترلرهای AVR
    پاسخ: 18
    آخرين نوشته: 2012/01/03, 21:44
  5. در خواست اطلاعات در مورد سيستم كنترلي خودرو هاي انزكتوري
    توسط hiflier80 در انجمن سایر مطالب مرتبط با ميکرو ها و پروسسورها
    پاسخ: 7
    آخرين نوشته: 2007/11/21, 14:17

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

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

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

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

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