سلام............
من میخوام یه ماشین کنترلی بی سیم ساده بسازم..از کجا باید شروع کنم؟
من میخوام یه ماشین کنترلی بی سیم ساده بسازم..از کجا باید شروع کنم؟
-
-
پاسخ : ماشین کنترلی
اگه میخوای خودت بسازی و ساده باشه
oo: به نظر من وقتتو نزار چون آمادش تو بازار به قیمت 10 تومن هست 
ولی اگه میخوای یه چیزی بسازی که مثلا روش ردوربین بسازی یا برد کنترلش در حد چند کیلومتر باشه و بشه ازش به عنوان ماشین های جاسوس استفاده کرد که خوبه
اول باید ببینی از چه وسایلی میخوای استفاده کنی :read:
یعنی ببینی ماشینی که میخوای بسازی اول چه کارایی باید بکنه بعد شروع کنی به انتخاب لوازم :read:
به نظرم اول بگو میخوای چیکار کنه تا بعد شاسی و برد کنترل و کلا هر چیزی نیازه رو بررسی کنیم
زکات علم نشر آن است -
پاسخ : ماشین کنترلی
اگه اولین رباتته بهتره بری سمت مسیر یاب (چیز های بیشتری تو روند ساختش یاد میگیری)
دیدگاه
-
پاسخ : ماشین کنترلی
ممنونم از این که جواب دادین :rolleyes: ..ببینید میخوام یه چیزی یاد بگیرم که میخوام بسازمش ....میخوام طوری باشه بتونه به چهار طرف گردش داشته باشه....با میکرو بتونم کنترلش کنم...بعد میشه در مورد دوربین هم فک کرد که روش بذاریم ...بعد یه سوال این که واسه راه اندازی موتورش باید از درایور استفاده کنم ؟؟ چه طوری برنامشو برای میکرو بنویسم ؟؟...در کل ممنون میشم اگه راهنماییم بکنیددیدگاه
-
پاسخ : ماشین کنترلی
درکل اول بگو چی بلدی تا بگیم چیکار کننوشته اصلی توسط mars 21
اینارو بلدی؟
1- برنامه نویسی میکرو(کدوم زبان؟ :read
2- طراحی مدار(کدوم نرم افزار؟ :read
3- چاپ برد(با چه روشی؟ :read
4-چقدر میتونی هزینه کنی؟(مایه چقدر میزاری واسه کارات؟oo
5-تحلیل مدار(در حد کم :agree
زکات علم نشر آن استدیدگاه
-
پاسخ : ماشین کنترلی
منظورتون از طراحی مدار چیه؟ صرفا فقط یاد داشتن یک نرم افزار مثل پروتئوس هست؟دیدگاه
-
پاسخ : ماشین کنترلی
اوهومنوشته اصلی توسط rezabagheri
طراحی شماتیک و پی سی بی منظورمه
چون واقعا دیگه در شان یه مهندس نیست بخواد روی بردبرد مداری ببنده(منظورم نهایی هست) یا از این برد های 1000 سوراخ
بهتره یه نرم افزار مثل همنی که گفتین یا پروتل رو یاد بگیرین
زکات علم نشر آن استدیدگاه
-
پاسخ : ماشین کنترلی
گزینه تحلیل مدار رو هم توضیح بدید یعنی چی
دیدگاه
-
پاسخ : ماشین کنترلی
سلام
من از این ماشین ها تا دلت بخواد ساختم .برای درایور موتور از درایور رله استفاده کردم چون موتورم زیاد جریان میکشید
واسه ارتباط میکرو و کنتزل از ماژول های مختلف میتونی استفاده کنی
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"
If K <> 0 And Gh <> "FF" Then
Call Forward()
Gh = "FF"
End If
K = Instr(a , "LL"
If K <> 0 And Gh <> "LL" Then
Call Leftt()
Gh = "LL"
End If
K = Instr(a , "RR"
If K <> 0 And Gh <> "RR" Then
Call Rightt()
Gh = "RR"
End If
K = Instr(a , "BB"
If K <> 0 And Gh <> "BB" Then
Call Back()
Gh = "BB"
End If
K = Instr(a , "SS"
If K <> 0 And Gh <> "SS" Then
Call Stopp()
Gh = "SS"
End If
K = Instr(a , "NN"
If K <> 0 And Gh <> "NN" Then
Call Bala()
Gh = "NN"
End If
K = Instr(a , "TT"
If K <> 0 And Gh <> "TT" Then
Call Paien()
Gh = "TT"
End If
K = Instr(a , "PP"
If K <> 0 And Gh <> "PP" Then
Call Ttond()
Gh = "PP"
End If
K = Instr(a , "OO"
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 ارسال میشهدیدگاه
-
پاسخ : ماشین کنترلی
حسن آقا شما نوع سوختی از این ماشین هارو هم ساختی؟؟دیدگاه
-
پاسخ : ماشین کنترلی
آره .نوع سوختیش که خیلی آسونه اگه بلد باشی
من از موتور چمن زن .از این دستی هاش استفاده کردم.کلاج اتوماتیکم هست.یعنی هر وقت گاز بدی ماشین حرکت میکنه.با سروو میتونی هم گازبدی وهم چپ و راستدیدگاه
-
پاسخ : ماشین کنترلی
شما رادیو کنترل هم ساختی؟؟؟
آخه اینایی که تو بازار هست خیلی گرونه!!!!دیدگاه
-
پاسخ : ماشین کنترلی
آره دیگه برنامه بالا ماله ماژول ارسال داده هست دیگه.میتونی از ماژول HMT , HMR h استفاده کنینوشته اصلی توسط rezabagheriدیدگاه
-
پاسخ : ماشین کنترلی
من اصلا چیزی از ماژول ها نمی دونم!!!!نوشته اصلی توسط Hassan_Emperor
چجوری میشه از اینها استفاده کرد؟؟؟؟
برنامه نویسی می خواد؟؟؟؟
بردسشون چقدره؟؟؟؟دیدگاه
-
پاسخ : ماشین کنترلی
iبا برنامه نویسی میشه راش انداخت.کار سختی نیستنوشته اصلی توسط rezabagheri
بردشم از 50 متر تا 3 کیلومترهدیدگاه
دیدگاه