بزرگترین وبسایت برنامه نویسی ، طراحی سایت و انجام پروژه دانشجویی و شرکتی

سلام دوستان عزیز

در اینجا برای شما سورس کدی ( تکه کدی ) را می گذارم که با آن می توانید لیست درایو های کامپیوتر را در دو لیست باکس جداگانه که در یکی درایو های ثابت است مانند هارد دیسک و در دیگر درایو های قابل حمل مانند فلش مموری.

این سورس کد در ویژوال بیسیک ۶ نوشته شده است و از api های کامپیوتر کمک می گیرد.

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

تصویر برنامه :

دیدن لیست درایو ها در ویژوال بیسیک ۶

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

(ادامه…)

سلام

دوستان عزیز اگر قصد تهیه برنامه در اوپن جی ال را دارید می توانید از برنامه زیر استفاده کنید.

این برنامه در c++ با استفاده از OpenGL نوشته شده و یک مکعب سه بعدی قرمز رنگ رو طراحی می کنه.

عکس برنامه :

برای خرید این برنامه می توانید مبلغ ۱۵ هزار تومان را به حساب شماره ۱۱۲۵۰۲۸۵۳۱ نزد بانک ملت یا به کارت شماره ۶۱۰۴۳۳۷۰۳۹۳۳۳۹۶۶ نزد بانک ملت به نام امید ظریفی پرداخت کنید و بعدا به شماره موبایل ۰۹۱۴۸۳۱۷۱۶۰ پیامک بفرستید یا به ایمیل [email protected] ایمیل بزنید تا پس از تایید پرداخت شما برنامه برایتان ایمیل شود.

می توانید برای پرداخت آنلاین از طریق لینک زیر اقدام کنید

http://pay.progvig.com

چگونه از اجرای مجدد یک برنامه در ویژوال بیسیک جلوگیری شود ؟

خوب با استفاده از تیکه کد زیر در فرم اصلی برنامه تان می توانید از اجرای مجدد (Duplicate) برنامه جلوگیری کنید

Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox(“برنامه در حال اجراست“, vbInformation, “Warnnig”)
Unload Me
End If
End Sub

منبع : پراگ ویگ دات کام

سلام دوستان عزیز

شما با کد زیر می توانید هر متنی را که می خواهید در ویژوال بیسیک ۶ کد کنید و با بر عکس کردن این یعنی -۱۰ کردن از حالت کد در بیاورید.

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

you can by this code , encode the texts in vb 6.

for back you just That is up to -10.

in more

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

(ادامه…)

خوب با استفاده از تیکه کد زیر در فرم اصلی برنامه تان می توانید از اجرای مجدد (Duplicate) برنامه جلوگیری کنید

Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox(“برنامه در حال اجراست“, vbInformation, “Warnnig”)
Unload Me
End If
End Sub

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

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

You can work with source code in Visual Basic 6 applications to be run only once, such as Yahoo Messenger, and they can not be performed multiple times.

سلام دوستان عزیز

در زیر برای شما تکه کدی را می گذارم که با استفاده از آن می توانید به راحتی از صفحه نمایش عکس گرفته و در درایو c با نام scr1.bmp ذخیره کنید

کارکرد این تکه کد خیلی ساده بوده و توسط api های ویندوز کار می کند.

In the following piece of code for you which I can easily take a photo of your screen and save to your hard drive. This code is written by Visual Basic 6.

تکه کد :

Source code :

Private Declare Function BitBlt Lib “gdi32″ (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib “user32″ (ByVal hwnd As Long) As Long

Private Const SRCCOPY = &HCC0020 ‘ (DWORD) dest = source

Private Sub Form_Load()
Me.Hide
End Sub

Private Sub Timer1_Timer()
Dim H_Dc As Long
H_Dc = GetDC(0)
Me.Cls
Me.AutoRedraw = True
Me.WindowState = vbMaximized
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, H_Dc, 0, 0, SRCCOPY
SavePicture Me.Image, “C:\Scr1.Bmp”
End Sub

سلام دوستان عزیز

در زیر برای شما یک سورس کد ماشین حساب به زبان سی شارپ را می گذارم که عملیات جمع ، ضرب ، منهی و تقسیم را انجام می دهد و علامه بر آنها دکمه بازگشت و پاک کردن نیز دارد.

شما می توانید تصویر این ماشین حساب ساده را در زیر ببینید.

تصویر :

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

(ادامه…)

سلام دوستان عزیز

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

این دیکشنری چون در C++ نوشته شده فقط انگلیسی به انگلیسی را پشتیبانی می کند.

فرهنگ لغات برنامه یک فایل متنی TXT هست.

تصویر برنامه :

برای خرید این برنامه می توانید مبلغ ۱۵ هزار تومان را به حساب شماره ۱۱۲۵۰۲۸۵۳۱ نزد بانک ملت یا به کارت شماره ۶۱۰۴۳۳۷۰۳۹۳۳۳۹۶۶ نزد بانک ملت به نام امید ظریفی پرداخت کنید و بعدا به شماره موبایل ۰۹۱۴۸۳۱۷۱۶۰ پیامک بفرستید یا به ایمیل [email protected] ایمیل بزنید تا پس از تایید پرداخت شما برنامه برایتان ایمیل شود.

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

سلام دوستان عزیز

در زیر برای شما سورس کد مدیریت کتابخانه را برای دانلود می گذارم که در زبان سی شارپ دات نت با پایگاه داده sql server نوشته شده است

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

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

(ادامه…)

سلام

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

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

(ادامه…)