پیمان عبداللهی - برنامه نویسی پیشرفته - ساخت برنامه های حسابداری

پروژه های ویژوال بیسیک

روش دسترسی به نام و تعریف ومتغیر های توابع api :

برای استفاده از توابع API در ویژوال بیسیک می توان از ابزار API VIEWER استفاده کرد.

پس از نصب ویژوال بیسیک به مسیر زیر رجوع میکنیم.

start menu -->allprograms-->microsoft visual studio 6-->microsoft visual studio 6 tools-->api text viewer
حال از منوی فایل load text file انتخاب کنید.درپنجره ای که باز می شود فایلwin32api.txt را باز کنید.

فایل win32api.txt در مسیر microsoft visual studio-->common-->tools-->winapi قرار دارد.

در قسمت api type گزینه declares را انتخاب می کنیم.

در قسمت availabl items نام تمام توابع api را مشاهده می کنید.روی نام هر تابع که دابل کلیک کنید میتوانید
نحوه فراخوانی و پارامترهای ورودی و خروجی تابع را در قسمت selected item مشاهده نمایید.

دکمه کپی به منظور کپی کردن تابع انتخابی در قسمت selected item در کلیپ برد می باشد.

اگه مسیر برعکسه کپی کنید درست میشه

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

برای این کار ابتدا تابع زیر را در قسمت general فرم کد در vb کپی کرده
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

حال دو command بر روی فرم ایجاد کنید.

در command1 کد &mciSendString "set cdaudio door open wait", 0&, 0&,0
در command2 کد &mciSendString "set cdaudio door closed wait", 0&, 0&,

می تونید برنامه رو اجرا کنید.

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

برای این کار ابتدا تابع زیر را در قسمت جنرال برنامه قرار دهید.

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

حال یک command ایجاد کرده و در قسمت رویداد کلیک آن کد زیر را وارد کنید:

DoEvents
BlockInput True "True=1
Sleep 20000
BlockInput False "False=0

عدد جلوی sleep مدت زمان قفل بودن صفحه کلید و ماوس را نشان می دهد.که در اینجا به طور پیش فرض 20 ثانیه
است.

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

آموزش ساخت برنامه WindowsMediaPlayer با vb :

ابتدا Ctrl+T را زده و سپس و 2 تا کنترل به نام های WindowsMediaPlayer و Common Dialog

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

Private Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
چگونگی گذاشتن موزیک در فرم با دکمه های کنترل کننده :

ابتدا دکمه Ctrl + T را بزنید و بعد از کادر باز شده گزینه Microsft Multimedia Control را انتخاب
کنید .

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

()Private sub form_load
mm.visible=true
end sub
()Private Sub form_Click
"mm.filename="C:myMp3.mp3
"mm.Command="Open
"mm.Command="Play
end sub

در این قسمت "mm.filename="C:myMp3.mp3 نام آهنگ و آدرس آهنگ خودتان را بدهید.

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

برگزینید.

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

Code:

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

 If Button = 2 Then

      PopupMenu mnucolour

   End If

End Sub



Private Sub mnublack_Click()

frmpop.BackColor = vbBlack

End Sub



Private Sub mnublue_Click()

frmpop.BackColor = vbBlue

End Sub



Private Sub mnugreen_Click()

frmpop.BackColor = vbGreen

End Sub



Private Sub mnured_Click()

frmpop.BackColor = vbRed

End Sub



Private Sub mnuwhite_Click()

frmpop.BackColor = vbWhite

End Sub



Private Sub mnuyellow_Click()

frmpop.BackColor = vbYellow

End Sub

عزیزان میتوانند برای سفارش برنامه برای شرکت یا سازمان خود با شماره تماس 09139284543-09130188003 تماس حاصل فرمایند.( فقط برنامه های حسابداری و رستوران)

|+| نوشته شده توسط پیمان عبداللهی در دوشنبه 90/3/16 و ساعت 9:5 عصر

نظر

< 1 2