Vb6

  • October 2019
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Vb6 as PDF for free.

More details

  • Words: 16,404
  • Pages: 77
‫آموزش ویژوال بیسیک ‪6‬‬

‫نُلف‪0‬‬

‫انیر نرادآبادی‬

‫ایو نلالٌ در ظایت ‪ www.B4C4.com‬ارائٌ ػسً ه اظتفادً از آن ةا ذکص ىام ظایت نجاز نی ةاػس‬

‫نجهُيٌ ی خافص ىٌ تصجهٌ از کتاب راؾی اظت ىٌ کپی از رهی ىُػتٌ یا جضهً ای‪ .‬ةلکٌ یکعصی از تجصةیات نو در زنیيٌ ی ةصىانٌ‬ ‫ىُیعی ةا هیژهال ةیعیک نی ةاػس‪ .‬ةياةصایو اختهاال ياری از رما ىهی ةاػس‪ .‬لشا رُاٍؼهيس اظت اگص ةا نؼکلی رهةصه ػسیس ةٌ نو‬ ‫الالع دٍیس تا در جَت رفى آن ةص آیم‪ .‬اةتسا كؿس داػتم نجهُيٌ ی کانلی را درظت کيم کٌ ةٌ ؾُرت نزتؿص ه نفیس ایو زةان ةصىانٌ‬ ‫ىُیعی ظادً ه کارةصدی را ةٌ يالكٌ نيسان آن ةٌ ؾُرت کانل یاد دٍس‪ .‬هلی ةٌ دلیل خجم زیاد نمالب ه هكت کم رُدم تا ٍهیو جا‬ ‫ةعيسً کصدم‪ .‬انیس اظت ایو نجهُيٌ ػها را در فصاگیصی ایو زةان یاری دٍس‪ .‬ایو نجهُيٌ ةٌ ؾُرت کانال نجاىی در ارتیار دهظت‬ ‫داران يلم كصار گصفتٌ اظت‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫نقدنو‬ ‫‪ Vb‬جضه زةاىَای ظمح ةاالظت‪ .‬زةان ٍای ظمح ةاال ایو انکان را ةٌ ةصىانٌ ىُیط نی دٍيس کٌ دظتُرات نُرد ىیاز رُد را تلصیتا ناىيس‬ ‫زةان اىگلیعی هيهلیات ریافی ةٌ ؾُرت رهزنصً ةيُیعس‪ .‬ةصىانٌ ٍای نتصجم کٌ ههیفٌ تتسیل زةان ٍای ظمح ةاال را ةٌ زةان ناػیو‬ ‫دارىس‪ ،‬کانپایلص نی گُیيس‪ .‬ةصىانٌ ٍای نفعّص یا ‪ Interpreter‬نحل ‪ vb‬نیتُاىيس ةٌ ؾُرت نعتلیم ةصىانٌ ٍای زةان ظمح ةاال را‬ ‫ةسهن ىیاز ةٌ کانپایلص ةٌ زةان ناػیو ‪ 0 #‬ه ‪ "1‬تتسیل کييس‪ٍ .‬صگاً ػها ةًس از ىُػتو ٍص رك از ةصىانٌ تان کلیس ‪ Enter‬را ةضىیس نفعص‬ ‫هیژهال ةیعیک ‪ syntax‬آن دظتُر را چک نیکيس ه اگص اػتتاً هارد ػسً ةاػس ٍهان نُكى پیغام رما نیسٍس ه ایو ةايث نیؼُد‬ ‫ةصىانٌ ٍای نا خساكل نُكى کانپایل نؼکل دظتُری ىساػتٌ ةاػيس ‪.‬‬ ‫زةان ٍای ةصىانٌ ىُیعی ةٌ ده ةزغ تلعیم نیؼُىس‪:‬‬ ‫‪ "1‬نتتيی ةص نتو )‪ (Text base‬نحل ‪ c‬ه ‪c++‬‬ ‫در ایيگُىٌ زةان ٍا ةصای اىجام ٍص کاری ةٌ ىُػتو کس ىیاز داریس‬ ‫‪ "2‬نتتيی ةص گصافیک )‪ (Graphical base‬نحل ‪vb‬‬ ‫در ایيگُىٌ زةان ٍا نحل ‪ vb‬کار ةصىانٌ ىُیط راخت تص اظت‪ .‬یًيی اهل لصاخی ةصىانٌ را ةٌ ؾُرت کانال هیژهال اىجام نیسٍس‪ .‬ةٌ لُر‬ ‫نحال ٍص گُىٌ دکهٌ ‪ ،‬جًتٌ نتو ه ‪ ...‬را رهی فصم رُد كصار نیسٍس ه ظپط ةٌ راختی ةصای ٍص کسام کس نی ىُیعس ‪.‬‬ ‫‪ Vb‬زةان ةصىانٌ ىُیعی تدت هیيسهز نی ةاػس‪ .‬ةصىانٌ ٍای ‪ vb‬در ندیك تُظًٌ یافتٌء نجتهى )‪ (IDE‬لصاخی ه ظارتٌ نیؼُىس ‪.‬‬ ‫"‪"Integrated Development Environment‬‬ ‫‪ IDE‬ةٌ ةصىانٌ ىُیط ایو اجازً را نیسٍس کٌ ةصىانٌ ٍای رُد را ةٌ ؾُرت نياظب ه راخت ایجاد‪ ،‬اجصا ه رمایاةی کيس‪ .‬ایو ندیك‬ ‫ٍهچيیو انکان ىُػتو ةصىانٌ ٍای تدت هیيسهز را ختی ةٌ کعاىی کٌ آػيایی چيساىی ةا ةصىانٌ ىُیعی هیيسهز ىسارىس نیسٍس ‪.‬‬ ‫‪ Vb‬تُظًٌ یافتٌ زةان ةیعیک اظت‪ .‬ةیعیک ةیغ از‬ ‫تُظك نایکصهظافت در اهارص دٌٍ‬

‫‪ 35‬ظال در گُىٌ ٍای نزتلف ةٌ هجُد آنس‪ .‬ةا تُظًٌ هاظك گصافیکی کارةص‬

‫‪ 80‬ه اهایل دٌٍ ‪ 90‬ةیعیک تکانل تسریجی رُد را ةٌ ؾُرت‬

‫‪ vb‬اىجام داد‪ٍ .‬يگانی کٌ‬

‫نایکصهظافت اهلیو ىعزٌ ‪ vb‬را درظت کصد ةعیاری از نصدم اىدماط ‪ vb‬را پیغ ةیيی نی کصدىس‪ .‬ایو افصاد فکص نیکصدىس چُن ‪vb‬‬ ‫نتتيی ةصةیعیک اظت ىهی تُاىس ةصای ةصىانٌ ىُیعی ٍای جسی در هیيسهز ةٌ کار رهد‪ .‬انا نایکصهظافت ةا ‪ vb‬ةٌ جانًٌ ةصىانٌ ىُیعان‬ ‫آنُرت کٌ اهال یک زةان نیتُاىس ٍم ظادً هٍم كسرتهيس ةاػس جاىیا یک زةان نتتيی ةص ةیعیک ٍم نیتُاىس ةٌ رُةی در هیيسهز کار کيس ‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫نتغییرىا‬ ‫گاٍی الزم اظت در لُل ةصىانٌ تان يسدی یا دادً ای را در جایی ذریصً کيیس ه رهی آن يهلیاتی اىجام دٍیس‪ .‬ةصای ایو کار ةٌ نتغییص‬ ‫ىیاز داریس‪ .‬نتغییصٍا ٍهان لُر کٌ از ىانؼان پیساظت راىٌ ٍایی از خافوٌ اىس کٌ نی تُاىيس نلساری را در رُد ىگٌ دارىس کٌ ایو نلسار‬ ‫كاةل تغییص اظت‪ .‬ندتُای ایو راىٌ ٍا تا هكتی کٌ نلسار جسیسی را ةٌ آىَا ىعتت ىسادً ایم در لُل ةصىانٌ جاةت نی ناىس‪ .‬اگص نلسار‬ ‫نتغییص تغییص کيس نلسار كتلی آن پاک ػسً ه نلسار جسیس در آن كصار نی گیصد‪.‬‬ ‫پاظکال کارةص را نجتُر ةٌ تًصیف نتغییص ىهی کيس‪ .‬ایو هیژگی‬

‫‪ vb‬ةص رالف اکحص زةاىَای ةصىانٌ ىُیعی نحل ظی ه‬

‫‪ vb‬نهکو اظت ةصای اکحص ةصىانٌ ىُیعان تازً کار ةٌ نًيی رٍایی از‬

‫دردظصٍای تًصیف نتغییص ةاػس هلی در يهل نهکو اظت نؼکالت زیادی را ةُجُد آهرد ‪#‬اگص در لُل ةصىانٌ ىام نتغییص را اػتتاً تایپ‬ ‫کيیس کانپایلص پیام رمایی ةٌ ػها ىهی دٍس ه آن را ةٌ ييُان نتغییص جسیسی ةٌ خعاب نی آهرد ه ایو یًيی فاجًٌ!"‪.‬‬ ‫پیؼيَاد نیؼُد كتل از اىجام ٍص کاری در‬

‫‪ vb‬کلهٌ ‪ Option Explicit‬را در كعهت ةاالی ةصىانٌ تان ‪"Declaration #‬‬

‫ةيُیعیس‪ Option Explicit .‬ةٌ هیژهال ةیعیک نی گُیس کارةص رُد تهام نتغییصٍای نُرد ىیازش را تًصیف نی کيس‪ ،‬ةياةصایو اگص از‬ ‫ایو ةٌ ةًس نتغییصی را ةٌ اػتتاً تایپ کيیس پیام رمایی دریافت نی کيیس‪ .‬ةصای ایيکٌ‬

‫‪ vb‬ةٌ لُر رُدکار ‪Option Explicit‬‬

‫را ةٌ ةاالی ةصىانٌ ٍایتان افافٌ کيس گضیيٌ ‪ Require Variable Declaration‬را از نيُی ‪ Tools/Options‬اىتزاب کيیس‪.‬‬ ‫خاال کٌ نتغییص را ػيارتیس ةٌ كُاىیو تًصیف نتغییص در ‪ vb‬نی پصدازیم‪.‬‬ ‫ةصای تًصیف نتغییص در ‪ vb‬از دظتُر ‪ Dim‬ةٌ ؾُرت زیص اظتفادً نیؼُد‪0‬‬ ‫]‪Dim Varname [As Datatype‬‬ ‫‪ Varname‬ىانی اظت کٌ ةصای نتغییصتان اىتزاب نی کيیس‪ .‬ةصای ىام گشاری نتغییصٍا نیتُاىیس از تصکیتی از خصهف ‪ a‬تا ‪# z‬ةضرگ یا‬ ‫کُچک"‪ ،‬اركام ه ‪ Underline‬ةٌ ػصلی کٌ ةا ركم ه ‪ Underline‬ػصهع ىؼُد اظتفادً کيیس‪ .‬لُل ىام نتغییصٍا نی تُاىس تا ‪255‬‬ ‫کاراکتص ةاػس‪ .‬نحال‪.Sum , Min_Max , m6 0‬‬ ‫‪ Datatype‬یکی از اىُاع دادً ٍای ‪ vb‬نی ةاػس کٌ ةٌ تُفیح آن نی پصدازیم‪ .‬هیژهال ةیعیک ‪ 12‬ىُع دادً را پؼتیتاىی نی کيس‪.‬‬

‫ىُع دادً‬

‫فقای ذریصً ظازی‬

‫ندسهدً‬

‫‪Byte‬‬

‫‪1 byte‬‬

‫‪ 0‬تا ‪255‬‬

‫‪Boolean‬‬

‫‪2 bytes‬‬

‫‪ True‬یا ‪False‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Integer‬‬

‫‪2 bytes‬‬

‫‪Long‬‬

‫‪4 bytes‬‬

‫‪ -2,147,483,648‬تا ‪2,147,483,647‬‬

‫‪Single‬‬

‫‪4 bytes‬‬

‫‪ -3.402823E38‬تا ‪ -1.401298E-45‬ةصای ايساد نيفی‬ ‫‪ 1.401298E-45‬تا ‪ 3.402823E38‬ةصای ايساد نحتت‬

‫‪#‬ةا نهیض ػياهر ةا دكت نًهُلی"‬

‫‪Double‬‬

‫‪8 bytes‬‬

‫‪ -1.79769313486232E308‬تا ‪ -4.94065645841247E-324‬ةصای ايساد نيفی‬ ‫‪ 4.94065645841247E-324‬تا ‪ 1.79769313486232E308‬ةصای ايساد نحتت‬

‫‪#‬ةا نهیض ػياهر ةا دكت نقايف"‬

‫‪Currency‬‬

‫‪ -32,768‬تا ‪32,767‬‬

‫‪8 bytes‬‬

‫‪ -922,337,203,685,477.5808‬تا ‪922,337,203,685,477.5807‬‬

‫)‪(Scaled integer‬‬

‫‪Decimal‬‬

‫‪14 bytes‬‬

‫‪ +/-79,228,162,514,264,337,593,543,950,335‬ةسهن ىلمٌ ايؼار‬

‫‪ +/-7.9228162514264337593543950335‬ةا ‪ 28‬يسد ةًس از ىلمٌ ايؼار‬

‫‪ 1 +/-0.0000000000000000000000000001‬کُچکتصیو يسد غیص ؾفص‬

‫‪Date‬‬

‫‪8 bytes‬‬

‫‪Object‬‬

‫‪4 bytes‬‬

‫‪#String‬ةا لُل نتغییص"‬

‫‪#String‬ةا لُل جاةت"‬

‫از اهل ژاىُیٌ ‪ 100‬تا ‪ 31‬دظانتص ‪9999‬‬

‫‪Any Object reference‬‬

‫‪#‬لُل رػتٌ ‪ 0 "10 bytes $‬تا تلصیتا ده نیلیارد کاراکتص‬

‫لُل رػتٌ‬

‫‪# Variant‬ايساد" ‪16 bytes‬‬

‫‪ 1‬تا تلصیتا ‪ 65400‬کاراکتص‬

‫ٍصنلسار يسدی تا ةضرگی ‪Double‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫‪# Variant‬کاراکتص" ‪#‬لُل رػتٌ ‪$‬‬

‫‪"22 bytes‬‬

‫– ‪http://www.b4c4.com‬‬

‫‪ 0‬تا تلصیتا ده نیلیارد‬

‫تشکصات‪0‬‬ ‫‪ .1‬اگص انکان اىتزاب ةیو ده یا چيس ىُع دادً را داریس ىُع دادً ای را اىتزاب کيیس کٌ کهتصیو نیضان خافوٌ را اػغال کيس‪ .‬ایو کار‬ ‫ةايث ةارگضاری ظصیًتص ةصىانٌ در خافوٌ ه ةَیيٌ ػسن آن نی ػُد‪.‬‬

‫‪ٍ .2‬هان لُر کٌ در تًصیف نتغییص دیسیس ‪ As Datatype‬درهن کصهػٌ كصار گصفت‪ .‬یًيی ایو كعهت‬

‫‪ Optional‬یا ارتیاری‬

‫نی ةاػس‪ٍ .‬صگاً ‪ As Datatype‬ذکص ىؼُد ‪ vb‬ةٌ لُر رُدکار آن را از ىُع ‪ Variant‬تًصیف نی کيس ‪#‬اگص از ىُع دادً رُد ةی‬ ‫الالع ٍعتیس از ‪ Variant‬اظتفادً کيیس"‪ .‬پط يهال ده دظتُر زیص نًادليس‪0‬‬ ‫‪Dim x as Variant‬‬ ‫‪Dim x‬‬ ‫‪ .3‬رػتٌ نجهُيٌ یا دىتالٌ ای از کاراکتصٍاظت‪ .‬رػتٌ در ‪ vb‬درهن ده يالنت ىلل كُل " ‪ "Double Quotation‬كصار نی گیصد‪.‬‬ ‫یک رػتٌ نهکو اظت خاهی ايساد ىیض ةاػس هلی ‪#‬ةٌ ؾُرت نًهُلی" ىهی تُان از آن در نداظتات يسدی اظتفادً کصد‪ .‬در‬

‫‪ٍ vb‬ص‬

‫چیض ةیو ده يالنت ىلل كُل ةاػس یک رػتٌ اظت ختی اگص رالی ةاػس کٌ ةٌ آن رػتٌ تَی یا ‪ Null String‬نی گُیيس‪ .‬کلهٌ رزره‬ ‫ػسً ‪ vbNullString‬در ‪ vb‬نًادل رػتٌ تَی نی ةاػس‪.‬‬

‫‪ .4‬ىُع دادً ‪ String‬ةصای ده ىُع رػتٌ ةا لُل جاةت ه نتغییص ةٌ کار نی رهد‪ .‬در ‪ vb‬تًصیف رػتٌ ةا لُل نتغییص ةٌ ؾُرت زیص نی‬ ‫ةاػس‪0‬‬ ‫‪Dim Str_name as String‬‬ ‫نتغییص ‪ Str_name‬نی تُاىس رػتٌ ٍایی ةا ٍص لُل ‪#‬ةا تُجٌ ةٌ ندسهدً" را ىگٌ دارد‪ .‬اکحص اهكات از ایو ىُع اظتفادً نی کيیم‪.‬‬ ‫تًصیف رػتٌ ةا لُل جاةت ةٌ ؾُرت زیص نی ةاػس‪0‬‬ ‫‪Dim Str_name as String * len‬‬ ‫‪ Str_name‬یک رػتٌ ةٌ لُل ‪ len‬را ىگٌ نی دارد‪ .‬نحال‪0‬‬ ‫‪Dim Name1 as String * 10‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫یًيی نتغییص ‪ٍ Name1‬یچگاً ةیغ از ‪ 10‬کاراکتص را ىهی تُاىس در رُد ذریصً کيس‪ .‬اگص ػها ظًی کيیس رػتٌ ای کٌ ةیغ از‬

‫‪10‬‬

‫کاراکتص اظت را در ‪ Name1‬ذریصً کيیس ‪ vb‬تيَا ‪ 10‬کاراکتص اهل آن را در ‪ Name1‬كصار نی دٍس ه از ةلیٌ ؾصف ىوص نی کيس‪.‬‬

‫‪ .5‬دادً ٍای نيملی تيَا ده نلسار درظت یا ىادرظت )‪ (True,False‬را نی پشیصىس‪.‬‬

‫‪ vb .6‬در ىُع ‪ٍ Date‬ص ىُع الگُی تاریذ ه زنان را اجازً نی دٍس‪ .‬ةصای ایو نيوُر ةایس در دهلصف آىَا يالنت ‪ #‬را كصار داد‪ .‬نحال‪0‬‬ ‫‪Dim dt as Date‬‬ ‫‪dt = #1/31/2009#‬‬ ‫‪dt = #11:18:12 AM#‬‬ ‫‪ .7‬نی تُان تًاریف نتغییص ٍا را ةا جساظازی تُظك کانا در یک دظتُر ‪ Dim‬تصکیب کصد‪ .‬هلی اگص نتغییص ٍا از اىُاع گُىاگُن ةاػيس‬ ‫‪ As Datatype‬را ىیض ةایس ىُػت‪ .‬نحال‪0‬‬ ‫‪Dim Total, sum as Integer‬‬ ‫‪Dim Name1 as String, i as Integer, check as Boolean‬‬ ‫‪ .8‬از ىُع ‪ Currency‬ةیؼتص ةصای نداظتات پُلی اظتفادً نی ػُد‪.‬‬

‫‪ .9‬ةصای ايساد ايؼاری نًهُلی ةَتص اظت از ىُع ‪ Single‬اظتفادً کيیس‪.‬‬

‫‪ .10‬ىُع ‪ Byte‬ةَتصیو گضیيٌ ةصای کار ةا کسٍای اظکی اظت‪.‬‬

‫نقادیر پیش فرض نتغییرىا‪:‬‬ ‫نلادیص پیغ فصض نتغییصٍا اگص از اىُاع ‪ Byte, Integer, Long, Single, Double, Currency‬ةاػيس ةصاةص ؾفص رُاٍس ةُد‪ .‬ىُع‬

‫‪String‬‬

‫ةصاةص ‪ Date ، null‬ةصاةص ‪ Boolean ، #12:00:00 AM #‬ةصاةص ‪ Variant ، False‬ةصاةص)‪ Empty (null‬ه ‪ Object‬ةصاةص‬ ‫‪ Nothing‬نی ةاػس‪ .‬درةارً ‪ object‬در ةصىانٌ ىُیعی ػیء گصا نفؿال ؾدتت نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫نقدار دادن بو نتغییرىا‪:‬‬ ‫نلسار دادن ةٌ نتغییصٍا از ده لصیق ‪ .1‬دظتُر اىتعاب ه ‪ .2‬دظتُرات هرهدی اىجام نی پشیصد‪ .‬دظتُر اىتعاب را تُفیح نیسٍیم ه ةٌ‬ ‫دظتُرات هرهدی در جای دیگصی نی پصدازیم‪.‬‬ ‫دظتُر اىتعاب ‪ "1#‬نلساريتارت ظهت راظت را نداظتٌ کصدً ه خاؾل را در نتغییص ظهت چپ نی ریضد‪ .‬الگُی دظتُر اىتعاب ةٌ‬ ‫ؾُرت زیص اظت‪0‬‬ ‫‪Itemname = Expression‬‬ ‫‪ Itemname‬نیتُاىس یک نتغییص یا یک راؾیت کيتصل ةاػس‪.‬‬ ‫‪ Expression‬یا يتارت ‪ٍ ،‬ص تصکیتی از نتغییص ٍا ‪ ،‬جُاةت ه يهلگصٍاظت کٌ ىتیجٌ آن كاةل ارزیاةی اظت‪.‬‬ ‫‪ .1‬يتارت ریافی ‪"sum = 45+62#‬‬ ‫‪ .2‬یک نلسار جاةت ‪"name = "Amir"#‬‬ ‫‪ .3‬یک نتغییص ‪"count = number#‬‬ ‫‪ .4‬یک يتارت نداظتاتی ‪"x = 2 * n + i#‬‬ ‫‪ .5‬یک راؾیت کيتصل ‪"x = list1.listindex#‬‬

‫نتغییصٍا یا ندلی اىس )‪ (Private‬یا يهُنی )‪ (Public‬ه یا جَاىی )‪ .(Global‬نتغییصٍای ندلی تيَا در ٍهان تاةى یا رهیٌ ایی کٌ‬ ‫تًصیف نی ػُىس خُزً فًالیت دارىس ه ةیصهن از آن ىاػيارتٌ اىس‪ .‬نتغییصٍای يهُنی در كعهت ةاالی ٍص فصم یا ناجُل‪ ،‬كتل از ٍص تاةى‬ ‫یا رهیٌ ایی تًصیف نی ػُىس ه در تهام كعهت ٍای آن فصم یا ناجُل از جهلٌ تُاةى ه رهیٌ ٍا كاةل دظتصظی اىس‪ .‬نتغییصٍای يهُنی را‬ ‫ٍم ةا دظتُر ‪ Dim‬تًصیف نی کييس ٍم ةا دظتُر ‪ Public‬انا نتغییصٍای جَاىی ةا دظتُر ‪ Global‬تًصیف نی ػُىس ه در تهام‬ ‫كعهت ٍای ةصىانٌ كاةل دظتصظی اىس‪ .‬یًيی در تهام فصم ٍا ه ناجُل ٍا‪ .‬التتٌ نتغییصٍای جَاىی فلك در ناجُل تًصیف نی ػُىس‪.‬‬

‫عهلگرىا‬ ‫يهلگصٍا کاراکتص ٍا یا ىهادٍای راؾی ٍعتيس کٌ ةصای اىجام يهلیات راؾی رهی نتغییصٍا ‪ ،‬نلادیص جاةت ‪ ،‬يتارات ه‬ ‫كصار نی گیصىس‪ .‬يهلگصٍا ةٌ ظٌ دظتٌ تلعیم نی ػُىس‪0‬‬ ‫‪ .1‬نداظتاتی‬

‫‪ ...‬نُرد اظتفادً‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .2‬نيملی‬ ‫‪ .3‬راةمٌ ای‬

‫يهلگصٍای نداظتاتی‪0‬‬ ‫^ تُان‬ ‫* فصب‬ ‫‪ /‬تلعیم‬ ‫\ تلعیم ؾدیح‬ ‫‪ $‬جهى‬ ‫ تفصیق‬‫‪ Mod‬ةاكیهاىسً تلعیم‬ ‫& ‪ $ ،‬الداق رػتٌ ٍا‬ ‫نحال‪0‬‬ ‫‪2^3=8‬‬ ‫‪2*3=6‬‬ ‫‪6/2=3‬‬ ‫‪7\2=3‬‬ ‫‪2+3=5‬‬ ‫‪2 – 3 = -1‬‬ ‫‪11 Mod 3 = 2‬‬ ‫”‪“Am” + “ir” = “Amir‬‬

‫‪or‬‬

‫”‪“Am” & “ir” = “Amir‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

0‫يهلگصٍای نيملی‬ Not And Or Xor Eqv Imp 0‫نحال‬ Dim a, b, c as Boolean c = True a = Not b

a = True

a = b And c

a = False

a = b or c

a = True

a = b Xor c

a = True

a = b Eqv c

a = False

a = b Imp c

a = True

x

y

And

Or

Xor

Eqv

Imp

F

F

F

F

F

T

F

F

T

F

T

T

F

T

T

F

F

T

T

F

F

T

T

T

T

F

T

T

0‫يهلگصٍای راةمٌ ای‬ ‫< ةضرگتص‬ ‫< ةضرگتص یا نعاهی‬1 ‫> کُچکتص‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ >1‬کُچکتص یا نعاهی‬ ‫‪ 1‬نعاهی‬ ‫<> نزالف‬

‫نحال‪0‬‬ ‫‪Dim a as Boolean, b, c as Integer‬‬ ‫‪b = 75‬‬ ‫‪c = 21‬‬ ‫‪a = True‬‬

‫‪a = b > c‬‬

‫‪a = True‬‬

‫‪a = b >= c‬‬

‫‪a = False‬‬

‫‪a = b < c‬‬

‫‪a = False‬‬

‫‪a = b <= c‬‬

‫‪a = False‬‬

‫‪a = b = c‬‬

‫‪a = True‬‬

‫‪a = b <> c‬‬

‫تلسم يهلگصٍا‪0‬‬ ‫‪ .1‬پصاىتض‪"#‬‬ ‫‪ .2‬تُان ^‬ ‫‪ .3‬تفصیق یکاىی –‬ ‫‪ .4‬فصب ه تلعیم ايؼاری * ه ‪/‬‬ ‫‪ .5‬تلعیم ؾدیح \‬ ‫‪Mod .6‬‬ ‫‪ .7‬جهى ه تفصیق ‪ $‬ه –‬

‫ىکتٌ‪0‬‬ ‫‪ .1‬يهلگصٍایی کٌ در یک ردیف كصار گصفتٌ اىس نحل * ه ‪ /‬یا ‪ $‬ه – ىعتت ةٌ ٍم تلسم نکاىی دارىس‪ .‬یًيی ٍص کسام زهدتص هاٍص ػُىس‪،‬‬ ‫زهدتص اىجام نی ػُىس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .2‬اگص در يتارتی از چيس يهلگص تُان اظتفادً ػسً ةاػس‪ ،‬تلسم آىَا از راظت ةٌ چپ کاٍغ نی یاةس‪ .‬یًيی اهل تُان ظهت راظت ه ةًس‬ ‫تُان ٍای ظهت چپ اجصا نی ػُىس‪.‬‬ ‫نحال‪0‬‬ ‫‪X = 2 ^ 3 ^ 4‬‬ ‫اةتسا ‪ 3‬ةٌ تُان ‪ 4‬نی رظس‪ ،‬ظپط ‪ 2‬ةٌ تُان خاؾل یًيی ‪ 81‬نی رظس‪.‬‬ ‫‪X = 4096‬‬ ‫‪ .3‬تلسم يهلگصٍای نيملی ةٌ ٍهان تصتیتی نی ةاػس کٌ ىُػتٌ ػسً اىس‪ .‬از ةاال ةٌ پاییو‪.‬‬

‫‪ .4‬يهلگص ةاكی ناىسً ‪ ،‬ةاكی ناىسً یک تلعیم ؾدیح را خعاب نی کيس‪ .‬یًيی يهلُىسٍای آن ختها ةایس ؾدیح ةاػيس‪.‬‬

‫ساختارىای تصهیم‬ ‫نجهُيٌ ای از دظتُرالًهل ٍا کٌ انکان اىتزاب ه تؿهیم گیصی از ةیو یک یا چيس نُفُع را ةٌ نا نی دٍيس ظارتار ٍای تؿهیم نی‬ ‫گُیيس‪.‬‬

‫جهلٌ ػصلی ‪If‬‬

‫از ‪ If‬ةصای تؿهیم گیصی از ةیو یک یا چيس ػصط اظتفادً نی ػُد‪.‬‬

‫‪ Then‬صرط ‪If‬‬ ‫نجهًعو دستًرات ‪Vb‬‬ ‫‪End If‬‬ ‫ه یا‬ ‫‪ Then‬صرط ‪If‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫نجهًعو دستًرات ‪1 Vb‬‬ ‫‪Else‬‬ ‫نجهًعو دستًرات ‪2 Vb‬‬ ‫‪End If‬‬

‫ه یا‬ ‫دستًر ‪ Then‬صرط ‪If‬‬

‫ه یا‬ ‫دستًر‪ Else 2‬دستًر‪ Then 1‬صرط ‪If‬‬

‫در ىُع اهل اگص ػصط درظت ةاػس آىگاً نجهُيٌ دظتُراتی کٌ در آن ةالک ىُػتٌ ػسً اجصا نی ػُىس هگصىٌ ٍیچ اتفاكی ىهی افتس‪.‬‬ ‫در ىُع دهم اگص ػصط درظت ةاػس آىگاً نجهُيٌ دظتُرات ‪ 1‬اجصا نی ػُد ه در غیصایو ؾُرت نجهُيٌ دظتُرات ‪ 2‬اجصا نی ػُىس‪.‬‬ ‫در ىُع ظُم اگص ػصط درظت ةاػس آىگاً فلك تيَا یک دظتُر ةًس از ‪ Then‬اجصا نی ػُد هگصىٌ ٍیچ اتفاكی ىهی افتس‪.‬‬ ‫در ىُع چَارم اگص ػصط درظت ةاػس آىگاً فلك دظتُر ‪ 1‬اجصا نی ػُد در غیص ایو ؾُرت فلك دظتُر ‪ 2‬اجصا نی ػُد‪.‬‬

‫ىکتٌ‪0‬‬ ‫در ىُع ظُم ه چَارم چُن ةالکی از دظتُرات ىساریم ه فلك یک دظتُر اظت ةٌ ‪ End If‬اختیاجی ىساریم‪.‬‬

‫نحال‪0‬‬ ‫‪Dim x as Boolean‬‬ ‫‪If x Then‬‬ ‫" ‪Text1.Text = "The Value of x is True‬‬ ‫‪Beep‬‬ ‫‪End If‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫در ایو نحال اگص نلسار نيملی نتغییص ‪ x‬ارزش درظتی داػتٌ ةاػس آىگاً نجهُيٌ دظتُرات دارل ةالک اىجام نی ػُىس‪.‬‬ ‫یًيی راؾیت نتو از ػیء جًتٌ نتو ةصاةص آن رػتٌ كصار نی گیصد ‪#‬زیاد ىتصظیس درةصىانٌ ىُیعی ػیءگصا ةٌ ایو نملب ةیؼتص نی‬ ‫پصدازم‪ ".‬ه ظپط دظتُر ‪Beep‬یک ؾسای ةیپ در اظپیکص کانپیُتصتان ایجاد نی کيس‪.‬‬

‫ىکتٌ‪0‬‬ ‫اگص در ‪ vb‬نلسار نيملی گضارً ای ذکص ىؼُد ‪ vb‬ةٌ لُر رُدکار آن را ارزش درظت در ىوص نی گیصد‪ .‬پط يهال دظتُرات زیص ةا‬ ‫دظتُرات ةاال ةصاةص اظت‪0‬‬

‫‪Dim x as Boolean‬‬ ‫‪If x = True Then‬‬ ‫" ‪Text1.Text = "The Value of x is True‬‬ ‫‪Beep‬‬ ‫‪End If‬‬ ‫نحال‪0‬‬

‫‪Dim Res1 as Integer‬‬ ‫‪If Res1 <= 0 Then‬‬ ‫" ‪Text1.Text = "The number is positive‬‬ ‫‪Else‬‬ ‫" ‪Text1.Text = "The number is negative‬‬ ‫‪End If‬‬ ‫در ایو نحال اگص نلسار نتغییص ‪ Res1‬ةضرگتص یا نعاهی ؾفص ةاػس رػتٌ‬ ‫"‪ "The number is positive‬ه در غیص ایو ؾُرت رػتٌ "‪ "The number is negative‬ىُػتٌ نی ػُد‪.‬‬ ‫ىکتٌ‪0‬‬ ‫در ‪ vb‬ارزش ىادرظتی ةا نلسار ؾفص ه ارزش درظتی ةا نلسار یک ‪ #‬یا نلساری غیص از ؾفص" ىؼان دادً نی ػُد‪.‬‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫"‪If x = Y Then Text1.Text = "Equal‬‬

‫در ایو نحال اگص نلسار ‪x‬ه ‪ y‬ةصاةص ةاػس آىگاً ‪ Equal‬در جًتٌ نتو ىُػتٌ نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪If a > b Then Max = a Else Max = b‬‬

‫در ایو نحال اگص ‪ a‬ةضرگتص از ‪ b‬ةاػس نلسار ناکعیهم ةصاةص ‪ a‬ه در غیص ایو ؾُرت نلسار ناکعیهم ةصاةص ‪ b‬نی ػُد‪.‬‬

‫ساختار ‪ElseIf‬‬ ‫اگص ةزُاٍیم ةا اظتفادً از ‪ If‬ػصط ٍای گُىاگُىی را چک کيیم از ‪ElseIf‬نی تُان اظتفادً کصد‪ .‬التتٌ نو ایو کار را تُؾیٌ ىهی‬ ‫کيم چُن ةايث کم ػسن رُاىایی ةصىانٌ ‪ ،‬ظصدرگهی ةصىانٌ ىُیط ه لُالىی تص ػسن ةصىانٌ نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫نًصهف تصیو نحال ‪ElseIf‬‬

‫‪If a > 0 Then‬‬ ‫" ‪Text1.Text = "positive‬‬ ‫‪ElseIf a < 0 Then‬‬ ‫" ‪Text1.Text = "negative‬‬ ‫‪Else‬‬ ‫" ‪Text1.Text = "zero‬‬ ‫‪End If‬‬ ‫در ایو نحال اگص نلسار نتغییص ةضرگتص از ؾفص ةاػس کلهٌ نحتت ه در غیص ایو ؾُرت اگص نلسار نتغیص کُچکتص از ؾفص ةاػس کلهٌ نيفی ه‬ ‫در غیص ایو ؾُرت کلهٌ ؾفص در جًتٌ نتو ىُػتٌ نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ساختار ‪Select Case‬‬ ‫اگص تًساد ػصهلتان زیاد اظت چصا از ‪ ElseIf‬لًيتی اظتفادً نی کيیس‪.‬‬ ‫‪ Select Case‬گضیيٌ رُةی ةصای تؿهیم گیصی از ةیو نلادیص نزتلف نی ةاػس‪.‬‬ ‫ةص يکط ‪ ElseIf‬رُاىایی ةصىانٌ ةا ‪ Select Case‬ةاال نی رهد‪.‬‬

‫عبارت ‪Select Case‬‬ ‫عبارت ‪Case 1‬‬ ‫نجهًعو دستًرات ‪1‬‬ ‫عبارت ‪Case 2‬‬ ‫نجهًعو دستًرات ‪2‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬

‫‪Case Else‬‬ ‫نجهًعو دستًرات ‪Else‬‬ ‫‪End Select‬‬

‫در ایو دظتُر يتارتی را کٌ نی رُاٍیم نلادیص نزتلف آن را چک کيیم در جلُی ‪ Select Case‬نی ىُیعیم‪.‬‬ ‫ظپط ٍص نلسار آن را در جلُی ‪ Case‬نی ىُیعیم‪.‬‬ ‫اگص نلسار ارزیاةی ػسً يتارت نُرد ىوص ةصاةص ٍص کسام از خاالت ةاػس نجهُيٌ دظتُرات ةًس از آن خالت اجصا ػسً ظپط دظتُر‬ ‫‪ Select Case‬راتهٌ نی یاةس‪.‬‬ ‫اگص ٍیچ کسام از خاالت درظت ىتاػس نجهُيٌ دظتُرات ‪ Else‬اجصا نی ػُد‪.‬‬ ‫نحال‪0‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Select Case sVal Case 0 Text1.Text = "zero " Case 1 Text1.Text = "One " Case 2 Text1.Text = "Two " Case 3 Text1.Text = "Three " Case 4 Text1.Text = "Four " Case 5 Text1.Text = "Five " Case Else Text1.Text = "Error " End Select

.‫ ةصای اىتزاب ندسهدً ای از الاليات اظتفادً نی ػُد‬To‫ از‬Select Case ‫در دظتُر‬ 0‫نحال‬

Case 10 To 20 .‫را ىیض ةٌ کار ةصد‬Is ٌ‫ ةصای اظتفادً از يهلگص ٍای راةمٌ ای ةایس کله‬Select Case ‫در دظتُر‬ 0‫نحال‬

Case Is > 50 .‫ کصدن يتارات اظتفادً کصد‬OR ‫از کانا ىیض نیتُان ةصای‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫نحال‪0‬‬

‫‪Case Is < 0, 10 To 20‬‬ ‫اگص نلسار کُچکتص از ؾفص ةاػس یا ةیو ‪ 10‬تا ‪ 20‬ةاػس نجهُيٌ دظتُرات ةًس از ‪ Case‬اىجام نی ػُد‪.‬‬

‫تابع ‪IIF‬‬

‫)‪Function IIf(Expression, TruePart, FalsePart‬‬ ‫از ایو تاةى ٍيگانی اظتفادً نی ػُد کٌ ةزُاٍیم از ةیو ده نلسار فلك یکی را ةصای یک نتغییص اظتفادً کيیم‪.‬‬ ‫اگص ػصط درظت ةاػس نلسار ‪ TruePart‬ه در غیص ایو ؾُرت نلسار ‪FalsePart‬در ىام تاةى كصار دادً نی ػُد‪.‬‬ ‫نحال‪0‬‬

‫‪Dim IsZero as Boolean‬‬ ‫‪Dim Mark as Integer‬‬ ‫)‪IsZero = IIf(Mark = 20, True, False‬‬ ‫در ایو نحال اگص ىهصً ةصاةص ‪ 20‬ةاػس ارزش نتغییص نيملی ‪ IsZero‬ةصاةص درظت ه در غیص ایو ؾُرت ارزش آن ةصاةص ىادرظت نی‬ ‫ةاػس‪.‬‬

‫حلقو ىای تکرار‬ ‫از خللٌ ٍای تکصار ةصای تکصاراىجام يهلیات راؾی اظتفادً نی ػُد‪.‬‬ ‫خللٌ تکصار ‪0For‬‬ ‫از ایو خللٌ ةصای تکصار يهلیات راؾی ةٌ تًساد نؼزؽ اىجام نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫]‪For Counter = Start_Value To End_Value [Step Step_Count‬‬ ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ ‫]‪Next [Counter‬‬ ‫‪ Counter‬ػهارىسً خللٌ‬ ‫‪ Start_Value‬نلسار اهلیٌ ػهارىسً‬ ‫‪ End_Value‬نلسار پایاىی ػهارىسً‬ ‫اةتسا نتغییص ‪ counter‬ةصاةص ‪ Start_Value‬كصار نی گیصد ه دظتُرات یک ةار اجصا نی ػُىس ظپط ‪ Step_Count‬ةٌ اىسازًء‬ ‫‪ Step_Count‬افضایغ یافتٌ ه دهةارً دظتُرات اجصا نی ػُىس ه ایو يهل تا هكتی کٌ ةٌ ‪ End_Value‬ةصظیم تکصار نی ػُد‪.‬‬ ‫ىکتٌ‪0‬‬ ‫اگص ‪ Step_Count‬ذکص ىؼُد نلسار پیغ فصض آن یک نی ةاػس‪.‬‬ ‫نی تُان ‪ Counter‬جلُی ‪ Next‬را ىيُػت هلی ةٌ دلیل ىارُاىایی ةصىانٌ در خللٌ ٍای تُدرتُ ایو کار تُؾیٌ ىهی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim i, sum as Integer‬‬ ‫‪For i = 0 To 100‬‬ ‫‪sum = sum + i‬‬ ‫‪Next i‬‬ ‫‪Text1.Text = sum‬‬ ‫در ایو نحال نجهُع ايساد ةیو ‪ 0‬تا ‪ 100‬نداظتٌ ػسً ه در آرص نلسار آن در جًتٌ نتو كصار دادً نی ػُد‪.‬‬

‫‪Dim i, sum as Integer‬‬ ‫‪For i = 1 To 10 Step 2‬‬ ‫‪sum = sum + i‬‬ ‫‪Next i‬‬ ‫‪Text1.Text = sum‬‬ ‫در ایو نحال نجهُع ايساد فصد ةیو ‪ 1‬تا ‪ 10‬نداظتٌ نی ػُد‪.‬‬ ‫‪Dim i as Single‬‬ ‫‪Dim Counter as Integer‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪For i = 5 To -5 Step -0.5‬‬ ‫‪Counter = Counter + 1‬‬ ‫‪Next‬‬ ‫‪Text1.Text = Counter‬‬ ‫در ایو نحال تًساد پیهایغ ايساد ةیو ‪ 5‬تا ‪ -5‬ةا نلسار ‪ -0.5‬ػهارش نی ػُد‪ .‬ایو نحال ةصای ایو آهردً ػسً اظت کٌ ةتیيیس از‬ ‫ايساد نيفی ه ايؼاری ٍم نی تُان در خللٌ ‪ For‬اظتفادً کصد‪.‬‬ ‫ةا اظتفادً از دظتُر ‪ Exit For‬نی تُان كتل از نُيس نلصر از خللٌ رارج ػس‪.‬‬ ‫نحال‪0‬‬ ‫‪For i = 10 To 100‬‬ ‫‪If (i Mod 7) = 0 Then Exit For‬‬ ‫‪Next i‬‬ ‫‪Text1.Text = "The first number is " & i‬‬ ‫ایو نحال اهلیو يسد ةزغ پشیص ةص ‪ 7‬ه ةضرگتص از ‪ 10‬را ةص نی گصداىس‪ٍ .‬يگانی کٌ يسد ةص ‪ 7‬ةزغ پشیص ػُد ةا دظتُر ‪Exit For‬‬ ‫از خللٌ ةیصهن نی آییم‪.‬‬ ‫نحال‪0‬‬ ‫‪For i = 0 To 100‬‬ ‫‪If (i Mod 2) = 0 Then‬‬ ‫‪Even = Even + 1‬‬ ‫‪Else‬‬ ‫‪Odd = Odd + 1‬‬ ‫‪End If‬‬ ‫‪Next i‬‬ ‫‪Text1.Text = "Even numbers: " & Even & " Odd numbers: " & Odd‬‬ ‫ایو نحال تًساد ايساد زهج ه فصد ‪ 0‬تا ‪ 100‬را نی ػهارد‪.‬‬

‫حلقو تکرار ‪While‬‬ ‫اجصای دظتُرات تا زناىی کٌ ػصط درظت اظت اىجام نی ػُد‪ .‬از ‪ While‬ةیؼتص ةصای پیهایغ رػتٌ ٍا اظتفادً نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ىکتٌ‪ 0‬ػصط خللٌ در اةتسای خللٌ چک نی ػُد‪.‬‬ ‫‪While condition‬‬ ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ ‫‪Wend‬‬ ‫نحال‪0‬‬ ‫‪While Not state‬‬ ‫‪List1.AddItem i‬‬ ‫‪i = i + 1‬‬ ‫‪If i > 20 Then state = True‬‬ ‫‪Wend‬‬ ‫تا هكتی کٌ ‪ state‬ارزش ىادرظتی دارد دظتُرات اىجام نی ػُد‪.‬ايساد ‪ 0‬تا ‪ 20‬در لیعت چاپ نی ػُىس‪.‬‬

‫حلقو ىای تکرار ‪Do‬‬

‫خللٌ ‪ Do‬چيس ىُع نزتلف دارد کٌ ٍصکسام ةا نحال تُفیح دادً نی ػُد‪.‬‬ ‫ىُع اهل‪0‬‬ ‫‪Do while condition‬‬ ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ ‫‪Loop‬‬ ‫تا هكتی کٌ ػصط درظت اظت دظتُرات اىجام نی ػُىس‪ .‬ػصط در اةتسای خللٌ چک نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim i, sum1 as Integer‬‬ ‫‪Dim State as Boolean‬‬ ‫‪State = True‬‬ ‫‪Do While State‬‬ ‫‪Sum1 = sum1 + i‬‬ ‫‪i = i + 1‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

If i > 100 Then State = False Loop Text1.Text = sum1 .‫ را نداظتٌ نی کيس‬100 ‫ تا‬0 ‫نجهُع ايساد‬

0‫ىُع دهم‬ Do ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ Loop while condition

.‫ ػصط در اىتَای خللٌ چک نی ػُد‬.‫تا هكتی کٌ ػصط درظت اظت دظتُرات اىجام نی ػُىس‬ 0‫نحال‬ Dim i, sum1 as Integer Dim State as Boolean Do State = True Sum1 = sum1 + i i = i + 1 If i > 100 Then State = False Loop While State Text1.Text = sum1 0‫ىُع ظُم‬

Do Until condition ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ Loop

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫تا هكتی ػصط ىادرظت اظت دظتُرات اجصا نی ػُىس ه ةٌ ندـ ایو کٌ ػصط ةصكصار ػس اجصای خللٌ راتهٌ نی یاةس‪ .‬ػصط در اةتسای‬ ‫خللٌ چک نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim x as Integer‬‬ ‫‪x = 1‬‬ ‫‪Do Until x < 0‬‬ ‫‪List1.AddItem x‬‬ ‫‪x = x + 1‬‬ ‫‪If x > 20 Then x = -1‬‬ ‫‪Loop‬‬ ‫ايساد ‪ 1‬تا ‪ 20‬را در لیعت چاپ نی کيس‪.‬‬

‫ىُع چَارم‪0‬‬

‫‪Do‬‬ ‫بالکی از یک یا چند دستًر ویژوال بیسیک‬ ‫‪Loop Until condition‬‬

‫تا هكتی ػصط ىادرظت اظت دظتُرات اجصا نی ػُىس ه ةٌ ندـ ایو کٌ ػصط ةصكصار ػس اجصای خللٌ راتهٌ نی یاةس‪ .‬ػصط در اىتَای‬ ‫خللٌ چک نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim x as Integer‬‬ ‫‪x = 1‬‬ ‫‪Do‬‬ ‫‪List1.AddItem x‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪x = x + 1‬‬ ‫‪If x > 20 Then x = -1‬‬ ‫‪Loop Until x < 0‬‬ ‫ايساد ‪ 1‬تا ‪ 20‬را در لیعت چاپ نی کيس‪.‬‬

‫ةصای رارج ػسن از خللٌ ‪ Do‬از دظتُر ‪ Exit Do‬اظتفادً نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim x as Boolean‬‬ ‫‪Dim ii as Integer‬‬ ‫‪Do While 1‬‬ ‫‪List1.AddItem ii‬‬ ‫‪ii = ii + 1‬‬ ‫‪If ii > 20 Then Exit Do‬‬ ‫‪Loop‬‬ ‫ػصط خللٌ ٍهیؼٌ ةصكصار اظت پط ةایس ةصای راتهٌ خللٌ از ‪ Exit Do‬اظتفادً کصد‪.‬ايساد ‪ 0‬تا ‪ 20‬در لیعت چاپ نی ػُىس‪.‬‬

‫در ایيجا خللٌ ٍای تکصار ةٌ پایان رظیس هلی ةایس ةٌ چيس ىکتٌ دكت کصد‪0‬‬ ‫خللٌ ةیيَایت خللٌ ای اظت کٌ ٍیچگاً راتهٌ ىهی یاةس ه ایو در ةصىانٌ ایجاد ارالل نی کيس‪ٍ .‬هیؼٌ از راتهٌ یافتو خللٌ الهیيان‬ ‫پیسا کيیس‪.‬‬

‫اگص چيس خللٌ درهن ٍم ةٌ کار رهىس خللٌ تُدرتُ داریم‪ .‬در خللٌ ٍای تُدر تُ اهل خللٌ داری تص کانال اجصا ػسً ةًس خللٌ ٍای ةیصهىی‬ ‫اجصا نی ػُىس‪ .‬از خللٌ ٍای تُدر تُ ةیؼتص ةصای نلسار دادن ةٌ آرایٌ ٍای چيس ةًسی اظتفادً نی ػُد‪.‬‬ ‫در خللٌء ‪ For‬تُدرتُ نی تُاىیس فلك از یک دظتُر ‪ Next‬اظتفادً کيیس ةٌ ؾُرتی کٌ ةایس ػهارىسً ٍای خللٌ را ةٌ تصتیب از‬ ‫دارلی تصیو ةٌ ةیصهىی تصیو کٌ تُظك کانا از ٍم جسا ػسً اىس در جلُی ‪ Next‬ةيُیعیس‪.‬‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪For i = 0 To 10‬‬ ‫‪For j = 0 To 10‬‬ ‫‪For k = 0 To 10‬‬ ‫دستًرات داخل حلقو‬ ‫‪Next k, j, i‬‬ ‫ایو دظتُرات نًادل دظتُرات زیص نی ةاػس‬ ‫‪For i = 0 To 10‬‬ ‫‪For j = 0 To 10‬‬ ‫‪For k = 0 To 10‬‬ ‫دستًرات داخل حلقو‬ ‫‪Next k‬‬ ‫‪Next j‬‬ ‫‪Next i‬‬

‫آرایو ىا‬ ‫آرایٌ لیعتی از يياؾص ٍم ىام ه ٍم ىُع نی ةاػس کٌ ةا اظتفادً از اىسیط نی تُان ةٌ يياؾص آن دظت پیسا کصد‪.‬هكتی در هیژهال ةیعیک‬ ‫یک آرایٌ را تًصیف نی کيیس ةایس ةٌ ظٌ ىکتٌ تُجٌ کصد‪0‬‬ ‫‪ .1‬اظم آرایٌ کٌ از آن ةصای دظتیاةی ةٌ آرایٌ در ةصىانٌ اظتفادً نی کيیس‪.‬‬ ‫‪ .2‬ایو آرایٌ از چيس ييؿص تؼکیل ػسً اظت‪ .‬کٌ ایو كعهت درهن پصاىتض كصار نی گیصد‪.‬‬ ‫‪ .3‬ه در آرص ىُع دادً ٍای آرایٌ نی ةاػس ‪#‬ؾدیح ‪ ،‬رػتٌ ه‪"...‬‬

‫رهش تًصیف آرایٌ در هیژهال ةیعیک‪0‬‬

‫]‪Dim ArrayName(LowerValue To HigherValue) [As DataType‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫اگص آرایٌ را در یک فصم تًصیف نی کيیس از ‪ Dim‬یا ‪ Private‬اظتفادً کيیس هلی اگص آن را در یک ناجُل تًصیف نی کيیس ه نی‬ ‫رُاٍیس کٌ ٍص رهیٌ ای ةٌ آن دظتصظی داػتٌ ةاػس آرایٌ را ةا ‪ Public‬تًصیف کيیس‪.‬‬ ‫اگص آرایٌ را در یک رهیٌ یا تاةى تًصیف نی کيیس از ‪ Dim‬اظتفادً کيیس‪.‬‬

‫‪ ArrayName‬اظم آرایٌ نی ةاػس کٌ از كُاىیو ىام گضاری نتغییص ٍا پیصهی نی کيس‪.‬‬ ‫‪ LowerValue‬اهلیو ييؿص آرایٌ ه ‪ HigherValue‬آرصیو ييؿص آرایٌ نی ةاػس‪.‬‬ ‫نؼزؽ کصدن نلسار اهلیٌ آرایٌ الضانی ىیعت‪ .‬اگص ػها ایو کار را ىکيیس هیژهال ةیعیک ةٌ لُر رُد کار آن را از ؾفص ػصهع نی کيس‪.‬‬

‫‪Dim sTestArray(0 To 10) as String‬‬ ‫ةصاةص اظت ةا‬

‫‪Dim sTestArray(10) as String‬‬

‫اگص نی رُاٍیس هیژهال ةیعیک نلسار اهلیٌ آرایٌ ٍا را از یک ػصهع کيس در كعهت ايالن ةصىانٌ ‪#‬جای ‪ Option Explicit‬را ةٌ یاد‬ ‫داریس" دظتُر زیص را ةيُیعیس‪.‬‬ ‫‪Option Base 1‬‬ ‫نلسار دادن ةٌ آرایٌ ٍهاىيس نلسار دٍی ةٌ نتغییص نی ةاػس‪.‬‬

‫‪ArrayName(Index) = Value‬‬ ‫نحال‪0‬‬ ‫)‪iArray(3) = iArray(7‬‬

‫ةٌ راختی نلسار آرایٌ ةا اىسیط ‪ 7‬را درهن نلسار آرایٌ ةا اىسیط ‪ 3‬كصار نی دٍس‪.‬‬

‫گصفتو ظایض آرایٌ‪0‬‬ ‫نيوُرم از ظایض خسهد ةاال ه پاییو يياؾص آرایٌ نی ةاػس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ةٌ يتارت دیگص فَهیسن ایو کٌ چٌ تًساد ييؿص در آرایٌ ذریصً ػسً اظت‪.‬‬ ‫ایو کار ةٌ ظادگی ةا اظتفادً از تُاةى ‪ LBound‬ه ‪ UBound‬اىجام نی ػُد‪#.‬کصان ةاال ه پاییو"‬ ‫ظُال‪0‬‬ ‫ةصای چٌ ةٌ ایو تُاةى ىیاز اظت؟ آىَا چٌ کاری اىجام نی دٍيس؟‬ ‫پاظذ‪0‬‬ ‫اگص نی رُاٍیس یک جًتٌ لیعت را ةا يياؾص یک آرایٌ پص کيیسه ىهی داىیس چٌ تًساد از آن يياؾص را داریس ةایس از ایو تُاةى اظتفادً‬ ‫کيیس‪.‬‬

‫)‪UBound(ArrayName, Dimension‬‬ ‫‪'ArrayName = the name of the array‬‬ ‫)‪LBound(ArrayName, Dimension‬‬ ‫كتل از ٍهٌ چیض‪0‬‬ ‫در هیژهال ةیعیک ةصای ىُػتو تُفیح یا ‪ Comment‬از کانا ه یا کلهٌ ‪Rem‬اظتفادً نی ػُد‪.‬‬ ‫تُفیدات در رهىس کانپایل ةصىانٌ تاجیص ىسارىس ه فلك ةصای رُاىایی ةصىانٌ نی ةاػيس‪.‬‬ ‫‪ Dimension‬یک يسد ؾدیح ارتیاری نی ةاػس کٌ ىؼاىگص تًساد اةًاد یک آرایٌ چيس ةًسی نی ةاػس‪.‬‬ ‫یک نحال ظادً‪0‬‬ ‫‪Dim Names(100) as String‬‬ ‫‪LowerVal = LBound(Names) 'Get the lower boundary number.‬‬ ‫‪UpperVal = UBound(Names) 'Get the upper boundary number.‬‬

‫‪For i = LowerVal To UpperVal‬‬ ‫‪List1.AddItem Names (i) 'Add each name from array according‬‬ ‫‪'to how many stored in the Array‬‬ ‫‪Next‬‬ ‫آرایو ىای چند بعدی‪:‬‬ ‫یک آرایٌ چيس ةًسی ػتیٌ یک جسهل نی ةاػس‪ .‬اگص ختی یک ةار ‪ Microsoft Excel‬را دیسً ةاػیس نی دهىیس چی نی گم‪.‬‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Static iArray(1 To 2, 1 To 3) as Integer‬‬ ‫تهانی يياؾص آرایٌ ةاال‪0‬‬

‫)‪iArray(1,1), iArray(1,2), iArray(1,3‬‬ ‫)‪iArray(2,1), iArray(2,2), iArray(2,3‬‬

‫اکحص اهكات از آرایٌ ٍای یک ةًسی اظتفادً نی کيیس هلی در نُاكًی اظتفادً از آرایٌ ٍای ‪ 2‬یا ‪ 3‬ةًسی ةَتص اظت‪ .‬آرایٌ ٍای ةیغ از‬ ‫‪ 3‬ةًسی یک ایسً رُب ةٌ خعاب ىهی آیيس چُن ‪ Debug‬کصدن ةصىانٌ را ةٌ ػست ظزت نی کيس‪.‬‬ ‫آرایٌ ٍای چيس ةًسی ‪#‬نيوُر ةیؼتص ‪ 2‬ةًسی نیتاػس" ةٌ ؾُرت رمی پص نی ػُىس‪ .‬ةصای نلسار دادن ةٌ يياؾص آرایٌ ٍای چيس ةًسی از‬ ‫خللٌ ٍای تُ در تُ اظتفادً نی ػُد‪.‬‬ ‫نحال جالب‪0‬‬ ‫‪Option Explicit‬‬ ‫)(‪Private Sub Form_Load‬‬ ‫‪Dim i, j as Integer‬‬ ‫‪Dim TableArray(1 To 10, 1 To 10) as Integer‬‬

‫‪For i = 1 To 10‬‬ ‫‪For j = 1 To 10‬‬ ‫‪TableArray(i, j) = i * j‬‬ ‫‪Text1.Text = Text1.Text & TableArray(i, j) & vbTab‬‬ ‫‪Next j‬‬ ‫‪Text1.Text = Text1.Text & vbCrLf‬‬ ‫‪Next i‬‬ ‫‪End Sub‬‬ ‫جسهل فصةی ازايساد را در آرایٌ ده ةًسی كصار نی دٍیم‪.‬‬ ‫كتل از اجصای ایو کس یک جًتٌ نتو ىعتتا ةضرگ را در رهی فصم كصار دٍیس ه ختها در پيجصً ‪ Properties‬ةصای جًتٌ نتو راؾیت‬ ‫‪ MultiLine‬ره ةصاةص ‪True‬کيیس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ vbTab‬کلهٌ رزره ػسً ای اظت کٌ نًادل ‪ 8‬کاراکتص فقای رالی نی ةاػس‪.‬‬ ‫‪ vbCrLf‬کلهٌ رزره ػسً ای اظت کٌ نکان ىها را ةٌ رك ةًس نيتلل نی کيس‪.‬‬ ‫التتٌ ةایس ایو نحال را در ةصىانٌ ىُیعی ػئ گصا نی آهردم هلی نَم ىیعت ةا تُفیدات دادً ػسً فکص ىکيم نؼکلی داػتٌ ةاػیس‪.‬‬

‫آرایٌ ٍای پُیا‪0‬‬ ‫اگص از آرایٌ ٍا ةٌ لُر ؾدیح اظتفادً ىکيیس نلسار زیادی از خافوٌ تان ةٌ ٍسر نی رهد‪.‬‬ ‫نحال‪0‬‬ ‫‪Dim MyArray (10000) as Long‬‬ ‫ایو آرایٌ تلصیتا ‪ 40004‬ةایت از خافوٌ را اػغال نی کيس‪ 10001 * 4 .‬نی ةاػس چُن ىُع ‪ Long‬چَار ةایت خافوٌ اػغال نی‬ ‫کيس‪.‬‬ ‫االن نهکو اظت ایو يسد ةضرگی ىتاػس هلی اگص ‪ 10‬تا از ایو آرایٌ را در ةصىانٌ اظتفادً کيیس ‪ 4000400‬ةایت خافوٌ نؿصف نی‬ ‫ػُد‪.‬‬ ‫ياكالىٌ تص ایو اظت در اةتسا نلسار کهی را ةٌ آرایٌ تزؿیؽ دٍیم ه زنان اجصا آن را تغییص ظایض دٍیم‪ .‬یًيی در ‪RunTime‬‬ ‫ةلٌ ػها ةٌ ظادگی ایو کار را در هیژهال ةیعیک ةا تاةى ‪ ReDim‬اىجام نی دٍیس‪ .‬آرایٌ ٍایی را کٌ در زنان اجصا تغییص ظایض نی دٍیم‬ ‫آرایٌ ٍای پُیا نی ىانيس‪ٍ .‬يگانی کٌ آرایٌ ٍای پُیا را تًصیف نی کيیس الزم ىیعت نحل آرایٌ ٍای جاةت يهل کيیس‪ .‬یًيی الزم ىیعت‬ ‫ظایض را نؼزؽ کيیس‪.‬‬

‫‪Dim ArrayName() as DataType‬‬ ‫تهام كقایا نحل ةاالظت فلك ةٌ ‪ ReDim‬تُجٌ کيیس‪.‬‬

‫)‪ReDim ArrayName(LowerValue To HigherValue‬‬ ‫تُجٌ‪0‬‬ ‫يهل ‪ٍ ReDim‬هیؼٌ در زنان اجصا ايهال نی ػُد ه ختها آرایٌ ةایس كتال تًصیف ػسً ةاػس‪.‬‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Dim Names() as String‬‬

‫)(‪Private Sub Form1_Load‬‬ ‫)‪ReDim Names(1 To 10‬‬ ‫‪End Sub‬‬ ‫ایو کس آرایٌ را در زنان اجصا تغییص ظایض نی دٍس‪ .‬ختها كتل از اظتفادً از آرایٌ پُیا ةایس ظایض آن را تًییو کيیس‪.‬‬ ‫یک نؼکل ةضرگ‪0‬‬ ‫هكتی از ‪ ReDim‬اظتفادً نی کيیس تهانی نلادیص درهن آرایٌ ‪#‬اگص كتال تغییص ظایض دادً ةاػیم" پاک نی ػُد‪ .‬در اکحص اهكات ایو آن‬ ‫چیضی کٌ ػها نی رُاٍیس ىیعت‪ .‬ةصای جلُگیصی از چيیو کاری از ‪ ReDim Preserve‬اظتفادً کيیس‪.‬‬ ‫)‪ReDim Preserve ArrayName(LowerValue To HigherValue‬‬

‫خاال اگص آرایٌ افضایغ یاةس نلادیص رالی ةٌ اىتَای آرایٌ افضهدً ه اگص کاٍغ یاةس الاليات آرص از ةیو ىهی رهىس‪.‬‬

‫ثابت ىا‬ ‫جاةت راىٌ ای از خافوٌ اظت کٌ نلسارآن در لُل ةصىانٌ جاةت نی ناىس ه ىهی تُان نلسارآن را تغییص داد‪ .‬جُاةت ةا کلهٌ کلیسی‬ ‫‪ Const‬تًصیف نی ػُىس کٌ ىدًُ کارةصد آن ةٌ ؾُرت زیص نی ةاػس‪0‬‬ ‫‪[Private/Public] Const ConstantName [As DataType] = Value‬‬ ‫ٍهان لُر کٌ نی داىیس کلهات دارل کصهػٌ ةٌ نًيی ارتیاری ةُدن آىَاظت‪.‬‬ ‫نحال‪0‬‬ ‫‪Const Pi = 3.14‬‬ ‫"‪Private Const WelMsg as String = "Hi‬‬ ‫‪Public Const T_1 = &HF‬‬ ‫تشکصات‪0‬‬ ‫‪ .1‬اگص كتل از کلهٌ کلیسی ‪ Const‬چیضی ىُػتٌ ىؼسً ةاػس نلسار پیغ فصض ‪ Private‬نی ةاػس‪.‬‬ ‫‪ .2‬اگص ‪ As DataType‬ذکص ىؼُد ىُع جاةت ‪ Variant‬رُاٍس ةُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .3‬یک جاةت يهُنی ‪ "Public Const#‬فلك نی تُاىس در یک ناجُل تًصیف ػُد‪.‬‬ ‫‪ &H .4‬ػياظٌ ای اظت کٌ ىؼان دٍيسً نتيای ٍگضا دظیهال نی ةاػس‪ .‬یًيی يسدی کٌ ةًس از آن نی آیس در نتيای ‪ 16‬نی ةاػس‪.‬‬

‫یک ىکتٌ فصانُش ػسً درنتغییصٍا‪0‬‬

‫نست زناىی را کٌ یک نتغییص نلسار فًلی رُد را خفن نی کيس نست يهص نتغییص گُیيس‪ .‬نتغییص ٍایی کٌ در ةزغ ‪Declaration‬‬ ‫تًصیف نی ػُىس لُل يهصی ةصاةص فصم دارىس‪#.‬ندلی را کٌ ‪ Option Explicit‬را ىُػتیس ةٌ یاد ةیاهریس!"‬ ‫یًيی ةا ایجاد فصم ‪ ،‬ایجاد نی ػُىس ه ةا از ةیو رفتو فصم ىاةُد نی ػُىس‪ .‬یًيی خافوٌ را ةٌ ظیعتم ةاز نی گصداىيس‪ .‬انا نتغییص ٍایی کٌ‬ ‫دارل یک تاةى یا رهیٌ تًصیف نی ػُىس لُل يهصی ةصاةص ةا تاةى یا رهیٌ دارىس‪ .‬یًيی ةا از ةیو رفتو تاةى از ةیو نی رهىس‪.‬‬ ‫انا اگص نتغییصی را ةا کلهٌ کلیسی ‪ Static‬تًصیف کيیم دیگص ةا از ةیو رفتو تاةى یا رهیٌ نلسار نتغییص از ةیو ىهی رهد‪ Static .‬ةٌ‬ ‫کانپایلص نی گُیس کٌ نا ایو نتغییص را چلسر دهظت داریم ه ىهی رُاٍیم نصگ آن را ةتیيیم‪ .‬لُل يهص‬

‫‪ Static‬ةصاةص فصم نی ةاػس‪.‬‬

‫يجلٌ ىکيیس! ةًسا نحال ٍای جالتی ةصاتُن نی ىُیعم‪ .‬فلك تا ٍهیو جا ةسهىیس کٌ ‪ٍ Static‬م ةصای تًصیف نتغییص ةٌ کار نی رهد‪.‬‬ ‫لصز تًصیف نتغییص اظتاتیک‪0‬‬ ‫]‪Static StaticVarName [As DataType‬‬

‫برنا نو نًیسی ناجًالر‬ ‫ةصای ىُػتو ةصىانٌ ٍای لُالىی ه ظيگیو ةایس آىَا را ةٌ ةزغ ٍای کُچکتصی تلعیم ةيسی کصد ةٌ لُری کٌ ٍص ةزغ ههیفٌ راؾی‬ ‫دارد ه کار راؾی را اىجام نی دٍس‪ .‬ةٌ ایو کار ةصىا نٌ ىُیعی ناجُالر گفتٌ نی ػُد‪ .‬ةٌ ٍص ةزغ کٌ کار راؾی را در ةصىانٌ اىجام نی‬ ‫دٍس زیص ةصىانٌ نی گُیيس‪.‬‬ ‫نضایای ةصىا نٌ ىُیعی ناجُالر‪0‬‬ ‫‪ .1‬رُاىایی ةصىانٌ ةاال نی رهد‪.‬‬ ‫‪ .2‬کار گصهٍی را انکان پشیص نی کيس‪.‬‬ ‫‪ .3‬از زیص ةصىانٌ ٍای از كتل ىُػتٌ ػسً ىیض نی تُان اظتفادً کصد‪.‬‬ ‫‪ .4‬رفى اػکال آظاىتص نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .5‬ظصيت ةصىانٌ ىُیعی ةاال نی رهد ه ةٌ يلت يسم تکصار خجم ةصىانٌ ٍا کم نی ػُد‪.‬‬

‫اىُاع زیص ةصىانٌ ٍا‪0‬‬ ‫‪ .1‬رهیٌ ‪"Sub#‬‬ ‫‪ .2‬تاةى ‪"Function#‬‬

‫رهال نی تُاىس چيسیو نلسار را ةٌ ةصىانٌ فصارُان ةاز گصداىس هلی تاةى فلك نی تُاىس یک رصهجی داػتٌ ةاػس‪ٍ .‬ص دهی رهال ه تاةى نی‬ ‫تُاىيس نلساری را ةاز ىگصداىيس ه فلك يهلیات رُدػان را اىجام دٍيس نحل چاپ یک نلسار‪ٍ .‬ص دهی رهال ه تاةى نی تُاىيس ٍیچ نلساری‬ ‫را ةٌ ييُان آرگُنان ىگیصىس‪.‬‬

‫تًابع‬ ‫لصز تًصیف‪0‬‬ ‫]‪]) [As DtataType‬اسانی آرگًنان ىا و نًع آنيا[(‪[Private/Public] Function FuncName‬‬ ‫لیست دستًرات ‪vb‬‬ ‫‪End Function‬‬ ‫تشکصات‪0‬‬ ‫‪ .1‬ىانگشاری تُاةى ٍهاىيس نتغییصٍاظت‪.‬‬ ‫‪ [As DataType] .2‬ىُع رصهجی تاةى را نؼزؽ نی کيس‪ .‬اگص ىُع را نؼزؽ ىکيیس ٍهچيان رصهجی از ىُع ‪ Variant‬رُاٍس‬ ‫ةُد‪.‬‬ ‫‪ .3‬آرگُنان نلادیصی اظت کٌ ٍيگام فصارُاىی‪ ،‬ةصىانٌ فصارُان ةٌ تاةى نيتلل نی کيس‪.‬‬ ‫‪ .4‬آرگُنان ٍا ةا کانا از ٍم جسا نی ػُىس ‪#‬ةٌ نحال تُجٌ کيیس"‬ ‫‪ .5‬نلسار تاةى در اظم آن كصار نی گیصد‪.‬‬ ‫نلسار = ‪FuncName‬‬ ‫‪ .6‬فصارُاىی تُاةى‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪#‬اظانی آرگُناىَا در ؾُرت هجُد"اظم تاةى ‪ 1‬نتغییص‬

‫نلسار نداظتٌ ػسً تاةى در ایو نتغییص كصار نی گیصد کٌ ىُع آن ةایس ةا ىُع رصهجی تاةى یکی ةاػس‪.‬‬ ‫‪ .7‬تًساد آرگُنان ٍا ه ىُع آىَا ةایس ختها ةا تًساد پارانتص ٍا ه ىُع آىَا ةصاةص ةاػس‪.‬‬

‫نحال‪0‬‬ ‫‪Private Function Fact(n as Integer) as Long‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬ ‫تاةًی ةٌ ىام ‪ Fact‬تًصیف کصدیم کٌ فلك یک نلسار را دریافت نی کيس کٌ ىُع آن ؾدیح نی ةاػس‪ .‬رصهجی ایو تاةى از ىُع ‪Long‬‬ ‫نی ةاػس‪.‬‬ ‫ایو تاةى فاکتُریل يسد ‪ n‬هرهدی را خعاب کصدً ه خاؾل را در ‪ Fact‬كصار نی دٍس‪.‬‬

‫)(‪Public Function GetComputerName‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬ ‫ایو تاةى ٍیچ هرهدی ىسارد ه فلك اظم کانپیُتص را در ‪ GetComputerName‬كصار نی دٍس‪.‬‬

‫‪Function Arr(x1 as Integer, x2 as String, status as Boolean) as Boolean‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ایو تاةى چيس آرگُنان دارد کٌ ىُع ٍای آىَا ىیض ةا ٍم نتفاهت اظت‪ .‬رصهجی ایو تاةى از ىُع نيملی اظت‪.‬‬

‫فصارُاىی تُاةى ةاال‪0‬‬ ‫‪Dim Ret1 as Long‬‬ ‫)‪Ret1 = Fact (5‬‬

‫‪Dim Name1 as String‬‬ ‫‪Name1 = GetComputerName‬‬

‫‪Dim x as Boolean‬‬ ‫)‪x = Arr(m, "Amir", False‬‬

‫يجلٌ ىکيیس! هكتی دظتُرات ‪ vb‬کانل گفتٌ ػس نحال ٍای تُپی ةصاتُن نی زىم‪.‬‬

‫رویو ىا‬ ‫لصز تًصیف‪0‬‬

‫)]اسانی آرگًنان ىا و نًع آنيا[(‪[Private/Public] Sub SubName‬‬ ‫لیست دستًرات ‪vb‬‬ ‫‪End Sub‬‬ ‫تشکصات‪0‬‬ ‫‪ .1‬ىانگشاری رهیٌ ٍا ىیض ٍهاىيس نتغییصٍاظت‪.‬‬ ‫‪ .2‬رهیٌ نهکو اظت یک یا چيس کار را اىجام دٍس هلی ةصيکط تاةى چیضی در ىام آن كصار ىهی گیصد‪.‬‬ ‫‪ .3‬از تُاةى نی تُان در نداظتات يسدی نحل یک نتغییص اظتفادً کصد هلی رهیٌ چيیو ىیعت‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .4‬رهیٌ ٍا ةٌ ده ؾُرت فصارُاىی نی ػُىس‬ ‫الف" ةا اظتفادً از ىام رهیٌ ٍا‪0‬‬ ‫نحال اگص رهیٌ زیص تًصیف ػسً ةاػس‬ ‫)(‪Sub Show_results‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Sub‬‬ ‫فصارُاىی آن ةٌ ایو ؾُرت نی ةاػس‪0‬‬ ‫‪Show_results‬‬ ‫ه یا اگص رهیٌ زیص تًصیف ػسً ةاػس‬ ‫)‪Sub GetInfo1(Name as String, StNo as Integer‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Sub‬‬ ‫فصارُاىی آن ةٌ ایو ؾُرت نی ةاػس‪0‬‬ ‫‪GetInfo1 "Amir", 2546‬‬ ‫ىهی تُان در ایو رهش از پصاىتض در فصارُاىی اظتفادً کصد‪.‬‬

‫ب" ةا اظتفادً از دظتُر ‪0Call‬‬ ‫فصارُاىی رهیٌ ٍای ةاال ةا دظتُر ‪ call‬ةٌ ؾُرت زیص اظت‬

‫‪Call Show_results‬‬ ‫)‪Call GetInfo1("Amir", 2546‬‬ ‫اگص از ‪ call‬اظتفادً نی کيیس پصاىتض فصانُش ىؼُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .5‬ةلیٌ ىکات رهیٌ ٍهاىيس ىکات تُاةى نی ةاػس‪.‬‬

‫اىُاع پارانتص ٍا‪0‬‬ ‫پارانتص ٍای رهیٌ ٍا ه تُاةى ده گُىٌ اىس‪0‬‬ ‫الف" نلسار ‪" ByVal #‬‬ ‫ب" ارجاع ‪" ByRef #‬‬

‫پارانتص ٍای نلسار فلك نلادیص را ةٌ زیص ةصىانٌ تدُیل نی دٍيس ه اگص نلسار آن پارانتص در زیص ةصىانٌ تغییص یاةس نلادیص جسیس در آن‬ ‫پارانتص کپی ىهی ػُد‪.‬هلی در پارانتص ٍای ارجاع تتادل الاليات ده لصفٌ اظت یًيی اگص نلسار آن پارانتص در زیص ةصىانٌ تغییص یاةس از‬ ‫ایو ةٌ ةًس در ةصىانٌ اؾلی ىیض نلادیص جسیس نُرد اظتفادً كصار نی گیصىس‪.‬‬ ‫ةٌ يلت ظيگیيی ایو نتدث ه کارةصد کم آن در ةصىانٌ ٍای ظادً از تُفیح ةیؼتص پصٍیض نی ػُد ةياةصایو ٍص جا الزم ػس ةٌ تُفیح‬ ‫ةیؼتص نی پصدازم‪ .‬فلك لصز تًصیف را ةساىیس‪.‬‬

‫نحال‪0‬‬ ‫)‪Sub Pro(ByVal a as Integer, ByRef b as Integer‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Sub‬‬ ‫نتغییص ‪ a‬از ىُع نلسار ه نتغییص ‪ b‬از ىُع ارجاع تًصیف ػسً اىس‪.‬‬

‫از انکاىات جالب ‪ vb‬اظتفادً از آرگُنان ٍای ارتیاری در ةصىانٌ اظت‪.‬‬ ‫یًيی نی تُان ٍيگام فصارُاىی ةٌ آىَا نلسار ىساد ‪ ،‬در ایو ؾُرت نلسار آن آرگُنان ةصاةص نلادیص پیغ فصض ىُيؼان نی ةاػس‪.‬‬ ‫ةصای تًصیف یک آرگُنان ةٌ ؾُرت ارتیاری از کلهٌ کلیسی ‪ Optional‬در پؼت آن اظتفادً نی ػُد‪.‬‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫)‪Sub Pro(Optional a as Boolean‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Sub‬‬ ‫فصارُاىی رهیٌ ةاال‪0‬‬ ‫)‪Call Pro(True‬‬ ‫یا‬ ‫‪Call Pro‬‬ ‫ةياةصایو نلسار ‪ a‬در فصارُاىی دهم ةصاةص ‪ False‬رُاٍس ةُد‪.‬‬

‫ٍيگام تًصیف آرگُنان ارتیاری نی تُان ةٌ آن نلسار اهلیٌ ىیض داد ةياةصایو اگص ٍيگام فصارُاىی ةٌ آن نلسار ىسٍیم ‪ ،‬نلسارش ةصاةص‬ ‫ٍهان نلسار اهلیٌ نا رُاٍس ةُد‪.‬‬ ‫نحال‪0‬‬ ‫)‪Sub Pro1(Optional num as Integer = 5‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Sub‬‬ ‫نزتؿصی درةارً زیص ةصىانٌ ٍای ةازگؼتی‪0‬‬ ‫زیص ةصىانٌ ٍای ةازگؼتی زیص ةصىانٌ ٍایی ٍعتيس کٌ ةٌ ىدُی رُدػان ‪ ،‬رُدػان را فصارُاىی نی کييس‪.‬‬ ‫ده ىُع زیص ةصىانٌ ةازگؼتی داریم‪0‬‬ ‫‪ .1‬نعتلیم‬ ‫کٌ در ایو زیص ةصىانٌ ىام رُد تاةى درهن رُدش آهردً نی ػُد ‪#‬فصارُاىی نی ػُد"‬ ‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫)‪Function Fact(n as Integer‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫)‪Fact = Fact(n - 1‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬ ‫‪ .2‬غیص نعتلیم‬ ‫فصض کيیس زیص ةصىانٌ ‪ a‬زیص ةصىانٌ ‪ b‬را فصارُاىی کيس ه در زیص ةصىانٌ ‪ٍb‬م زیص ةصىانٌ ‪ a‬فصارُاىی ػسً ةاػس‪.‬ایو ٍم ىُيی ةازگؼتی‬ ‫اظت‪...‬‬ ‫نحال‪0‬‬ ‫)‪Function Proc1 (m as Integer‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫)‪Proc1 = Proc2 (m‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬ ‫)‪Function Proc2 (n as Integer‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫)‪Proc2 = Proc1 (n-1‬‬ ‫‪.‬‬ ‫‪.‬‬ ‫‪End Function‬‬ ‫التتٌ در ٍص ده رهش ةایس ػصلی ةصای راتهٌ کار در ىوص گصفتٌ ػُد هگصىٌ‪...‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫برنانو نًیسی صیء گرا (‪)Object Oriented Programming‬‬ ‫ةصىانٌ ىُیعی ػیء گصا ةص اظاس ٍهان نفاٍیهی اظت کٌ در کُدکی یاد گصفتیم‪ .‬نفاٍیهی از جهلٌ اػیاء ‪ ،‬ؾفات ‪ ،‬دظتٌ ٍا ه‪...‬‬ ‫اظتفادً از ایو نفاٍیم ةصىانٌ را ةیؼتص ةٌ دىیای هاكًی ىضدیک نی کيس‪ .‬ةٌ لُر رالؾٌ نی تُان گفت کٌ ٍص ػیء دارای ؾفات ه‬ ‫رفتارٍایی اظت ه ٍص ػیء جضء یک دظتٌ از اػیاء كصار نی گیصد‪ .‬ةصای نحال ؾيسلی یک ػیء اظت ه ؾفاتی از كتیل رىگ ‪ ،‬جيط ه‬ ‫غیصً دارد‪ .‬ؾيسلی ٍا دظتٌ ةيسی ٍای نزتلفی دارىس‪ .‬نحال یک ؾيسلی از گصهً ‪#‬دظتٌ" ؾيسلی ٍای دظتٌ دار اظت ه دیگصی جضء‬ ‫ؾيسلی ٍای ةسهن دظتٌ‪ .‬ه در ىَایت تهام آىَا از دظتٌ ؾيسلی ٍا نی ةاػيس‪ .‬در ةصىانٌ ىُیعی ػیء گصا ىیض تلصیتا ٍهیو لُر اظت‪.‬‬ ‫‪ vb‬در اةتسا یک فصم ‪ "Form #‬را ةٌ ييُان ندیك کار در ارتیار کارةص كصار نی دٍس‪ .‬تهام کيتصل ٍای نُجُد در‬

‫‪ vb‬ةٌ ييُان یک‬

‫ػیء ػيارتٌ نی ػُىس ه ٍص کسام رُاص نصةُط ةٌ رُد را دارىس‪ .‬نحال ‪# TextBox‬جًتٌ نتو" یک ػیء اظت کٌ رُاؾی نحل نتو‬ ‫‪ ،‬رىگ ‪ ،‬اىسازً ه غیصً دارد‪.‬‬

‫آصنایی با نحیط ‪vb‬‬ ‫‪ vb‬یکی از نجهُيٌ ىصم افضارٍای ‪ visual studio‬نی ةاػس‪ visual studio .‬خاهی ىصم افضارٍای دیگصی نحل ‪، visual c‬‬ ‫‪ visual dBase ، visual InterDev‬ه چيس ىصم افضار دیگص نی ةاػس‪.‬‬ ‫پط از ىؿب ‪ vb‬ةصای اجصای آن در ةصىانٌ ٍای ‪ Start Menu‬ةٌ دىتال ‪ Microsoft visual studio 6.0‬ةگصدیس‪ .‬اگص ‪vb‬‬ ‫را ىؿب کصدً ةاػیس ‪ Microsoft visual basic 6.0‬یکی از گضیيٌ ٍای آن نی ةاػس‪ .‬پط از کلیک ةص رهی آن ‪ vb‬اجصا نی‬ ‫ػُد ه در اةتسا پيجصً ‪ New Project‬ةاز نی ػُد‪ .‬ایو پيجصً ةصای اىتزاب ىُع پصهژً ای اظت کٌ نی رُاٍیم اىجام دٍیم‪ .‬در ایيجا‬ ‫نا فلك ةا ىُع ‪ Standard EXE‬آػيا نی ػُیم‪ٍ Standard EXE .‬هان فایل ٍای اجصایی هیيسهز نی ةاػس کٌ تُظك‬ ‫ظیعتم يانل اجصا نی ػُىس‪ .‬ةا اظتفادً از زةاىٌ ‪ Existing‬نی تُاىیس پصهژً ای را کٌ در رهی ٍارد رُد داریس جعتجُ کيیس ه در آرص‬ ‫زةاىٌ ‪ Recent‬تازً تصیو پصهژً ٍایی را کٌ ةاز کصدً ةاػیس ةٌ ػها ىؼان نی دٍس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ةٌ زةاىٌ ‪ New‬ةاز گصدیس ه ‪ Standard EXE‬را اىتزاب کصدً ه دکهٌ ‪ Open‬را ةفؼاریس‪ .‬خاال هارد نصخلٌ ‪ Design‬یا لصاخی‬ ‫ةصىانٌ ػسً ایس‪.‬‬ ‫در كعهت هظك ؾفدٌ ىهایغ یک فصم كصار دارد کٌ ایو فصم ندیك کاری نا نی ةاػس‪.‬در ظهت راظت ةاالی ؾفدٌ پيجصً ‪Project‬‬ ‫‪ Explorer‬نؼاٍسً نی ػُد‪ .‬ایو پيجصً تهام ةزغ ٍای ةصىانٌ را ةٌ تفکیک ةٌ ػها ىؼان نی دٍس ه ةٌ راختی ةا ده ةار کلیک رهی‬ ‫ىام فصم یا ناجُل یا کالس ه یا ٍص ػیء دیگص نی تُاىیس ةٌ آن دظتصظی پیسا کيیس‪ .‬در كعهت ةاالی‬

‫‪ Project Explorer‬چيس‬

‫دکهٌ هجُد دارد‪0‬‬ ‫دکهٌ ‪ 0 View Code‬اگص ایو دکهٌ را ةفؼاریس ةٌ كعهت کس ةصىانٌ هارد نی ػُیس‪ .‬التتٌ ةا ده ةار کلیک ةص رهی فصم ه یا ٍص ػیء‬ ‫دیگص ىیض نی تُاىیس ةٌ ایو جا هارد ػُیس‪# .‬كعهت کس ةًسا تُفیح دادً نی ػُد‪".‬‬ ‫دکهٌ ‪ 0 View Object‬اگص در كعهت کس ةصىانٌ ةاػیس ةا زدن ایو دکهٌ ةٌ راختی ةٌ كعهت لصاخی ةصىانٌ ةاز نی گصدیس‪.‬‬ ‫دکهٌ ‪ 0 Toggle Folders‬اگص ایو دکهٌ فؼصدً ةاػس اػیاء درهن ‪ Project Explorer‬ةٌ ؾُرت پُػٌ ةيسی از ٍم جسا نی‬ ‫ػُىس ه در غیص ایو ؾُرت تهام آىَا در یک ردیف كصار نی گیصىس‪# .‬نی تُاىیس انتدان کيیس‪".‬‬ ‫نی تُاىیس ةص رهی ‪ Project Explorer‬کلیک راظت کيیس تا گضیيٌ ٍای نزتلف آن را نؼاٍسً کيیس‪ .‬یکی از ایو گضیيٌ ٍا ‪Add‬‬ ‫نی ةاػس کٌ نی تُاىیس در ؾُرت لضهم اػیاء دیگصی از جهلٌ ‪ Form‬را ةٌ ةصىانٌ تان افافٌ کيیس‪.‬‬

‫در كعهت پاییو پيجصً ‪ Project Explorer‬پيجصً ‪ Properties‬نی ةاػس‪ .‬ایو پيجصً تهام رؿُؾیات ٍص ػیء را کٌ اىتزاب‬ ‫ػسً ةاػس ةٌ ده ؾُرت الفتایی ه لتلٌ ةيسی ػسً ىؼان نی دٍس‪ٍ .‬ص کسام از ایو رؿُؾیات ةًسا تُفیح دادً نی ػُد‪.‬‬ ‫در ظهت راظت پاییو ؾفدٌ پيجصً ‪ Form Layout‬كصار دارد‪ .‬ایو پيجصً ندل كصار گیصی فصم را در زنان اجصا رهی ناىیتُر ىؼان‬ ‫نی دٍس‪ .‬ةا اظتفادً از ‪ Drag & Drop‬نی تُاىیس ندل فصم را تغییص دٍیس‪ٍ .‬هچيیو ةا کلیک راظت رهی ایو پيجصً در كعهت‬ ‫‪ Startup Position‬چيس خالت نزتلف ةصای ػها در ىوص گصفتٌ ػسً اظت‪.‬‬ ‫اگص گضیيٌ ‪ Manual‬اىتزاب ػسً ةاػس فصم در ٍهان كعهتی از ؾفدٌ كصار نی گیصد کٌ ػها آن را ةا‬

‫‪ Drag & Drop‬نؼزؽ‬

‫کصدً ةُدیس‪.‬‬ ‫اگص گضیيٌ ‪ Center Owner‬اىتزب ػسً ةاػس فصم در كعهت نصکض فصم هالس كصار نی گیصد‪ .‬نی تُان در‬

‫‪ vb‬فصم ٍا را ةٌ هالس ه‬

‫فصزىس تتسیل کصد‪.‬‬ ‫اگص گضیيٌ ‪ Center Screen‬اىتزاب ػسً ةاػس فصم در زنان اجصا در نصکض ؾفدٌ ىهایغ كصار نی گیصد‪.‬‬ ‫اگص گضیيٌ ‪ Windows Default‬اىتزاب ػسً ةاػس فصم در ٍص ةار اجصا ةٌ ؾُرت تؿادفی در یک جایی از ؾفدٌ كصار نی گیصد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ه ظصاىجام در ظهت چپ ؾفدٌ پيجصً ‪ Toolbox‬كصار دارد‪#.‬جًتٌ اةضار"‬ ‫ایو پيجصً خاهی تهام کيتصل ٍایی اظت کٌ در لصاخی ةصىانٌ از آىَا اظتفادً نی کيیم‪ٍ .‬ص کسام از آىَا ه ةًقی از رؿُؾیات نَم آىَا‬ ‫ةٌ ارتؿار تُفیح دادً نی ػُد‪.‬‬

‫کنترل ‪: PictureBox‬‬ ‫از ایو کيتصل نًهُال ةصای ىهایغ يکط رهی فصم اظتفادً نی ػُد‪.‬‬ ‫راؾیت ‪ 0 Name‬ایو راؾیت کٌ ةصای تهام اػیاء هجُد دارد ىانی اظت کٌ ةا آن اظم ةٌ آن ػی دظتصظی پیسا نی کيیم‪.‬‬ ‫راؾیت ‪ 0 Align‬ایو راؾیت‪ ،‬چگُىگی كصار گیصی ػیء را رهی فصم نؼزؽ نی کيس‪# .‬ةاال ‪ ،‬پاییو ‪"...،‬‬ ‫راؾیت ‪ 0 Appearance‬کٌ هفًیت ىهایغ را ةٌ ده ؾُرت ظٌ ةًسی ه نعمح ىؼان نی دٍس‪.‬‬ ‫راؾیت ‪ 0 AutoSize‬اگص ایو راؾیت ةصاةص ‪ True‬ةاػس لُل ه يصض‬

‫‪ PictureBox‬ةٌ اىسازً لُل ه يصض‬

‫يکط دارل آن در نی آیس‪.‬‬ ‫راؾیت‬

‫‪ 0 Backcolor‬رىگ پیغ زنیيٌ جًتٌ يکط را تًییو نی کيس‪.‬‬

‫راؾیت‬

‫‪ 0 Height‬ارتفاع ػیء را نؼزؽ نی کيس‪.‬‬

‫راؾیت‬

‫‪ 0 Left‬نلسار فاؾلٌ ػیء از ظهت چپ فصم نی ةاػس‪.‬‬

‫راؾیت‬

‫‪ 0 Picture‬ةا اظتفادً از ایو راؾیت نی تُاىیس یک فایل يکط را در جًتٌ يکط كصار دٍیس‪.‬‬ ‫راؾیت ‪ٍ 0 ToolTipText‬ص نتيی را کٌ در ایو كعهت ةيُیعیس ٍيگانی کٌ در زنان اجصا ناهس را رهی ػیء خصکت‬ ‫دٍیس ایو نتو ةٌ ؾُرت ‪ pop-up‬هاٍص نی ػُد‪.‬‬

‫راؾیت‬

‫‪ 0 Top‬نلسار فاؾلٌ ػیء از ةاالی فصم نی ةاػس‪.‬‬

‫راؾیت‬

‫‪ 0 Visible‬اگص ایو راؾیت ةصاةص ‪ False‬ةاػس ػیء در زنان اجصا ىهایغ دادً ىهی ػُد‪.‬‬

‫راؾیت‬

‫‪ 0 Width‬يصض ػیء را نؼزؽ نی کيس‪.‬‬

‫کنترل ‪: Label‬‬ ‫از ایو کيتصل نًهُال ةصای ىهایغ یک نتو کٌ كاةل تغییص ةٌ هظیلٌ کارةص ىتاػس اظتفادً نی ػُد‪.‬‬ ‫راؾیت ‪ 0 BackStyle‬ده ىُع ةصای پیغ زنیيٌ ةصچعب دارد‪# Transparent .‬ػفاف" ه‬

‫‪# Opaque‬نات"‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫راؾیت‬

‫‪ٍ 0 Caption‬ص نتيی کٌ در ایو راؾیت ىُػتٌ ػُد درهن ةصچعب ىهایغ نی یاةس‪.‬‬

‫راؾیت‬

‫‪ 0 Font‬نی تُاىیس ىُع كلم ‪ "Font #‬نُرد ىوص رُد را ةصای ىُػتو نتو اىتزاب کيیس‪.‬‬

‫راؾیت‬

‫‪ 0 ForeColor‬تًییو رىگ رك‬

‫– ‪http://www.b4c4.com‬‬

‫راؾیت ‪ 0 MouseIcon‬نی تُاىیس ةصای کصظص ناهس رُد از ػکل ٍای دلزُاً رُد اظتفادً کيیس‪ .‬در ایو ؾُرت ةایس‬ ‫راؾیت ‪ MousePointer‬را ٍم ةٌ ػهارً ‪ 99-Custom‬تغییص دٍیس‪.‬‬

‫کنترل ‪: TextBox‬‬ ‫از ایو کيتصل نًهُال ةصای هارد کصدن یک نلسار راص ةٌ هظیلٌ کارةص اظتفادً نی ػُد‪# .‬نحال هارد کصدن اظم کارةص"‬ ‫راؾیت ‪ 0 Locked‬اگص ةصاةص ‪ True‬ةاػس کارةص نجاز ةٌ تغییص نتو دارل جًتٌ در زنان اجصا ىهی ةاػس‪.‬‬ ‫راؾیت ‪ 0 MaxLength‬اگص نلسار آن ؾفص ةاػس ٍیچ ندسهدیتی در لُل نتو هجُد ىسارد هلی اگص نحال نلسار آن‬

‫‪5‬‬

‫اىتزاب ػسً ةاػس کارةص ىهی تُاىس ةیغ از ‪ 5‬کاراکتص را هارد کيس‪.‬‬ ‫راؾیت ‪ 0 MultiLine‬اگص ةصاةص ‪ True‬ةاػس در زنان اجصا ةا زدن کلیس ‪ Enter‬در جًتٌ ‪ ،‬نکان ىها ةٌ رك ةًس نيتلل‬ ‫نی ػُد هلی اگص ‪ False‬ةاػس تهام نتو فلك در یک رك ىُػتٌ نی ػُد‪.‬‬ ‫راؾیت ‪ 0 PasswordChar‬اگص یک کاراکتص را در ایو راؾیت نؼزؽ کيیم در زنان اجصا ٍص کاراکتصی کٌ ةٌ هظیلٌ‬ ‫کارةص زدً ػُد فلك ٍهیو کاراکتص ىهایغ نی یاةس‪#.‬از ایو راؾیت ةصای جًتٌ ٍای هرهد رنض ‪ "Password #‬اظتفادً نی‬ ‫ػُد"‬ ‫راؾیت ‪ 0 ScrollBars‬اگص نتو هرهدی ةیؼتص از لُل ه یا يصض جًتٌ نتو ةاػس ةٌ‬

‫‪ Scroll Bars‬ىیاز داریم‪ .‬اگص‬

‫نلسار آن ؾفص ةاػس غیص فًال یک ‪ 0‬افلی ‪ ،‬ده ‪ 0‬يهُدی ‪ ،‬ظٌ ‪ٍ 0‬م افلی ه ٍم يهُدی‪.‬‬ ‫راؾیت‬

‫‪ 0 Text‬از ایو راؾیت ةصای ىُػتو نتيی درهن جًتٌ اظتفادً نی ػُد‪.‬‬

‫کنترل ‪: Frame‬‬ ‫از ایو کيتصل ةصای جسا کصدن رُاص نزتلف در رهی فصم اظتفادً نی ػُد‪ .‬نی تُاىیس اػیاء رُد را دظتٌ ةيسی کصدً ه ٍص گصهً را‬ ‫رهی كاب جساگاىٌ ای كصار دٍیس‪.‬‬

‫کنترل ‪: CommandButton‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫اختهاال کٌ ىٌ ختها ایو کيتصل را در هیيسهز دیسً ایس‪ .‬ةصای اىجام يهلیات راؾی ةا ىوص کارةص از ایو ػیء اظتفادً نی ػُد‪ٍ .‬صگاً در‬ ‫زنان اجصا ایو ػیء یا ةٌ هظیلٌ ناهس یا ةٌ هظیلٌ کیتُرد فؼصدً ػُد دظتُرات درهن آن اجصا نی ػُىس‪.‬‬ ‫راؾیت ‪ 0 Cancel‬اگص ةصاةص ‪ True‬ةاػس دظتُرات ایو دکهٌ ٍيگانی کٌ دکهٌ‬

‫‪ Esc‬از ؾفدٌ کلیس فؼصدً ػُد ىیض‬

‫اجصا نی ػُىس‪ .‬فلك یکی از دکهٌ ٍای رهی فصم نی تُاىيس ایو راؾیت را ةٌ ؾُرت فًال داػتٌ ةاػيس‪.‬‬ ‫راؾیت ‪ 0 Caption‬نتو رهی دکهٌ را نؼزؽ نی کيس‪.‬‬ ‫راؾیت ‪ 0 Default‬اگص ةصاةص ‪ True‬ةاػس ایو دکهٌ ةٌ ييُان دکهٌ پیغ فصض ةٌ خعاب نی آیس ه اگص ختی نکان‬ ‫ىها ٍم در رهی ػیء دیگصی ةاػس ه کلیس ‪ Enter‬فؼصدً ػُد دظتُرات درهن ایو دکهٌ اجصا نی ػُىس‪ .‬در ایيجا ٍم فلك یکی‬ ‫از دکهٌ ٍای رهی فصم نی تُاىيس ایو راؾیت را ةٌ ؾُرت فًال داػتٌ ةاػيس‪.‬‬ ‫راؾیت ‪ 0 Enabled‬اگص ةصاةص ‪ False‬ةاػس دکهٌ غیص فًال اظت ‪#‬رانُش اظت" ه ىهی تُان آن را فؼصد‪.‬‬

‫کنترل ‪: CheckBox‬‬ ‫از ایو کيتصل نی تُان ةصای اىتزاب یک خالت از ده خالت نهکو اظتفادً کصد‪.‬ایو کيتصل تسايی گص نتغییص نيملی نی ةاػس‪.‬‬ ‫راؾیت ‪ 0 Value‬کٌ هفًیت اةتسایی دکهٌ را نؼزؽ نی کيس‪ .‬ؾفص‪ Unchecked 0‬یا اىتزاب ىؼسً‪ ،‬یک‪Checked 0‬‬ ‫یا اىتزاب ػسً ه ده‪0‬‬

‫‪ Grayed‬یا راکعتصی ػسً‪ .‬از ‪ Grayed‬زناىی اظتفادً نی ػُد کٌ اىتزاب نا ػصط دار‬

‫اظت‪ .‬نحال در ‪ Setup‬هیيسهز اگص گضیيٌ ای را کٌ اىتزاب نی کيیس تهام زیص نجهُيٌ ٍای آن اىتزاب ىؼسً ةاػس آىگاً ةٌ‬ ‫ؾُرت ‪ Grayed‬ىهایغ نی یاةس‪.‬‬

‫کنترل ‪: OptionButton‬‬ ‫از ایو کيتصل ةصای اىتزاب یک گضیيٌ از ةیو چيس گضیيٌ اظتفادً نی ػُد‪ .‬اگص چيس گصهً از ایو دکهٌ ٍا را ةصای يهلیات نزتلف‬ ‫اظتفادً نی کيیس ةایس ٍص گصهً را درهن یک ‪ Frame‬جساگاىٌ كصار دٍیس‪.‬‬ ‫راؾیت‬

‫‪ 0 Value‬ده نلسار ‪ True‬ةصای اىتزاب ػسً ه ‪ False‬ةصای اىتزاب ىؼسً دارد‪.‬‬

‫کنترل ‪: ComboBox‬‬ ‫از ایو کيتصل ةیؼتص ةصای اىتزاب یک گضیيٌ از نیان چيس گضیيٌ اظتفادً نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫راؾیت ‪ 0 Sorted‬اگص ةصاةص ‪ True‬ةاػس نلادیصی کٌ در ‪ Combo Box‬كصار نی گیصىس ةص اظاس خصهف الفتا نصتب نی‬ ‫ػُىس‪.‬‬ ‫‪ 0 Text‬نتيی اظت کٌ در رهی ‪ Combo Box‬ىهایغ نی یاةس‪.‬‬

‫راؾیت‬

‫کنترل ‪: ListBox‬‬ ‫از ایو کيتصل ةصای ىهایغ لیعتی از اػیاء اظتفادً نی ػُد‪.‬‬ ‫‪ 0 List‬ةصای پص کصدن لیعت در زنان لصاخی نی ةاػس‪.‬‬

‫راؾیت‬

‫راؾیت ‪ 0 MultiSelect‬ؾفص ‪ 0‬ىهی تُاىیس ةیغ از یک گضیيٌ را اىتزاب کيیس‪ .‬یک یا ‪ Simple‬ةٌ ظادگی اگص ةص رهی‬ ‫ٍص گضیيٌ کلیک کيیس آن گضیيٌ ةٌ جهى اىتزاب ػسً ٍا افضهدً نی ػُد‪ .‬ده یا‬

‫‪ Extended‬ػها نی تُاىیس ةا پاییو‬

‫ىگٌ داػتو کلیس ‪ Ctrl‬چيسیو اىتزاب داػتٌ ةاػیس‪ٍ .‬هچيیو ةا پاییو ىگٌ داػتو کلیس ‪ Shift‬نی تُاىیس یک ندسهدً را‬ ‫اىتزاب کيیس‪.‬‬ ‫راؾیت ‪ 0 Style‬اگص ةصاةص ‪ 1‬ةاػس ةصای ٍص گضیيٌ یک ‪ CheckBox‬در لیعت در ىوص گصفتٌ نی ػُد‪.‬‬

‫کنترل ىای ‪( HScrollBar‬افقی) و ‪( VScrollBar‬عهًدی) ‪:‬‬ ‫ایو کيتصل ٍا اظتفادً ٍای نزتلفی دارىس‪ .‬نحال اگص کيتصل ٍای رهی فصم در لُل ه يصض تًییو ػسً جا ىؼُىس نی تُان از ایو کيتصل‬ ‫ٍا اظتفادً کصد‪#.‬التتٌ اختیاج ةٌ ىُػتو کس دارد"‬ ‫راؾیت ‪ LargeChange‬ه ‪ 0 SmallChange‬يسدی را نؼزؽ نی کيس کٌ ةا ٍص ةار تکان دادن نکان ىها ةٌ آن اىسازً‬ ‫تغییص نی کيس‬ ‫‪ Min‬ه ‪ 0 Max‬کهتصیو ه ةیؼتصیو نلسار ‪ ScrollBar‬را تًییو نی کيس‪.‬‬

‫راؾیت‬

‫کنترل ‪: Timer‬‬ ‫‪ Timer‬کيتصلی اظت کٌ کار ٍای تکصاری را در ةازً زناىی دلزُاً اىجام نی دٍس‪.‬‬ ‫راؾیت ‪ 0 Enabled‬اگص ةصاةص ‪ True‬ةاػس ‪ Timer‬فًال اظت ه دظتُرات دارل آن ةٌ ؾُرت نکصر در ةازً نًلُم اىجام‬ ‫نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫راؾیت ‪ 0 Interval‬ةازً زناىی ‪ Timer‬را ةص خعب نیلی جاىیٌ تًییو نی کيس‪ .‬نحال اگص ایو راؾیت را ةصاةص‬

‫‪1000‬‬

‫تيویم کيیس يهلیات ةا ةازً یک جاىیٌ اىجام نی ػُىس‪.‬‬

‫کنترل ‪: DriveListBox‬‬ ‫ایو کيتصل تهانی درایُ ٍای نُجُد در رهی ظیعتم را ىؼان نی دٍس‪.‬‬

‫کنترل ‪: DirListBox‬‬ ‫ایو کيتصل ةصای ىهایغ پُػٌ ٍای نُجُد در یک درایُ نی ةاػس‪.‬‬

‫کنترل ‪: FileListBox‬‬ ‫ایو کيتصل ةصای ىهایغ فایل ٍای نُجُد در یک درایُ نی ةاػس‪.‬‬ ‫راؾیت ‪ 0 Pattern‬ایو راؾیت ةصای تًییو ىام ه پعُىس فایل ةٌ کار نی رهد‪ .‬نحال *‪ *.‬تهانی فایل ٍا ةا ٍص پعُىسی را‬ ‫ىؼان نی دٍس‪.‬‬ ‫‪ 0 Normal,System,ReadOnly‬ایو رُاص تًییو کييسً ؾفت فایل ٍا نی ةاػس‪ .‬ةٌ لُری کٌ اگص ٍص‬

‫راؾیت‬

‫کسام ةصاةص ‪ True‬ةاػيس فایل ٍایی ةا آن ؾفت ىهایغ نی یاةيس‪.‬‬ ‫کنترل ‪: Shape‬‬ ‫از ایو کيتصل ةصای ىهایغ اػکال راؾی اظتفادً نی ػُد‪.‬‬ ‫راؾیت‬

‫‪ 0 BorderStyle‬ىُع رك دهر ػکل را نؼزؽ نی کيس‪# .‬رك تیصً‪،‬ىلمٌ ه ‪"...‬‬

‫راؾیت‬

‫‪ 0 BorderWidth‬يسدی اظت کٌ پَيای رك دهر را تًییو نی کيس‪.‬‬ ‫راؾیت ‪ 0 Shape‬ىُع ػکل را نؼزؽ نی کيس‪00 #.‬نعتمیل ‪ 01 ،‬نصةى ‪ 02 ،‬ةیقی ‪ 03 ،‬دایصً ‪ 04 ،‬نعتمیل دهر گصد ‪05 ،‬‬ ‫نصةى دهر گصد"‬

‫کنترل ‪: Line‬‬ ‫از ایو کيتصل ةصای کؼیسن رك ةٌ کار نی رهد‪.‬‬ ‫راؾیت‬

‫‪ 0X1‬نزتؿات ‪ x‬اةتسای رك‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫راؾیت‬

‫‪ 0X2‬نزتؿات ‪ x‬اىتَای رك‬

‫راؾیت‬

‫‪ 0Y1‬نزتؿات ‪ y‬اةتسای رك‬

‫راؾیت‬

‫‪ 0Y2‬نزتؿات ‪ y‬اىتَای رك‬

‫– ‪http://www.b4c4.com‬‬

‫کنترل ‪: Image‬‬ ‫از ایو کيتصل ىیض ةصای ىهایغ يکط اظتفادً نی ػُد‪.‬‬ ‫راؾیت ‪ 0 Stretch‬اگص ةصاةص ‪ True‬ةاػس ٍيگانی کٌ ‪ Image‬را ‪ Resize‬نی کيیس يکط ىیض ةا تُجٌ ةٌ آن تغییص‬ ‫اىسازً نی دٍس‪.‬‬

‫کنترل ‪: Data‬‬ ‫ایو کيتصل از انکاىات جالب ‪ vb‬نی ةاػس کٌ دظتصظی ةٌ ةاىک ٍای الالياتی را ةٌ ظادگی انکان پشیص نی کيس‪.‬‬ ‫رؿُؾیات ایو کيتصل ةٌ ييُان یک نحال جانى ةًسا تُفیح دادً نی ػُد‪.‬‬

‫کنترل )‪: OlE(Object Linking and Embedding‬‬ ‫اظتاىسارد نایکصهظافت کٌ اجازً نی دٍس اػیاء در یک ةصىانٌ ظارتٌ ػُىس ه درهن ةصىانٌ دیگص جاظازی ػُىس ‪#‬اظتفادً از یک پیُىس‬ ‫زىسً"‪ .‬ایو جهلٌ تًصیفی ةُد کٌ از ‪ OLE‬در دیکؼيصی ‪ Babylon‬آهردً ػسً ةُد‪ .‬ةا اظتفادً از ‪ OLE‬نی تُاىیس اظيادی را از دیگص‬ ‫ةصىانٌ ٍا هارد ةصىانٌ رُد کيیس‪.‬‬

‫صروع برنانو نًیسی با ‪vb‬‬ ‫خاال کٌ تا خسی ةا دظتُرات ه ندیك ‪ vb‬آػيا ػسً ایس ةصىانٌ ىُیعی ةا ‪ vb‬را ةا نحال ظادً !‪ Hello world‬ػصهع نی کيیم‪.‬‬ ‫‪ vb‬را از نيُی اظتارت اجصا کيیس ه در پيجصً ‪ٍ New Project‬هان گضیيٌ ‪ Standard EXE‬را ‪ open‬کيیس‪ .‬خاال در رهی‬ ‫فصم رُد یک کيتصل ‪ Label‬ه ده ‪ Command Button‬را در جای نياظتی کٌ رُد دهظت داریس كصار دٍیس‪ .‬ىام دکهٌ ٍا را ةٌ‬ ‫‪ CmdOk‬ه ‪ CmdCancel‬تغییص دٍیس‪#‬ایو کار را در پيجصً‬

‫‪ Properties‬ظهت راظت ؾفدٌ اىجام نی دٍیس"‪ٍ .‬هچيیو‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫راؾیت ‪ Caption‬دکهٌ ٍا را ةٌ تصتیب ةٌ ‪ &Ok‬ه ‪ &Cancel‬تغییص دٍیس‪ & .‬یک رك کُچک زیص خصف ةًس از رُد نی کؼس ه‬ ‫ایو ةٌ ایو نًيی اظت کٌ اگص در زنان اجصا کلیس ‪ Alt‬را پائیو ىگٌ داریس ه آن خصفی را کٌ زیص آن رك کؼیسً ػسً اظت در رهی‬ ‫کیتُرد ةضىیس ةاز ٍم دظتُرات درهن آن کيتصل اجصا نی ػُىس‪ .‬ةصای ىُػتو کس ةصای ٍص کيتصل ةٌ ظادگی نی تُاىیس رهی آن کيتصل‬ ‫دهةار کلیک ىهائیس‪ .‬ةياةصایو ةصای ىُػتو کس نصةُط ةٌ ‪ Command Button‬رهی آن دهةار کلیک کيیس‪ .‬خاال پيجصً کس ةصىانٌ ػها‬ ‫ةاز ػسً ه یک رهیٌ ةصای راؾیت کلیک ‪ Command Button‬ةٌ ؾُرت رُد کار ىُػتٌ ػسً اظت‪ .‬ةایس ةٌ ایو ىکتٌ تُجٌ کيیس‬ ‫کٌ تهام رؿُؾیات کيتصل ٍا در رهیٌ ٍا ىُػتٌ نی ػُىس‪.‬‬ ‫)(‪Private Sub CmdOk_Click‬‬

‫‪End Sub‬‬ ‫ىام تهام رهیٌ ٍای کيتصل ٍا ةٌ ایو ؾُرت ىُػتٌ نی ػُد کٌ اهل ةًس از کلهٌ ‪ Sub‬اظم کيتصل آهردً نی ػُد ه ظپط یک زیص رك‬ ‫یا ‪ Underline‬ه ةًس از آن هاكًٌ ای کٌ كصار اظت ةا آن دظتُرات دارل رهیٌ اجصا ػُىس آهردً نی ػُد‪ .‬نهکو اظت ایو هكایى در‬ ‫کيتصل ٍای نزتلف نتفاهت ةاػس‪ vb .‬ةا كصار دادن ایو هكایى کار ةصىانٌ ىُیعان را تا خس زیادی آظان کصدً اظت‪ .‬ةصای دظتصظی ةٌ ایو‬ ‫رهیٌ ٍا در كعهت ةاالی کس ةصىانٌ ده ‪ Combo Box‬هجُد دارد ‪#‬انیسهارم االن دیگٌ ةسهىیس ‪ Combo Box‬چیٌ؟!"‪Combo .‬ی‬ ‫ظهت چپ ‪ Object‬یا ػیئی را کٌ نی رُاٍیم ةصای آن کس ةيُیعیم نؼزؽ نی کيس ه ‪Combo‬ی ظهت راظت تهام رهیٌ ٍای‬ ‫نُجُد ةصای آن ػیء را ىؼان نی دٍس کٌ ةا کلیک ةص رهی ٍص کسام نی تُان ةٌ آن دظتصظی پیسا کصد‪ .‬نا در ایو نحال فلك ةا رهیٌ ی‬ ‫کلیک دکهٌ کار نی کيیم‪ .‬یًيی ٍصگاً دکهٌ فؼصدً ػُد دظتُرات دارل آن ةالک اجصا نی ػُىس‪ .‬رُب خاال ةصای دکهٌ‬

‫‪ Ok‬ه‬

‫‪ Cancel‬ایو کسٍا را ةيُیعیس‪.‬‬ ‫)(‪Private Sub CmdOk_Click‬‬ ‫"!‪Label1.Caption = "Hello World‬‬ ‫‪End Sub‬‬

‫)(‪Private Sub CmdCancel_Click‬‬ ‫‪End‬‬ ‫‪End Sub‬‬ ‫در ‪ٍ vb‬يگام کس ىُیعی ةصای دظتصظی ةٌ رؿُؾیات ٍص ػئ کافی اظت ىام آن را ةيُیعیس ‪#‬نُاهب ةاػیس نيوُرم از ىام ‪ ،‬راؾیت‬ ‫‪ٍ Name‬ص ػئ اظت ىٌ راؾیت ‪ "Caption‬ه ةالفاؾلٌ ةًس از آن یک دات ‪#‬ىلمٌ" ةگضاریس‪ .‬در ایو ٍيگام اگص چيیو کيتصلی ةا ایو‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ىام در رهی فصم ةاػس تهام رؿُؾیات آن ػئ ةٌ ؾُرت لیعتی در کيار نکان ىها ةٌ ػها دادً نی ػُد‪ .‬ةياةصایو نجتُر ىیعتیس تهام‬ ‫کلهٌ ٍا را ةٌ ؾُرت کانل ةيُیعیس‪ .‬فلك کافی اظت چيس خصف اهل آن را تایپ کيیس ه اگص ةٌ راؾیت نُرد ىوص رظیسیس کلیس‬ ‫‪ Space‬را ةضىیس‪ vb .‬ةٌ لُر رُد کار ةلیٌء کلهٌ را ةصای ػها نی ىُیعس‪.‬‬ ‫در نحال ةاال نا نی رُاٍیم هكتی دکهٌ ‪ Ok‬فؼصدً ػس در ةصچعب نا جهلٌ ”!‪ “Hello World‬ىُػتٌ ػُد‪.‬‬ ‫کلهٌ کلیسی ‪ End‬در دکهٌ ی دهم ةايث پایان ةصىانٌ نی ػُد‪#.‬ةصای رصهج از ةصىانٌ ٍایتان از ایو کلهٌ اظتفادً کيیس‪ ".‬رُب خاال ةٌ‬ ‫ظادگی ةصىانٌ ای ‪ٍ#‬ص چيس ظادً" ةٌ زةان ‪ vb‬ىُػتٌ ایس‪.‬‬ ‫ةصای اجصای ةصىانٌ رهی دکهٌ ‪ Start‬کٌ در ةاالی ةصىانٌ تان هجُد دارد کلیک کيیس ه اجصای ةصىانٌ تان را ةتیيیس‪ .‬ةصای ایو کار از‬ ‫کلیس نیاىتص ‪ F5‬ىیض نی تُاىیس اظتفادً کيیس‪.‬‬ ‫ةصای تتسیل ةصىانٌ ةٌ فایل اجصائی )‪ (EXE‬نيُی فایل را ةاز کيیس ه رهی گضیيٌ ‪ Make Project1.exe‬کلیک کيیس‪ .‬در پيجصً‬ ‫ةاز ػسً آدرس ندل ذریصً ظازی ه ىام فایل اجصائی را اىتزاب کيیس ه ‪ Ok‬کيیس‪.‬‬

‫تابع ‪: MsgBox‬‬ ‫آیا تا کيُن ةا ٍیچ پیغام رمائی در هیيسهز رهةصه ىؼسً ایس؟!‬ ‫در ‪ vb‬ةٌ ظادگی ةا تاةى ‪ MsgBox‬نی تُاىیس پیغانی را ةٌ کارةص ىؼان دٍیس‪.‬‬

‫‪Function MsgBox(Prompt, [Buttons as VbMsgBoxStyle = vbOKOnly], [Title],‬‬ ‫‪[HelpFile], [Context]) as VbMsgBoxResult‬‬ ‫ایو تاةى یک پیغام را ىؼان نی دٍس ه نلسار ةازگؼتی آن ارزش اىتزاةی کارةص نی ةاػس‪.‬‬ ‫‪ 0Prompt‬نتو اؾلی پیغام نی ةاػس کٌ نی رُاٍیس ةٌ کارةص ىؼان دٍیس‪.‬‬ ‫‪ 0Buttons‬ىُع کلیس ٍای جًتٌ پیغام را ىؼان نی دٍس کٌ نلسار پیغ فصض آن فلك دکهٌ ‪ Ok‬نی ةاػس‪.‬‬ ‫اىُاع ‪0 VbMsgBoxStyle‬‬

‫‪Const vbAbortRetryIgnore = 2‬‬ ‫‪Const vbApplicationModal = 0‬‬ ‫)‪Const vbCritical = 16 (&H10‬‬ ‫‪Const vbDefaultButton1 = 0‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Const vbDefaultButton2 = 256 (&H100) Const vbDefaultButton3 = 512 (&H200) Const vbDefaultButton4 = 768 (&H300) Const vbExclamation = 48 (&H30) Const vbInformation = 64 (&H40) Const vbMsgBoxHelpButton = 16384 (&H4000) Const vbMsgBoxRight = 524288 (&H80000) Const vbMsgBoxRtlReading = 1048576 (&H100000) Const vbMsgBoxSetForeground = 65536 (&H10000) Const vbOKCancel = 1 Const vbOKOnly = 0 Const vbQuestion = 32 (&H20) Const vbRetryCancel = 5 Const vbSystemModal = 4096 (&H1000) Const vbYesNo = 4 Const vbYesNoCancel = 3

.‫ ييُان پیغام نی ةاػس کٌ در ةاالی آن كصار نی گیصد‬0Title .‫ آدرس فایل کهکی پیغام در ؾُرت هجُد اظت‬0HelpFile .‫ ىدًُ ةاز ػسن فایل کهکی نی ةاػس‬0Context 0‫نحال‬ Private Sub Form_Load() MsgBox "Welcome to vb world!", vbInformation, "First visit" End Sub .‫ یک رصهجی دارد کٌ ىؼان نی دٍس کارةص چٌ دکهٌ ای را فؼصدً اظت‬MsgBox ‫تاةى‬ 0‫یک نحال جالب‬ Private Sub Form_Unload(Cancel as Integer) Cancel = 1

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Dim Ret1 as VbMsgBoxResult Ret1 = MsgBox("Are you sure you want to exit this program?", vbCritical + vbYesNo, "Exit") If Ret1 = vbYes Then End End If End Sub ٌ‫ فصم را ةضىس از اه ةصای الهیيان از ایو کار ظُال نی ػُد ه در ؾُرتی ک‬Close ٌ‫ ٍص گاً کارةص دکه‬.‫ اجصا کيیس‬vb ‫ختها ایو کس را در‬ .‫کارةص نُافق ةاػس از ةصىانٌ رارج نی ػُد‬ 0‫اگص فلك کس زیص را نی ىُػتیم کارةص نجاز ةٌ رصهج از فصم ىهی ةاػس‬ Private Sub Form_Unload(Cancel as Integer) Cancel = 1 End Sub 0‫ نی ةاػس کٌ اىُاع زیص را دارد‬MsgBox ‫ ىُع رصهجی تاةى‬VbMsgBoxResult Const vbOK = 1 Const vbCancel = 2 Const vbAbort = 3 Const vbRetry = 4 Const vbIgnore = 5 Const vbYes = 6 Const vbNo = 7 .‫ نی ػُد اجصا نی ػُد‬Unload ً‫ رهیٌ ای اظت کٌ هكتی فصنی کٌ كتال ةارگضاری ػس‬Form_Unload

: InputBox ‫تابع‬ .‫ىُيی دظتُر هرهدی نی ةاػس کٌ پیغانی را ةٌ کارةص ىؼان نی دٍس ه نتو هرهدی کارةص را ةٌ ؾُرت رػتٌ ةص نی گصداىس‬ Function

InputBox(Prompt,

[Context]) as String

[Title],

[Default],

[XPos],

[YPos],

[HelpFile],

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ 0 Prompt‬نتيی اظت کٌ ةٌ کارةص ىهایغ نی دٍیس‪.‬‬ ‫‪ 0Title‬ييُان جًتٌ هرهدی نی ةاػس‪.‬‬ ‫‪ 0Default‬نلسار پیغ فصض تاةى نی ةاػس کٌ نی تُاىیس آن را تًییو کيیس‪.‬‬ ‫‪ 0XPos‬نزتؿات ‪ X‬جًتٌ ی نتو‪.‬‬ ‫‪ 0YPos‬نزتؿات ‪ Y‬جًتٌ ی نتو‪.‬‬ ‫‪ 0HelpFile‬آدرس فایل کهکی پیغام در ؾُرت هجُد اظت‪.‬‬ ‫‪ 0Context‬ىدًُ ةاز ػسن فایل کهکی نی ةاػس‪.‬‬ ‫رصهجی تاةى فُق از ىُع ‪ String‬نی ةاػس‪.‬‬ ‫نحال‪0‬‬ ‫)(‪Private Sub Form_Load‬‬ ‫‪Dim Ret1 as String‬‬ ‫‪Ret1 = InputBox("What's your name?", "Please confirm your name", "Amir", 0,‬‬ ‫)‪0‬‬ ‫‪If Ret1 <> "" Then‬‬ ‫‪Me.Caption = "Welcome" & " " & Ret1‬‬ ‫‪Else‬‬ ‫"‪Me.Caption = "Unknown user‬‬ ‫‪End If‬‬ ‫‪End Sub‬‬ ‫كتل از ىهایغ فصم پیغام هرهدی ىهایغ نی یاةس‪ .‬اگص کارةص اظم رُد را هارد کصد در كعهت ةاالی فصم ةٌ اه رُش آنس گفتٌ نی ػُد‬ ‫هلی اگص کارةص اظم رُد را هارد ىکصد یا دکهٌ ‪ Cancel‬را فؼصد جهلٌ ‪ Unknown user‬ىُػتٌ نی ػُد‪.‬‬ ‫تُجٌ داػتٌ ةاػیس کلهٌ ‪ Me‬در ‪ vb‬ىهایيسً ی اظم فصنی نی ةاػس کٌ در خال خافص در آن كصار داریم‪ .‬ةٌ جای‬ ‫نی تُاىعتیم ىام فصم نحال ‪ Form1‬را ةيُیعیم‪.‬‬ ‫نحال ةصىانٌ ىُیعی‪0‬‬ ‫درظت کصدن یک ظايت دیجیتالی در ‪0 vb‬‬

‫‪ Me‬در نحال ةاال‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ةصای زنان در ‪ vb‬تُاةى نزتلفی هجُد دارد‪ .‬کٌ ٍصگاً فصارُاىی ػُىس زنان آن نُكى را ةص نی گصداىيس‪ .‬هلی نؼکل ایو اظت کٌ فلك‬ ‫زنان را ةصنی گصداىيس ه جاةت نی ناىيس‪ .‬ةصای درظت کصدن ظايت ةٌ یک کيتصل ‪ Timer‬اختیاج داریم کٌ ٍص یک جاىیٌ یک ةار تاةى‬ ‫زنان را فصارُاىی کيس‪.‬‬ ‫ةصای درظت کصدن ظايت یک کيتصل ‪ Label‬را رهی فصم كصار دٍیس ه راؾیت ‪ AutoSize‬آن را ‪ True‬کيیس ظپط یک کيتصل‬ ‫‪ Timer‬را در فصم كصار دٍیس ه راؾیت ‪ Interval‬آن را ةصاةص ‪ 1000‬كصار دٍیس ظپط کس زیص را در فصم ةيُیعیس‪.‬‬ ‫)(‪Private Sub Timer1_Timer‬‬ ‫‪Label1.Caption = Time‬‬ ‫‪End Sub‬‬ ‫اگص دهظت داریس تاریذ جاری را ةٌ ٍهصاً زنان ةتیيیس از تاةى ‪ Now‬ةٌ جای ‪ Time‬اظتفادً کيیس‪.‬‬ ‫)(‪Private Sub Timer1_Timer‬‬ ‫‪Label1.Caption = Now‬‬ ‫‪End Sub‬‬ ‫نحال ةصىانٌ ىُیعی‪0‬‬ ‫ىهایغ کسٍای اظکی در یک لیعت‪0‬‬ ‫)(‪Private Sub Form_Load‬‬ ‫‪Dim i as Integer‬‬ ‫‪For i = 0 To 255‬‬ ‫)‪List1.AddItem i & " : " & Chr$(i‬‬ ‫‪Next i‬‬ ‫‪End Sub‬‬ ‫كتل از ىُػتو ایو کس یک ‪ ListBox‬را در فصم كصار دٍیس‪.‬‬ ‫تابع )(‪:Chr$‬‬ ‫‪Function Chr$(CharCode as Long) as String‬‬ ‫ایو تاةى کاراکتصی را کٌ نصةُط ةٌ ػهارً ‪ CharCode‬نی ةاػس را ةصنی گصداىس‪.‬‬ ‫تابع )(‪:Asc‬‬ ‫‪Function Asc(String As String) As Integer‬‬ ‫ایو تاةى کس ‪ ANSI‬نصةُط ةٌ ٍص کاراکتص را ةصنی گصداىس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫)(‪Private Sub Form_Load‬‬ ‫)"‪MsgBox Asc("A‬‬ ‫‪End Sub‬‬ ‫تابع )(‪ LCase$‬و )(‪: UCase$‬‬ ‫‪Function LCase$(String as String) as String‬‬ ‫‪Function UCase$(String as String) as String‬‬ ‫تاةى ‪ LCase$‬خصهف را ةٌ خصهف کُچک ه تاةى ‪ UCase$‬خصهف را ةٌ خصهف ةضرگ تتسیل نی کيس‪.‬‬ ‫نحال‪0‬‬ ‫كتل از ٍص چیض یک ‪ TextBox‬ه ده ‪ CommandButton‬رهی فصم كصار دٍیس‪.‬‬ ‫)(‪Private Sub Command1_Click‬‬ ‫)‪Text1.Text = LCase$(Text1.Text‬‬ ‫‪End Sub‬‬ ‫)(‪Private Sub Command2_Click‬‬ ‫)‪Text1.Text = UCase$(Text1.Text‬‬ ‫‪End Sub‬‬ ‫نحال ةصىانٌ ىُیعی‪0‬‬ ‫ةصىانٌ ای کٌ ٍيگام اجصا از کارةص رنض هرهد نی رُاٍس‪.‬‬ ‫‪ vb‬را ٍهاىيس ٍهیؼٌ اجصا کيیس ‪#‬ةٌ لُر رُد کار ‪ Form1‬ظارتٌ نی ػُد"‪ .‬نا در ایو ةصىانٌ ةٌ ده فصم اختیاج داریم‪ .‬ةياةصایو ةصای‬ ‫افافٌ کصدن فصم دیگصی رهی ‪ Project Explorer‬راظت کلیک کيیس‪ Project Explorer #.‬در ظهت راظت ةاالی ؾفدٌ‬ ‫كصار دارد" از نيُی ةاز ػسً گضیيٌ ‪ Add‬را اىتزاب کيیس ه دهةارً از گضیيٌ ٍای ارائٌ ػسً گضیيٌ ‪ Form‬را کلیک کيیس‪ .‬در پيجصً ی‬ ‫ةاز ػسً رهی ‪ Form‬کلیک کيیس ه آن را ‪ Open‬کيیس‪ .‬خاال فصنی ةٌ ىام ‪ Form2‬ةٌ پصهژً ی ػها افافٌ ػسً‪ .‬در‬

‫‪Project‬‬

‫‪ Explorer‬رهی ‪ Form1‬ده ةار کلیک کيیس تا ةٌ ندیك لصاخی فصم اهلههان ةاز گصدیم‪ .‬در رهی فصم یک کيتصل ‪ TextBox‬ه‬ ‫ده کيتصل ‪ CommandButton‬كصار دٍیس‪.‬ةصای راختی کار ىام اػیاء را تغییص ىسٍیس فلك راؾیت ‪ Caption‬دکهٌ ٍا را ةٌ ‪ Ok‬ه‬ ‫‪ Cancel‬تغییص دٍیس ه کس زیص را در كعهت کس فصم ‪ 1‬ةيُیعیس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫)(‪Private Sub Command1_Click‬‬ ‫‪'For Ok button‬‬ ‫‪If LCase(Text1.Text) = "password" Then‬‬ ‫‪Unload Me‬‬ ‫‪Form2.Show‬‬ ‫‪Else‬‬ ‫‪MsgBox "Invalid Password!", vbCritical‬‬ ‫‪Text1.SetFocus‬‬ ‫"}‪SendKeys "{Home}+{End‬‬ ‫‪End If‬‬ ‫‪End Sub‬‬ ‫)(‪Private Sub Command2_Click‬‬ ‫‪'For cancel button‬‬

‫‪End‬‬

‫‪End Sub‬‬ ‫در ایو نحال نلسار جًتٌ نتو ةا رنض نا چک نی ػُد ه اگص ةصاةص ةُد‪0‬‬ ‫‪ Unload Me‬ةايث نی ػُد فصم ‪ 1‬از خافوٌ رالی ػُد ‪#‬یًيی آن فصنی کٌ كتال ةاگضاری ػسً االن پاک نی ػُد‪".‬‬ ‫‪ 0 Form2.Show‬راؾیت ‪ Show‬از ػئ فصم ةايث نی ػُد ‪ Form2‬در خافوٌ ةار ػُد ه ةٌ ىهایغ در آیس‪.‬‬ ‫هلی اگص رنض هرهدی کارةص غلك ةُد‪0‬‬ ‫پیغام رمائی نتيی ةص غلك ةُدن رنض ةٌ کارةص دادً نی ػُد‬ ‫‪ 0 Text1.SetFocus‬راؾیت ‪ SetFocus‬اػیاء ةايث نی ػُد نکان ىها ةٌ آن ػئ نيتلل ػُد‪.‬‬ ‫"}‪: SendKeys "{Home}+{End‬‬ ‫تاةى ‪ SendKeys‬یکی از جالب تصیو تُاةى ‪ vb‬نی ةاػس کٌ نی تُان ةا آن ٍص کلیسی را ةٌ کيتصل فًال فصظتاد‪.‬‬ ‫دظتُر ةاال ةايث نی ػُد تهام ندتُیات جًتٌ نتو اىتزاب ػُىس‪.‬‬ ‫لیعتی از دظتُراتی کٌ نی تُاىیس در تاةى ‪ SendKeys‬اظتفادً کيیس‪0‬‬ ‫‪^ = Control‬‬ ‫‪{enter} = Enter‬‬ ‫‪% = Alt‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

{Del} = Delete {ESCAPE} = Escape {TAB} = Tab + = Shift {BACKSPACE} = Backspace {BREAK} = Break {CAPSLOCK} = Caps Lock {CLEAR} = Clear {DELETE} = Delete {DOWN} = Down Arrow {LEFT} = Left Arrow {RIGHT} = Right Arrow {UP} = Up Arrow {NUMLOCK} = Num Lock {PGDN} = Page Down {PGUP} = Page Up {SCROLLLOCK} = Scroll Lock {F1} = F1 .......Use {F2} {F3} and so On For others... {HOME} = home {INSERT} = Insert Upload 0‫نحال‬ Private Sub Command1_Click() SendKeys "%{F4}" End Sub "Alt+F4 ‫ةا زدن کلیس ٍای‬#.‫ةايث ةعتٌ ػسن فصم نی ػُد‬ Private Sub Command1_Click() Dim i as Integer 'declare the variable

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

For i = 1 To 150 'how many times (you can change the 150 to whatever you want) SendKeys "{CAPSLOCK}", True 'turn on the capslocks light, Then turn it off SendKeys "{DOWN}", True 'just To give more time SendKeys "{DOWN}", True 'just To give more time SendKeys "{SCROLLLOCK}", True 'turn on the scroll lock light, turn it off SendKeys "{DOWN}", True 'give more time SendKeys "{DOWN}", True 'give more time Next i End Sub .‫ایو نحال ةايث رهػو ه رانُش ػسن چصاغ کیتُرد نی ػُد‬

‫بررسی فایل در ویژوال بیسیک‬ ‫ ایو الاليات را در فایل ذریصً نی‬.‫در ةعیاری از ةصىانٌ ٍای رُد اختیاج ةٌ ذریصًء یکعصی الاليات ةصای اظتفادً ٍای ةًسی داریم‬ ‫ ةٌ راختی نی تُاىیس ةا فایل ٍا کار کيیس هلی ةایس چيس ىکتٌ ه اؾمالح کلیسی را درةارًء فایل ٍا ةساىیس کٌ ةٌ نصهر در ایو‬vb ‫ در‬.‫کيیم‬ .‫ةزغ ةا آىَا آػيا نی ػُیس‬ 0vb ‫( ٍای فایل ٍا در‬Mode) ‫اىُاع یا‬ Input

.1

Output

.2

Append

.3

Random

.4

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫‪.5‬‬

‫– ‪http://www.b4c4.com‬‬

‫‪Binary‬‬

‫ةصای هرهد الاليات یا رُاىسن الاليات از یک فایل از‬

‫‪ Input‬اظتفادً نی ػُد‪ .‬در ایو نتس كادر ةٌ تغییص در ندتُای فایل‬

‫ىیعتیس‪ Output .‬یک فایل رالی ةص رهی ٍارد ایجاد نی کيس ه ةٌ ػها اجازً نی دٍس الاليات رُد را در آن فایل‬ ‫ةيُیعیس‪ Append .‬ىیض ػتیٌ ‪ Output‬نی ةاػس‪ .‬یًيی اگص فایل هجُد ىساػتٌ ةاػس آن را ایجاد نی کيس هلی تفاهت آن ةا‬ ‫‪ Output‬در ایو اظت کٌ اگص فایل نُجُد ةاػس الاليات ةٌ ادانٌء آن فایل افافٌ نی ػُد‪ .‬هلی در ‪ Output‬اگص فایل نُجُد ةاػس‬ ‫ندتُیات آن پاک نی ػُد ه ندتُیات جسیس جایگضیو آن نی ػُد‪ .‬ىُع ‪ٍ Random‬م تصکیتی از رُاىسن ه ىُػتو نی ةاػس‪.‬‬ ‫ىُع آرص ٍم کٌ ةعیار کارةصد دارد در فایل ةٌ ؾُرت ‪ Binary‬کار نی ػُد‪.‬‬ ‫ىکتٌ‪0‬‬ ‫نهکو اظت درجائی ایو رهش ٍا ةا ىام فایل ٍای تصتیتی ذکص ػُىس‪ .‬چصا؟‬ ‫ایو ةٌ ایو دلیل اظت کٌ "یک ةار کٌ از رهی یک فایل نی رُاىیس یا رهی آن نی ىُیعیس ىهی تُاىیس ةٌ آن ةصگصدیس نگص ایو کٌ آن‬ ‫فایل را یک ةار ةتيسیس ه دهةارً آن را ةاز کيیس‪ .‬چُن ٍهان لُری کٌ ةًسا گفتٌ نی ػُد نُكًیت فًلی فایل تغییص نی یاةس )‪ .(Loc‬ةٌ‬ ‫يتارت دیگص ایو رهش ٍا یک لصفٌ یا تصتیتی اىس‪".‬‬ ‫رُب خاال کٌ ةا ایو نتس ٍا آػيا ػسیس ةٌ تُفیح ىدًُء ایجاد فایل ٍا نی پصدازم‪0‬‬ ‫در ‪ vb‬تهام ایو يهلیات ةا یک دظتُر ‪ Open‬اىجام نی ػُد‪0‬‬

‫‪Open StrFileName For fMode as #intFileNumber‬‬

‫‪ StrFileName‬رػتٌ ای نی ةاػس کٌ آدرس ه پعُىس فایل را در ٍارد نؼزؽ نی کيس‪.‬‬ ‫نحال‪0‬‬

‫"‪StrFileName = "C:\Test1.txt‬‬ ‫"‪StrFileName = "D:\Files\newTest.dat‬‬ ‫‪ fMode‬رهش ةاز کصدن فایل را ىؼان نی دٍس کٌ ةایس یکی از نلادیص ةاال ةاػس )…‪(Input,Output‬‬ ‫‪ intFileNumber‬ػهارًء فایل نی ةاػس‪ٍ .‬يگام کار ةا فایل ٍا در ‪ vb‬ةٌ ٍص فایلی کٌ ةاز نی کيیم یک ػهارً ارتؿاص نی دٍیم‬ ‫‪ 1#‬تا ‪ "255‬ه از ایو ةٌ ةًس ةا ایو ػهارً کار نی کيیم‪ .‬ایو ػهارً ىهایيسًء آن فایل ةاز نی ةاػس‪.‬‬ ‫تُجٌ‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫فایلی را کٌ ةاز نی کيیس پط از پایان کارتان ختها ةایس ةتيسیس‪ .‬ایو کار ةا دظتُر ‪ Close‬اىجام نی ػُد‪.‬‬

‫]…‪Close [intFileNumber1, intFileNumber2,‬‬

‫اگص ‪ Close‬را ةسهن ذکص ػهارًء فایل نُرد ىوص ةٌ کار ةتصیس تهام فایل ٍای ةاز تُظك ةصىانٌ ةعتٌ نی ػُىس‪.‬‬ ‫‪Close‬‬ ‫نحال‪0‬‬ ‫‪Close 1, 3‬‬ ‫ایو دظتُر ده فایل ةاز ‪ 1‬ه ‪ 3‬را نی ةيسد‪.‬‬ ‫‪Open "C:\test.txt" For Output as #1‬‬ ‫‪Close 1‬‬ ‫ةا اظتفادً از دظتُرات ةاال یک فایل نتيی رالی در درایُ ‪ C:‬ایجاد نی ػُد‪.‬رُب فایل رالی ةٌ درد نو ىهی رُرد‪ .‬نو ةایس ةتُاىم‬ ‫درهن آن ةيُیعم!‬ ‫ةصای ىُػتو در فایل ةاز ده دظتُر هجُد دارد‪0‬‬ ‫‪.1‬‬

‫‪0 Print‬‬ ‫‪Print #filenumber, expression‬‬

‫‪ Filenumber‬ػهارًء فایلی اظت کٌ نی رُاٍیم تُی آن ةيُیعیم‪.‬‬ ‫ىکتٌ‪0‬‬ ‫اگص ػهارً فایل را ةٌ ؾُرت يسد ‪#‬ىٌ ةا نتغییص" نی ىُیعیس هجُد ‪ number sign‬الضانی اظت‪"##.‬‬ ‫‪ Expression‬آن يتارتی اظت کٌ نی رُاٍیم در فایل ةيُیعیم‪.‬‬

‫‪Open "c:\test.txt" For Output as #1‬‬ ‫"‪Print #1, "Amir‬‬ ‫‪Close 1‬‬ ‫نحال دظتُرات ةاال کلهٌء ‪ Amir‬را در فایل "‪ "d:\test.txt‬نی ىُیعس‪.‬‬ ‫انتدان کيیس‪...‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫تُجٌ داػتٌ ةاػیس کٌ ةا ٍص ةار دظتُر پصیيت آن يتارت در یک رك ىُػتٌ نی ػُد‪ .‬اؾُال کار ةا فایل ٍا در ‪ vb‬رمی اظت‪.‬‬

‫‪.2‬‬

‫‪0 Write‬‬ ‫‪Write #filenumber, expression‬‬

‫دظتُر ‪ٍ Write‬م نحل ‪ Print‬يهل نی کيس هلی ٍيگام ىُػتو آن يتارت را درهن ده يالنت ىلل كُل كصار نی دٍس‪ .‬نحال ةاال را ةا‬ ‫‪ Write‬اجصا کيیس تا تفاهت را ةتیيیس‪.‬‬ ‫درس ذریصً ه ةازیاةی الاليات را ةٌ یاد ةیاهریس‪ .‬تا ایو كعهت نا فلك الالياتهان را ذریصً کصدیم‪ .‬رُب آیا اختیاجی ةٌ ةازیاةی آن‬ ‫الاليات ىساریم؟‬ ‫ةصای رُاىسن یک رك از یک فایل از دظتُر زیص اظتفادً نی ػُد‪0‬‬ ‫‪Line Input #filenumber, variablelist‬‬

‫ةاز ٍم ‪ filenumber‬ػهارًء فایل ةاز نی ةاػس ‪#‬ایو فایل ةایس ةصای رُاىسن یا ‪ Input‬ةاز ػسً ةاػس"‬ ‫‪ Variablelist‬ىیض یک نتغییص اظت از ىُع رػتٌ ةصای ذریصًء رك نُرد ىوص‪#.‬چُن الاليات ةٌ ؾُرت رػتٌ ىُػتٌ یا رُاىسً نی‬ ‫ػُىس"‬ ‫نحال‪0‬‬ ‫)(‪Private Sub Form_Load‬‬ ‫‪Dim fData as String‬‬ ‫‪Open "c:\test.txt" For Input as #1‬‬ ‫‪Line Input #1, fData‬‬ ‫‪Close 1‬‬ ‫‪MsgBox fData‬‬ ‫‪End Sub‬‬

‫ایو تکٌ ةصىانٌ ٍيگام اجصای ةصىانٌ اهلیو رك از فایل نُجُد در آدرس "‪ "c:\test.txt‬را در نتغییص ‪ fData‬كصار نی دٍس ه آن‬ ‫را ةٌ ؾُرت یک پیغام ىؼان نی دٍس‪ .‬اگص فایل در آدرس نؼزؽ ػسً هجُد ىساػتٌ ةاػس رمای زنان اجصا‬

‫‪(Run-Time‬‬

‫)‪ Error‬پیغ نی آیس‪ .‬التتٌ ةًس ٍا نا از ایو رما ةصای تؼزیؽ هجُد یا يسم هجُد یک فایل رهی ٍارد اظتفادً نی کيیم‪ .‬التتٌ اگص‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫در دظتُر رُاىسن از فایل کلهٌء ‪ line‬را خشف کيیم فلك نلادیصی را نی رُاىس کٌ كتل از اهلیو کانا ةاػيس‪ .‬التتٌ فلك در یک رك‪.‬‬ ‫تؿُر کيیس در فایل رمُط زیص ىُػتٌ ػسً‪0‬‬ ‫!‪Hello,World‬‬ ‫?‪Are you there‬‬ ‫رُب اگص ةصای رُاىسن از دظتُر ‪ Input‬ةسهن ‪ Line‬اظتفادً ػُد‪0‬‬

‫‪Input #1, fData‬‬ ‫فلك يتارت ‪ Hello‬در نتغییص ‪ fData‬كصار نی گیصد‪ .‬رُب ٍهان لُر کٌ دیسیس ةا ایو دظتُر فلك نی تُان یک رك از فایل را‬ ‫رُاىس‪ .‬ةصای رُاىسن تهانی رمُط فایل اهل ةایس اىتَای فایل نؼزؽ ةاػس‪ .‬در ‪ vb‬تاةًی نيملی هجُد دارد کٌ ٍصگاً ةٌ اىتَای فایل‬ ‫ةصظیم ارزش درظتی را ةصنی گصداىس‪.‬‬

‫‪Function EOF(FileNumber as Integer) as Boolean‬‬ ‫پط ةصای رُاىسن کل فایل ةایس تا هكتی کٌ ةٌ اىتَای آن ىصظیسً ایم يهل رُاىسن رك ةٌ رك را ادانٌ دٍیم‪ .‬ایو کار ةا یک خللٌء‬ ‫تکصار ػتیٌ ظازی نی ػُد‪.‬‬ ‫نحال‪0‬‬ ‫ظارتو ةصىانٌء ‪0NotePad‬‬ ‫رُاىسن ندتُیات یک فایل ه كصار دادن آن در یک جًتٌء نتو ‪ٍ#‬هان کاری کٌ ‪ٍ NotePad‬يگام ‪ open‬کصدن فایل ٍا اىجام نی‬ ‫دٍس‪".‬‬ ‫ةصای درظت کصدن ایو نحال یک پصهژًء ‪ Standard EXE‬را ةاز کيیس‪ .‬ظپط رهی فصم یک جًتٌ نتو ىعتتا ةضرگ كصاردٍیس ه‬ ‫رُاص ‪ MultiLine‬را ةصاةص ‪ True‬ه ‪ ScrollBars‬را ةصاةص ‪ 3‬كصار دٍیس‪#‬ایو ده کار الضانی اظت"‬ ‫ظپط دکهٌ ای ةصای ‪ Open‬کصدن فایل رهی فصم كصار دٍیس ه کس زیص را ةصای آن ةيُیعیس‪0‬‬

‫)(‪Private Sub mnuOpen_Click‬‬ ‫‪on Error GoTo Err_Not_Found‬‬

‫‪Dim FileName, Temp, Total as String‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Dim FileNumber as Integer‬‬ ‫_ ‪FileName = InputBox("Enter the path for a text file",‬‬ ‫)‪"Open", "C:\test.txt", 0, 0‬‬ ‫‪If FileName = "" Then Exit Sub‬‬ ‫‪FileNumber = FreeFile‬‬

‫‪Open FileName For Input as FileNumber‬‬ ‫)‪While Not EOF(FileNumber‬‬ ‫‪Line Input #FileNumber, Temp‬‬ ‫)‪Total = Total + Temp + Chr(10) + Chr(13‬‬ ‫‪Wend‬‬ ‫‪Close FileNumber‬‬ ‫‪Text1.Text = Total‬‬ ‫‪Exit Sub‬‬ ‫‪Err_Not_Found:‬‬ ‫‪MsgBox Err.Description & vbCrLf & Err.Number‬‬ ‫‪End Sub‬‬ ‫‪ FileName‬آدرس فایلی نی ةاػس کٌ نی رُاٍیس ةاز کيیس‪.‬‬ ‫‪ FreeFile‬یک تاةى اظت کٌ ػهارًء اهلیو فایل رالی را ةص نی گصداىس‪.‬‬ ‫در ایو ةصىانٌ ةا اظتفادً ار دظتُر ‪ Open‬فایل را ةصای رُاىسن ةاز نی کيیم ه ةا اظتفادً از یک خللٌ رك ةٌ رك فایل را رُاىسً ه آن‬ ‫رك را در نتغییص ‪ Temp‬كصار نی دٍیم‪ .‬ظپط ٍص رك را ةٌ نتغییص‬

‫‪ Total‬افافٌ نی کيیم ه ةا اظتفادً از‬

‫‪Chr(10) +‬‬

‫)‪ Chr(13‬نکان ىها را ةٌ رك ةًس نی ةصیم‪ .‬ةٌ جای ایو کٌ ‪ Carriage-return/Linefeed‬را ةٌ ؾُرت کسٍای اظکی ةٌ‬ ‫کار ةتصیم نی تُان از جاةتی کٌ در ‪ vb‬ةصای ایو کار تًتیٌ ػسً اظتفادً کصد‪.‬‬ ‫‪vbCrLf‬‬ ‫اظتفادً از ایو جُاةت ‪ vb‬رُاىائی ةصىانٌ را ةاال نی ةصد‪ٍ .‬هچيیو در ایو ةصىانٌ از دظتُر جالب ‪ On Error‬اظتفادً ػسً اظت‪.‬‬ ‫اگصایو دظتُر را در ةاالی رهیٌ یا تاةى رُد ةيُیعیس آىگاً ةصىانٌ را اجصا کيیس ه ةٌ رمای زنان اجصا ةصرُرد کيیس نی تُاىیس آن رما را‬ ‫کيتصل کيیس ه از ‪ Crash‬ةصىانٌ ٍای رُد جلُگیصی کيیس‪ .‬چگُىٌ؟!‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪On Error Resume Next‬‬ ‫اگص در ةصىانٌ رما ایجاد ػُد ةسهن در ىوص گصفتو آن‪ ،‬کيتصل ةصىانٌ رك ةًس از رما را اجصا نی کيس ه ةٌ ٍهیو تصتیب تا آرص‪...‬‬

‫‪On Error GoTo label‬‬ ‫اگص رما رخ دٍس کيتصل ةصىانٌ ةٌ ‪ label‬تًییو ػسً نی رهد‪0‬‬ ‫)(‪Private Sub Form_Load‬‬ ‫‪On Error GoTo label‬‬ ‫دستًرات برنانو‬ ‫‪label:‬‬ ‫دستًرات کنترل خطا‬ ‫‪End Sub‬‬

‫تابع ‪:Err‬‬ ‫اگص رما رخ دٍس ایو تاةى ةٌ ظادگی جضئیات آن تاةى را در ارتیار ةصىانٌ ىُیط نی گضارد‪ .‬نحال در ةصىانٌء ةاال ٍيگام ایجاد رما تُفیح‬ ‫ه ػهارًء رما ةٌ ؾُرت پیغام ةٌ کارةص ىهایغ دادً نی ػُد‪.‬‬ ‫دظتُرات زیص ةصای ذریصًء نتو ٍا ‪#‬فایل ٍا" رهی ٍارد اظتفادً نی ػُد‪.‬‬

‫)(‪Private Sub mnuSave_Click‬‬ ‫‪on Error GoTo Err_Found‬‬ ‫‪Dim FileName as String‬‬ ‫‪Dim FileNumber as Integer‬‬ ‫_ ‪FileName = InputBox("Enter the path for a text file to save",‬‬ ‫)‪"Open", "C:\test.txt", 0, 0‬‬ ‫‪If FileName = "" Then Exit Sub‬‬ ‫‪FileNumber = FreeFile‬‬

‫‪Open FileName For Output as FileNumber‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Print #FileNumber, Text1.Text Close FileNumber Exit Sub

Err_Found: MsgBox Err.Description & vbCrLf & Err.Number End Sub

:Loc ‫تابع‬ Function Loc(FileNumber As Integer) As Long ‫ از ایو تاةى ةیؼتص در رهش‬.‫رُاىسن یا ىُػتو" را درهن یک فایل ةاز ةصنی گصداىس‬# Read/Write ‫ نُكًیت فًلی‬Locate ‫تاةى‬ .‫ اظتفادً نی ػُد‬Binary

:Input ‫تابع‬ Function Input$(Number As Long, FileNumber As Integer) As String .‫ لُل فایل را نؼزؽ نی کيس‬Number ‫ کٌ تُفیح دادً نی ػُد‬LOF ‫ةا اظتفادً از ایو تاةى ه تاةى‬.‫ نی ةاػس هلی ةسهن ندسهدیت‬Line Input ‫ایو تاةى تلصیتا ػتیٌ تاةى‬ 0‫ ةياةصایو کل خللٌء ةاال را نی تُان ةا دظتُر زیص جایگضیو کصد‬.‫نی تُان ةٌ ظادگی کل فایل را ةسهن اظتفادً از خللٌ رُاىس‬

Open FileName For Input As FileNumber Text1.Text = Input$(LOF(FileNumber), FileNumber) Close FileNumber

:LOF ‫تابع‬

Function LOF(FileNumber As Integer) As Long

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ایو تاةى )‪ (Length Of File‬لُل فایل نُرد ىوص را ةصنی گصداىس‪.‬‬

‫ةاز کصدن فایل ٍا ةٌ لصیق ةایيصی‪0‬‬ ‫اکحص اهكات ةٌ دالیل زیادی نحل ةاال ةصدن ظصيت از لصیق ةایيصی فایل ٍای رُد را ةصای پصدازش ةاز نی کيیم‪ .‬اگص تيَا فایل را ةٌ‬ ‫لصیلٌء ‪ Binary‬ةاز کيیم يهل رُاىسن ه ىُػتو را ٍهضنان نی تُان اىجام داد‪ .‬یکی از رؿُؾیات جالب نتس ةایيصی ایو اظت کٌ‬ ‫نی تُان آن را ندسهد ةٌ فلك رُاىسن یا فلك ىُػتو کصد‪ .‬نهکو اظت االن ةٌ ایو ىکتٌ اٍهیت ىسٍیس هلی اکحص اهكات ةصای ىُػتو‬ ‫ةصىانٌ ٍای کارةصدی ةایس ةٌ ایو ىکات تُجٌ ػُد‪.‬‬

‫‪Open FileName For Binary [Access Read/Write] As #intFileNumber‬‬

‫ةصای راختی کار ػها ٍهان نحال ةاال را ةا رهش ةایيصی ػتیٌ ظازی نی کيم‪0‬‬

‫)(‪Private Sub mnuOpen_Click‬‬ ‫‪On Error GoTo Err_Found‬‬ ‫‪Dim Temp As String‬‬ ‫‪Dim FileNumber As Integer‬‬

‫_ ‪FileName = InputBox("Enter the path for a text file to open",‬‬ ‫)‪"Open", "C:\test.txt", 0, 0‬‬ ‫‪If FileName = "" Then Exit Sub‬‬ ‫‪FileNumber = FreeFile‬‬

‫‪Open FileName For Binary As FileNumber‬‬ ‫))‪Temp = Space$(LOF(FileNumber‬‬ ‫‪Get #FileNumber, , Temp‬‬ ‫‪Close FileNumber‬‬ ‫‪Text1.Text = Temp‬‬ ‫‪Exit Sub‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Err_Found:‬‬ ‫‪MsgBox Err.Description & vbCrLf & Err.Number‬‬ ‫‪End Sub‬‬

‫ةصای رُاىسن از ایو لصیق ػها ةٌ نتغییصی ىیاز داریس کٌ ةٌ اىسازًء لُل آن فایل در آن نتغییص فقای رالی در ىوص گصفتٌ ػسً ةاػس‪.‬‬ ‫ایو کار تُظك تاةى ‪ Space‬اىجام نی ػُد‪.‬‬

‫‪Function Space$(Number As Long) As String‬‬

‫ةًس از ایو کٌ فقای رالی را در نتغییصتان در ىوص گصفتیس نی تُاىیس آن را ةا ندتُیات فایل ةا اظتفادً از دظتُر ‪ Get‬پص کيیس‪.‬‬

‫ةا اظتفادً از دظتُر ‪ Put‬ىیض نی تُاىیس نلساری را در فایل ةٌ ؾُرت ةایيصی ةيُیعیس‪.‬‬ ‫‪Put #FileNumber, , Expression‬‬

‫تابع ‪:Seek‬‬

‫ةا اظتفادً از ایو تاةى نی تُاىیس ةٌ جائی از فایل کٌ دهظت داریس ةصهیس‬

‫‪Function Seek(FileNumber As Integer) As Long‬‬

‫تابع ‪:FileLen‬‬ ‫ایو تاةى لُل كایل را ةصخعب ةایت ةصنی گصداىس‬

‫‪Function FileLen(PathName As String) As Long‬‬

‫نحال‪0‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫ةصای ایو کار اختیاجی ةٌ ةاز کصدن فایل ىساریس فلك کافی اظت آدرس آن فایل را ةيُیعیس‬

‫– ‪http://www.b4c4.com‬‬

‫‪ .‬ةياةصایو نی تُاىیس ةصىانٌء ةاال را ىیض ةٌ‬

‫ؾُرت زیص ةيُیعیس‪0‬‬

‫))‪Temp = Space$(FileLen(FileName‬‬

‫رُب خاال کٌ ةا ایجاد فایل ٍا آػيا ػسیس ةا ىدًُء پاک کصدن آىَا )‪ (Delete‬ىیض آػيا ػُیس‪.‬‬

‫تابع ‪:Kill‬‬

‫)‪Sub Kill(PathName‬‬

‫ایو رهیٌ فایلی را کٌ آدرس آن نؼزؽ اظت را ‪ Delete‬نی کيس‪.‬نحال‪0‬‬

‫”‪Kill “C:\test.txt‬‬

‫تابع ‪:FileCopy‬‬ ‫ایو رهیٌ فایلی را از جائی ةٌ جای دیگص کپی نی کيس‬

‫)‪Sub FileCopy(Source As String, Destination As String‬‬

‫نحال‪0‬‬

‫”‪FileCopy “C:\test.txt” , “D:\New\1.txt‬‬

‫ىکتٌ‪0‬‬ ‫ٍیچگاً فایل ٍای ظیعتم را دظتکاری کٌ ىٌ ختی ةاز ٍم ىکيیس چٌ ةصظس ةٌ ظًی در پاک کصدن آىَا‪.‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫ التتٌ هخیس جان زخهت یکعصی از نفاٍیم اهلیٌء ةاىک‬.‫در ةعیاری از ةصىانٌ ٍایتان ةا فایل ٍا ه ةاىک ٍای الالياتی کار نی کيیس‬ .‫ هلی کار ةا فایل ٍا ریلی آظاىتص ه پص کارةصدتص نی ةاػس‬.‫الالياتی را کؼیسً ه نو ٍم در هكتغ ةٌ کار ةا ةاىک الالياتی نی پصدازم‬ 0‫نحال جالب‬ 0‫تؼزیؽ هجُد یا يسم هجُد یک فایل در ٍارد‬ ‫نو چيس ىُع را ةصایتان نی ىُیعم کٌ ٍهگی اگص فایل نُجُد‬.‫ایو تاةى تاةى فُق الًادً پص کارةصدی اظت ه از چيس لصظق ىُػتٌ نی ػُد‬ .‫ةاػس ارزش درظتی ه در غیص ایو ؾُرت ارزش ىادرظتی را ةصنی گصداىيس‬

Public Function FileExists(filename As String) As Boolean FileExists = (Dir(filename, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "") End Function

Function FileExists(filename$) As Boolean Dim f% ' Trap any errors that may occur On Error Resume Next ' Get a free file handle to avoid using a file handle already in use f% = FreeFile ' Open the file for reading Open filename$ For Input As #f% ' Close it Close #f% ' If there was an error, Err will be <> 0. In that case, we return False FileExists = Not (Err <> 0) End Function

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Public Function FileExists(TheFileName As String) As Boolean 'Sees if the string(file) you specified exists If Len(TheFileName$) = 0 Then FileExists = False Exit Function End If If Len(Dir$(TheFileName$)) Then FileExists = True Else FileExists = False End If End Function

Function fileexists(ByVal sFileName as String) as Boolean Dim TheFileLength as Integer on Error Resume Next TheFileLength = Len(Dir$(sFileName)) If Err or TheFileLength = 0 Then fileexists = False Else fileexists = True End If End Function ‫درظت تصیو ه کُتاً تصیو راً را‬،‫پط ٍهان لُر کٌ نی ةیيیس یک ةصىانٌء ظادً را ةٌ چيس لصیق نی تُان ىُػت ه لی ةایس ةَتصیو‬ .‫اىتزاب کصد‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫آصنائی با )‪Windows API (Application Programming Interface‬‬

‫هكتی نایکصهظافت هیيسهز را ىُػت نلسار يویهی از کس را درهن کتاةزاىٌ ٍایی در هیيسهز كصار داد کٌ ةصىانٌ ىُیعان نی تُاىيس ةٌ آىَا‬ ‫دظتصظی پیسا کييس‪ .‬ایو کٌ ػها از چٌ ةصىانٌ ای )…‪ (VB,C++,‬اظتفادً نی کيیس نَم ىیعت چُن ةٌ راختی نی تُاىیس از ایو کسٍا‬ ‫ةصای كسرتهيستص کصدن ةصىانٌ ٍایتان اظتفادً کيیس‪ .‬در ةعیاری از ةصىانٌ ٍای تدت هیيسهز ٍهیؼٌ فایل اجصائی‬

‫)‪ (.EXE‬خاهی تهام‬

‫کس ةصىانٌ ىیعت‪ .‬اظتفادً از ایو کسٍای از پیغ ىُػتٌ ػسً ةايث كسرت ه کم ػسن خجم ةصىانٌ ٍایهان نی ػُد‪ .‬ایو کسٍا درهن فایل‬ ‫ٍایی ةا پعُىس ‪ .dll‬ىُػتٌ ػسً اىس ه نا ةٌ راختی ةصىانٌ ٍایهان را ةٌ ایو فایل ٍا پیُىس نی دٍیم ‪ Link #‬نی کيیم" ةياةصایو ایو ىکتٌ‬ ‫نَم اظت کٌ از ایو ةٌ ةًس ‪#‬اگص از ‪ dll‬اظتفادً نی کيیس" ختها ةصای اجصای ةصىانٌ ةٌ آن فایل کتاةزاىٌ ای اختیاج داریس‪ .‬التتٌ ایو‬ ‫كقیٌ هیژگی كاةل خهل ةُدن ةصىانٌ ٍا را تدت تاجیص رُد كصار نی دٍس‪# .‬یًيی ىهی تُاىیس نمهئو ةاػیس کٌ آن فایل ‪ٍ dll‬م نُكى‬ ‫اجصای فایل در دیگص کانپیُتص ٍا نُجُد ةاػس"‪.‬ه ةسیو ظان ةصىانٌ ٍای ‪ Setup‬ایجاد ػسىس کٌ تهانی فایل ٍای نُرد ىیاز ةصىانٌ را‬ ‫رهی کانپیُتص نلؿس کپی نی کيس‪ .‬ػایس ةگُئیس ایو فایل ٍا کٌ در تهام هیيسهزٍا ٍعتيس پط چصا‪...‬‬ ‫درظت اظت هلی نهکو اظت ةصىانٌ ىُیعان کسٍای نُرد ىیاز رُد را کٌ در‬

‫‪ٍ dll‬ای هیيسهز ىیعتيس ةصای اظتفادً ٍای ةًسی رُد‬

‫درهن فایل ٍای ‪ dll‬كصار دٍيس‪.‬‬ ‫‪ dll‬نزفف ‪ Dynamic Link Library‬ةٌ نًيی کتاةزاىٌء پیُىسی پُیا نی ةاػس‪.‬‬ ‫رُد ةصىانٌ ٍای هیيسهز ٍم از ایو فایل ٍا اظتفادً نی کييس‪ .‬ایو فایل ٍا در هیيسهز‬

‫‪ xp‬در آدرس‬

‫‪ \WINDOWS\SYSTEM32‬ه در دیگص هیيسهز ٍا در آدرس ‪ \WINDOWS\SYSTEM‬كصار دارىس‪.‬‬ ‫ایو فایل ٍا ةعیار زیادىس هلی ظٌ تا از پص کارةصدتصیو آىَا در زیص آنسً اظت‪.‬‬

‫‪User32.dll‬‬ ‫تُاةى کيتصل ندیك ه هاظك گصافیکی هیيسهز از كتیل نيٍُا‪ ،‬کصظصٍا ه‪ ...‬در ایو فایل نی ةاػس‪.‬‬

‫‪GDI32.dll‬‬ ‫راىٌء ةیؼتص ‪ٍ API‬ای نصةُط ةٌ گصافیک ه تُاةى کيتصل رصهجی ٍای هیيسهز از كتیل ؾفدٌء ىهایغ ه یا ادهات دیگص نحل پصیيتص نی‬ ‫ةاػس‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫‪Kernel32.dll‬‬ ‫دظتصظی ةٌ کارٍای ظمح پائیو ظیعتم يانل در زنیيٌء ظزت افضار ه ىصم افضار را فصاٍم نی کيس‪.‬‬

‫التتٌ فایل ٍای دیگصی ٍم ٍعتيس‪ .‬نحل‪0‬‬

‫‪Advapi32.dll‬‬ ‫یکعصی از ظصهیط ٍای پیؼصفتٌء ‪ API‬ػانل تًساد زیادی از تُاةى ‪ Registry‬ه ‪.Security‬‬

‫‪Comdlg32.dll‬‬ ‫کتاةزاىٌء ‪ API‬ةصای ‪Common dialog‬‬ ‫ةا ‪ Common dialog‬ةیؼتص آػيا نی ػُیس‪.‬‬

‫‪Lz32.dll‬‬ ‫رهتیو ٍای فؼصدً ظازی ‪ 32‬ةیتی‬

‫‪Mpr.dll‬‬ ‫کتاةزاىٌء ‪ API‬ةصای ‪Multiple Provider Router‬‬

‫‪Netapi32.dll‬‬ ‫کتاةزاىٌء ‪ 32‬ةیتی ةصای ػتکٌ‬

‫‪Shell32.dll‬‬ ‫کتاةزاىٌء ‪ 32‬ةیتی ةصای ‪Shell API‬‬

‫‪Version.dll‬‬ ‫کتاةزاىٌء ىعزٌ یا ‪Version‬‬

‫– ‪http://www.b4c4.com‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Winmm.dll ‫کتاةزاىٌء نالتی نسیا ةصای هیيسهز‬

Winspool.drv Print Spooler Interface ‫کتاةزاىٌ ةصای‬

‫ در هیژهال ةیعیک ةایس یکعصی تتسیالت‬API ٌ‫ ةصای تتسیل آن ٍا ة‬.‫ ةتیيیس‬c++ ‫ را ةٌ زةان‬API ‫ةًقی اهكات نهکو اظت اظياد‬ .‫ زیاد ىتصظیس ایيَا را فلك ةصای الاليات يهُنی تان نی گم‬.‫اىجام دٍیس‬

ATOM

ByVal variable as Integer

BOOL

ByVal variable as Long

BYTE

ByVal variable as Byte

CHAR

ByVal variable as Byte

COLORREF

ByVal variable as Long

DWORD

ByVal variable as Long

HWND

ByVal variable as Long

HDC HMENU INT

ByVal variable as Long ByVal variable as Long ByVal variable as Long

UINT

ByVal variable as Long

LONG

ByVal variable as Long

LPARAM

ByVal variable as Long

LPDWORD

variable as Long

LPINT

variable as Long

LPUINT

variable as Long

LPRECT

variable as Type any variable of that User Type

LPSTR

ByVal variable as String

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ByVal variable as String‬‬

‫‪LPCSTR‬‬

‫‪variable As Any use ByVal when passing a string‬‬

‫‪LPVOID‬‬

‫‪variable as Integer‬‬

‫‪LPWORD‬‬

‫‪ByVal variable as Long‬‬

‫‪LPRESULT‬‬

‫‪ByVal Nothing or ByVal 0& or vbNullString‬‬

‫‪NULL‬‬

‫‪ByVal variable as Integer‬‬

‫‪SHORT‬‬

‫‪Sub Procecure not applicable‬‬

‫‪VOID‬‬

‫‪ByVal variable as Integer‬‬

‫‪WORD‬‬

‫‪ByVal variable as Long‬‬

‫‪WPARAM‬‬

‫كتل از کار ةا ‪ API‬الزم اظت چیضٍای دیگصی ىیض ةساىیس‪0‬‬

‫‪Version Compatibility‬‬ ‫نایکصهظافت يادت ةسی دارد کٌ در ىعزٌ ٍای جسیستص هیيسهز نهکو اظت ایو فایل ٍا را ‪ Update‬کيس هلی در ٍیچ جا ةٌ تغییصات‬ ‫اختهالی ىهی پصدازد‪ .‬ةياةصایو نهکو اظت ةصىانٌ ىُیط ایو تغییصات را ةا ‪ Crash‬ةصىانٌ ٍای رُد ه یا ختی ظیعتم رُد نتُجٌ ػُد‪.‬‬ ‫‪File Size‬‬ ‫یکی از ةضرگتصیو ىلاط نيفی اظتفادً از ‪ API‬خجم ةاالی ایو فایل ٍا نی ةاػس‪ .‬نهکو اظت ةصری اهكات از چيس فایل کتاةزاىٌ ای در‬ ‫ةصىانٌء رُد اظتفادً کيیس کٌ از ٍصکسام فلك یک یا ده تاةى آىَا را الزم داریس‪ .‬ه ایو یک نؼکل ةضرگ در زنان ةارگضاری‬

‫‪(Load‬‬

‫)‪ Time‬ػس‪ .‬کٌ ایو زنان نی تُاىس چيس جاىیٌ ةصای ةارگضاری ٍص کسام ةاػس‪ .‬ه دیگص ایو کٌ ػها ةایس آىَا را در ‪ Setup‬ةصىانٌء رُد‬ ‫كصار دٍیس کٌ نهکو اظت ‪ Setup‬ةصىانٌء ػها چيس نگاةایت ػُد ه ایو در خالی اظت کٌ رُد ةصىانٌ تان نهکو ایت ختی ةٌ یک‬ ‫نگاةایت ٍم ىصظس‪ .‬ایو ةضرگتصیو نؼکل در تُزیى ةصىانٌ در ػتکٌ نی ةاػس‪.‬‬ ‫‪Documentation‬‬ ‫کؼف ایو کٌ چصا رهیٌ ٍا در فایل ٍای ‪ٍ dll‬عتيس ه چگُىگی اظتفادً از آىَا ریلی ظزت اظت‪ .‬ػها در ایو كعهت چگُىگی اظتفادً‬ ‫از چيسیو فایل ه رهیٌ را یاد نی گیصیس هلی تًساد ایو فایل ٍا ةعیار زیاد اظت نحال نو چيس ٍضار فایل ‪ dll‬دارم‪ .‬چگُىگی اظتفادً‪ ،‬در‬ ‫ةعیاری از ایو فایل ٍا ةسهن کهک ىُیعيسًء آن ٍا ةعیار ظزت اظت‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ةا هجُد ایو نؼکالت كسرت جادهئی ‪ API‬ایو اظت کٌ آىَا کسٍایی ٍعتيس کٌ ػها اختیاجی ةٌ ىُػتو دهةارًء آىَا ىساریس‪.‬‬ ‫کار ةا ‪ API‬در ‪ vb‬از آىچٌ فکص نی کيیس ةعیار ظادً تص اظت‪ .‬فلك كتل از ٍهٌ چیض ةایس ةٌ ‪ vb‬ةفَهاىیس آن رهیٌ یا تاةًی را کٌ نی‬ ‫رُاٍیس اظتفادً کيیس در کسام فایل ‪ dll‬هجُد دارد‪.‬‬

‫نحًهء فرا خًانی ‪ dll‬ىا در ‪: vb‬‬ ‫فصا رُاىی ‪ٍ dll‬ا در ‪ vb‬ةا اظتفادً از دظتُر ‪ Declare‬نی ةاػس‪ٍ Dll .‬ا را ةایس در كعهت تًصیف )‪ (Declaration‬ةصىانٌ‬ ‫تًصیف کيیس‪#‬در ةاالی ةصىانٌ كتل از ٍص رهیٌ یا تاةًی"‬

‫]”‪[Private/Public] Declare Function/Sub Ex_name Lib “Dll name” [Alias “In_name‬‬ ‫‪(Parameters list & Type) As DataType‬‬

‫در دظتُر ةاال ٍهاىيس تًصیف تُاةى ىُػتو ‪ Private‬یا ‪ Public‬ارتیاری نی ةاػس‪ٍ .‬ص کسام از ایو زیص ةصىانٌ ٍا یا تاةى اىس یا رهیٌ‪.‬‬ ‫پط ةایس یکی از ‪ Function/Sub‬را ةيُیعیس‪ Ex_name .‬ىام رارجی تاةى یا رهیٌ را نؼزؽ نی کيس‪.‬‬

‫”‪ “Dll name‬اظم‬

‫فایل ‪ dll‬ای نی ةاػس کٌ داریم از آن اظتفادً نیکيیم کٌ ختها ةایس درهن ده يالنت ىلل كُل ةاػس‪ .‬تُاةى یا رهیٌ ٍا نی تُاىيس دارای‬ ‫اظم نعتًار یا اظم دارلی ةاػيس کٌ ةا ‪ Alias‬نؼزؽ نی ػُىس‪ .‬در آرص ٍم لیعت ىام ه ىُع پارانتصٍا ه ىُع رصهجی تاةى را ةایس‬ ‫نؼزؽ کيیس‪.‬نحال‪0‬‬

‫"‪Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx‬‬ ‫‪(ByVal uFlags As Long, ByVal dwReserved As Long) As Long‬‬

‫ػایس ةگُئیس نا از کجا ةایس ىدًُء ىُػتو ایو تُاةى را ةساىیم؟‬ ‫درظت اظت هلی ػها ةٌ ایو کار اختیاجی ىساریس چُن ‪ vb‬تهام ایو کارٍا را رُد ةصایتان اىجام نی دٍس‪ .‬ػها فلك کافی اظت ىام تاةى‬ ‫یا رهیٌء نُرد ىیازتان را ةساىیس فلك ٍهیو‪...‬‬ ‫در ‪ vb‬یکعصی ةصىانٌ ٍای جاىتی یا ‪ Add-Ins‬ةصای راختی کار ةصىانٌ ىُیعان تًتیٌ ػسً‪ .‬یکی از ایو ةصىانٌ ٍا ةصىانٌء‬ ‫‪ Viewer‬نی ةاػس کٌ نيتى ةضرگی از تُاةى ‪ API‬نی ةاػس‪.‬‬

‫‪API‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫ةصای اظتفادً از ایو ةصىانٌ در ‪ vb‬از نيُی ‪ Add-Ins‬گضیيٌء ‪ Add-In Manager‬زا اىتزاب کيیس‪ .‬در ایو پيجصً لیعتی از‬ ‫ةصىانٌ ٍای جاىتی را نی ةیيیس‪ .‬رهی گضیيٌء ‪ VB 6 API Viewer‬ده ةار کلیک کيیس ه گضیيٌء ‪ Load On Startup‬را ٍم‬ ‫در كعهت راظت پائیو پيجصً تیک ةضىیس‪.‬‬ ‫خاال دکهٌء ‪ Ok‬را کلیک کيیس‪ .‬رُب خاال دهةارً ةٌ نيُی ‪ Add-Ins‬ةصهیس ه گضیيٌء ‪ API Viewer‬را اىتزاب کيیس‪ .‬در ایو‬ ‫ةصىانٌ نيُی فایل را ةاز کيیس ه اهلیو گضیيٌ یًيی‬

‫‪ Load Text File‬را اىتزاب کيیس ه از پيجصًء ةاز ػُىسً فایل نتيی‬

‫‪ WIN32API.txt‬را ةاز کيیس‪ .‬رُب خاال ةا جعتجُی تاةى نُرد ىوص ه ده ةار کلیک ةص رهی ٍص کسام نی تُاىیس ةٌ ‪ Syntax‬آن‬ ‫تاةى ةٌ راختی دظتصظی داػتٌ ةاػیس ه ٍهچيیو نی تُاىیس آن تاةى را ةٌ ‪ vb‬کپی کيیس‪.‬‬

‫ٍيُز کانال ةصای کار ةا ‪ API‬آنادً ىیعتیس‪ .‬ةٌ ایو ىکات رُب تُجٌ کيیس‪0‬‬ ‫‪Declare‬‬ ‫‪.1‬خالت پیغ فصض ‪ٍDeclare‬ا در ناجُل ٍا ةٌ ؾُرت ‪ Public‬یا يهُنی نی ةاػس ه نی تُان از آىَا در تهام ةصىانٌ ‪#‬پصهژً"‬ ‫اظتفادً کصد‪.‬‬ ‫‪.2‬تًصیف ‪ٍDeclare‬ا در دیگص كعهت ٍا نحل فصم ٍا فلك نی تُاىس ةٌ ؾُرت ػزؿی یا ‪ Private‬اىجام گیصد‪.‬‬

‫‪ALIAS‬‬ ‫‪.3‬اگص ‪ API‬از رػتٌ اظتفادً نی کيس ةایس‬

‫‪ ALIAS‬را ةا خصف ‪ A‬در پایان اظم دارلی آن اظتفادً کيیس‪.‬‬

‫‪W=UNICODE‬‬ ‫‪.4‬فلك هیيسهز ٍای ‪ NT‬ىُع ‪ W‬را پؼتیتاىی نی کييس‪.‬‬ ‫‪.5‬ةًقی از ‪ٍ dll‬ا اظانی غیص نجازی در ‪ vb‬دارىس ه ةایس از ‪ ALIAS‬اظتفادً کصد‪.‬‬

‫‪Variable Type‬‬ ‫‪ .6‬تًساد ریلی کهی از ‪ٍ dll‬ا ىُع ‪ Variant‬را تؼزیؽ نی دٍيس‪.‬‬ ‫‪ ByRef .7‬پیغ فصض ‪ vb‬نی ةاػس‪.‬‬ ‫‪ AS ANY .8‬را ٍم نی تُاىیس ةٌ ييُان ىُع ةٌ کار ةتصیس هلی تهام ةصظی ٍای ىُع را از کار نی اىسازد‪.‬‬

‫‪A=ANSI ,‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪Strings‬‬ ‫‪ API .9‬نًهُال رػتٌ ٍایی ةا لُل جاةت ىیاز دارد‪.‬‬ ‫‪ .10‬پاس کصدن رػتٌ ةٌ ؾُرت ‪ ByVal‬ةٌ نًيی پاس کصدن اػاری گصی ةٌ اهلیو ةایت آن رػتٌ نی ةاػس‪.‬‬ ‫‪ .11‬پاس کصدن رػتٌ ةٌ ؾُرت ‪ ByRef‬ةٌ نًيی پاس کصدن آدرس خافوٌ ةٌ آدرس خافوٌ ای اظت ةٌ اهلیو ةایت دادً در رػتٌ‬ ‫ةصنی گصدد‪.‬‬ ‫‪ .12‬نًهُال رػتٌ ٍا در ‪ vb‬ةٌ ؾُرت ‪ ByVal‬ةٌ ‪ API‬پاس دادً نی ػُىس‪.‬‬ ‫‪ .13‬نًهُال ‪ vb‬ةافصٍای ةیؼتص از ‪ 255‬کاراکتص را اىتوار ىسارد‪.‬‬

‫‪Arrays‬‬ ‫‪ .14‬پاس کصدن کل آرایٌ ةٌ ‪ API‬ةٌ ؾُرت پاس کصدن اهلیو الهان آرایٌ ةا ‪ ByRef‬اىجام نی پشیصد‪.‬‬

‫‪Callback Function‬‬ ‫‪ .15‬از ‪ AddressOf‬ةصای پاس کصدن تاةى تًصیف ػسً تُظك رُدتان اظتفادً کيیس‪.‬‬ ‫‪ .16‬ایو ‪ Procedures‬ةایس در یک ناجُل ‪ .bas‬ةاػيس‪.‬‬

‫‪Passing a null value‬‬ ‫‪ .17‬ةصای پاس کصدن ‪ null‬رػتٌ ةا لُل ؾفص )”“( کار ىهی کيس‪.‬‬ ‫‪ .18‬ةصای ایو کار از جاةت ‪ vbNullString‬در ‪ vb‬اظتفادً کيیس‪.‬‬ ‫‪ .19‬ةصای پاس کصدن ‪ null‬نی تُاىیس ىُع را ةٌ ‪ Long‬تتسیل کيیس ه از &‪ 0‬اظتفادً کيیس‪.‬‬ ‫‪Window Handle‬‬ ‫‪ .20‬یک ‪ Handle‬ػهارً ای اظت کٌ تُظك هیيسهز ةٌ ٍص پيجصً ارتؿاص دادً نی ػُد‪.‬‬ ‫‪ .21‬در ‪ vb‬یک ‪ Handle‬ةا راؾیت ‪ hWnd‬ةصاةص اظت‪.‬‬ ‫‪ٍ Handles .22‬هیؼٌ از ىُع ‪ Long‬نی ةاػيس‪.‬‬

‫‪Callbacks‬‬ ‫‪ .23‬ةًقی از ‪ٍ API‬ا نی تُاىيس یکی از تُاةى ػزؿی ػها را اجصا کييس‪ .‬ایو تُاةى ‪ Callbacks‬ىانیسً نی ػُد‪.‬‬

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

‫– ‪http://www.b4c4.com‬‬

‫‪ vb .24‬از ‪ callbacks‬ةا اظتفادً از تاةى ‪ AddressOf‬اظتفادً نی کيس کٌ ندل تاةى را ةصای اجصا ةٌ ‪ API‬نی دٍس‪.‬‬ ‫‪ .25‬تُاةى ‪ Callback‬ةایس ختها در ناجُل ىُػتٌ ػُىس‪.‬‬

‫‪Subclassing‬‬ ‫‪ .26‬تهام پيجصً ٍا در هیيسهز ةا پصدازش پیغام ٍا ةٌ هظیلٌ ظیعتم يانل کار نی کييس‪.‬‬ ‫‪ .27‬ػها نی تُاىیس چگُىگی پاظذ دٍی یک پيجصً ةٌ یک پیغام را تغییص دٍیس‪.‬‬ ‫‪ .28‬ةصای جلُگیصی از یک پیغام از ‪ SetWindowsLong‬اظتفادً کيیس‪.‬‬

‫‪Miscellaneous‬‬ ‫‪ .29‬رُاص کيتصل ٍا ةایس ةا ‪ ByVal‬پاس ػُىس‪.‬‬ ‫‪ٍ Handles .30‬هیؼٌ ةا ‪ ByVal Long‬پاس نی ػُىس‪.‬‬

‫تُجٌ ةٌ ایو ‪ 30‬ىکتٌ الضانی اظت‪ .‬هكتی ‪ API‬راتًصیف کصدیس ٍهاىيس تُاةى ه رهیٌ ٍای كتلی نی تُاىیس از آىَا اظتفادً کيیس‪.‬‬

‫رُب خاال کانال ةصای اظتفادً از ‪ٍAPI‬ا آنادً ایس‬ ‫یک نحال کارةصدی در ایو زنیيٌ‪.‬‬

‫پخش فایل ىای ‪ Wave‬در ‪:vb‬‬ ‫یک پصهژًء ‪ vb‬را ةاز کيیس ه یک دکهٌ رهی آن كصار دٍیس‪ .‬ظپط ایو کس را ةصای فصنتان ةيُیعیس‪.‬‬

‫‪Option Explicit‬‬ ‫‪'Declares‬‬ ‫"‪Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA‬‬ ‫‪(ByVal lpszSoundName as String, ByVal uFlags as Long) as Long‬‬ ‫‪Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () as Long‬‬ ‫‪'Constants‬‬

http://www.b4c4.com –

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Const SND_SYNC = &H0 'just after the sound is ended exit function Const SND_ASYNC = &H1 'just after the beginning of the sound exit function Const SND_NODEFAULT = &H2 'if the sound cannot be found no error message Const SND_LOOP = &H8 'repeat the sound until the function is called again Const SND_NOSTOP = &H10 'if currently a sound is played the function will return without playing the selected sound Const Flags& = SND_ASYNC or SND_NODEFAULT

Private Sub Command1_Click() Dim i as Long Const SoundFileName as String = "D:\Music\Persian\MARYAM\1.wav"

i = waveOutGetNumDevs() If i > 0 Then 'There is at least one sound device. i& = sndPlaySound(SoundFileName, Flags&) Else MsgBox "You don't have a sound card to play sounds!", vbCritical, "Error" End If End Sub ‫ اگص داػت ةا‬.ٌ‫ چک نی ػُد کٌ کارةص کارت ؾسا دارد یا ى‬waveOutGetNumDevs ‫ ةصای‬.‫ ذکص ػسً اظت پزغ نی ػُد‬SoundFileName

‫در ایو ةصىانٌ اهل ةا اظتفادً از تاةى‬

‫ آن فایل کٌ آدرس آن در جاةت‬sndPlaySound ‫اظتفادً از تاةى‬

.‫اجصای کس در کانپیُتصتان فلك ىام فایل را ةٌ ىام فایل دلزُاٍتان تغییص دٍیس‬

‫ ةصىانٌء زیص آن را ةٌ ؾُرت پیغام ةٌ ػها ىؼان نی‬.ً‫اکحص اهكات ىیاز داریس ةساىیس هیيسهز در چٌ آدرظی در کانپیُتص کارةص ىؿب ػس‬ .‫دٍس‬

http://www.b4c4.com –

Private

‫راٍيهای ةصىانٌ ىُیعان ه داىؼجُیان کانپیُتص‬

Declare

Function

GetWindowsDirectory

Lib

"kernel32"

Alias

"GetWindowsDirectoryA" (ByVal lpBuffer as String, ByVal nSize as Long) as Long

Private Function Winfolder() as String Dim strsave as String strsave = String(255, Chr$(0)) Winfolder = Left$(strsave, GetWindowsDirectory(strsave, Len(strsave))) End Function

Private Sub Form_Load() MsgBox Winfolder End Sub

Related Documents

Vb6
October 2019 20
Vb6
November 2019 14
Vb6
October 2019 10
Vb6
May 2020 25
Krisna-vb6-08
June 2020 5
Krisna-vb6-00
June 2020 5