حتما دانلود کنید.

حجم : ۱.۳ مگا بایت

  Download

خا  می خایم درباره ریجستری در وی بی بنویسم.

رجيستري چيست ؟
سيستم عامل ويندوز تنظيمات سخت افزاري و نرم افزاري خود را بطور مرکزي در يک بانک اطلاعاتي با ساختار سلسله مراتبي ذخيره مي کند که رجيستري نام دارد . رجيستري جايگزيني براي بسياري از فايلهاي پيکربندي INI ، SYS و COM است که در نسخه هاي اوليه ويندوز موجود بود . رجيستري ، سيستم عامل را با مهيا کردن اطلاعات موردنيز براي اجراي برنامه ها و load شدن component ها ، کنترل مي کند .
رجيستري شامل انواع مختلفي از اطلاعات مي باشد مثل :
- اطلاعات سخت افزارهاي نصب شده روي سيستم
- اطلاعات درايورهاي نصب شده روي سيستم
- اطلاعات برنامه هاي نصب شده روي سيستم
- اطلاعات پروتکلهاي شبکه اي مورد استفاده در سيستم
ساختار رجيستري شامل چندين مجموعه رکورد است که داده هاي اين رکوردها توسط بسياري از برنامه ها و اجزاي سيستم عامل خوانده و يا نوشته مي شود .
اجزاي رجيستري
اجزاي تشکيل دهنده رجيستري عبارتند از :
1 – subtree : Subtree ها همانند folder هاي موجود در ريشه يک درايو هارد هستند . رجستری ويندوز داراي پنج subtree مي باشد :
- HKEY_LOCAL_MACHINE : شامل تمام داده هاي پيکربندي براي کامپيوتر مي باشد و شامل 5 key است :Hardware ، SAM ، Security ، Software و System
- HKEY_USERS : شامل داده هاي مربوط به تنظيمات سيستم عامل براي هر user است مثل تنظيمات desktop و محيط ويندوز
- HKEY_CURRENT_USER : شامل داده هاي کاربر فعلي سيستم
- HKEY_CLASSES_ROOT : شامل اطلاعات پيکربندي نرم افزار است مثل داده هاي OLE و داده هاي کلاسهاي متناظر با فايل
- HKEY_CURRENT_CONFIG : شامل اطلاعات مورد نياز براي تنظيمات داريورهاي سخت افزاري و غيره
2 – Key : key ها همانند folder ها و subfolder هاي روي هارد هستند . هر key متناظر با object هاي نرم افزاري يا سخت افزاري مي باشد . subkey ها key هايي هستند که درون يکسري key قراردارند .
3 – Entry : هر key داراي يک يا چند entry است . هر entry داراي سه بخش مي باشد :
- نام Name
- نوع داده اي Data Type : مقدار هر entry يکي از انواع داده هاي زير است :
REG_DWORD ، REG_SZ ، REG_EXPAND_SZ ، REG_BINARY ،
REG_MULTI_SZ ، REG_FULL_RESOURCE_DESCRIPTOT
- مقدار Value

نکته 1 : براي مشاهده رجيستري و اعمال تغييرات در آن ( لطفاً اگر هيچ تجربه اي در تنظيم کردن رجيستري نداريد اطلاعات آنرا تغيير ندهيد ) ، مي توانيد از برنامه regedit.exe و يا regedt32.exe موجود در ويندوز استفاده کنيد . براي اينکار کافيست نام برنامه را در کادر Run وارد کنيد .

نکته 2 : در قسمت دوم اين مقاله کلاسي براي خواندن و نوشتن از/به رجيستري در ويژوال بيسيک خواهم نوشت و سپس نمونه اي از کاربردهاي نوشتن يکسري اطلاعات خاص در رجيستري را خواهيم ديد .

اگه دوست دارید این موضوع رو(که خیلی هم جالبه) ادامه بدیم باید نظر بدید. تا نظرات به 11 تا نرسه ادامه نخواهیم داد. Ok

 خوب، امروز می خوام درباره MS-Agent که "مرلین"  بهتون سلام و خوش آمد گویی کرد با استفاده از همین ActiveX درست شده. می خوام کلیات کار با این اکتیو ایکس جالب رو تو VB براتون بگم و برای استفاده اون تو وب از نرم افزار MASH به این آدرس: http://www.bellcraft.com/mash استفاده کنید.

خوب برای شروع اول ببینید که اکتیو ایکسی به نام Microsoft Agent Control 2.0 دارید یا نه (منوی Project  و سپس Components و بعد اونجا بگردین). در صورتی که Office رو دارین احتمالا این کنترل رو هم دارین چون Office Assistant هم از این کنترل استفاده می کنه. یه راه تشخیص ساده ترهم اینه که اگه مرلین رو تو این وبلاگ دیدین مشکلی ندارین وگرنه به آدرس: http://activex.microsoft.com/activex/controls/agent2/MSagent.exe برین و بعد مرلین رو از اینجا: http://www.microsoft.com/msagent/downloads/user.asp پیدا کنید و دانلود کنین. در صورتی که موقع حرف زدن مرلین صدایی نمی یاد و فقط نوشته میشه یه قسمتی به نام Text2Speech رو هم ندارین که باید از همون آدرس بالا اونو با زبان دلخواهتون دانلود کنین.

خوب حالا این کنترل Microsoft Agent Control رو به پروژه اضافه کنید (همونطور که بالا گفتم) و بعد یه کنترل روی فرمتون قرار بدین. حالا یه Command Button هم رو فرمتون ایجاد کنین و این کدها رو در رویداد Click  این دکمه بنویسید:

Private Sub Command1_Click()

Dim Merlin As AgentObjectsCtl.IAgentCtlCharacter

Agent1.Characters.Load "Merlin"

Set Merlin = Agent1.Characters.Character("Merlin")

Merlin.Show

End Sub

خوب حالا پروژه رو اجرا کنین و رو دکمه کلیک کنید. چی می بینید؟ (اگه error میبینید تقصیر من نیست، احتمالا Merlin رو ندارین. از آدرس بالا دانلودش کنین.)

خوب تو سطر دوم یه متغیر به نام مرلین از نوم کاراکتر MS-Agent تعریف کردیم و بعد کاراکتر مرلین رو لود کردیم. و بعد متغیر مرلین رو به کاراکتر مرلین ست کردیم تا تو سطر بعدی به جای اینکه بنویسیم Agent1.Characters.Character(“Merlin”).Show فقط بنویسیم Merlin.Show. این کارمونو آسون میکنه. خوب Merlin.Show هم که مشخصه، شاخ شمشاد رو رو صفحه نشون میده. حالا بذارین یه ذره مرلین رو حرکت بدیم، به حرف واداریم و متحرک کنیم، پس کد Command1_Click رو به صورت زیر تغییر بدین:

Private Sub Command1_Click()

Dim Merlin As AgentObjectsCtl.IAgentCtlCharacter

Agent1.Characters.Load "Merlin"

Set Merlin = Agent1.Characters.Character("Merlin")

Merlin.Show

Merlin.MoveTo Screen.Width / 2 / 15 - Merlin.Width / 2, Screen.Height / 2 / 15 - Merlin.Height / 2

Merlin.Speak "Helllo! Now, I'm Speaking with you!"

Merlin.Play "Greet"

End Sub

خوب سطر اول تا پنجم که همون قبلیاست. تو خط ششم مرلین رو حرکت دادیم به وسط صفحه (تقسیم بر 15 به این خاطره که اندازه صفحه به Twip بود و با تقسیم اون بر 15 بر حسب Pixel بدست میاد.). تو خط هفتم مرلین جمله تو گیومه رو میخونه (اگه Text2Speech داشته باشین) و تو خط آخر یک انیمیشن اجرا میشه که مرلین تعظیم میکنه.

خوب تا اینجا با کلیات MS-Agent آشنا شدین.

خوب الان می خوایم با هم یک برنامه ساده بنویسیم تا لیستی از انیمیشنهای قابل اجرای یک کاراکتر مثل مرلین رو بدست بیاریم و اونا رو اجرا کنیم. پس یک پروژه جدید باز کنین و یک List Box روی فرم قرار بدین و این کد رو وارد کنین:

اول تو قسمت General کد زیر رو بنویسید:

Dim Merlin As AgentObjectsCtl.IAgentCtlCharacter

وبعد:

Private Sub Form_Load()

Agent1.Characters.Load ("Merlin")

Set Merlin = Form1.Agent1.Characters("Merlin")

Merlin.Show

For Each anim In Merlin.AnimationNames

List1.AddItem anim

Next

End Sub

Private Sub List1_Click()

Merlin.StopAll

Merlin.Play List1.List(List1.ListIndex)

End Sub

خوب تا خط چهارم رو که توضیح دادم. مرلین رو لود می کنیم و یک متغیر بهش ست می کنیم تا کار راحتتر شه. و بعد مرلین رو رو صفحه نمایش می دیم. تو خط پنجم، از دستور For Each که برای Enumeration یا لیست گرفتن استفاده میشه استفاده کردیم و به ازای هر انیمیشن در مجموعه انیمیشنهای ساپورت شده کاراکترمون یعنی مرلین، یک آیتم با نام انیمیشن رو به لیستمون اضافه میکنه. در رویداد کلیک لیستمون هم اول به مرلین گفتیم که آب دستته بذار زمین! یعنی هر کاری داری می کنی دست نگه دار. بعد انیمیشن کلیک شده در لیست رو Play کردیم. خوب حالا پروژه رو اجرا کنین و روی هر کدوم از انیمیشن ها کلیک کنین. جالبه نه؟!

خوب حالا خصوصیات و متد های مهم آبجکت کاراکتر رو براتون میگم:

·                  Balloon که خودش یک آبجکته و اگه یه نقطه بذارین خصوصیاتش نشون داده میشن. با این آبجکت می تونین خصوصیات بالنی که موقع حرف زدن کاراکتر بالای سرش ظاهر میشه و متن رو توش می نویسه رو تغییر بدین. مثلا رنگشو عوض کنین و...

·                  Commands که برای Speech Recognition یا تشخیص صدا استفاده میشه و شرحشو بعدا میدم (چون الان Speech Recognition Engine رو ندارم و باید دانلودش کنم!).

·                  متد Gesture At که برای اشاره کردن کاراکتر به یک نقطه خاص استفاده میشه و دو پارامتر X و Y رو بر حسب پیکسل میگیره و به اون نقطه از صفحه اشاره میکنه. این متد رو امتحان کنید تا متوجه بشین!

·                  Height و    Width که معلومه اندازه کاراکتر رو مشخص میکنه. با تغییر این خصوصیات میتونین از مرلین یه کوتوله بسازین! امتحان کنین!

·                  Hide هم که مشخصه. مخالف Show. باعث مخفی شدن کاراکتر میشه.

·                  IdleOn که اگه True باشه، کاراکتر یه سری حرکات مثل خمیازه کشیدن و ... رو در زمان بیکاری انجام میده.

·                  متد MoveTO که باهاش می تونین مرلین رو رو صفحه حرکت بدین. علاوه بر مختصات یه پارامتر سرعت هم دره که باهاش سرعت حرکت رو میتونین تعیین کنید.

·                  Play رو هم که برای انجام انیمیشن استفاده کردیم.

·  Speak که برای صحبت کردن کاراکتر به کار میره و بعد از این متد متن مورد نظر رو تو گیومه می نویسیم. این متد چند تا گزینه هم داره که به این شرحن:

\Chr\ که میتونه مقدار “Monotone” و یا “Whisper” رو بگیره. اولی باعث تولید صدایی شبیه به آدم آهنی میشه و دومی مثل در گوشی صحبت کردن!

\Ctx\ که میتونه دو مقدار "”Email و “Address” رو بگیره و اولی برای خواندن آدرس Email و دومی برای خواندن آدرس Web Site استفاده میشه.

\Pit\ که برای کنترل صدا به کار میره. صدای بم که از 50 شروع میشه و صدای زیر که به 400 میرسه (البته 400 خنده دار میشه!)

\Spd\ که برای کنترل سرعت خوندن متن به کار میره. میتونه بین 50 تا 250 باشه.

\Vol\ که مشخصه! بلندی صدا رو تعیین میکنه. مقدارش بین 1 تا 65535  میتونه باشه.

خوب حالا این کد رو تو رویداد Click  یک Command Button بنویسید و امتحانش کنید. میتونین مقدارهارو تغییر بدین تا متوجه کارشون بشین (البته در صورتی که از پروژه قبلی استفاده می کنید دیگه لازم نیست کاراکتر رو لود کنین):

Agent1.Characters.Load "Merlin"

Set Merlin = Form1.Agent1.Characters("Merlin")

Merlin.Show

َMerlin.Speak "\Vol=65535\\Pit=205\\Spd=171\\Chr=""Whisper""\\Ctx=""Address""\ehsanfa.persianblog.com"

·                  آخرین متدها Stop و Stop All باعث توقف عمل یا اعمال در حال انجام میشن. (در صورتی که می خواین فقط یک عمل متوقف بشه Stop ولی در صورتی که می خواین کل اعمال متوقف بشه Stop All رو استفاده کنین.)

خوب امیدوارم از این مطالب خوشتون اومده باشه. تو قسمت بعدی Speech Recognition و یک نمایش کوتاه رو می نویسم و بعد یک موضوع جدید که هنوز تصمیم نگرفتم رو شروع میکنم. پس منتظر باشین و صدویک  البته نظر بدین!

اگه در این مورد سئوالی بود در صورت دونستن در خدمتیم.

برنامه های مربوط به این موضوع رو تا چند روز دیگه براتون می زارم . نزدیک عید و هزار تا کار و شلوغی سر . و اگه وقت نشه دیگه می فته واسه بعد از عید.

البته  سال 85  هم با اربعین حسین شروع می شه .

                                                        عیده و امسال عیدی ندارم.

موفق باشید .

خواندن از فايل :

1 - دستور Input : توسط دستورهای Input و Line Input می توان محتوای فايلهای متنی و باينری را خواند .
دستور Input به دو صورت بکار می رود :
Filenumber,ReadData # Input
ReadData=Input(Charnum,Filenumber)
دستور اول کل يک فايل را خوانده و در متغير ReadData قرار می دهد . دستور دوم ، تعداد Charnum بايت از فايلی با شماره Filenumber را خوانده و در متغير ReadData قرار می دهد .
اين دو دستور تمام کاراکترهای موجود در فايل را می خوانند . برای اينکه بتوان فايل را خط به خط خواند ، از دستور Line Input استفاده کنيد :
 Line Input #Filenumber,ReadData
البته از دستور Line Input بيشتر برای خواندن فايلهای متنی استفاده می شود زيرا ممکنست در فايل باينری هيچ کاراکتر انتهای خط ( CRLF ) وجود نداشته باشد و يکباره کل فايل خوانده شود .

۲ - دستور Get : از اين دستور برای خواندن فايلهای باينری با دسترسی تصادفی ( Random Access ) استفاده میشود :
Get #Filenumber,[Recordnum%],ReadData
اين دستور رکورد شماره Recordnum را از فايلی با شماره Filenumber می خواند و در متغير ReadData قرار می دهد . علامت کروشه نشان می دهد که پارامتر Recordnum اختياری است و در صورتيکه ذکر نشود داده ها از رکورد بعدی فايل ( جائيکه اشاره گر فايل آنجا قرار دارد ) خوانده می شوند .

نوشتن در فايل :
۱ - دستور Print : توسط اين دستور می توان اطلاعاتی را در فايل قرار داد :
Print #FileNumber,WriteData
دستور فوق محتويات متغير WriteData را در فايلی با شماره FileNumber می نويسد . بوسيله دستور Print می توان اطلاعات را بصورت خط به خط در فايل نوشت برای مثال :
Print #1,"Hello Visual Basic"+Vbcrlf
عبارت Vbcrlf نشان دهنده کاراکتر انتهای خط ( CRLF ) در ويژوال بيسيک می باشد .

۲ - دستور Put : اين دستور برای نوشتن داده ها در فايلهای باينری با دسترسی تصادفی بکار می رود :
FileNumber,[Recordnum],WriteData # Put
اين دستور محتويات متغير WriteData را در رکورد شماره Recordnum قرار می دهد .

تعيين محل رکورد در فايلهای با دسترسی تصادفی :

برای منتقل کردن اشاره گر فايل به يک رکورد در يک فايل باينری با دسترسی اتفاقی ، از دستور Seek استفاده می شود . اين دستور محل يک بايت را در فايل می گيرد و اشاره گر فايل را در آنجا قرار می دهد بنابراين دستورات Put و Get می توانند با اين رکورد کار کنند :
 FileNumber,RecordNumber #  Seek

تشخيص انتهای فايل :
برای اينکه متوجه شويم به انتهای يک فايل رسيده ايم از دستور EOF استفاده می کنيم . اين دستور يکی از مقادير True يا False را بر می گرداند که نشان می دهد به انتهای فايل رسيده ايم يا نه . از اين تابع در حلقه های Do-While استفاده می شود :
Do While Not (EOF(FileNumer))x
.
.
.
Loop
حلقه فوق تا زمانيکه فايل موردنظر به انتها نرسيده باشد اجرا خواهد شد .

بدست آوردن طول يک فايل :

بوسيله دستور LOF می توان طول محتويات يک فايل را بدست آورد :
FileSize=LOF(FileNumber)

بدست آوردن محل اشاره گر فايل :
توسط دستور Loc می توان محل جاری اشاره گر فايل را بدست آورد . اجرا شدن اين دستور محل اشاره گر را تغيير نمی دهد :
FilePosition=Loc(FileNumber)

قسمت سوم کار با فايل در ويژوال بيسيک را تا یکی دو روز آینده بخوانيد .

موفق باشید.

سلام

از امروز اموزش وی بی رو آغاز می کنیم.

فایل ها

مقدمه
بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد .
بطور کلی فايلها بر دو نوع هستند :
1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی و برخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند .
۲ - فايلهای باينری Binary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارند مانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره
ويژوال بيسيک می تواند با هر دو نوع فايل کار کند .
حالا کم کم بریم رو برنامه نویسی.
چطور فایل رو باز کنیم
قبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدا بايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام می شود . فرمت کلی اين دستور بصورت زير است :

Open filename [For mode] [Access access][lock Type] As filenumber [Len=reclen]

[ پارامترهای داخل کروشه اختياری هستند . ]
filename : نام فايلی است که می خواهيم آنرا باز کنيم .
mode  :     حالت باز کردن فايل است . اين حالتها عبارتند از :
- Input :   فايل بعنوان ورودی باز می شود .
- Output : فايل بعنوان خروجی باز می شود .
- Binary : فايل از نوع باينری باز می شود .
- Append : فايل طوری باز می شود که بتوان به انتهای آن چيزی اضافه کرد .
- Random : نوع دسترسی به فايل را مشخص می کند .

  انواع دسترسي ها عبارتند از :
- Read : خواندن فايل
- Write : نوشتن در فايل
- ReadWrite : خواندن و نوشتن فايل
lock Type :  نوع دسترسی ساير برنامه ها به اين فايل را مشخص می کند . انواع دسترسيها عبارتند از :
- Shared : دسترسی اشتراکی(برای همه کاربران)
- Lock Read :  این مقدار به کاربرانی که فایل را برای خواندن بازکردند اجازه دسترسی می دهد
- Lock Write : این مقدار به کاربرانی که فایل را برای نوشتن بازکردند اجازه دسترسی می دهد

- Lock Read Write  : این مقدار فقط به کاربرانی که فایل را برای خواندن و نوشتن بازکردند اجازه دسترسی می دهد. برای بقیه کاربران فایل قفل است.

filenumber عددی است که ويژوال بيسيک از آن برای دسترسی به فايل استفاده می کند .اين عدد بايستی برای هر فايل منحصر بفرد و بين ۱ تا ۵۱۱ باشد . برای بدست آوردن اولين شماره آزاد می توان از تابع FreeFile استفاده کرد .
reclen :طول بافر فايل است . اين عدد بايستی از ۳۲۷۶۷ کو چکتر باشد .

در صورتی که فايلی که توسط filename مشخص شده وجود نداشته و فايل برای Append ، Binary ، Output و يا Random باز شده باشد در اينصورت يک فايل جديد با اين نام ساخته می شود .
در صورتی که فايل بصورت باينری باز شده باشد پارامتر Len ناديده گرفته می شود .

حالا که تونستیم فایل رو باز کنیم بعد از پایان کار هم باید فايل را ببندیم.

چگونگی بستن فایل
پس از پايان کار با فايل برای بستن آن از دستور Close استفاده می کنيم . فرمت اين دستور بصورت زير است :

Close #filenumber

نکته : دستور Close بدون هيچ پارامتری تمام فايلهای باز را می بندد .

کارکردن با دايرکتوری
۱ - گرفتن Dir : توسط دستور Dir می توان نام فايلهای موجود در يک دايرکتوری را بر اساس پارامترهايي که به آن می دهيم پيدا کنيم . برای مثال :

("Myfile=Dir$("c:\text\*.txt

دستور فوق نام اولين فايل موجود در دايرکتوری C:\TEXT را که پسوند آنها txt باشد در متغير Myfile قرار می دهد . اگر دستور فوق را بدون پارامتر مجدداً اجرا کنيم نام دومين فايل برگرداننده می شد و الی آخر.
Dir دارای يک پارامتر اختياری است که نوع فايلهای مورد نظر را نيز می توان با آن مشخص نمود . مثال :

Myfile=Dir$("c:\text\*.txt",vbNormal)

مقادير ممکن اين پارامتر عبارتند از :
vbNormal ، vbHidden ، vbSystem ، vbDirectory
۲ - تغيير دايرکتوری : برای تغيير دايرکتوری از دستور ChDir استفاده می شود مثال :

"ChDir "c:\windows\system32

۳ - تغيير درايو : برای تغيير درايو از دستور ChDrive استفاده می شود مثال :

:"ChDrive "E

۴ - ساخت دايرکتوری : برای ايجاد دايرکتوری جديد از دستور MKDir استفاده می شود مثال :

"MKDir "c:\MyFolder

۵ - حذف دايرکتوری : برای حذف دايرکتوری از دستور RmDir استفاده می شود مثال :

"RmDir "C:\MyFoler

منتظر نمونه برنامه ها باشید.

تا بعد

خداحافظ

سلام

از حالا می خام آموزش وی بی رو شروع کنم.

من نمی خام بازم همون چیزایی رو تکرار کنم که توی همه وب سایت یا وبلاگ ها نوشته شده (مثل خواص فرم و  وtext box …) . خیلی بهتره که شما با نظراتتون به من کمک کنید تا این آموزش ها رو شروع کنیم.

البته خیلی بهتره که  با هم قراره بزاریم که  این آموزش های وی بی  رو به کمک هم توی این وب قرار بدیم. چون این طور خیلی بهتره .

من می خام فردا از کار با فایل در وی بی شروع کنم اگه کسی نظری داشت در خدمتیم.

فعلا خداحافظ