آموزش ویژوال بیسیک 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