^سلام

^{دوتا ساعت دیجیتال برای دانلود گذاشتم ، اولیش که خیلی قشنگه (وخیلی هم ساده) دومیش هم  از label برای نشان دادن ساعت استفاده کردم که از قبلی هم ساده تره! امیدوارم خوشتون بیاد. اگه بشه در پست بعد آموزش ساختن و باز کردن فایل رو میزارم، نظرتون چیه؟}

 برای دانلود روی ادامه مطلب کلیک کنید.

^سلام

^{این برنامه از نظر ظاهر برنامه قشنگیه از اسمش هم معلومه که چیکار میکنه چیز جالب این برنامه این هستش که در این برنامه از Agent  استفاده کردم ( همون انیمیشن هایی که در search ویندوز هست) البته من در این برنامه از این  Agentها استفاده کردم: merlin, dot,electra , f1 , hanz , offcat , rocky اگه از  Agentهایی به غیر از  Agentهایی که الان دیدید استفاده کنید برنامه error میده چون کدهای برنامه رو طوری نوشتم که فقط با اینها عکس العمل نشون بده . اگه میخواین همه انیمیشن های یک Agent را ببینید میتونید وقتی برنامه در حال اجراست روی Agent (همون انیمیشنه) کلیک کنید تا یه فرم دیگه باز شه تا همه انیمیشن ها رو ببینید( این قسمت از برنامه را از این سایت تو برنامه قرار دادم http://vb.blogfa.com/) البته اینجا دیگه از همه Agent ها میتونید استفاده کنید.در لینک دوم هم چند تا Agent برای دانلود قرار دادم. توی Office 2003 هم چندتا Agent هست.
یادتون باشه برای اجرای صداهای این برنامه باید در محلی که فایل اجرایی این برنامه را قرار دادید پوشه Media را هم کپی کنید(پوشه Media را می توانید درپوشه سورس این برنامه پیدا کنید).
(حتتتتتتتتتتتتتتما این برنامه  را دانلود کنید اگه حالشو دارید یه نظر هم بدید!).}

^{برای دانلود روی ادامه مطلب کلیک کنید.}

سلام

در این این برنامه که شبیه یک screen saver  هست یک label در طول فرم حرحت میکنه که از یک طرف فرم خارج و از طرف دیگه وارد فرم میشه و یکسری تنظیمات مثل عوض کردن font ، نوع حرکت و ... به این برنامه اضافه شده. با نگاه به سورس این برنامه مبینید که چه برنامه ساده ایه.

     برای دانلود روی ادامه مطلب کلیک کنید.

سلام

این دفعه یه برنامه جالب برای دانلود گذاشتم (یه بازی!) توی این برنامه چهارتا ماشین با هم مسابقه میدن و به طور تصادفی یکیشون برنده میشه

 برای دانلود روی ادامه مطلب کلیک کنید.

سلام

 یه برنامه قشنگ!

شما  با ین برنامه میتونید فرم رو گلبارون کنید! البته توی تنظیمات این برنامه شما میتونید اسم خودتون رو وارد کنید تا اسم شما فرم رو گلبارون کنه!(اسمتون به طور تصادفی در نقاط مختلف فرم چاپ میشه) .

یه چیز جالب دیگه هم داره اونم اینه که شما با استفاده از تنظیمات این برنامه میتونید فرمتون رو شفاف کنید( حتما این برنامه را دانلود کنید)

برای دانلود روی ادامه مطلب کلیک کنید. 

سلام

اگه میخواید stayle windows xp رو توی برنامتون بزارید کارهای زیر رو انجام بدید:

شروع کار: ابتدا کد زير را توسط يک ويرايشگر متنی همچون NotePad ذخيره کنيد و نام آن بصورت زير تغيير دهيد: exe.manifest.نام برنامه (توجه کنيد که حتما نام فايل اجرايی و نام اين فايل يکسان باشند(

 کد:

xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0"
>
type="win32"
processorArchitecture="*"
version="6.0.0.0"
name="mash"
/>
XP Style For Visual Basic

  
                 type="win32"
           name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
           language="*"
           processorArchitecture="*"
         publicKeyToken="6595b64144ccf1df"
      />
  

برای لينک شدن اين فايل با فايل اجرايی مورد نظر کافی است اين کد را در برنامه خود قرار دهيد:

   کد:

Option Explicit
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long

Private Sub Form_Initialize()
    InitCommonControls
End Sub

تذکر:

• برای اضافه کردن قابليت XP Style به خود برنامه ویژوال بیسیک، کافی است نام فايل Style را به vb6.exe.manifest تغيير داده و آن را در شاخه نصب برنامه کپی کنيد.
• بهيچ عنوان المان های فايل Style را تغيير ندهيد، مگر اينکه با اينگونه توابع آشنايی کامل داشته باشيد.

منبع: http://fa.javad4u.net/component/option,com_frontpage/Itemid,61/

رویدادهای (events) مربوط به TextBox

بعد از تنظیم خصوصیات اشیاء در هنگام اجرای برنامه اتفاقهایی بر سر اشیاء می افتد که این اتفاقها باعث اجرای برنامه ای که در آن رویداد نوشتیم می شود.

رویداد keypress

اگر ما بخواهیم در هنگام اجرای برنامه عبارتی را در text box تایپ کنیم که تمام حروف آن بزرگ باشد باید در رویداد keypress مربوط به textbox کد مورد نظر را تایپ کنیم.

برای این کار یک پروژه جدید ایجاد کنید و یک textbox در فرم قرار دهید و بر روی textbox دوبار کلیک کنید تا کدمون رو در آن تایپ کنیم. رویداد keypress را انتخاب کنید و کد زیر را بنویسید:

Keyascii = asc (ucase(chr(keyascii)))

حالا برنامه را اجرا کنید و یه چیزی در textbox تایپ کنید می بینید که تمام حروف آن به صورت حروف بزرگ نوشته می شوند ( حتی اگر caps lock کیبوردتون هم خاموش باشه).

تابع msgbox ()

این تابع یک نوع ارتباط بین برنامه و کاربر است شما با استفاده از این تابع می تونید اطلاعاتی را به کاربر بدهید یا اینکه از او سوال کنید و یا اینکه پیام خطا و تذکر را به کاربر نشان دهید.

شکل کلی تابع msgbox() :

یک متغیر از نوع صحیح = msgbox ("prompt"[,buttons][,title])

در این تابع آرگومان prompt اجباری و آرگومانهایی که در داخل [ ] قرار گرفته اند اختیاری هستند.

آرگومان prompt برای قرار دادن متن پیامتان است که داخل " "  قرار می گیرد. آرگومان buttons برای قرار دادن دکمه ها و آیکونهایی که میخواهید در پیامتان بذارید است و title عنوان پیامتان است.

مثال:

برنامه ای بنویسید که با کلیک کردن روی یک دکمه پیامی به نمایش درآید.

برای این کار یه پروژه جدید بیارید و یک دکمه (command) در فرم قرار دهید و کد زیر را در آن تایپ کنید:

Msgbox ("Microsoft visual basic 6")

البته شما میتونید به جای  Microsoft visual basic 6 یه چیز دیگه تایپ کنید. برنامه را اجرا کنید و دکمه را فشار دهید.

رویداد lostfocus

اگر شما بخواهید که کاربر در textbox تنها حروف یا اعدادی که شما تعین کردید را وارد کندباید از رویداد lostfocu استفاده کنید مثلا اگر شما بخواهید که کاربر فقط اعداد 1 تا 9 را در textbox وارد کند وقتی که کاربر چیز دیگری وارد کند خصوصیت setfocus دوباره مکان نما را به textbox  بر می گرداند.

مثال:

برنامه ای بنویسید که که کاربر فقط a تا z و 1 تا 9 را بتواند در textbox وارد کند.

اول دوتا textbox روی فرم بذارید بعد کدهای زیر را در textbox 1 وارد کنید:

Private Sub Text1_LostFocus()

Dim i As Integer

Dim s As String

Dim n As Integer

For i = 1 To Len(Text1.Text)

    s = Mid(Text1.Text, i, 1)

    If (s < "a" Or s > "z") And (n < "1" Or n > "9") Then

      MsgBox "لطفا مقداری بین 1 تا 9 و  a تا z  وارد کنید", 48, "توجه"

        Text1.SetFocus

    Exit For

    End If

Next i

End Sub

خداحافظ

سلام

بریم سراغ درس سوم

خصوصیات اشیاء

وقتی که شما پروژه ای ایجاد می کنید اولین شیئی که می بینید فرم می باشد. یکی از خصوصیتهای فرم خصوصیت name می باشد که در همه اشیاء وجود دارد دیگر خصوصیتهای فرم، caption ،  backcolor ، font ،  borderstayle ، fillcolor  و... می باشد.

بعد از اینکه خصوصیات رو تنظیم کردید میتونید کدهای مربوط به برنامتون رو بنویسید. از منوی view گزینه code رو کلیک کنید تا پنجره کد نویسی باز شود.

در بالای پنجره کد نویسی و سمت چپ آن نام شئ ها را میتوانید ببینید که فعلا فقط شئ form وجود دارد و در سمت راست تمام رویدادهایی برای فرم وجود دارد را می توانید ببینید از جمله رویدادهای فرم click ، load ، unload ، dblclick و... می باشد.

مثلا اگه شما بخواین رویداد click را انتخاب کنید و کدهای مورد نظرتون رو در این قسمت(بین private sub form_click و end sub) وارد کنید و برنامتون رو اجرا کنید وبر روی فرم click کنید کدهایی که در رویداد click  وارد کردید اجرا می شود.

برای تغییر خصوصیت یک شئ از طریق کد باید به صورت زیر عمل کنید:

مقدار جدید = خصوصیت.نام شئ

برای مثال فرض کنید نام (name) یک فرم computer و caption آن test می باشد، برای تغییر caption آن مثلا به word باید به این صورت عمل کنید:

Computer.caption = "word"

حالا ما میخوایم برنامه ای بنویسیم که با وارد کردن کلمه ای در text box و  click بر روی فرم ، caption فرم به همون کلمه ای که در text box وارد کردیم تبدیل شود و با دوبار کلیک caption شئ label به کلمه ای که در text box  وارد کردیم تغییر کند.
اول یک پروژه جدید standard.exe ایجاد کنید و بر روی فرم یک  text box و یک label قرار دهید . بر روی فرم دوبار کلیک کنین تا پنجره مربوط به کد آن باز شود و از بالای سمت راست پنجره کد رویداد click را انتخاب کنید و کد زیر را در آن تیپ کنید:

Form1.caption = text1.text

حالا رویداد dblclick را انتخاب کنید و کد زیر را در آن تایپ کنید:

Label1.caption = text1.text

برنامه را اجرا کنید و در text box کلمه ای را وارد کنید و بر روی فرم کلیک کنین و نتیجه رو ببینید(دیدید!) حالا بر روی فرم دوبار کلیک کنید و نتیجه اینم ببینید( جالب بود نه!)

دیگه واسه امروز کافیه .

تمرین(مشق شب!):

برنامه ای بنویسید که یک command و یک text box داشته باشد و وقتی که بر روی command کلیک کردیم caption مربوط به command به نوشته داخل Text box  تبدیل شود.

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

انواع داده

انواع داده هایی که در visual basic مورد استفاده قرار می گیرند به دو دسته زیر تقسیم می شن:

·         داده های عددی

·         داده های غیر عددی

داده های عددی

داده های عددی در ویژوال بیسیک به صورت جدول زیر است:

داده های غیر عددی

داده های هستند که برنامه نویس از آنها به عنوان عملیات ریاضی استفاده نمی کند و برای عملیات منطقی و... از آنها استفاده می کند.
در جدول زیر داده های غیر عددی رو ببینید:

در داده رشته ای (string) باید داده ها رو بین دو علامت ("  ") قرار بدید مثل:

"My name is reza"

طریقه تعریف متغیر ها

برای تعریف یک متغیر 3 عمل زیر را انجام می دهیم:

·         نام گذاری متغیر

·         تعیین نوع متغیر

·         تعیین مقدار اولیه

تعریف متغیر به صورت زیر می باشد:

Dim نام متغیر [as نوع متغیر]

مثال:

Dim R as integer

نام گذاری متغیر ها

نام گذاری متغیر ها باید به صورتهای زیر باشد:

·         نام متغیر باید با یکی از حروف الفبا شروع شود.

·         نام متغیر بیشتر از 255 کارکتر نباشد.

·         در بین حروف نام متغیر نباید فاصله بگزارید.

·         اگر خواستید در بین حروف فاصله بزارید از under line استفاده کنید.

·         نام متغیر را همنام با توابع vb انتخاب نکنید.

·         نام متغیر در طول برنامه تغییر نکند یا تکراری نباشد.

متغیر های رشته ای

در vb به دو صورت میشود متغیر رشته ای تعریف کرد:

·         با طول ثابت

·         با طول متغیر

برای ایجاد متغیر رشته ای با طول ثابت به صورت زیر عمل می کنیم:

Dim نام متغیر as string* طول متغیر

مثل:

Dim ab as string*10

در این مثال متغیر رشته ای با نام ab و طول 10 تعریف شده است که اگر در این متغیر مقداری وارد شود که بیشتر از 10 کارکتر داشته باشد فقط 10 کارکتر اول را نگه می دارد واگر کمتر 10 کارکتر باشد بقیه خانه ها خالی خواهند ماند.

امیدوارم مطالب این وبلاگ بدردتون خورده باشه. اگه سوالی داشتین در قسمت نظرات بپرسید تا بعد خداحافظ.

سلام  از امروز درس اول رو با هم شروع میکنیم

ایجاد پروژه جدید

یک پروژه مجموعه ای از سندها یا فایلها است که با این مجموعه از سندها یا فایل ها می تونید پروژتون رو سازماندهی کنید. خوب حالا ویژوال بیسیک رو اجرا کنید . در کادری که ظاهر می شود می تونید یکی از انواع برنامه هایی رو که میتوان در vb ایجاد انتخاب کنید. این کادر سه تب به نامهای new و exiting و resent وجود دارد:

New: در تب new آیکن های مختلفی وجود دارد که standard.exe به طور پیش فرض انتخاب شده است و به شما امکان ایجاد یک اجرایی استاندارد را می دهد.

توجه : برنامه های اجرایی که با standard.exe ساخته می شوند از بیشتر خصوصیت های vb استفاده می کنند و ما بیشتر مثال هامون رو با standard.exe می سازیم.

Exiting: از این تب برای باز کردن پروژه هایی که قبلا save کردیم استفاده می کنیم.

Resent: در این تب لیستی از آخرین پروژه هایی که باز شده نشان داده خواهد شد .

ایجاد یک برنامه استاندارد

برای شروع از تب new گزینه standard.exe را انتخاب کنید. الان دیگه رفتید تو محیط برنامه نویسی!(IDE)

در این محیط یکسری پنجره وجود داره که به شرح اونها میپرادزیم! :

پنجره project explorer

در این پنجره لیست پروژه ها و تمام آیتم های داخل پروژه را می تونید ببینید.

پنجره form layout

این پنجره مکان پنجره فرم را دزمان اجرا مشخص میکند( با کلیک و درگ کردن فرمی که تو شکل هست )

پنجره خصوصیات(properties window)

این پنجره حاوی لیست خصوصیات فرم یا کنترلها می باشد که میتونید این خصوصیات رو در زمان طراحی یا از طریق کد نویسی  تغییر دهید.

حالا برای شروع یه برنامه ساده می نویسیم تا اولین قدم رو برای برنامه نویسی شروع کرده باشید(ذوق زده نشید!)

خوب ما میخوایم برنامه ای بنویسیم که یک عدد رو به متر گرفته و به سانتیمتر نشون بده:

میخواهیم نام فرم رو ((مبدل متر به سانتیمتر)) بگذاریم برای این کار بر روی فرم کلیک میکنیم تا فرم انتخاب بشه و بعد از پنجره properties دنبال خصوصیت  captionبگردید و جلوی آن ((مبدل متر به سانتیمتر)) را تایپ می کنیم.
از نوار ابزا (سمت چپ) کنترل text box رو کلیک کرده و در فرم درگ کنید یا بر روی text box دابل کلیک کنید در هر صورت یه شیئ text box بر روی فرم ایجاد میشه. یه text box دیگه هم زیر text box اولی  به فرم اضافه کنید . حالا از نوار ابزار کنترل label را انتخاب کنید و در کنار هر کدام از text boxها یک label قرار دهید و بالخره! از نوار ابزار دوتا command button به فرم اضافه میکنیم. در فرم بر روی label1 کلیک کنید تا انتخاب شود و بعد از پنجره خصوصیات(properties) خصوصیت  caption ، label1 را به ((عدد به متر)) تغییر دهید وبه همین ترتیب caption ، label2 را به ((عدد به سانتیمتر)) و caption ، command1 را به ((اجرا)) و command2 را به ((جروج)) تغییر دهید.خصوصیت text مربوط به text box هارو هم پاک کنید.

الان دیگه برای کد نویسی آماده هستیم! در کد نویسی برای هر یک از اشیاء از طریق نام آنها صورت میگیرد(خصوصیت name) اگه دقت کنید مثلا خصوصیت name مربوط به command1 ، command1 است که میتوانید آن را تغییر دهید. خوب حالا برای هر کدوم از اشیاء یک نام مناسب انتخاب کنید برای مثال برای text1،text2،command1 و command2 به ترتیب نام های meter،centimeter،run و exit رو قرار بدید.
با دوبار کلیک بر روی دکمه اجرا پنجره کد نویسی ظاهر میشود خوب حالا بین دو دستور:

Private Sub run_Click()

End Sub

کد زیر را قرار دهید:

Centimeter.text=meter.text*100

Centimeter نام text box دومی و text خصوصیت آن است که با نقطه جدا شده است.

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

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

Private Sub exit_Click()

End Sub

عبارت unload me  را تایپ کنید.

حالا برنامه آماده اجراست.برای اجرا از منوی run گزینه start رو بزنید یا f5 رو بزنید یا از نوار بالای فرم دکمه start رو بزنید(دکمه شبیه play) حالا جلوی ((عدد به متر)) یک عدد وارد کنید و بعد دکمه اجرا رو فشار بدید نتیجه رو مقابل ((عدد به سانتیمتر )) میبینید. تا درس بعدی خداحافظ.(نظر یادتون نره)

                                                        به نام خدا

سلام

من در این وبلاگ قصد دارم به آموزش Visual Basic6 بپردازم، کسانی هم که تا حالا برنامه نویسی نکردن میتونن از مطالب این وبلاگ استفاده کنن مطمئن باشید با اولین برنامه ای که بنویسید عاشق برنامه نویسی میشید. در پست بعدی(درس اول) مفاهیم برنامه نویسی رو توضیح میدم و سعی میکنم در درس دوم کار عملی با ویژوال بیسیک رو شروع کنیم.  امیدوارم از مطالب این وبلاگ بهترین استفاده را بکنید. خداحافظ تا بعد.

نحوه Save کردن یک فایل موسیقی یا صدای پس زمینه یک سایت اینترنتی
گاهی اوقات وارد سایتی می شویم و پس از لحظه ای موسیقی زیبایی پخش می شود که در مواردی ما را علاقمند می سازد که این موسیقی را در کامپیوتر خود save کنیم.
برای انجام این کار در روی صفحه ای که می خواهید صدای پس زمینه آنرا save کنید بروید و سپس با ماوس کلیک راست کنید. سپس از منوی باز شده گزینه View Source را انتخاب کنید تا پنجره مربوطه باز شود. در این صفحه به دنبال عبارت bgsound بگردید. وقتی که آن را پیدا کردید جلوی آن نام فایلی می بینید مثلا به صورت .pop.mind این نام را بردارید و در نوار آدرس آخرین عبارت ( که پس از آخرین / آمده است ) را پاک کنید و به جای آن نام فایلی را که پیدا کردید تایپ کنید و inter را بزنید. حلا فایل صوتی آماده است!
برای مثال اگر آدرس صفحه این چنین بود:
www.worldmusic.com/africa/senegal/folkore.html
آن را به این صورت بنویسید:
www.worldmusic.com/africa/senegal/pop.mid

افزایش سرعت دانلود در نرم افزار Download Accelerator
نرم افزار Dap یا download accelerator plus شاید شناخته شده ترین نرم افزار دانلود در جهان اینترنت و به خصوص در میان کاربران ایرانی باشد. این نرم افزار بیشتر به خاطر افزایش سرعت دانلود و همچنین امکان ادامه دانلود بعد از disconnect شدن معروف است. اما با استفاده از ترفندی می توانید سرعت دانلود در این نرم افزار را تا حد زیادی بالاتر ببرید.
ابتدا نرم افزار dap را باز کنید و از منوی بالا و قسمت option به بخش preferences بروید سپس به قسمت advanced رفته و بر روی log view کلیک کنید در پنجره باز شده در صورت وجود هر گونه متنی آن را پاک کرده و متن زیر را در آن جایگزین کنید :
ereg-dict-ja.xml`.line 2,position 90
gus7b:ajain”speeder 2
kai[psd]100
se;rec56kbps
در آخر دقت کنید در صورتی که سرعت اینترنت شما عدد دیگری است آن را از 56 به سرعت اینترنت خود تغییر دهید.

سلام
دو تا بازی کم حجم برای دانلود گذاشتم حتما دانلود کنین.
tank حجم 415 kb:
شما باید تانک مقابل رو منفجر کنید تا پول گیر بیارید و بعدش میتونین بمبهای قویتر مثل بمب اتم وخیلی چیزهای دیگه بخرید.

دانلود

دوای سگ و گربه حجم 348 kb:
شما تو این بازی باید درست هدفگیری کنی تا سگ یا گربه رو بزنید.
منتظر بازی های بعدی باشید.

دانلود

 براي دانلود بازي ها روي دانلود كليك راست كنيد و گزينه save target as را كليك كنيد

نخستین حافظه فلش 32 گیگابایتی

شرکت "سن دیسک" در اقدامی اساسی و مهم ، که می تواند حافظه های فلش را بیش از پیش به عنوان جایگزین هارد دیسکها مطرح کند، نخستین حافظه فلش 32 گیگابایتی خود را با ابعاد 2.5 اینچ معرفی کرد.
بر اساس اخبار منتشره در وب، حافظه جدید از نوع حافظه های فلش ssd flash است و با فناوری نسبتا جدید اتصال هارد دیسک به کامپیوترها به نام فناوری sata سازگار است و می تواند به راحتی به کامپیوترهای لپ تاپ متصل شود و به عنوان جایگزین هارد دیسک مورد استفاده قرار بگیرد. لازم به ذکر است ، هارددیسکهای مورد استفاده در کامپیوترهای لپ تاپ نیز به صورت استاندارد با قطر 2.5 اینچ ساخته می شوند.
شرکت "سن دیسک" اعلام کرده است این حافظه 32 گیگابایتی دارای عمر مفید دو میلیون ساعت کارکرد است که این حدود شش برابر بیشتر از عمر مفید بهترین هارددیسکها است. از سوی دیگر، سرعت نوشتن و خواندن اطلاعات در این حافظه حدود 100 برابر بیشتر از بهترین هارددیسکهای امروزی است واین بدان معناست که کامپیوتری که از این حافظه به جای هارددیسک استفاده میکند ، می تواند در تنها 30 ثانیه ، سیستم عامل ویندوز ویستا را در هنگام روشن شدن کامپیوتر، خوانده و اجرا کند.
این حافظه فلش، به دلیل عدم برخورداری از قطعات مکانیکی متحرک، هیچ صدایی در هنگام فعالیت تولید نمیکند و در مقایسه با هارددیسکها که قطعات مکانیکی زیادی دارند، برق بسیار کمتری مصرف میکند. البته ناگفته نماند پیش از شرکت "سن دیسک" شرکت "سامسونگ" نیز یک حافظه فلش با ظرفیت بالا به بازار عرضه کرده بود و شرکت "اینتل" با ورود به بازار حافظه های فلش در آینده نزدیک، نمونه های 1 تا 8 گیگابایتی از این حافظه ها را به بازار خواهد داد.

نوت بوک کربنی سونی