درود،میهمان گرامی ورود ثبت نام لیست اعضا تقویم راهنما جستجوجستجو
بازیابی رمز



آخرین ارسال ها
مصرف سيگار از علل مهم ابتلاي افراد به سينوزيت است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
استفاده از قليان به اندازه استعمال ‌20 نخ سيگار خطر دارد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
خشونت طولاني صدا و بدون علت شايع‌ترين علامت بروز سرطان حنجره است
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
چرا ما ابرو داریم؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
اثر سبزيجات بر مغز سالمندان
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
ديدن غذاهاي موردعلاقه موجب بهبود كارآيي مغز مي شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
اگزما بيشتر جنبه ارثي دارد استرس باعث تشديد بيماريهاي پوستي مي‌شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
مصرف داروهاي اعصاب و روان در دوران بارداري منجر به شکاف لب نوزاد مي‌شود
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:1
در حين رويش دندان‌هاي نوزادان از دندان‌گير استفاده نكنيد
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
چگونه از ابتلا به سكته قلبي جلوگيري كنيم؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
این 10 نکته را در ماه رمضان برای گرفتن روزه فراموش نکنید!!!
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:2
چرا داروی سرطان تاکنون کشف نشده است؟
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
گرما به تسكين درد كمك مي‌كند
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
اثر كم خوني بر ذهن و بدن
شروع کننده:فرشاد شاه آخرین ارسالفرشاد شاه پاسخ ها:0 مشاهده:3
گالری مدل آرایش صورت
شروع کننده:aria آخرین ارسالelina_mn پاسخ ها:70 مشاهده:31628
مدل طراحی ناخن
شروع کننده:elina_mn آخرین ارسالelina_mn پاسخ ها:17 مشاهده:219
مدل آرایش چشم
شروع کننده:mina آخرین ارسالelina_mn پاسخ ها:117 مشاهده:14778
شستن دست ها با آب گرم مرگ ومیر کودکان زیر 5 سال را کاهش می دهد
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:13
چطور به کودکان شستن دست را آموزش دهیم؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
با شستن دست از بیماری جلوگیری کنید
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
اسکناس های کثیف موجب انتقال بیماری کچلی می شوند
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
راه های پیشگیری از سرما خوردگی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
تفاوتهای سرماخوردگی ، آنفلوآنزای فصلی و H1N1
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:8
لنزهای تماسی برای کنترل قند خون
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
چند توصیه برای شستشوی پوست خود
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
محلی برای طرح سوالات و مشکلاتی که به ان برخورد میکنید
شروع کننده:admin آخرین ارسالadel پاسخ ها:419 مشاهده:22208
آدامس جویدن عامل تشدید نفخ در دستگاه گوارش است
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
کافی شاپ آواکسی ها
شروع کننده:adel آخرین ارسالadel پاسخ ها:101 مشاهده:1146
انرژی نقطه صفر و معادله دیراک
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
اتحاد نیروها و نظریه سی. پی. اچ.
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تجدید آزمایش سرعت نوترینوها/ تلاش برای اثبات یا رد سرعت بالاتر از نور در ذرات بنیادین
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
داوران ترک ديدار ايران و آلباني را قضاوت مي کنند
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:2
زندگینامه بزرگان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:10 مشاهده:23
****امشب سایت ها ده دقیقه تعطیل می شوند***
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:6
ارتباط البرت انیشتین با آیت الله بروجردی
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
اسامي ممنوعه در سازمان ثبت احوال
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:6
درياچه شيلي در كمتر از 24 ساعت ناپديد شد!
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:3
بيانيه‌ دفتر موسيقي ارشاد درباره خواننده هتاک
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
شهادت دو زن ايراني در حمله به زائران در عراق
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:2
واکنش آیت الله جوادی آملی به رژه همجنس بازان در آذربایجان
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
برگزاری تجمع بزرگ عزاداران امام هادی (ع) و کفن پوشان حضرت رقیه (س)
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
سیم‌کارت‌های رایتل فعلا خرید و فروش نمی‌شوند
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:5
اعلام زمان بندی اچ تی سی برای عرضه بروز رسانی اندروید 4 تعدادی از اسمارت فون های این
شروع کننده:adel آخرین ارسالadel پاسخ ها:0 مشاهده:4
استفان هاوکینگ چگونه حرف می‌زند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
رصدخانه مراغه، میراث جاویدان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
تولید نانوساختارهای ستاره ای شکل
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
می‌دانید چند سنگ آسمانی زمین را تهدید می‌کنند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:3
هوانوردی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
بشقاب پرنده؛ از واقعیت تا خیال
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
حیات منظومه شمسی، درون یک حباب است!
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
انواع موشک های کروز
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
گنج‌های فضایی مال کیست؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
حدس می زنید این عکس کجاست؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
حمله پرندگان خشمگین به فضا
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
ماه، مقصر غرق شدن کشتی تایتانیک بوده است!
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
اندازه گیری دقیق روشن ترین ذرات ریز اتمی جهان
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
آخرین پرواز ارابه های الهام بخش فضایی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
روند پیرشدن فضانوردان آهسته تر می شود
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تولید کاتالیست های ارزان و زیست سازگار
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
بررسی حیات زمینی در برخی کوتوله های سرخ
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
جدیدترین معمای کیهانی: کهکشان‌های نخستین چند ستاره داشتند؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تالس
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
پلاسمون کوانتومی در نانوذراتی در ابعاد اتمی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
ابن سینا و گذر زهره
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
داده نمایی (اینفوگرافی) گذر زهره‌ 2012
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
احتمال تنها بودن بشر در جهان هستی قدرت گرفت
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
اطلاعیه مشترک IOTA/ME و جمعیت منجمان مهبانگ در خصوص گذر زهره
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
شواهد فعالیت آتشفشانی سیاره سرخ
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
نانوایی فضایی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
مریخ نوردان و خطر آسیب دیدگی DNA
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
گیراندازی انرژی بیشتر با نوع جدیدی از پیل خورشیدی
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
ایجاد خاصیت پیزوالکتریک درگرافن
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
قلب کوچک مشتری
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
تصویر سرسبزی بهار زمین را از فضا ببینید
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
ضریب شکست
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:7
دزدی ستارگان آسمان از همدیگر
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
دسته‌های نانولوله‌ای پیلهای خورشیدی کارآمدی می سازند
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
زوم کردن بر روی حلقه های زحل
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
آیا می دانید مرکز دنیا کجاست؟
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:4
ارسال تصاویر فضایی برای بررسی بزرگترین ماهواره رصد زمین
شروع کننده:silent boy آخرین ارسالsilent boy پاسخ ها:0 مشاهده:5
title title title title title
آموزش پرورش اندام در 90 روز دستبندوگوشواره ماه تولد شما آموزش افزایش قد (کتاب و سی دی) جدیدترین روش بستن شال و روسری برنامه مشاهده همه شبکه های دنیا


ارسال پاسخ 
برنامه نويسي سخت افزار در ويژوال بيسيک
نویسنده پیام
MoonLover
ناظم ارشد انجمن
******

ارسال ها: 18,519
تاریخ عضویت: 29 December 2008
امتیاز: 147
تشکرهای ارسالی : 16674
تشکرهای دریافتی : 26116
اعتبار: 202  واحد
1
برنامه نويسي سخت افزار در ويژوال بيسيک


برنامه نويسي سخت افزار در ويژوال بيسيک
مقدمه
شايد تابحال خواسته باشيد از طريق پورت پرينتر و يا پورت سريال يا باس ISA با سخت افزاري که خودتان ساخته ايد ارتباط برقرار کنيد . براي اين کار شما نياز به برنامه اي داريد که بوسيله دستورات I/O با سخت افزار شما ارتباط برقرار کند . چون ويژوال بيسيک داراي دستورات کار با پورتهاي I/O نيست بايستي توسط ويژوال سي يک Dll براي کار با اين پورتها بسازيم .
DLL و کاربردهاي آن
اگر شما در DOS برنامه نويسي کرده باشيد با دستورات INPUT و OUPUT در زبان QuickBasic و با دستورات inp و outp در C آشنا هستيد . اين توابع در VB پياده سازي نشده اند . اين توابع براي سازندگان سخت افزار براي PC و نيز برنامه نويسان سيستم حياتي هستند زيرا به شما اجازه خواندن از پورت و نوشتن به پورت را مي دهند . براي ايجاد امکان استفاده ار پورت در VB بايد از Dll يا کتابخانه هاي ديناميک استفاده کنيم . Dll ها به VB اجازه مي دهند تا يک کد نوشته شده به يک زبان ديگر را در زمان اجرا ( بطور ديناميک ) به برنامه لينک شود . چون ويژوال سي داراي توابع خواندن و نوشتن پورت است بنابراين ما از اين زبان براي ساخت Dll موردنظر استفاده مي کنيم .
نوشتن DLL در VC
براي ساخت Dll ما بايستي دو فايل را ايجاد کنيم . اولين فايل يک فايل define يا DEF است و دومين فايل ، يک فايل C++ source يا CPP مي باشد . هر دو فايل را مي توانيد توسط Notepad ايجاد کنيد . ليست کد اين دو فايل بصورت زير است :

Port.def file :

LIBRARY Port
DESCRIPTION DLL FOR I/O PORT
EXPORTS
Outp @1
Inp @2


Port.cpp file :

include "conio.h"x#
short _stdcall Outp(int PortAddress,int PortData)x
}
short Dummy;x
Dummy=(short)(_outp(PortAddress,PortData));x
return(Dummy);x
;{
short _stdcall Inp(int PortAddress)x
}
short PortData;x
PortData=(short)(_inp(PortAddress));x
return(PortData);x
;{

پس از نوشتن اين دو فايل آنها را در يک دايرکتوري قرار دهيد ( مثلاً C:\port ) و سپس وارد محيط ويژوال سي شويد . از منوي File مورد New را انتخاب کنيد و در کادري که ظاهر مي شود در قسمت Projects مورد Win32 Dynamic-Link Library را انتخاب کنيد . همچنين در سمت راست همان صفحه در کادر Project name عبارت port را وارد کنيد و در کادر Location عبارت C:\port\port را وارد کنيد و آنگاه OK را کليک کنيد .


در مرحله بعدي بايستي فايل هاي def و cpp را به workspace ايجاد شده اضافه کنيم . براي اينکار در برگه FileView روي عبارت Port files کليک راست کرده و مورد Add Files to Project را انتخاب کنيد .


در کادري که ظاهر مي شود فايل port.cpp را انتخاب کنيد . با همين روش فايل port.def را نيز به پروژه اضافه نمائيد .
حال وارد منوي Build شده مورد Build port.dll را انتخاب کنيد تا dll مورد نظر ساخته شود .


dll ساخته شده را در دايرکتوري system ويندوزتان کپي کنيد .
استفاده از Dll در ويژوال بيسيک
براي استفاده از توابع dll ساخته شده بايد ابتدا توابع Out و In را declare کنيد :
Private Declare Function Outp Lib “port.dll” (Byval PortAddress as Integer,Byval PortData as Integer) as Integer
Private Declare Function Inp Lib “port.dll” (Byval PortAddress as Integer) as Integer

حال در برنامه تان براي نوشتن به يک پورت از دستور زير استفاده کنيد :
Dummy=Outp(port_number,data)x
و براي خواندن از پورت از دستور زير استفاده کنيد :
Portvalue=Inp(port_number)x
امضاء گاهی باید فراموش کرد..
به زودی میام..امتحان دارم فعلا!
آفلاین
Monday 20 June 2011 04:56 نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


موضوع های مرتبط با این موضوع...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  برنامه براي رسم يك N ضلعي منتظم MoonLover 0 361 Monday 20 June 2011 14:35
آخرین ارسال: MoonLover
  اجزاء یک برنامه Visual Basic و پسوند های مختلف فایل های vb MoonLover 0 216 Monday 20 June 2011 14:30
آخرین ارسال: MoonLover
  در خواست برنامه ي تبديل تاريخ شمسي به ميلادي و بالعكس ويژوال بيسيك mohsen* 2 413 Monday 30 May 2011 19:02
آخرین ارسال: user
  نمونه برنامه های دلفی با سورس Ashkan 14 12,633 Monday 27 December 2010 15:16
آخرین ارسال: bahareh12
  دستور چاپ در هنگام اجرای برنامه درvb6 جلیل زاده 1 495 Wednesday 24 November 2010 22:01
آخرین ارسال: masodbook

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان
زمان کنونی: Thursday 24 May 2012, 23:54

تماس با ما | انجمنهای فارسی آواکس نت | بازگشت به بالا | بازگشت به محتوا | آرشیو | پیوند سایتی RSS