برای جستجو کافیست کل یا قسمتی از عبارت مورد نظر خود را وارد نمایید و بروی دکمه جستجو کلیک کنید

	Enter your search terms Submit search form
	ALL Blogs

اين برنامه يكي از قدرتمند ترين نرم افزار شناسايي سي پي يو شماست ساده و پر محتوا كه اين برنامه فارسيه

                                                    دانلود

برچسبها : خواد - مشخصات - خودش - ببیند

برچسبها : چگونگی - ایجاد - منو - برای - کلیک - راست

برچسبها : محرم - امد

به نام خدا
برنامه اي بنويسيد که يک يوز و يک پسورد از ما بخواهد و اگر رمز را 3بار اشتباه وارد کرديم خودکار برنامه بسته بشه و اگردرست وارد شد فرم 2 را نمايش بده و اگر رمز اشتباه وارد شد يک پيغام نمايش بده که رمز اشتباه است و ايا مي خواهيد ادامه يدهيد يا خير اگر بله را زديم ادامه بده و در غير اين صورت خارج بشه.
براي اين کار 2 تا دکمه لازمه و دوتا جعبه متن
و کد زير رو تو برنامه مي نويسيم
Private Sub Command1_Click()
Static k As Integer
If Text1 = "hosein" And Text2 = "mos" Then
Form2.Show
Else
a = MsgBox("رمز اشتباه است ايا مي خواهيد ادامه بدهيد", vbYesNo, "رمز اشتباه")
If a = 7 Then End
If a = 6 Then
k = k + 1
End If
If k = 3 Then End
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
a = MsgBox("ايا مي خواهيد خارج شويد", vbYesNo, "خروج")
If a = 6 Then End
If a = 7 Then
End If
End Sub

پيروز و سر بلند باشيد رمز=mos نام=hosein

برچسبها : پروژه

سلام دوستان معذرت می خوام که خیلی دیر آپدیت کردم

امروز می خوام چند مطلب جالب برای عزیزان بذارم که اکثرا بچه های وی بی با این موارد مشکل دارند

1- برنامه ماشین حساب ما کار نمی کند !

ابتدا 2 تا کادر متن روی و یک دکمه روی فرم بکشید و کدهای زیر را کپی کنید

Private Sub Command1_Click()

MsgBox Text1.Text + Text2.Text

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2 = ""

Command1.Caption = "zarb"

Me.Caption = "http://hoseinmos.blogpars.com/"

End Sub

حالا در کادر های متن دو عدد را وارد کنید و دکمه را بزنید چه اتفاقی افتاد؟

خب برنامه ما به جای این که دو عدد را با هم جمع کند آن ها را کنار هم قرار داد،اما مشکل کار کجا بود؟

عجله نکنید بهتون می گم

به دلیل این که ویژوال بیسیک نوشته های یک کادر متن را به عنوان یک رشته فرض میکند آن دو عدد را کنار هم قرار می دهد و با هم جمع نمی کند برای درست شدن این مساله باید هر دو رشته (یا یکی از آن ها) را تبدیل به متغری از نوع عدد کرد به صورت زیر:

Msgbox clng(text1.text)+text2.text

می بینیم که مشکل حل شد.

 

2-ساختن فایل در وی بی

تا حالا شده دوست داشته با شین که برنامه تون یک مقدار رو توی یک فایل ذخیره کنه ؟

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

ابتدا باید فایل را با روش خاصی و با شماره منحصر بفردی باز کرد تا با توابع دیگر بتوان بر روی آن اطلاعاتی نوشت.

Open "c:s.txt" for binary as 1

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

با این کد می توان سلام را در فایل شماره 1 نوشت

Put #1,1,"salam"

بعضی مواقع هم می خواهیم اطلاعات نوشته شده در فایل را بخوانیم که به صورت زیر است

Open "c:s.txt" For Binary As 1

Input #1, sa

MsgBox sa

این فایل باز شد و اطلاعان خط اول آن در متغیر سا ذخیره شد

حالا نوبت به بستن فایل است

Close #1

3-تابع command

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

Msgbox command

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

Msgbox mid(command,2,len(command)-2)

حالا کوتیشن های اول و آخر آن پاک شد و مسیر قابل استفاده است

مثال عملی

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

Private Sub Form_Load()

On Error Resume Next

Image1.Picture = LoadPicture(Mid(Command, 2, Len(Command) - 2))

 

End Sub

شما یک برنامه نمایش عکس ساختید!

4-آرایه

به مقداری از حافظه که می توان در آن مقداری را ذخیره کرد متغیر می گویند ، ولی به مقداری از حافظه که می توان در آن چند متغیر( در واقع چند رشته جداگانه) را جا داد آرایه گویند که استفاده از آن به صورت زیر است:

Dim s(2) as string

S(0)="salam"

S(1)="khooby"

S(2)="che khabar"

Msgbox s(1)

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

5-تابع Point

این تابع هم در فرم و هم در picturebox کار می کند که کار آن برگرداندن رنگ نقطه ای از فرم یا picturebox می باشد که نحوه استفاده از آن به صورت زیر می باشد.

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

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.BackColor = Picture1.Point(X, Y)

End Sub

 

5-معکوس کردن رنگ های یک عکس(invert)

ابتدا یک picturebox کشیده و یک عکس در آن قرار دهید حالا کد زیر را در فرم خود بنویسید.

Private Sub Command1_Click()

With Picture1

Picture1.PaintPicture .Picture, 0, 0, , , , , , , vbDstInvert

End With

End Sub

6- منوی شناور(popupmenu)

نحوه ساختن منوی شناور یعنی همان منوی کلیک راست.

Popupmenu yourmenu

7-نحوه گذاشتن خط جداکننده در یک منو

فقط کافیست در قسمت caption آن منو – گذاشت

8-اعداد اتفاقی

برای ایجاد یک عدد اتفاقی (شانسی) باید از تابع rnd استفاده کرد.

Msgbox rnd

اگر کمی دقت کنید می بینید که هر دفعه که برنامه را اجرا می کنید این تابع اعداد تکراری را نمایش می دهد برای درست شدن این مشکل فقط کافی است تابع Randomize را بدون هیچ آرگومانی بنوسیم و کد را به صورت زیر تغییر دهیم:

Randomize

Msgbox rnd

و برای تعیین محدوده انتخاب اعداد به این صورت کد می نویسیم

Randomize

Msgbox rnd*16

و برای صحیح کردن این عدد از تابع int استفاده میکنیم.

Randomize

MsgBox Int(Rnd * 16)

6-تایمر چیست؟

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

7-ویژوال بیسیک شما فونت فارسی را درست نشان نمی دهد؟

اگر ویژوال بیسیک شما کلمه هایی مانند (گ-ک-چ-پ-ژ) را به صورت سه نقطه نشان می دهد روی کنترل مورد نطر کلیک کرده و به قسمت فونت رفته و فونت آن شی را Times New Roman قرار دهید می بینید که مشکل شما حل خواهد شد.

8-"اولین سطر" + خط بعدی + "دومین سطر"

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

Msgbox "hosein" & vbcrlf & "mostafaiefar"

8- استفاده راحت وزیاد از خصوصیات یک شی

اگر می خواهید از خصوصیات یک شی به مقدار زیاد استفاده کنید می توانید از With و End With استفاده کرد که مثال عملی آن به صورت زیر است:

With Me

.Caption = "http://www.hoseinmos.blogpars.com"

.BorderStyle = 3

.Enabled = True

.Visible = True

End With

9- نمایش یک عکس در یک کنترل عکس

تا بحال حتما خواسته اید که در طول اجرای برنامه عکس یکی از کنترلهای برنامه را عوض کنید و حتما به این حالت کد نوشته اید:

Image1.picture="c:mohsen.jpg"

و برنامه شما هم دچار خطا شده است . چرا؟

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

Image1.picture=loadpicture("c:mohsen.jpg")

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

10- رنگهای 15 گانه کیوبیسیک در وی بی

تابع qbcolor از شما درخواست می کند که شماره یکی از آن 15 رنگ کیوبیسیک را بدهید و اگر شما یکی از این رنگ ها را با استفاده از شماره آن درخواست کنید شماره ای برگشت داده می شود که کد یک رنگ در وی بی است و می توانید آن رنگ را استفاده کنید. مثال :

Me.backcolor=qbcolor(rnd * 15)

با این کد می توانید هر بار یک رنگ تصادفی را برای پس زمینه فرم خود انتخاب کنید.

11- برنامه تان کل سیستم را به هنگ می اندازد؟

در وی بی یک تابع به نام Doevents موجود می باشد که اگر برنامه شما حتی هنگ کند سیستم عامل در نهایت سلامت(بدون هنگ کردن) کار میکند و خیلی راحت برای کاربران این امکان وجود دارد که برنامه هنگ کرده شما را ببندند .چه خوب نه؟

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

نحوه کار به صورتی است که مثلا در یک حلقه پردازشگر کارها را یکی پس از دیگری انجام می دهد و وقتی به این تابع رسید مروری بر فرمان هایی که به سیستم عامل داده شده است را اجرا میکند(به کارهای سیستم عامل رسیدگی می کند) که این سیستم مانع از هنگ کردن سیستم عامل می شود.

12- کپی اطلاعات به کلیپ برد و استخراج اطلاعات از آن

با تابع settext از شی clipboard می توان یک رشته به کلیپ برد خالی کپی کرد به صورت زیر:

Clipboard.SetText "salam"

*نکته: برای کپی یک متن باید حتما کلیپ برد ویندوز شما خالی باشد.

با تابع gettext از شی clipboard می توان به اطلاعات داخل کلیپ برد دسترسی پیدا کرد

mohsen = Clipboard.GetText

MsgBox mohsen, vbInformation

برای خالی کردن کلیپ برد به این صورت عمل کنید.

Clipboard.Clear

 

13- پنجره open بدون متن Open as read-only

برای این کار کافی است که یک خصوصیت به شی openfiledialog اضافه کرد که به صورت زیر انجام می شود.

Commondialog1.flages=cdlofnhidereadonly

Commondialog1.showopen

14-انتخاب فونت

برای نمایش پنجره فونت از شی comdlg32.ocx باید به صورت زیر عمل کنید بعنی ابتدا به این شی بگویید که فونتهای چه قسمتی را نشان دهد.

Commondialog1.flages=3

Commondialog1.showfont

15- چند خط کد در یک خط !

برای این کار فقط کافی است ابتدا کاراکتر : را گذاشته و سپس کد بعد را بنویسید.

16-نحوه کار با تابع shell

باز کردن فایل

Shell "explorer.exe F:filesTrainingprogrammingvbQustion vb.pdf", vbNormalFocus

 

باز کردن پوشه

Shell "explorer.exe c:", vbNormalFocus

باز کردن صفحه وب

Shell "explorer http://www.hoseinmos.blogpars.com", vbNormalFocus

اجرای فرمان داس :

خاموش کردن بعد از 10 ثانیه

Shell "shutdown -s -t 10", vbNormalFocus

16-پرسیدن سوال از کاربر با استفاده از تابع msgbox

'created by mohsen shamohammady

http://www.hoseinmos.blogpars.com

Private Sub Form_Unload(Cancel As Integer)

hosein = "Are You Sure to exit program?"

If MsgBox(mohsen, vbQuestion + vbYesNo, "Exit") = vbYes Then

End

Else

Cancel = True

End If

End Sub

17-توابع وی بی کمه !

آیا تابه حال سعی کردید یک برنامه تقریبا معمولی بنویسید ؟

به کارهایی بر خورده اید که با توابع وی بی ممکن نیست؟

آیا حس می کنید وی بی خیلی ضعیف است ؟

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

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

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

. چگونه ؟

 

 

نحوه به کار بردن توابع API در ویژوال بیسیک

برای استفاده از توابع API در وی بی ابتدا باید آنها را در وی بی تعریف نمود که اصطلاحاً به آن Declare گفته می شود. صورت یک Declare به این صورت است Declare Function FnName Lib LibName [Alias RealName] (Parameters )As ReturnType     o FnName       :  نام تابع ( نامی که قرار است در برنامه استفاده شود ). o LibNam       :  نام کتابخانه ( فایل با پسوند DLL ). o RealName     :  نام واقعی تایع در فایل کتابخانه. اگر نام واقعی تابع و نامی که در برنامه استفاده می شود یکی باشند آنگاه نیازی به این قسمت نیست . o Parameters   :  پارامتر های تابع. o ReturnType   :  نوعی که تابع قرار است بر گرداند.  توجه : در نوشتن نام واقعی تابع ( یا اگر نام واقعی و مجازی تابع یکی باشد ، نام مجازی آن ) بزرگ و کوچک بودن حروف اهمیت دارد .

برای دیدن اکثر توابع وی بی می تونید به نشانی زیر مراجعه کنید.

http://www.allapi.net

و یا از برنامه تماما فارسی Apia استفاده کنید.

*نکته:برای فراخوانی یک تابع ممکن است بخواهیم این فراخوانی در چند خط انجام گیرد که برای این کار باید در پایان خط کاراکتر _ گذاشته شود در صورت وجود این کاراکتر ویژوال بیسیک متوجه می شود که باید بقیه کد را از خط بعد بخواند.

18-تاریخ شمسی در وی بی

مشکل تاریخ شمسی ما هم حل شد .خوب یه Dll پیدا کردم که دیگه مشکل تاریخ شمسی رو کامل حل میکنه . این dll رو گروه نرم افزاری OxinSoft نوشتن که دمشون هم گرم . بعدش هم یه Help توپ براش گذاشتن که دیگه جای هیچ توضیح اضافی رو نداده  تمام متد های این Class رو توضیح داده که از توضیحات من هم بهتره !!!

:: برای دریافت فایل اینجا کلیک کنید

19- کشیدن خط

برای کشیدن خط در وی بی باید از تابع line از شی me استفاده کرد که طرز استفاده از آن به صورت زیر است.

Me.line(x1,y2)-(x2-y2)

یعنی متصات خط شروع و مختصات نقطه پایان. به همین سادگی ، به همین خوشمزگی

دوستان عزیز جون خودتون و هرکی که دوست دارین نظر یادتون نره!

برچسبها : مشکلات - دوستان

آشنایی با حلقه های تکرار
فرض کنید می خواهیم در ویژوال بیسیک برنامه ای بنویسیم که اعداد ۱ تا ۵ را روی فرم چاپ کند , شاید فکر کنید که به سادگی و با استفاده از دستور Print می توان این کار را انجام داد و فقط باید بنویسیم :
جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم :
Print 1
Print 2
Print 3
Print 4
Print 5
برنامه بالا درست است که اعداد ۱ تا ۵ را زیر هم روی فرم چاپ می کند اما واقعاً این دستور منطقی است؟ اگر می خواستید برنامه ای بنویسید که اعداد ۱ تا ۱۰۰ را روی فرم چاپ کند آیا باز هم حوصله می کردید و صد تا دستور Print می نوشتید؟ کاملاً مشخص است که راه حل فوق برای حل این مسئله منطقی نیست. ویژوال بیسیک برای حل این مشکل از حلقه های تکرار استفاده می کند. با استفاده از حلقه های تکرار به راحتی می توانیم اعداد ا تا ۵ را تنها با چند خط کد نویسی چاپ کنیم.
حلقه تکرار For … Next :
روش استفاده را با یک مثال شرح می دهم :
For a = 1 To 5
Print a
Next a
بعد از For ما نامی را برای شمارنده در نظر می گیریم . سپس علامت مساوی را قرار می دهیم و تعداد دفعات تکرار را تعریف می کنیم. در خط دوم شمارنده را پرینت میکنیم و خط سوم بدین مفهوم است که حلقه شمارنده مجدداً با مقدار جدید به اول باز می گردد و عملیات مربوطه را تکرار می کند. این حلقه ۵ بار تکرار می شود و در پایان اعداد ۱ تا ۵ را پشت سر هم و روی فرم چاپ می کند.
نکات قابل توجه :
· حلقه های تکرار می تواند گام کاهشی و افزایشی هم داشته باشد که با Step آن را مشخص می کنیم.
· جهت چاپ اعداد روم فرم باید آن را در روال Form_Activate بنویسیم یا خاصیت AutoRedraw در پنجره خصوصیات Form_Load برابر Ture قرار دهیم.
· حلقه تکرار می تواند از هر عددی شروع شود و به هر عددی ختم شود.
· بهتر است شمارنده را همیشه با یک حرف انگلیسی نام گذاری کنیم تا دچار سردرگمی نشویم.
قطعه برنامه زیر اعداد ۱ تا ۵ را روی فرم و زیر هم چاپ می کند :
For i = 5 To 1 Step - 1
Print i
Next i
سوالات خود را در قسمت نظرات مطرح نمائید. مطمئن باشید بی پاسخ نمی ماند .

برچسبها : آشنایی - حلقه - های - تکرار

برنامه اي بنويسيد كه يك رمز را گرفته و اگر درست بود فرم 2 را  نمايش دهد در غير اين صورت پيامي مبتني بر اشتباه بودن رمز نمايش دهد
ابتدا يك فرم مانند فرم زير ايجاد مي كنيم و بر روي كامند1 كليك مي كنيم و دستور زير را مي نويسيم
Private Sub Command1_Click()
If Text1.Text = "ali" Then
Form2.Show
Else
a = MsgBox("ايا مي خواهيد ادامه بدهيد", vbYesNo, "password error")
If a = 7 Then End
If a = 6 Then
Text1.Text = ""
Text1.SetFocus
End If
End If
End Sub

برچسبها : پروژه

برچسبها : دستورات - پایه - برای - برنامه - نویسی - توابع - داخلی - توابع داخلی vb

صفحات: