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

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

برای شما در اینجا سورس کد الگوریتم دیاگرام voronoi برای n نقطه را به دانلود گذاشتم.

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

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

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

(ادامه…)

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

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

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

۱- ثبت و حذف کارمندان .

۲- محاسبه حقوق بر حسب تعداد روز های کاری ، بیمه ، مالیات ، وام و … .

۳- ثبت حقوق

۴- تهیه گزارش برای هر یک از کارمندان به صورت مجزا

عکس قسمتی از برنامه :

سورس کد حقوق و دستمزد

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

(ادامه…)

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

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

می تونید اونو به راحتی از ما تهیه کنید.

عکس محیط :

سورس کد هشت وزیر

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

(ادامه…)

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

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

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

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

Private Sub Command1_Click()
ShellExecute Me.hwnd, “Open”, “http://www.progvig.com”, “”, App.Path, 1
End Sub

در کد های فوق می توانید به جای آدرس سایت ، آدرس برنامه در هارد دیسک یا شکل اجرایی آن را وارد کنید مثلا به جای آدرس سایت بنویسید explorer.exe که در این صورت برنامه اکسپلورر ویندوز باز خواهد شد.

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

خوب با استفاده از تیکه کد زیر در فرم اصلی برنامه تان می توانید از اجرای مجدد (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

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

(ادامه…)

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

من در زیر برای شما سورس کدی را می گذارم که بوسیله آن شما می توانید یک پنجره مورد نظر را مانند Task manager که در حال اجرا است پیدا کنید و آن را ببندید.

این برنامه در ویژوال بیسیک ۶  نوشته شده و قابلیت آن را دارد که پنجره ها را با عنوان پیدا کرده و ببندد و کارکرد آن بطوری است که نیاز به یک تایمر و دو API دارد.

I put the following code by which you can find your running program and close it.

this source code in visual basic 6.

go to more to see.

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

(ادامه…)

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

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

تکه کد :

Private Declare Function sndPlaySound Lib “winmm” Alias “sndPlaySoundA” (ByVal FileName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
sndPlaySound App.Path & “\exit.wav“, 0

End Sub

در کد بالا app.path همان پوشه ای است که برنامه از آنجا اجرا می شود و exit.wav نام فایل صوتی مورد نظر است

کد های Private Declare Function… یک api از api های ویندوز است.

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

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

من در اینجا یه برنامه به زبان ویژوال بیسیک برای شما  می گذارم که در واقع پیا نو سورس بازاست

این برنامه به V.B6 نوشته شده است.

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

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

(ادامه…)

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

من در اینجا یه برنامه به زبان ویژوال بیسیک برای شما  می گذارم که در واقع یک ماشین حساب سورس باز است

این برنامه به V.B 6 نوشته شده است.

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

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

(ادامه…)