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

Future Google PR for shakhsi7270.blogfa.com - 2.72
نوشته شده در تاريخ شنبه هجدهم مرداد 1393 توسط محمد جواد شخصي خدابخش
وبلاگ تخصصی معماری بنده با نام معمار فردا

معمار فردا



برچسب‌ها: وبلاگ تخصصی معماری بنده با نام معمار فردا
ادامه مطلب
نوشته شده در تاريخ جمعه بیست و چهارم شهریور 1391 توسط محمد جواد شخصي خدابخش
آدرس وبلاگ جدیدم (معمار فردا )

www.memarfarda.blogfa.com


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

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

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


برچسب‌ها: سورس پروژه مدیریت فروشگاه
ادامه مطلب
نوشته شده در تاريخ سه شنبه یکم فروردین 1391 توسط محمد جواد شخصي خدابخش
من منظور سوال شما را به درستي متوجه نشدم . اگر منظور شما پخش اين فايل است كه بايد از يك تابع 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

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


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

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

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

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

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


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

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


 


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

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

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


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

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

آموزش DataReport

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

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

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

فرمت : PDF

 


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

آموزش CrystalReport 10

آموزش CrystalReport 10

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

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

فرمت : PDF


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

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

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

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

حجم : 921kb

فرمت :PDF

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

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


برچسب‌ها: خواص کنترل داده Data, ذخیره اطلاعات با کنترل Data
ادامه مطلب
نوشته شده در تاريخ سه شنبه چهارم آبان 1389 توسط محمد جواد شخصي خدابخش


آموزش ActiveX Data Object

خواص ActiveX Data Object /  کنترل Adodc

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

حجم : 921kb

فرمت   PDF:

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

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



برچسب‌ها: آموزشADO یا ActiveX Data Object, ذخیره اطلاعات با ActiveX Data Object
ادامه مطلب
نوشته شده در تاريخ سه شنبه چهارم آبان 1389 توسط محمد جواد شخصي خدابخش
نام نویسنده : محمد جواد شخصی خدابخش

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

حجم : ۲۰۶ k


برچسب‌ها: ماژول تبدیل تاریخ میلادی به شمسی
ادامه مطلب
نوشته شده در تاريخ یکشنبه دوازدهم اردیبهشت 1389 توسط محمد جواد شخصي خدابخش

خواص كنترل داده Data :

همانطور كه مي دانيد پردازش اطلاعات و داده ها در پايگاه داده عبارت است از ايجاد ركورد جديد براي ثبت اطلاعات جديد، حذف ركورد اطلاعاتي ، ويرايش اطلاعات و داده ها و كارهاي ديگر . علاوه بر اين خصوصياتي براي ايجاد ارتباط با پايگاه داده دارد، خاصيتي به نام ركوردست دارد كه بيشترين متدها براي پردازش اطلاعات را دارد.

متدهاي مهم RecordSet :

Move: با استفاده از اين متد ما مي توانيم به ركورد مورد نظر حركت كنيم . روش استفاده آن به صورت زير است:

Data1.recordset.move (شماره ركورد)

Movefirst : با استفاده از اين متد مي توانيم به اول ليست يا جدول تغيير مكان دهيم . روش استفاده آن به صورت زير است:

Data1.recordset.movefirst

MoveLast : اين متد هم رفتن ما را به آخر جدول فراهم مي كنم و روش استفاده آن بصورت زير است:

Data1.recordset.movelast

MoveNext : از اين متد براي رفتن به ركورد بعدي استفاده مي شود و روش استفاده آن بصورت زير است:

Data1.recordset.MoveNext

MovePreivous :از اين متد براي برگشت به ركورد قبلي استفاده مي شود و روش استفاده آن به صورت زير است :

Data1.recordset. MovePreivous

EOF :اين متد مشخص مي كند  آيا اشاره گر در ركورد آخر  آخر قرار دارد ، يا خير . كه در صورتي كه در ركورد آخر قرار داشته باشد مقدار True و در غير اين صورت مقدار False خواهد گرفت .

A= Data1.recordset.EOF

 BOF: قرار داشتن اشاره گر در ابتداي ليست را مشخص مي كند.

A= Data1.recordset.BOF

 

Fields : براي پردازش يك فيلد

Data1.recordset.fields("نام فيلد")

AddNew : از اين متد براي ايجاد يك ركورد جديد استفاده مي شود

Data1.Recordset.AddNew

Update : براي ذخيره كردن ركورد ايجاد شده و يا ويرايش شده البته بايد قبل آن بايد از يكي از متدهاي AddNew يا Edit استفاده شود

Data1.Recordset.Update

Delete : از اين متد براي حذف يك ركورد استفاده مي شود

Data1.Recordset.Delete

RecordCount : اين متد مشخص مي كند كه Tabel ما داراي چند ركورد است .

A= Data1.recordset. RecordCount

FindFirst : از اين متد براي جستجو اولين ركورد كه با ضابطه ما مطابقت دارد استفاده مي شود. براي مثال اگر ما در ليست دنبال شخصي با نام javad باشيم براي جستجو آن بايد از كد زير استفاده كنيم:

Data1.Recordset. FindFirst("مورد نظر نام فيلد ="javad")

FindLast : اين متد براي پيدا كردن آخرين ركورد موجود در ليست كه با ظابطه و شرط ما هم خواني دارد استفاده مي شود و طرقه استفاده ار آن مانن متد FindFirst است:

Data1.Recordset. FindLast("مورد نظر نام فيلد ="كلمه مورد جستجو")

FindNext : اين متد براي يافتن ركورد بعدي استفاده مي شود . بايد توجه داشت كه براي استفاده از اين متد حتماً بايد قبل از آن متد FindFirst استفاده كرده باشد:

Data1.recordset. FindNext("مورد نظر نام فيلد ="كلمه مورد جستجو")

FindPrevious : از اين متد براي يافتن ركورد قبلي استفاده مي شود:

Data1.recordset. FindPrevious ("مورد نظر نام فيلد ="كلمه مورد جستجو")

NoMatch : اين متد مشخص مي كند كه جستجوي ما چه حاصلي در بر داشته است. اگر جستجوي ما به نتيجه نرسيده باشد مقدار آن True خواهد بود و در غير اينصورت False خواهد شد. براي مثال :

Data1.recordset. FindFirst ("نام فيلد"="    ")

If data1.recordset.NoMatch Then

MsgBox("جستجو نتيجه اي نداشت")

Else

MsgBox("اطلاعات مورد نظر يافت شد")

End If


برچسب‌ها: خواص كنترل داده Data
ادامه مطلب
نوشته شده در تاريخ چهارشنبه هفتم بهمن 1388 توسط محمد جواد شخصي خدابخش

براي باز و بسته كردن CD ROM اين تابع از دستوري با ورودي متني (رشته) استفاده مي كند. با اين تابع كارهاي زيادي مي توان انجام داد.

كد هاي تابع را در يك ماژول تعريف مي كنيد:

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

براي باز شدن CD ROM اين كد زير را بنويسيد:

Private Sub OpenCD_Click(&)

mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub

براي بسته شدن CD ROM اين كد را بنويسييد:

Private Sub CloseCD_Click()

mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&

End Sub

 


برچسب‌ها: برنامه براي باز و بسته كردن CD ROM
ادامه مطلب
نوشته شده در تاريخ پنجشنبه نوزدهم آذر 1388 توسط محمد جواد شخصي خدابخش
تمامی حقوق این وبلاگ برای شرکت شخصی رایانه توس محفوظ است | طراحی : شرکت شخصی رایانه توس