پایگاه آموزش ویژوال بیسیک6
 
آموزش ویژوال بیسیک6

Future Google PR for shakhsi7270.blogfa.com - 2.72

آموزش ساخت فایلهای RES (لود کردن هر فایلی تو برنامه)

خب حالا این فایل res چی هست و چه کار میکنه ؟ فرض کنید میخواید برنامه ای بنویسید که زمانیکه اجرا میشه یه آهنگ پخش بشه و میخواید که این آهنگ از درون خود برنامه پخش بشه نه از داخل هارد! اینجاست که باید آهنگ رو تو یه فایل قرار بدید که اون فایل رو بهش res میگن که مخفف Resource هست. همین اول بگم که کار کردن با فایل res هیچ کای نداره حتی از درست کرن نیمرو هم آسونتره.

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

ابتدا شما باید برنامه VB Resource Editor رو به ویژوال بیسیک اضافه کنید که برای اینکار ویژوال بیسیک رو باز کنید و از منوی Add-Ins گزینه Add-in Manager رو انتخاب کنید که شکل زیر ظاهر میشه و شما باید مطابق شکل گزینه VB 6 Resource Editor رو انتخاب کنید و در پایین پینجره در سمت راست گزینه های Loaded/Unloaded و همچنین Load on Startup رو علامت بزنید و کلیک OK رو بزنید.

 

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

 

حالا باید یک پروژه جدید باز کنید (کلید Ctrl + N رو بزنید و بعد OK).  حالا روی آیکون مکعب کلیک کنید تا پنجره VB Resource Editor باز بشه. شکل زیر.
در منوی این پنجره چندین آیکون وجود داره که از شکلشون معلومه چی هستن. شما میتونید در این قسمت هر فایلی رو که میخواید اضافه کنید. در منوی برنامه چند گزینه برای اینکار وجود داره که به ترتیب برای اضافه کردن اشاره گر موس ، اضافه کردن آیکون ، اضافه کردن عکس و اضافه کردن هر نوع فایل به کار میروند.

 

چون ما میخوایم یک آهنگ به فایل res اضافه کنیم پس باید آخرین گزینه یعنی Add Custom Resource رو بزنیم و فایل خودمون رو اضافه کنیم. بعد افزودن فایل باید روی دکمه Save کلیک کنید و فایل res رو یه جایی ذخیره کنید. به شکل زیر توجه کنید.

 

بعد از افزودن فایل، یک پوشه به نام CUSTOM ایجاد میشه و در داخل اون فایلتون با شماره پیشفرض 101 اضافه میشه که خودتون میتونید اونو در قسمت Properties تغییر بدید که ما اینکارو نمیکنیم و از همون نام پیشفرض استفاده میکنیم. بعد از Save کردن فایل به طور اتوماتیک باید فایل RES به قسمت Project اضافه بشه. شکل زیر.

 

خب حالا پروژه ما آماده ست و الان وقت استفاده از فایله. در فایل RES هر فایلی که اضافه میکنید به صورت باینری ذخیره میشه و شما میتونید فایلها رو با دستور LoadResData از فایل RES بخونید اگر بخواید فایله عکس رو بخونید باید از دستور LoadResPicture استفاده کنید. حالا برای اینکه ما بتونیم آهنگ رو از درون فایل RES بخونیم از دستور زیر استفاده میکنیم :

Dim Buffer() As Byte
Buffer = LoadResData(101, "CUSTOM")

در خط اول یک متغیر از نوع بایت به صورت آرایه ای تعریف کردیم تا اطلاعات و بایت ها درون اون قرار بگیرن و در خط دوم هم با استفاده از دستور LoadResData فایل آهنگ رو درون متغیر لود کردیم. حالا باید این محتویات این متغیر رو یه جایی از حافظه ذخیره کنیم و از اون فایله ذخیره شده استفاده کنیم. برای اینکار از دستورات زیر استفاده میکنیم :

Open "C:\music.mp3" For Binary As #1
Put #1, , Buffer
Close #1
Erase Buffer

در خط اول یه فایل از نوع باینری در درایو C درست کردم و در خط بعد محتویات متغیر Buffer رو درون فایل قرار دادم و در خط بعد هم فایل رو Close کردم تا فایل کامل بشه اما در خط آخر متعیر رو از بین رو از بین میبرم تا فضای حافظه بیهوده اشغال نشه. خوب حالا میتونید فایلی که ذخیره کردید رو در برنامه استفاده کنید. دستورات زیر تمامه چیزی هست که باید در قسمت جنرال فرم نوشته بشه :

 

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
Dim isPlaying As Boolean
Dim Mp3File As String
Private Sub Form_Load()
    Dim Buffer() As Byte
    Buffer = LoadResData(101, "CUSTOM")
    Open "C:\music.mp3" For Binary As #1
    Put #1, , Buffer
    Close #1
    Erase Buffer
    Mp3File = Chr$(34) + "C:\music.mp3" + Chr$(34)
    mciSendString "open " + Mp3File, 0&, 0&, 0&
    mciSendString "play " + Mp3File, "", 0&, 0&
    isPlaying = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If isPlaying = True Then
        mciSendString "close " + Mp3File, 0&, 0&, 0&
    End If
End Sub

حالا اگه برنامه رو اجرا کنید یک آهنگ پخش میشه و زمانی که برنامه رو ببندید آهنگ هم قطع میشه. موفق باشید.

منبع : http://v-basic.mihanblog.com/


برچسب‌ها: آموزش ساخت فایلهای RES, لود کردن هر فایلی تو برنامه
ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و سوم آذر ۱۳۹۴ توسط محمد جواد شخصي خدابخش

سورس نرم افزار بازدارنده ویروس (Virus Stoper)

سلام دوستان. این برنامه که براتون قرار دادم در واقع یک نرم افزار کاربردی برای مقابله با ویروس ها و رفع خطرات و صدمات ناشی از ویروس هاست. طرز کار این نرم افزار به این صورت هست:

ابتدا باید بدونید که نام ویروس چیه و تحت چه نامی اجرا شده و در قسمت انتخاب پردازش درون برنامه اسمه اون فایل رو انتخاب کنید و کلید تعمیر رو انتخاب کنید. کار کردن باهاش خیلی ساده هست به راحتی میتونید یاد بگیرید. برنامه به صورت خودکار کلیدهای آسیب دیده رجیستری رو تعمیر میکنه و فایل های AUTORUN.INF رو هم پاک میکنه. تنها ایرادی که داره اینه که ویروس رو از تو قسمت Startup خارج نمیکنه و شما باید اینکار رو خودتون انجامش بدین.

دانلود سورس حجم فایل ۳۲۱۹ کیلوبایت

موفق و پیروز باشید.

منبع :http://v-basic.mihanblog.com/


برچسب‌ها: سورس نرم افزار بازدارنده ویروس, Virus Stoper
ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و سوم آذر ۱۳۹۴ توسط محمد جواد شخصي خدابخش


احتمالا تا حالا براتون پیش اومده که برای یک کار خاص مثلا چک کردن وضعیت فایل AUTORUN.INF نیاز داشته باشید که تمامه درایوهای سیستم رو چک کنید. خب چطوری میشه فهمید که چه درایوهایی وجود داره؟
اینجا یک تابع API معرفی میکنیم که کارش همینه (درایوهای منطقی رو برمیگردونه) کافیه به شکلی که در زیر میبینید ازش استفاده کنید.
یک پروژه جدید باز کنید و کدهای زیر رو تو قسمت جنرال فرمتون کپی کنید.

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
    Me.AutoRedraw = True
    Drives = GetMyLogicalDrives
    For i = 0 To UBound(Drives)
        Print Drives(i)
    Next
End Sub
Public Function GetMyLogicalDrives()
    Dim strBuffer As String
    strBuffer = String(255, Chr$(0))
    ret& = GetLogicalDriveStrings(255, strBuffer)
    strBuffer = Replace(strBuffer, Chr(0), " ")
    strBuffer = Trim(strBuffer)
    strDrives = Split(strBuffer)
    GetMyLogicalDrives = strDrives
End Function

تابع GetLogicalDriveStrings در واقع به خودیه خود نامه تمامه درایو ها رو میده اما مشکلش اینه که تمامه حروف رو تو یک رشته بر میگردونه و نام درایو ها رو با NULL جدا میکنه که اینجا برای رفع این مشکل از تابع Split استفاده کردیم و رشته جدا کننده رو NULL قرار دادیم با این کار یک آرایه درست میشه که تو هر خونه نام یک درایو قرار گرفته.

موفق و پیروز باشید.


برچسب‌ها: بدست آوردن درایوهای منطقی سیستم, My Drives
ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و سوم آذر ۱۳۹۴ توسط محمد جواد شخصي خدابخش

دوستان عزیز هر تو این چند سال هر چی تونستم راجع به ویژوال بیسیک نوشتم مطالب کامل آموزشی که کلا کاربردیه رو در 120 صفحه تایپ کردم آموزش تصویری همرا ه با مثالها و پروژهای خوب و کاربردی . خواستید 09154229811 زنگ بزنید


ادامه مطلب
نوشته شده در تاريخ پنجشنبه سی ام مهر ۱۳۹۴ توسط محمد جواد شخصي خدابخش

در این پست آموزش SQL نویسی در ویژوال بیسیک6 رو آموزش دادم .

 

برای دیدن مطالب به ادامه مطلب مراجعه کنید


برچسب‌ها: SQLنويسي
ادامه مطلب
نوشته شده در تاريخ سه شنبه بیستم مرداد ۱۳۹۴ توسط محمد جواد شخصي خدابخش
وبلاگ تخصصی معماری بنده با نام معمار فردا

معمار فردا



برچسب‌ها: وبلاگ تخصصی معماری بنده با نام معمار فردا
ادامه مطلب
نوشته شده در تاريخ جمعه بیست و چهارم شهریور ۱۳۹۱ توسط محمد جواد شخصي خدابخش
سورس پروژه مدیریت فروشگاه

برنامه نویس:Mahdi - Rouzbahani که برای وبلاگ ما ارسال کرده اند

برچسب ها :سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶ / سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶/سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶/سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶/سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶/سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶//سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶//سورس پروژه مدیریت فروشگاه به زبان ویژوال بیسیک ۶


برچسب‌ها: سورس پروژه مدیریت فروشگاه
ادامه مطلب
نوشته شده در تاريخ سه شنبه یکم فروردین ۱۳۹۱ توسط محمد جواد شخصي خدابخش
من منظور سوال شما را به درستي متوجه نشدم . اگر منظور شما پخش اين فايل است كه بايد از يك تابع Api استفاده كنيد .

براي پخش فايلهاي با فرمت wav ميتوان از تابعي به نام sndPlaySound استفاده كرد .

ابتدا اين تابع را در قسمت General به صورت زير تعريف مي كنيم :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

سپس يك دكمه به فرم اضافه ميكنيم و در رويداد كليك آن دستور زير را مي نويسيم :

sndPlaySound App.Path + "\jan.wav", 1

وقتي روي دكمه كليك شود فايل صوتي پخش مي شود .


ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و نهم اسفند ۱۳۹۰ توسط محمد جواد شخصي خدابخش

پاسخ به سوال شما در مورد چگونگي نمايش دادن يك صفحه وب در برنامه هاي ويژوال بيسيك:

براي اين كار بايد از كنترلي به نام WebBrowser استفاده کنیم برای افزودن این کنترل به جعبه ابزار از منوی Project گزینه Components را برگزینید و از کادر محاوره ای باز شده گزینه Microsoft Internet Controls را بیابید و تیک کنار آن را بگذارید و بر روی Ok کلیک کنید .

حال یک کنترل WebBrowser از جعبه ابزار بردارید و بر روی فرم قرار دهید این کنترل تقریبا یک مرورگر اینترنت کامل است با استفاده از خاصیت Navigate آن می توانید یک صفحه وب را بار گذاری کنید . مثلا دستور زیر را درون رویداد Click یک دکمه قرار دهید تا با فشار دادن دکمه این وبلاگ باز شود :

WebBrowser1.Navigate "http://www.shakhsi7270.blogfa.com"


برچسب‌ها: چگونگي نمايش دادن يك صفحه وب در برنامه هاي ويژوال
ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و نهم اسفند ۱۳۹۰ توسط محمد جواد شخصي خدابخش
دانلود سورس برنامه مدیریت هتلداری

این برنامه اماتور به شما کمک می کند تا با دیدن و بررسی کدهای این برنامه آن چیزهایی که در این وبلاگ آموزش داده شده را  به صورت نمونه ببینید و یاد بگیرید این برنامه رو من ننوشتم و یکی از دوستا برای من ارسال کرده از این دوست متشکرم


 


ادامه مطلب
نوشته شده در تاريخ دوشنبه بیست و نهم اسفند ۱۳۹۰ توسط محمد جواد شخصي خدابخش

•         کتاب آموزش جامع و کاربردی ویژوال بیسیک 6

•         نویسنده : محمد جواد شخصی خدابخش

•         تعداد صفحه ها : 125

•         قیمت کتاب + هزینه چاپ + CD  پروِژه های کتاب : 12000 تومان ( بدون هزینه پست )


فهرست کتاب :

آشنایی با محیط ویژوال بیسیک 6 - وظایف کنترلها - پنجره peropertise - کد نویسی – رویدادها - متدهای فرم - کنترل textbox - کنترل Label - کنترل CommandButton - دادها ،در ویژوال بیسیک 6 - چگونه یک متغیر تعریف کنیم - چگونه به یک متغیر مقدار بدهیم - عملیات بر روی داده ها - توابع عددی ، مثلثاتی و تبدیل رشته - دستور Print - تعریف متغیر به صورت عمومی - عملگرهای منطقی - دستورIf   - دستور select Case - پروژه ماشین حساب - تابع InputBox حلقه های Do - حلقه For - عنصر CheckBox - عنصر  - ImageBoxتابع MsgBox - کار با فایل ها - دستور open - حالتهای باز شدن فایل - محدود کردن دسترسی به فایل - قفل کردن فایل - چگونه شماره فایل را تشخیص دهیم - بستن فایلها - نوشتن در فایلهای ترتیبی - عنصر RichTextBox - نوشتن در فایلهای ترتیبی قسمت دوم با دستور  - Write#خواندن از فایل های ترتیبی - برنامه های مدیریت فایل و پوشه - تعریف رکورد - باز کردن ، خواندن و نوشتن در فایلهای تصادفی - مقابله با خطاهای کار با فایل –دستور seek و کار با صفحه کلید - جعبه گفتگو CommonDialog - کنترلهای Toolbar و ImageList - پروژه ماژول تاریخ میلادی به شمسی - تعریف کلی از پایگاه اکسس  - ایجاد پایگاه اکسس  - ایجاد ارتباط بین کنترل Data و فایل پایگاه داده  - خواص کنترل Data  - برقراری ارتباط بین (ActiveX Data Object) یا کنترل Adodc و فایل پایگاه داده اکسس  - خواص  (ActiveX Data Object) کنترل داده Adodc  - پروژه مدیریت کلوپ کرایه CD  -  ثبت اطلاعات با استفاده از کنترل Adodc

 (ActiveX Data Object) - جستجو اطلاعات با استفاده از کنترل Adodc  (ActiveX Data Object) -

برقراری ارتباط بین DataEnvironment و فایل پایگاه داده اکسس  - ذخیره اطلاعات با استفاده از DataEnvironment - نمایش اطلاعات ذخیره شده در یک Tabel با استفاده از DataGride - مثال مهم کد جستجو اطلاعات - مثال مهم کد جستجو با استفاده از دستورات SQL  - آموزش جامع زبان SQL گزارشگیری از پایگاه داده با استفاده از DataReport - پروژه فروشگاه  - کار با چاپگر - کنترل Timer - ساخت Setup برای برنامه ٪

 •         روش اول سفارش محصول : یک نظر برای ما بفرستید و اطلاعات زیر را در متن پیامتان بنویسید :

•         نام و نام خانوادگی + شماره تلفن / موبایل + آدرس کامل+ کد پستی + نام محصول درخواستی

•         روش دوم سفارش محصول : برای خرید این کتاب  روی لینک زیر کلیک کنید :

سفارش محصول

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


ادامه مطلب
نوشته شده در تاريخ یکشنبه نوزدهم تیر ۱۳۹۰ توسط محمد جواد شخصي خدابخش
آموزش DirectXAudio - بخش 1
موضوع : پخش افکتهاي صوتی در برنامه هاي مالتي مديا 

مقدمه : در سلسله مباحث DirectXAudio شما تکنيکهاي لازم براي اضافه کردن موزيک و افکتهاي صوتي سريع و ديناميک را به بازيها و برنامه هاي مالتي مديا خواهيد آموخت . DirectXAudio جايگزيني براي بخشهاي DirectSound ، DirectSound3D و DirectMusic موجود در DirectX 7 مي باشد و داراي امکانات بهتر و سريعتری بوده و برنامه نويسي آن نيز ساده تر است . 
در اولين درس از DirectXAudio چگونگي پخش افکتهاي صوتي را در برنامه هايتان خواهيد آموخت . 

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


برچسب‌ها: پخش افکتهاي صوتی در برنامه هاي مالتي مديا

ادامه مطلب
نوشته شده در تاريخ یکشنبه یازدهم اردیبهشت ۱۳۹۰ توسط محمد جواد شخصي خدابخش

آموزش DataReport

آموزش گزارشگیری از پایگاه داده با DataReport

نویسنده : محمد جواد شخصی خدابخش

نام کتاب : بخشی از کتاب خودآموز جامع و کاربردی ویژوال بیسیک 6

فرمت : PDF

 


برچسب‌ها: آموزش گزارشگیری از پایگاه داده با DataReport
ادامه مطلب
نوشته شده در تاريخ یکشنبه یازدهم اردیبهشت ۱۳۹۰ توسط محمد جواد شخصي خدابخش

آموزش CrystalReport 10

آموزش CrystalReport 10

گزارشگیری از پایگاه داده با استفاده از crystalReport 10

نوشته : علی انگوتی

فرمت : PDF


برچسب‌ها: گزارشگیری از پایگاه داده با استفاده از CrystalRepo
ادامه مطلب
نوشته شده در تاريخ یکشنبه یازدهم اردیبهشت ۱۳۹۰ توسط محمد جواد شخصي خدابخش

ذخیره اطلاعات با کنترل Data

خواص کنترل داده Data

با استفاده از خواص کنترل Dataمی توان اطلاعاتی را که کاربر در کنترلهای ورودی داده مانند (textbox) می نویسد در بانک اطلاعاتی اکسس ویا بانک های اطلاعاتی دیگر ذخیره کند .

حجم : 921kb

فرمت :PDF

نویسنده : محمد جواد شخصی خدابخش 

برای دیدن این کتاب باید نرم افزار AdobeAcrobatReader بر روی رایانه شما نصب باشد.


برچسب‌ها: خواص کنترل داده Data, ذخیره اطلاعات با کنترل Data
ادامه مطلب
نوشته شده در تاريخ سه شنبه چهارم آبان ۱۳۸۹ توسط محمد جواد شخصي خدابخش
تمامی حقوق این وبلاگ برای شرکت شخصی رایانه توس محفوظ است | طراحی : شرکت شخصی رایانه توس