آموزش کامپیوتر و ویژوال بیسیک

dezparsonlin — Sat, 30 Jun 2007 12:55:18 GMT

سلام دوستان متاسفم كه چند روزي وبلاگ رو بروز نكردم

خيلي سرم شلوغ ولي سعي مي كنم توي اين چند روزه اين كار رو بكنم

مسافت سنج

dezparsonlin — Fri, 04 May 2007 05:52:27 GMT

اينم يه برنامه ساده ديگه كه يك مسافت سنج ساده است

توي اين برنامه نوع وسيله رو انتخاب مي كني و به

برنامه ميگي كه مسافت شما چند كيلومتر است بعد

برنامه به شما ميگه كه چند دقيقه صرف اين مسافت ميشه.

اجزاي اين برنامه شامل زير است:

1. يك عدد label

2.يك عددCommand

3.يك عدد Textbox

4. چهار عدد دكمه راديويي ياOption

Private Sub Command1_Click()

Dim q As Integer

q = Text1.Text

If Option1.Value = True Then

Label1.Caption = q * 0.5

Else

If Option2.Value = True Then

Label1.Caption = q * 2

Else

If Option3.Value = True Then

Label1.Caption = q * 5

Else

If Option4.Value = True Then

Label1.Caption = q * 10

End If

End Sub

dezparsonlin — Fri, 04 May 2007 05:50:18 GMT

اينم يه برنامه جالب ديگه البته اين برنامه روخودم ننوشتم،اينو از توي يه سايت

خارجي دانلود كردم . توي اين برنامه شما آدرس يه فايل رو بهش ميدين ومشخصاتشو

مي گيرين.اگه بتونيدمفهوم اين كدهارويادبگيريدخيلي جاهابدردتون میخورن.

' Written exclusively for VB Center by Marco Cordero.
' Portions of this code sample were written by Randy Birch.

Private Sub Command1_Click()

Dim r As Long
Dim FileName As String

' Get the file name and path from txtFileName
FileName = (txtFileName)

' Show the properties dialog, passing the filename
' and the owner of the dialog
r = ShowProperties(FileName, Me.hwnd)

' Display an error if the properties dialog could
' not be displayed
If r <= 32 Then MsgBox "Error"

End Sub

معدل گیری

dezparsonlin — Fri, 04 May 2007 05:44:18 GMT

امروز يه برنامه خيلي ساده رو براتون مي خوام توضيح بدم

اين برنامه معدل يه دانش آموز يا دانشجو رو دريافت مي كنه

وبه شما ميگه كه خوبه يا بده . اين موضوع رو به صورت

نوشتاري و رنگ به كاربر اعلام ميكنه.

اجزاي اين برنامه شامل زير است:

1.يك عدد Command

2. سه عدد label

Private Sub Command2_Click()

Dim num As Variant

num = InputBox("Please enter your average")

If num >= 1 And num <= 10 Then

Label3.BackColor = vbRed

Label1.BackColor = vbWhite

Label2.BackColor = vbWhite

Else

If num > 10 And num <= 15 Then

Label2.BackColor = vbYellow

Label1.BackColor = vbWhite

Label3.BackColor = vbWhite

Else

If num > 15 Then

Label1.BackColor = vbGreen

Label2.BackColor = vbWhite

Label3.BackColor = vbWhite

End If

End Sub

متغير ها

dezparsonlin — Sat, 21 Apr 2007 12:42:38 GMT

مطلب امروز ما نكاتي در مورد متغير ها هستند كه اميدوارم به دردتون بخوره

براي تعريف متغير ها از كلمه كليدي Dim استفاده مي كنيم

نوع متغير As نام متغير Dim

بچه ها سعي كنيد نام متغيررو نسبت به متغير مورد نظر

درست انتخاب كنيد كه اين خوانايي برنامه را افزايش مي دهد

و همچنين نوع متغير كه اون بسيار مهم .به مثال هاي زير توجه كنيد

Dim number As Integer

Dim counter As Integer

مثال اولي به شما مي گويد متغير Number از نوع صحيح است و

اعدادي كه به اين متغير تخصيص داده مي شوندهم اعداد صحيح هستند

و همچنين مثال دومي كه يك شمارنده را از نوع صحيح تعريف كرده است

يك متغير وقتي مي تواند دركل برنامه استفاده شودكه درقسمت

General تعريف شده باشد

در غير اين صورت فقط در قسمتي كه در آنجا تعريف شده است مور

د استفاده قرار مي گيرد

خوش آمد گویی به بازدید کننده گان

dezparsonlin — Wed, 11 Apr 2007 10:06:18 GMT

بــــــــسم الله الـــــــرحمن الــــــــرحیم

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

من علی هستم از استان خوزستان شهرستان دزفول

که یکی از بهترین شهرهای ایران از

نظر جغرافیایی برای اونایی که دوست دارن توی طیبعت بگردن

جای خوبی به شهر ما بیاید ضرر نمی کنید.