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

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

 

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

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

 
                                                      ویژوال بیسیك

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 تغییر كند.



Can you stretch to get taller?
دوشنبه 16 مرداد 1396 12:36 ق.ظ
Nice answers in return of this query with real arguments and telling all concerning that.
Foot Pain
یکشنبه 15 مرداد 1396 05:32 ب.ظ
What i don't understood is in truth how you're no longer really much more well-preferred
than you may be now. You are so intelligent.
You recognize thus considerably relating to this topic, produced me in my view imagine it
from numerous various angles. Its like men and women don't seem to be involved until it is something to accomplish with Lady gaga!
Your individual stuffs excellent. At all times handle
it up!
samiranaji.weebly.com
جمعه 13 مرداد 1396 09:16 ب.ظ
This excellent website certainly has all of the info I wanted concerning this subject and didn't know who to ask.
Latoya
سه شنبه 10 مرداد 1396 09:20 ب.ظ
Wonderful goods from you, man. I've consider your stuff
prior to and you are simply extremely fantastic. I really like what you have got right here, certainly like what you're stating and the way through which you
assert it. You're making it enjoyable and you continue to take care of to keep it smart.
I can not wait to learn far more from you. That is actually
a terrific web site.
alicesandora.weebly.com
شنبه 7 مرداد 1396 11:11 ب.ظ
I've been browsing online more than 3 hours today, yet I never found any interesting article
like yours. It is pretty worth enough for me.
Personally, if all webmasters and bloggers made good content as you did, the internet
will be a lot more useful than ever before.
std test kit
دوشنبه 5 تیر 1396 05:03 ب.ظ
بسیار ریشه از خود نوشتن در حالی که ظاهر شدن مناسب در آیا واقعا حل و
فصل کاملا با من پس از برخی از زمان.
جایی درون جملات شما در واقع موفق به من مؤمن متاسفانه فقط برای بسیار در حالی که کوتاه.
من هنوز کردم مشکل خود را با فراز در مفروضات و شما خواهد را سادگی به پر کسانی که شکاف.
در صورتی که شما که می توانید انجام من می مطمئنا بود در گم.
Randy
دوشنبه 25 اردیبهشت 1396 08:11 ق.ظ
Admiring the dedication you put into your blog and detailed information you present.

It's awesome to come across a blog every once in a while that isn't the same outdated rehashed information. Fantastic read!
I've saved your site and I'm adding your RSS feeds to my Google account.
Shanel
شنبه 23 اردیبهشت 1396 11:23 ق.ظ
Heya i'm for the first time here. I came across this board and I in finding It truly useful & it helped
me out a lot. I am hoping to offer something again and help others like you helped me.
BHW
شنبه 2 اردیبهشت 1396 06:49 ب.ظ
I seriously love your website.. Pleasant colors & theme. Did you create this website yourself?

Please reply back as I'm trying to create my own site and want to find out where you got this from
or just what the theme is called. Kudos!
BHW
پنجشنبه 31 فروردین 1396 08:40 ب.ظ
I believe everything posted made a lot of sense.
However, think about this, suppose you typed a catchier title?
I ain't suggesting your content isn't solid., however what if you added a title
that grabbed folk's attention? I mean حسابداری و حسابرسی - برنامه نویسی با ویژوال بیسیك is kinda boring.
You should glance at Yahoo's front page and watch how they create news headlines to grab people to click.
You might add a related video or a picture or two to get readers excited about what you've written. Just my opinion, it would make your posts a little livelier.
anna
یکشنبه 28 اردیبهشت 1393 02:20 ب.ظ
man zadam form hamo hide kardam che joori baresh gardoonam to vebam begid
mamnonam
علی
یکشنبه 16 بهمن 1390 09:28 ب.ظ
ممنون بسار عالی بود. اگه با تصویر بود محشر می شد
عباس
سه شنبه 22 شهریور 1390 01:24 ق.ظ
ممنون از آموزش شما
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر