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

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

خلاصه ببخشید.

هر کسی خواست تبادل لینک کنه ادرس وبش رو با عنوانش برام بزاره تا در اولین فرصف تبادل لینک انجام بشه ممنون

بچه ها راستشو بخواهید من دیگه با این برنامه کار نمیکنم چون وقت ندارم 

راستیاین ایدی نیمبازه منه  asoudeh@nimbuzz.com

خدا حافظ

معکوس کردن رنگ های یک عکس(invert)

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


Private Sub Command1_Click()

With Picture1

Picture1.PaintPicture .Picture, 0, 0, , , , , , , vbDstInvert

End With

End Sub

باید یه timer با intevral 1 درست کنید و بعد از این کار کدهای زیر را به timer اضافه کنید.


SetCursorPos 0, 0

حالا یه ماژول درست کنید و این کدها را درونش کپی کنید:

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

ايجاد ميانبر براي برنامه ها خيلي راحت

رمز فايل : onlyvb.blogfa.com

دانلود

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

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید

كد:

Private Sub Command1_Click()
h = Form1.Height
For i = 1 To 1800
For j = 1 To 200000
Next
r = i * 3.14 / 180
t = h - Abs(h * Sin(r) * Exp(-i / 800)) - 1200
Shape1.Top = t
Shape1.Left = i * 2
Form1.PSet (i * 2, t)
Next
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.BackColor = vbYellow
Shape1.BackStyle = 1
End Sub

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

Control Panel > Regional and language options > Advanced

قسمت select a language to match the language version of the non-Unicode programs را به farsi تغيير دهيد . آنگاه باحتمال زياد از شما سي دي xp را مي خواهد كه اين كار را انجام مي دهيد .
سپس به زبانه languages برويد و دكمه Details را انتخاب كنيد در زبانه Advanced تيك Extended supprt of advanced text services to all programs را بگذاريد .
كامپيوتر را reset كنيد .
vb6 را اجرا كنيد . از منوي tools گزينه options را انتخاب كنيد آنگاه زبانه editor format را انتخاب كنيد و آنگاه فونت را به Courier new (Arabic) تغيير دهيد .
از اين پس هر وقت كنترلي خواستيد كه در برنامه قرار دهيد خاصيت font انرا به فونتي كه فارسي را پشتيباني مي كند انتخاب كنيد و سپس منوي پايين افتادني script را در همان منوي font به Arabic تغيير دهيد

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

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

برای Run کردن یک فایل اجرایی در وی بی بایستی از تابع ShellExecute استفاده نمایید . نحوه declare کردن آن بصورت زیر است :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

حال فرض کنید می خواهید در مسیر D:\TestShell\ فایلی به اسم Test.exe را توسط برنامه تان اجرا کنید . کد زیر بدین منظور نوشته شده است :

Call ShellExecute(Me.hwnd, vbNullString, "D:\TestShell\Test.exe", "", "", SW_SHOWNORMAL)

copyfile : جهت کپی تعدادی فایل با تعیین مسیر مبدا در مقصد مشخص شده

copyfolder : جهت کپی یک پوشه در پوشه ای دیگر

creatfolder : یک پوشه جدید ایجاد می کند

creattextfile : برای اجاد یک فایل متنی

deletefile : جهت حذف یک یا چند فایل با مسیر مشخص

deletefolder : جهت حذف یک پوشه

driveexists , fileexists , folderexists این سه متد با مقدار منطقی خبر از وجود یا عدم وجود یک درایو یک

فایل و یا یک پوشه با مسیر مشخص شده را می دهد

getdrivename : از پارامتر دریافتی نام درایو را برمی گرداند

getfilename: از پارامتر دریافتی نام فایل را برمی گرداند

getdrive: درایو مشخص شده را فعال می کند

getfolder : پوشه مشخص شده را فعال می کند

getfile : فایل مشخص شده را فعال می کند

movefile : فایلهای مشخص شده را به مقصد مشخص شده منتقل می کند

movefolder پوشه های مشخص شده را فعال می کند

opentextfile : یک فایل متنی را در صورت وجود باز می کند

سلام دوستان عزيز امروز سورس يك سا عت جالب براتون آماده كردمبراي درست كردن اين ساعت

شما بايد ابزار مورد نياز رو  

به فرمتون اضافه كنيد

كه عبارتند از :

 Command Button

 Timer

 Line

حالا كدها رو تو قسمت كد نويسي كپي كنيد

كد ها در ادامه مطلب



ادامه مطلب

• براي ساخت گل رز اول در داخل form يك timer رسم كرده
• و وارد خصوصيات آن مي شويم interval را 100 قرار ميدهيم
• و enabled را به true تغيير مي دهيم
• 
  Private Sub Form_Load()
  WindowState = 2
  End Sub
• سپس كد زير را در داخل timer تايپ مي كنيم.
• توجه
• اگر بخواهيد شكل گل را تغيير دهيد در كد بالا قسمت e = g * Sin(6 * l) به جاي شماره 6 شماره اي را به دلخواه خود وارد كنيد سپس شكل گل شما تغيير مي كند.
• کدها در ادامه مطلب

ادامه مطلب

• اینهم یک تابع دیگه شمابا کمکاین تابع می توانید تصاویرتان را به زیبایی محو کند یا نمایش دهد.مراحل زیر را انجام دهید
• یک Picturebox و Scrollbar با نام قبلی Picture1 و HScroll1 به فرم خوداضافه کنید.
• به Picture1 یک تصویر بدهید.
• حال کد زیر را پروژه خود اضافه کنید:
• کدها در ادامه مطلب

ادامه مطلب

• سلام به همه ی دوستان گل که دارن این میخونن
• امروز میحواستم یک چیز خیلی عجسب رو بهتون یاد بدم
• نمیگم چییه پس خودتون ببینید
• اول یک تایمر به فرمتون اضافه کنین
• حالا کد ها رو توش کپی کنید
• کدها در ادمه مطلب

نـــــظـــــر------------ =----------شــــــــخـــــــصـــــیــــــــت

ادامه مطلب

HDD Information Show Firmware, Space Free, Model, Name

مشاهده مشخصات کامل هارد به همراه نمودار نمایش فضا

سریال هارد

Total Space-Free Space-Used Space-Volume Name-Serial Number-Lenght String-Sector per Cluster-Bytes per Sectors-Free Clusters-Total Clusters

Show Graph

و کلی اطلاعات دیگر

دانلود برنامه

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

1-استفاده از بانک اطلاعاتی اکسس

2-استفاده از پوسته و اسکین مختلف

3-اضافه کردن مشخصات هواپیما

4-اضافه نمودن مشخصات آژانس

5- انجام کلیه امور مسافرین اعم از اضافه،حذف،ویرایشو...

6-چاپ فاکتور بسیار زیبا همراه با نشان دادن تمامی جزئیات

7-انتخاب نمودن پرینتر دلخواه

و ... اشاره نمود.

 دانلود

دانلود ماشين حساب 1

دانلود ماشين حساب 2

دانلود ماشين حساب 3

دانلود ماشين حساب 4

دانلود ماشين حساب 5

دانلود ماشين حساب 6

پسورد فايل =  vbsalam

فرم LogIn :

در اين فرم كاربر نام كاربري و رمز خود را وارد مي كند. انواع كاربر عبارتند از:

1. مدير
   • قابليت ويرايش نام و رمز مدير
   • قابليت تعريف كاربر جديد از دو نوع معاون و دفتردار
   • قابليت ويرايش كاربر موجود
   • قابليت حدف كاربر موجود
   • قابليت حركت بين ركوردها

2. دفتردار
   • قابليت افزايش دانش آموز جديد
   • قابليت ويرايش دانش آموز
   • قابليت جستجو دانش آموز بر اساس نام و نام خانوادگي  يا شماره دانش آموزي
   • قابليت حذف دانش آموز
   • قابليت حركت بين ركوردها

* توجه: دفتر دار فقط مي تواند با مشخصات دانش آموز كار كند و با بخش وضعيت تحصيلي

ارتباط ندارد.

3. معاون
   • قابليت مشاهده  مشخصات دانش آموز
   • قابليت ويرايش وضعيت تحصيلي
   • قابليت جستجو دانش آموز بر اساس نام و نام خانوادگي  يا شماره دانش آموزي
   • قابليت نمايش ليست دانش آموزان

* توجه: معاون نمي تواند با مشخصات دانش آموز كار كند وفقط  با بخش وضعيت تحصيلي

ارتباط دارد.

 دانلود