...::: آموزش ويژوال بيسيک :::...

شما می تونید با استفاده از این سورس کار با کامپوننت Flash9.ocx یا همون کامپوننت پخش کننده فایل های Swf رو یاد بگیرید .

حجم: 1.2 مگابایت
دانلود کنید

اینم یه برنامه جالب که می تونه هم رادیو و هم تلویزیون بگیره..........................!!!!!!!! !

البته کانال های ایران و خارج رو هم میگیره...

و می تونه رادیو های ایران رو هم بگیره مثل رادیو جوان - پیام - سراسری - قرآن - معارف - ورزش - و ....

رادیو های خارج از کشور رو هم می گیره مثل رادیو فردا و رادیو گلها ........!!!!

این نرم افزار هیچ نیازی به كارت TV نداره و فقط با اینترنت کار می کنه......

خلاصه چیزه توپیه البته کار خودم ... .

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

کسی میدونه چطور میشه یه سری فایل رو با VB فرستاد تو یه Zip Folder ؟

بصورت زیر :

Sub Zip_All_Files_in_Folder()
FolderName = "D:\a\"
FileNameZip = "D:\a.zip"
Open FileNameZip For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
Dim oApp As New Shell
oApp.NameSpace(FileNameZip).CopyHere oApp.NameSpace(FolderName).Items

MsgBox "Finish !"
End Sub

حالا برای UnZip کردنشون چیکار کنم؟

برای آنزیپ کردن از کنترل زیر استفاده کنید     

برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا مراحل زیر را انجام میدهیم .

Dim SH As New Shell

حالا می توانید از متدهای زیادی که این شیء در اختیارتان می گزارد استفاده کنید . از جمله این متد های اجرا Internet Explorer , Outlook , اجرای آیتم های موجود در کنترل پنل , نمایش پنجره جستجوی ویندوز و کلی کارهای مفید دیگه . به مثالهای زیر توجه کنید :

SH.Open "http://vb.blogfa.com"

SH.TrayProperties

SH.SetTime

SH.FindComputer 'System Search

SH.ControlPanelItem "sysdm.cpl" 'System Properties

SH.ControlPanelItem "inetcpl.cpl" 'Internet Options

SH.ControlPanelItem "'appwiz.cpl" 'Add/Remove Programs

این شیء دارای متدهای دیگری هم میباشد که به راحتی می توانید از آنها استفاده کنید .

Private Sub Form_KeyPress(KeyAscii As Integer)
Dim svalid As String
svalid = "0123456789"
If InStr(svalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox "Not valid Keys.please Press 0-9 keys"
End If
End Sub

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

Private Declare Function GetTickCount Lib "kernel32" () As Long

این تابع را در قسمت General فرم تعریف کنید حال در رویداد Load فرم می نویسیم:

&Retval = GetTickCount

"MsgBox Str$(Fix(Retval / 60000)) + " Minutes you turned On PC

در بالا مقدار برگشتی تابع تقسیم بر 60000 می شود؛چون تابع بر حسب میلی ثانیه خروجی می دهد.

منتظر نظرات و پیشنهادات شما دوستان عزیز هستم...

بوسیله این ocx می توانید مشخصات سخت افزار سیستم خود را ببینید.

پس از باز نمودن فایل zip دانلود شده مشاهده خواهید کرد که دو فایل dll و یک فایل ocx در آن وجود دارد .

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

برای استفاده از کنترل فوق وارد محیط ویژال بیسیک شده و سپس وارد منوی Components شوید .

 در آنجا روی دکمه Browse کلیک کنید . وارد پوشه ای که فایل zip را در آنجا باز کرده اید شده و فایل

HWInfo.ocx را انتخاب کنید تا این کنترل به لیست کنترلهای نوار ابزار شما اضافه شود .

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

این کنترل دارای خصوصیات زیر است :

BaseBoardManufacturer : مشخصات سازنده مادربورد

BaseBoardProduct : نوع چیپ ست مادربورد

.....

تابع Abs (قدرمطلق) :
مقدار بدون مثبت یک عدد را برمی‌گرداند.

تابع Atn (آرک تانژانت) :
خروجی این تابع عددی از نوع double است که برابر زاویه‌ای است که تانژانت آن عدد ورودی تابع است.

تابع Cos (کسینوس) :
خروجی این تابع عددی از نوع double است که برابر کسینوس زاویه ورودی است.

تابع Exp (توان نمانی) :
خروجی این تابع عددی از نوع double است که برابر e به توان ورودی تابع است.

تابع Int (تابع کف یا تابع جزء صحیح) :
نزدیکترین عدد صحیح مساوی یا کوچکتر نسبت به عدد ورودی را برمی‌گرداند.

تابع Log (لگاریتم) :

... برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید

برای این منظور کدهای زیر را در قسمت کدنویسی در ویژوال بیسیک وارد می کنیم.

Private Const SPFILEQ_FILE_IN_USE = &H1
Private Const SPFILEQ_REBOOT_IN_PROGRESS = &H4

Private Declare Function SetupPromptReboot Lib "setupapi.dll" (ByRef FileQueue As Long, ByVal

.......

... برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید

امروز تابع api زیر رو برای hibernet کردن سیستم در وی بی براتون می گزارم.

امیدوارم مورد استفاده صحیح قرار گیرد.

Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

.........

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

با سلام خدمت برنامه نویسان حرفه ای از جمله visual basic نویسان.

برای اجرای این برنامه فقط به دوتا Textbox نیاز هست .

Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Sub Form_Load()
  Dim Info As OSVERSIONINFO, strOs As String
  Dim Retval As Long, Result As String

........

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

مطمئنا تا بحال در ويندوز از كادرهاي محاوره‌اي زيادي مثل پنجره هاي Open، Save، نمايش خصوصيات چاپگر (Printer)، كادر انتخاب رنگ، كادر انتخاب Font و پنجره Help ويندوز استفاده كرده ايد.

در VBبراي نمايش اينگونه پنجره‌هاي محاوره‌اي از كنترل DialogBox استفاده مي‌كنيم.

.......

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

این دستور به شما کمک می کنه تا بدون هیچ محدودیتی فرم خود را با موس جابجا کنید ....!!!!

از هر جای فرم که خواستید....؟؟؟؟

Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
.....

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

اینم یه برنامه جالب که می تونه هم رادیو و هم تلویزیون بگیره..........................!!!!!!!! !

البته کانال های ایران و خارج رو هم میگیره...

و می تونه رادیو های ایران رو هم بگیره مثل رادیو جوان - پیام - سراسری - قرآن - معارف - ورزش - و ....

رادیو های خارج از کشور رو هم می گیره مثل رادیو فردا و رادیو گلها ........!!!!

این نرم افزار هیچ نیازی به كارت TV نداره و فقط با اینترنت کار می کنه......  

خلاصه چیزه توپیه البته کار خودم ... .

اینم یه تقویم جالب..........................!!!!!!!!!

که هم وضعیت آب وهوا رو نشون میده هم می تونید توش یادداشت کنید.

و........!!!؟؟

اين OCX دکمه اي تقريبا شبيه به دکمه هاي Windows Langhorn داره و يکي از ويژگي هاي خوب آن ساده بودن آن است .

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

OCX برای گذاشتن عکس های Gif توي VB كه بهش Animation GIF Control.OCX ميگن البته رجيستر هم همراهش است .

و یک OCX دیگر که برای گذاشتن عكس هاي PNG توي VB .

.....

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

کار تابع :

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

کد برنامه :

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

کد اصلی برنامه هم توی Form_Load :

()Private Sub Form_Load

Dim WINPath As String

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

کار تابع :

این تابع لیست همه درایو های سیستم را بر روی فرم چاپ می کند البته بوسیله کد برنامه ...!!!

کد برنامه :

این تابع را در قسمت  General  بنویسید :

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

کد اصلی برنامه هم توی Form_Load :

()Private Sub Form_Load

Dim StrBuffer As String

........

KeyCode عبارتند از :

A ---------------> 65

B ---------------> 66

C ---------------> 67

D ---------------> 68

......

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

اﻳﻦ ﺗابع ﻳﻚ ﺻﺪاي ﺧاص را اﺟﺮا می كند.

این کد را در پنجره کد نویسی کپی کنید و نتیجه را ببینید...!!!

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
() Private Sub Form_Activate
Dim Cnt As Long
For Cnt = 0 To 5000 Step 10

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

کد زیر را در پنجره کد نویسی می نویسیم :

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As ....

مثل همیشه تعریف تابع توی یه Module :

Public OP As Long

Public OH As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

....

این تابع را درون یک ماژول بنویسید :

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

pwszKLID : این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.

flags : مقدار این متغییر برابر (1) خواهد بود.

()Private Sub Command1_Click

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

 مخفی کردن نوار TaskBar ویندوز

تعریف تابع و ثابتهای برنامه توی یه ماژول :

Public Hwnd1 As Long

Public Const SWP_HIDEWINDOW = &H80

Public Const SWP_SHOWWINDOW = &H40

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

همینطور که می بینید باید با تابع FindWindow اول هندل نوار TaskBar رو پیدا کنیم بعدش با تابع SetWindowPos کار اصلی رو انجام بدیم.

.....

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

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

Public 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

برای باز شدن CDROM این کد رو بنویسید:

(&)Private Sub OpenCD_Click

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...

ویژوال بیسیک زبانی است که یاد گیری آن نسبت به سایر زبان ها ساده است. لذا برای کسانی که قصد

 دارند برای اولین بار برنامه نویسی را تجربه کنند زبان مناسبی می باشد. البته باید توجه داشت که برای

 موفقیت در برنامه نویسی تنها کتابها، مطالب و جزوات آموزشی موثر نیستند. برای موفقیت باید تمرین

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

می پردازیم به آموزش مباحث مقدماتی ویژوال بیسیک:

انواع متغیرها:

متغیرها در ویژوال بیسیک به پنج دسته تقسیم می شوند، که هر کدام را به اختصار توضیح می دهیم.

الف) متغیرهای عددی:

در زیر جدولی از این نوع برحسب میزان حافظه اشغالی مرتب شده اند، که دانستن آن برای پیشروی در

 آموختن لازم است:

.....

برای دیدن ادامه مطالب بر روی ادامه مطلب کلیک کنید ...