Printable View
[ A RPG Helper ]
My code is just here to help anyone who is need of help when creating their own RPG. My code just as some basics, collision detection, and 'scrolling' techiques... Hope you guys find it useful...
کد:http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC2004571333579591.jpg
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=53639&strZipAccessCode=tp%2F%5B536392705
[ A RPG Helper 2 ]
My code is just here to help anyone who is need of help when creating their own RPG. My code just as some basics, collision detection, and 'scrolling' techiques... Hope you guys find it useful... Please, leave you comments and votes... I will be adding comments to my code very soon :)
کد:http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC200458181968060.gif
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=53661&strZipAccessCode=tp%2F%5B536613285
[ A Shoter Game Tutorial v2.0 ]
This is the second version of my program "Basic Shoter Tutorial". I added some other cool stuff Vote Please
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=58413&strZipAccessCode=tp%2F%5B584134812
[ Best NavalBattle Game ]
This is the best Naval Battle game ever created. There are 6 different ships and two kind of weapons. You can play against an intelligent computer or a friend on the same PC. Or you can play with someone through LAN or Internet. Also it saves top 10 high scores for single player games. Lastly, it has some secrets waiting to be found. Please vote for it and dont forget to give feedback!
کد:http://www.planetsourcecode.com/Upload_PSC/ScreenShots/PIC20051211125262717.jpg
کد:http://www.planetsourcecode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=58416&strZipAccessCode=tp%2F%5B584165312
اینجا هم هست
کد:http://forum.p30world.com/showthread.php?t=235357
mer30 babat dic
:8:
ممممممتاغللفنقل قول:
سلام دوستان خسته نباشید خیلی گیرم وی بیم زیاد خوب نیست امامجبورماز طرقیه کامپوننت سریال هارد رو گرفتم حالا هم می خوام تبدیلش کنم به کد اسکی سریال هارد این هست ترو قران یکی بگه چه طوری این رو L22CB3EG رو چه طوری تبد به کد اسکی کنم و توی یه لیبلبه صورت عدد به نمایش در بیاد و وقتی اون عدد رو برگردوندن به کد اسکی سریال هارد رو دوباره بده یعنی همون عددی که بالا ذکر کردم ترو قران ترو خدا کمک کنید ممنون میشم دستت شمادرد نکنه همه بچه های سایت و مدیرای مهترم همه و همه خسته نباشن
یک برنامه ی آماده ساخته شده توسط خودم که چندین طرح گرافیکی زیبا رو ترسیم می کنه. این هم لینک دانلودش:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
:5::5::5::5::5::5::5::5::5:
Advance Access to MySQL
Here is my first submission on, This project prepared to help you to convert your Ms Access Database into MySQL data source format. On this project, I'm using some API function to Draw caption or Picture, so it is helpfull for newbie in VB to learn about API programming. I'm using osenxpsuite controls, to improve my GUI application. if you does not have osenxpsuite controls, you can download it from:کد:www.pscode.com
I WAS TESTED THIS APP IN MY PC P-III 730 Mhz, and It work fine. It can convert nwind.mdb to MySQL data source for 7.07 seconds If this project usefull for you, PLEASE VOTE THIS APPLICATION INکد:http://download.osenxpsuite.com/osenxpsuite.zip
Note: - MDAC 2.5 needed - OsenXPSuite controls (کد:www.pscode.com
) needed - MySQL oDBC 3.51 Driver needed DOES NOT SUPPORT: • cREATE INDEX • CREATE PRIMARY KEY • CREATE FOREIGN KEY • CONVERT BINARY DATA VALUES (BLOB) IF ANY IDEA HOW TO SOLVE SOME TROUBLE ABOVE, PLEASE LET ME KNOW. I REALLY NEED HELP ADVANCE VB DEVELOPER TO SOLVE MY APP THANK YOUکد:http://download.osenxpsuite.com/osenxpsuite.zip
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=57053&strZipAccessCode=tp%2FA570532811
SQL Server Developer
A must for the SQL Server Developer. Combines what developers use with Enterprise Manager and Query Analyser in one package as well as other features including a simple but effective stored procedure debugger, perfect for the beginning SQL developer. Search utility very helpful also. Requires 1024x screen resolution. Can handle multiple selects (max 10) at a time. Be sure to read the readme.txt file for extra features.
کد:http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=58447&strZipAccessCode=tp%2FS584471512
MYSQL Admin
Hi All This is a little MYSQL ADMIN project i worked on, but never got around to make done, so I thought I share it with you people. I was going for something like TOAD for oracle, if anyone knows that program, but It's only 50% done. You going to need the ODBC driver. You can download the MyODBC-3.51.06.exe atHope you enjoy the program. CiXکد:http://www.mysql.com/products/connector/odbc/
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کد:http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=54623&strZipAccessCode=tp%2FM546237262
ببخشيد به نظر من اين تاپيك زيادي شلوغ شده!!؟؟!
اين هم پروژه كاري من
برنامه انبارداري زياد خوب نشده ولي بدون اشكال هست
کد:http://www.4shared.com/file/213716744/6411c3d9/anbar.html
دوستان، من یه پروژه برای وارد کردن اجناس (انبارداری) با vb6 میخوام.
اگه منو راهنمایی کنین ممنون میشم.
یه نگاه به پست قبلی تون بندازید...! اگه مشکلی داشت دوباره ریپلای بزنید...! :27:نقل قول:
موفق باشید...! :46:
نقل قول:
سلام ىوست عزيز با همين شكل و شمايل مي خواهيش يا جذاب تر؟
ممنون دوست عزیز جالب بود
سلام
دوستان چطور می تونم کلید های فشرده شده در محیط ویندوز رو وقتی focus روی هر محیطی هست به ویژال بیسیک ارسال کنم؟
مثلا در یک برنامه ای وقتی کلید های ترکیبی فشرده شدند یک سری عملیات در برنامه ای که توسط vb نوشتم انجام بشه
امیدوارم به دردتون بخوره:نقل قول:
کد:'In a module
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, sSave As String, sOld As String, Ret As String
Dim Tel As Long
Function GetPressedKey() As String
For Cnt = 32 To 128
'Get the keystate of a specified key
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
End If
End Sub
'In a form
Private Sub Form_Load()
Me.Caption = "Key Spy"
'Create an API-timer
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
Private Sub Form_Paint()
Dim R As RECT
Const mStr = "Start this project, go to another application, type something, switch back to this application and unload the form. If you unload the form, a messagebox with all the typed keys will be shown."
'Clear the form
Me.Cls
'API uses pixels
Me.ScaleMode = vbPixels
'Set the rectangle's values
SetRect R, 0, 0, Me.ScaleWidth, Me.ScaleHeight
'Draw the text on the form
DrawTextEx Me.hDC, mStr, Len(mStr), R, DT_WORDBREAK Or DT_CENTER, ByVal 0&
End Sub
Private Sub Form_Resize()
Form_Paint
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Kill our API-timer
KillTimer Me.hwnd, 0
'Show all the typed keys
MsgBox sSave
End Sub
سلام
خیلی ممنون
واقعا بدردم خورد
خیلی ممنون دوستان خیلی برنامه هاتون بدردم خورد
چرا دیگه این تاپیک توسط دوستانی همچون سینا و ... آپدیت نمیشه!!!!:41:
اینو هم من پیدا کردم گفتم شاید بدردتون بخوره
دیگه چک نکردم ببینم تکراری یا نه:D
*********************************
در حالت عادی قیافه یه برنامه با بیسیک 6 این جوریه(سمت چپ) حالا اگه بخوایم مثل سمت راستش کنیم چه؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
راه حل سادست:D
اول Notepad رو یاز کنین و متن زیر رو توش کپی کنین
حالا اگه اسم فایل اجرایی تون مثلا FF.exe هست اینو به اسم FF.exe.manifest ذخیره کنینکد:<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourAppName"
type="win32" />
<description>Your application description here</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>
</assembly>
(توی همون دایرکتوری برنامه)
حالا این کد رو به برنامه اضافه کنین
حالا با فراخوانی تابع InitCommonControlsVB می تونین ظاهر برنامه تون رو مثل اکس پی کنین:Dکد:Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
(iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error Goto 0
End Function
سلام به دوستان من در مورد نوشتن برنامه ماشین حساب دچار مشکل شدم تاپیک سوالات هم قفل شده
سوالم اینه :
برای اعداد روی ماشین حساب چه کدی باید نوشت که به صورت زیر عمل کنن. در اولین بار که عدد زده میشه به حالت عادی نرمال ماشین حساب اون عدد تایپ بشه اما اگه مثلا یه عدد زدم بعد جمع رو زدم با زدن عدد بعدی عدد قبلی از روی تکست باکس حذف بشه و عدد جدید رو نمایش بده.
ممنون میشم راهنمایی کنید.
راه ساده این کار اینه که یه متغیر عمومی یا استاتیک تعریف کنی و بعد از زدن دکمه جمع (یا هر کدوم از دکمه های دیگه) مقدار توی تکست باکس رو با اون جمع کنه(یا هر عمل دیگه رو) و در آخر اگه دکمه delete رو زد عدد رو صفر کنه :31:نقل قول:
البته این توضیحی که من دادم حالت کلیه و برای هزارتا عمل هزارتا عدد هم کار می کنه ولی می تونی برای کار خودت سادش کنی:46:
برنامه ی عالی هست،ولی در هنگام اجرای نرم افزار یک نام کاربری و کلمه عبور میخواهد که نام کاربری به طور پیشفرض 1 است اما کلمه عبور رو هر چه میزنم اشکال میگیرد،کلمه ی عبور چند است؟!نقل قول:
با سلام خدمت دوستان،در 5 صفحه اول این تایپیک واقعا برنامه ی بسیار خوبی گذاشته شده اما بیشتر اونها هنگام اجرا و برای ورود به محیط نام کاربری و پسوردی درخواست میکنند!!!
میشه کمک کنید؟
آقا کسی برنامه اکتیو اسکین را داره؟
يعني كسي نميدونه نام کاربری و کلمه عبور اين برنامه باشگاه بدنسازي چيه؟!!نقل قول:
سلام میشه لطفا سورس برنامه اعداد باینری رو واسم بذارید؟ ممنون میشم
سلام میشه لطفا سورس برنامه اعداد باینری رو واسم بزارید؟ ممنون میشم
با سلام خدمت دوست گرامی از زحمات شما بسیار ممنونم می خواستم سورس برنامه علائم راهنمایی و رانندگی و جورچین تصاویر به هم ریخته را برایم بگذلرید
سلامنقل قول:
مرسی ممنون رمز عبورش رو بزارین
سلام . اگه کسی پروژه ای در مورد فست فود داره واسم ایمیل کنه خیلی احتیاج دارم ضروریه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
نرم افزار مدیریت مشترکین تلفنی رستورانها اصلا باز نمیشه اگه میشه واسم ایمیلش کنید
خواهش میکنم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام به همه
عزیزان من یه برنامه میخام که با vb نوشته شه و این کار رو برام بکنه یه چیز سادست
میخام تو برنامه یهو بعد از لحضاتی یه رنگ سبز ظاهر شه و بمونه
و همین که رنگ سبز ظاهر شد یه کرنمتر(زمان شمار)شروع به شمردن بکنه
و چهار تا دکمه تو برنامه باشه که اگه مثلا رو یکیش زدم کرنمتر واسته(رنگ هم بمونه)مثلا رو زمان 10 بود رو این زمان بمونه
و با یه دکمه دیگه دوباره شمارش رو ادامه بده
و دکمه سوم هم اگه بزنم کرنمتر رو صفر بکنه و رنگ هم بره
و دکمه چهارم رو بزنم بره مرحل یک یعنی همون ظاهر شدن دوباره و از سر گیری کرنمتر
لطفا اینبرنامه رو اگه زحمت نیست خودتون درست کنید
و از همه مهمتر کدش رو برام بزارید با یکم توضیح که چه چیزایی رو فرم اظافه کنم
و کدوم کد مربوط به کجاست
من یک برنامه با ویژیال بیسیک درست کردم و در این برنامه از عنصر winsock استفاده کردم این برنامه را توی کامپیوتر خودم امتحان کردم کار کرد ولی توی کامپیوتر دوستام این برنامه کار نکر د منو راهنمایی کنید که این برنامه چرا توی کامیوتر دیگران اجرا نمیشه ولی توی کامپیوتر خودم اجرا میشه و چیکار کنم این برنامه توی کامپیوتر دیگران هم اجرا بشود یا از این عنصر وینساک چطوری استفاده کنم .
(جناب مدیر من یک تایپیک جدید ایجاد کردم و همین مطلبو داخلش گزاشتم ولی هرچی دنبالش گشتم پیداش نکردم لطفاً لینک این تایپیکی که ایجاد کردم برام بفرست)
خیلی عالی بود برنامه بارکد