تبلیغات
حسابداری و حسابرسی - برنامه نویسی با ویژوال بیسیك

برنامه نویسی با ویژوال بیسیك

 

نوع مطلب :خدمات كامپیوتر ،

نوشته شده توسط:علی اصغریان یامی

 
                                                      ویژوال بیسیك

1-چگونه با ویژوال بیسیك فرم ورود به سیستم طراحی كنیم؟

نرم افزار وی‍ژول بیسیك را نصب كنید. سپس انرا  اجراكنید از منوی file گزینه Add project را كلیك كنید . كادر Add project  باز می شود . این كادر سه برگ دارد
   ایجاد پروژه جدیدnew
 نمایش اسامی پروژه های موجودExisting
Recent نمایش اسامی پروژه های كه اخیرا" مورد استفاده قرار گرفته اند
كلید  Open باز كردن یا ایجاد
كلید Cancel لغو عملیات
كلید كمكHelp
از برگ new  روی Standard ExٍE  كلیك كنید تا انتخاب شود . سپس روی كلید open  یك فرم project  جدید و همراه ان یك فرم خالی باز می شود می توانید از منوی نوار ابزار روی گزینه Add Form دوبل كلیك كنید یك فرم خالی ایجاد  می شود برای طراحی فرم ورود به سیستم احتیاج به یك Labelبنام لطفا" رمز را وارد كنید و یك Text box دو Command   انهارا از روی نوار ابزار به روی فرم درگ كنید.و برای تغییر شرح Label , Command روی منوی properties window  از نوار ابزار كلیك كنید تا كادر مربوطه باز شود سپس هنگام انتخاب هر كدام روبروی Caption لطفا" رمز را وارد كنید ,یكی از command به Cancel و دیگری به ok تغییر دهید شما می توانید یك Label دیگری مثلا:" به سیستم حسابداری خوش امدید تعریف كنید.هنگامی كه فرم را انتخاب كرده اید از كادر تنظیمات روی بروی Name  این كلمه frm Login درج شود  ما برای هرقسمت از فرم ایجاد شده به شرح سئوال 2 كد تعریف می كنیم تا قابل اجرا شدن باشد.   برای پیروی از برنامه ویژوال بیسیك هنگام تعریف از كلمات مختصر به شرح ذیل استفاده كنید:
command= cmd
Text Box=txt
Form=Frm
در اخر روی گزینه Save كلیك كنید از شما سئوال می شود Group , Project , form1 روی كلید yes كلیك كنید تا save شود.

2- كد برنامه فرم فوق را چگونه بنویسیم؟

Private Sub cmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
If txtpassword = "password" Then
Me.Hide
frmform2.Show
Else
MsgBox "Invalld Password,try againl", , "Login"
txtpassword.SetFocus
End If

End Sub

Private Sub Form_Load()
 '
 'Get userid and password
 '
 frmLogin.Show
End Sub
برای كلیدَcancel كد  me.Hide تعریف شده كه هنگام كلیك روی ان فرم بسته می شود.
برای كلید ok  اول شرط درست بودن پسورد وارد شده توسط كاربر را بررسی می كند اگر درست باشد فرم بسته می شود و فرم شماره 2 كه مثلا"main form Accounting باز می شود و اگر پسورد غلط باشد به شما پیام میدهد كه invalld password try again  دو باره سعی كنید  در این مرحله فوكوس به txt Password منتقل می شود.
توجه Password ابی رنگ در داخل گیومه كلمه رمز می باشد و اختیاری می باشد به دلخواه خودتان تنظیم كنید.


3- چگونه یك فرم  درفترچه تلفن ایجاد بكنیم؟
یک فرم بنام user form ایجاد کنید .

 روی ان 6 Text Boxبه نام های
txtFirstName

txtLastName

txtAddress

txtCity

txtState

 

txtZip

و 6 Label از شماره 1 الی 6 و چهار دکمه به نام های  Exit  , Next , Save , Prev  برای خارج شدن ؛ رفتن مرحله بعدی ؛ ذخیره کردن و به عقب برگشتن .
4- كد برنامه فرم دفترچه تلفن چگونه بنویسیم؟
Option Base 1
Option Explicit
Public RecIndex As Integer
Public RecLength As Integer
Public Cnumber As Integer
Public x As Integer
Public Sub update_Form()
txtFirstName.Text = AddrEntrys(RecIndex).FName
txtLastName.Text = AddrEntrys(RecIndex).LName
txtAddress.Text = AddrEntrys(RecIndex).Addr
txtCity.Text = AddrEntrys(RecIndex).City
txtState.Text = AddrEntrys(RecIndex).State
txtZip.Text = AddrEntrys(RecIndex).Zip
End Sub
Public Sub Get_Data()
AddrEntrys(RecIndex).FName = txtFirstName.Text
AddrEntrys(RecIndex).LName = txtLastName.Text
AddrEntrys(RecIndex).Addr = txtAddress.Text
AddrEntrys(RecIndex).City = txtCity.Text
AddrEntrys(RecIndex).State = txtState.Text
AddrEntrys(RecIndex).Zip = txtZip.Text


End Sub
زیر دکمه Exit درج شود
Private Sub cmdexit_Click()
Cnumber = FreeFile
Open "AddrBook.Dat" For Random As Cnumber Len = RecLength
For x = 1 To MaxRecords
    Put Cnumber, x, AddrEntrys(x)
Next x
Close Cnumber
End
End Sub
زیر دکمه Next در ج شود.
Private Sub cmdNextRec_Click()
If RecIndex < MaxRecords Then
   Call Get_Data
   RecIndex = RecIndex + 1
   Call update_Form
 End If
End Sub
زیر دکمه Prev در ج شود.
Private Sub cmdPrevRec_Click()
If RecIndex > 1 Then
   Call Get_Data
   RecIndex = RecIndex - 1
   Call update_Form
 End If
End Sub
زیر دکمه Save درج شود.
Private Sub cmdSaveRec_Click()
Cnumber = FreeFile
Call Get_Data
Open "AddrBook.Dat" For Random As Cnumber Len = RecLength
  Put Cnumber, RecIndex, AddrEntrys(RecIndex)
Close Cnumber
End Sub
زیر فرم user form درج شود
Private Sub UserForm_Click()
Label1.Caption = "First Name"
Label2.Caption = "Last Name"
Label3.Caption = "Address"
Label4.Caption = "city"
Label5.Caption = "State"
Label6.Caption = "Zip"
RecIndex = 1
RecLength = Len(AddrEntrys(1))
Cnumber = FreeFile
Open "AddrBook.Dat" For Random As Cnumber Len = RecLength
If Not EOF(1) Then
  For x = 1 To MaxRecords
     Get Cnumber, x, AddrEntrys(x)
     Next x
  End If
  Close Cnumber
  RecIndex = 1
  Call update_Form
End Sub

در قسمت ماژول درج شود
Public Const MaxRecords As Integer = 30
Public Type AddrRec
  FName As String * 15
  LName As String * 25
  Addr As String * 50
  City As String * 30
  State As String * 20
  Zip As String * 20
End Type
Public AddrEntrys(MaxRecords) As AddrRec

5- چگونه در ویژوال بیسیك منو و زیر منو تعریف بكنیم؟

6-چگونه از فرم تعریف شده به Excel دسترسی پیدا كنیم؟

7 چگونه از فرم تعریف شده بهword  دسترسی پیدا كنیم؟
Sub Open_Word_Document()

'Opens a Word Document from Excel

Dim objWord As Object

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

'Change the directory path and file name to the location
'of your document

objWord.Documents.Open "C:\test.doc"

End Sub

برای باز كردن ورد از اكسل براساس برنامه فوق باید
اول فایل ورد در قسمت سی بنام test.doc  بصورت
ورد ذخیره كرد وسپس برنامه فوق درسمت ماكرو بنام
open_word_Document 
ایجاد كنیم تا برنامه ورد در اكسل قابل دسترسی باشد.
برنامه فوق می توان زیر Commad Button نوشت به شرطی كه خط اول برنامه به commad Button تغییر كند.



anna
یکشنبه 28 اردیبهشت 1393 02:20 ب.ظ
man zadam form hamo hide kardam che joori baresh gardoonam to vebam begid
mamnonam
علی
یکشنبه 16 بهمن 1390 08:28 ب.ظ
ممنون بسار عالی بود. اگه با تصویر بود محشر می شد
عباس
سه شنبه 22 شهریور 1390 01:24 ق.ظ
ممنون از آموزش شما
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر