مدتی هست که در پروژه ساخت یه روبات مین یاب دستی مشارکت میکنم . و ارتباط میکرو با کامپیوتر رو من باید انجام بدم. چون من توی منطقه تقریبا محروم زندگی میکنم گیر آوردن آی سی های ft232 و ... کار سوپرمنه اگه توی اینترنت هم سفارش بدی خیلی گرون تموم میشه مثله یه فروشگاهی زده مبدل یو اس بی به سریال 39 هزار تومان و 14 هزار تومان هم واسه ارسال با تیپاکس میگیره. شکل مدارشم که نگا میکنی یه آی سی با 3 تا دیود و یه کریستال بیشتر نداره! بعد بیای 63 هزار تومن بدی واسه این!!!!!!
به همین دلیل دست به کار شدم و با میکرو Attiny2313 یه مدار مبدل ساختم ولی متاسفانه در کمال ناباوری هنگام اتصال به کامپیوتر کامپیوتر مدار رو نشناخت. کلا 24 ساعت گذشته به خاطر این شکست بزرگ (:D) حالم گرفته بود . یه بار دیگه مدارو چک کردم دیدم همه چی درسته !
ای خدا پس این چه مرگشه؟ چرا نمیشناسه مدارو؟
به یکی از دوستام زنگ زدم گفت منم اطلاعی ندارم ولی یه سر به سایت USB.ORG بزن مستندات اتصالات یو اس بی اونجا هست . رفتم و کمی گشتم دید برای اتصال یو اس بی با نرخ انتقال پایین باید ولتاژ مرجع 3.5 ولت باشه و این در حالیه که USB 2 از 5 ولت پشتیبانی میکنه منم به پیشنهاد یکی کاربرای فوم ایران ویچ یه دیود زنر جلو راش گذاشتم دیدم کامپیوتر مدارو شناخت . از خوشحالی داشتم پرواز میکردم ! درایورو نصب کردم و امتحانش کردم دیدم خروجی هاش چرتو پرته یعنی از کامپیوتر حرف A رو میفرستادی میکرو hv5#$#5646nbnb میگرفت. فکر کردم با استفاده از کریستال خارجی و تنظیم فیوز بیت ها همه چی درست شد و هم اکنون که من در حال نوشتن هستم کلی از دیدن مداری که امشب قراره pcb شو بزنم حال میکنم.
اگه شما هم میخواید این مدارو بسازید میتونید فایل های زیر رو دانلود و مدار رو ببندید .
برای دانلود کلیک کنید.
 همیشه دوست داشتم تنهای تنها برم یه جایی شبیه اینجا قدم بزنم. ولی حیف هر وقت این جور جاها رو میدیدم حداقل 5-6 نفر آدم دورو برم بود که از این قرطی بازیا خوششون نمی اومد. خودمو به اون راه میزنم که من این همه برگ قرمز و زرد رو ندیدم و نمیدونم وقتی از روشون رد میشی صدای خش خششون آدمو میبره یه دنیای دیگه.
یادش به خیر نسخه های اولیش بود....
با استفاده از شی وب کلاینت میتونید یک فایل رو روی اینترنت یا شبکه بخونید. البته این شی خصوصیات پر کاربرد دیگه ای هم داره.
Label1.Text = ""Dim instance As WebClient = New WebClient
Dim address As String = "http://myweb.com/test.txt"
Dim returnValue AsStringreturnValue = instance.DownloadString(address)
Label1.Text = returnValue
| 
