این هم یک روش دیگه برای رسم دایره در ویژوال بیسیک است .این روش از راه دکارتی هست امیدوارم بدردتون بخوره در ضمن نظر یادتون نره. و بقیه در ادامه مطلب...
ادامه مطلب+ نوشته شده در جمعه بیست و یکم تیر 1387ساعت 22:29 توسط نادر
|
خوب دو ستان عزیز این یکی از سورس هایی است که مربوط به ریاضی هست و کسانی که از ریاضی خوششون میاد حتما از این کد لذت می برند . با چند تکه کد زیر می توانید یک چرخ دنده طراحی کنید . کد های زیر را در یک command بنویسید و بعد اجراش کنید .
Cls
p = 4 * Atn(1)
a = 0
CurrentX = 85 - 35 * -Cos(a)
CurrentY = 50 + 35 * -Sin(a)
f = 1
Do
x = 85 - 35 * -Cos(a)
y = 50 + 35 * -Sin(a)
X1 = 85 - 25 * -Cos(a)
Y1 = 50 + 25 * -Sin(a)
If f = 1 Then
Line -(x, y), BackColor
Else
Line -(x, y), Color
End If
f = f * -1
Line (X1, Y1)-(x, y)
a = a + 2 * p / 20
Loop Until a > 4 * p
a = 0
CurrentX = 85 - 25 * -Cos(a)
CurrentY = 50 + 25 * -Sin(a)
f = 1
Do
x = 85 - 25 * -Cos(a)
y = 50 + 25 * -Sin(a)
If f = 1 Then
Line -(x, y), Color
Else
Line -(x, y), BackColor
End If
f = f * -1
a = a + 2 * p / 20
Loop Until a > 4 * p
Circle (85, 50), 15
برای آزمایش این کد بهتر است پهنای فرم بالا ی 8000 باشد و درازای فرم بالای 5000 .
+ نوشته شده در چهارشنبه نوزدهم تیر 1387ساعت 15:3 توسط نادر
|
خوب برای اینکه در ویژوال بیسیک بفهمید چه کلید هایی از صفحه کلید زده شده باید از سورس زیر استفاده کنید با این سور می تونید کلید های زده شده توسط کاربر را ثبت کنید مثل یک کی لوگر که تمام کلید های زده شده رو ثبت می کنه و به شما نمایش می ده.
وضعیت کلید های زده شده در ویژوال بیسیک
دانلود
+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 8:11 توسط نادر
|
با این سورس کم و ساده می تونید یک جلوه زیبا به فرم بدهید که با تغییر داردن اعداد می تونید جلوه های زیباتری هم به فرم بدهید سورس رو یه نگاه بندازید اگر جایی مشکل داشتید حتما به من خبر دهید.
جلوه بخشیدن به فرم در ویژوال بیسیک
دانلود
+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 8:3 توسط نادر
|
این سورس خیلی زیبا و جالب و عالی هست که با یک Shape چه کارایی نمیشه کرد باید ببینی بعد متوجه میشی که من راست گفتم را دروغ این سورس بهترینه حتما دانلود کنید . نظر یادتون نره ، یادتون بره برام مهم نیست اینو دانلود کنید.
جلوه بخشیدن به اشکال هندسی
دانلود
+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 7:58 توسط نادر
|
این سورس خیلی زیبا و جالب و عالی هست که با یک Shape چه کارایی نمیشه کرد باید ببینی بعد متوجه میشی که من راست گفتم را دروغ این سورس بهترینه حتما دانلود کنید . نظر یادتون نره یادتون بره برام مهم نیست اینو دانلود کنید.
+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 7:56 توسط نادر
|
همون طور که موی دونید این سورس یک نقشه کامل از کاراکتر های فارسی و انگلیسی هست که با استفاده از این می تونید هر کاراکتر دلخواهی که در کیبورد مشاهده نمی کنید رو مشاهده کنید این همانند Character Map ویندوز عمل می کنه که قابلیت های بیشتری نسبت به اونو داره .
نقشه کاراکتر های ویندوز
دانلود+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 7:50 توسط نادر
|
خوب دوستان عزیزم از شما غذرخواهی می کنم که لینک فایل قبلی کار نمی کرد و دانلود نمی شد مشکل از هاست بود من داشتم خودمو می کشتم دانلود نمی شد شرمنده که این طوری شد هاست دیگه بعضی موقع ها قاطی می کنه کاریش نمی شه کرد حالا شما به بزرگواری تون منو ببخشید.
امروز هم یک سری سورس های جدید و جالب براتون دارم که خیلی عالی هم هست این سورس رو که آپ کردم و لینک دانلودش هم زیر امده در رابطه با رسم دایره هست که بهتر از این نمی شه طراحی کرد بسیار جالب هم هست دانلودش کنید ضرر نمی کنید راستی رسم رفاقت ایرانیان این نیست بیای تو نظر ندی .
رسم دایره در ویژوال بیسیک
دانلود+ نوشته شده در چهارشنبه دوازدهم تیر 1387ساعت 7:42 توسط نادر
|
اینم یه سورس جالب دیگه در ویژوال بیسیک که قادرید با این سورس درایوهای دلخواه خودتون رو مخفی کنید مثل درایو سی دی رام یا درایو های خصوصی خودتون رو مخفی کنید.
مخفی کردن درایو در ویژوال بیسیک
دانلود
+ نوشته شده در دوشنبه دهم تیر 1387ساعت 23:28 توسط نادر
|
خوب این هم از سورس زمین فوتبال سه بعدی که از تعدادی دستور ریاضی نوشته شده اگه دقت کنید می بینید که با چند خط ساده و فرمول های ریاضی چه چیزهایی جالبی می تونید طراحی کنید . سورس زیر رو دانلود کنید و نظر و پیشنهادات خودتون رو در قسمت نظرات به من خبر بدهید. اگه یک کم پیچیده است منو ببخشید.
زمین فوتبال سه بعدی
دانلود
+ نوشته شده در دوشنبه دهم تیر 1387ساعت 0:29 توسط نادر
|
سه تا از سورس های سه بعدی که بسیار زیبا و ساده هستند برای شما گذاشتم تا دانلود کنید امیدوارم از این سورس ها خوشتون بیاد . از بابت نظراتی که دادید ممنونم خواهشمندم اگر انتقاد هم دارید در قسمت نظرات وارد کنید . اگر سوالی هم دارید می تونید د ر قسمت نظرات به من خبر بدید.منتظر نظرات و انتقادات شما هستم.
سورس سه بعدی 1
دانلودسورس سه بعدی 2
دانلودسورس سه بعدی 3
دانلود
+ نوشته شده در دوشنبه دهم تیر 1387ساعت 0:15 توسط نادر
|
بیشتر برنامه های رایت بعد از رایت سی دی مورد نظر به طور خودکار درب سی دی رام باز می شود و سی دی رایت شده به بیرون آورده می شود شاید برای پیش اومده که بخواهید این کار رو با ویژوال بیسیک انجام دهید اما تحت هر شرایطی نتونستید این کار رو انجام دهید! برای همین امروز یک کد در مورد باز و بسته کردن سی دی رام برای شما گذاشتم تا نهایت استفاده از این سورس رو ببرید.
کد 1
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
کد برای باز کردن درب سی دی رام در که زیر آمده است رو در رویداد کلیک یک شی قرار دهید
بطور مثال Command1_Click
Private Sub cmdOpen_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub
برای بستن درب سی دی رام از کد زیر استفاده کنید.
بطور مثال Command1_Click
Private Sub cmdClose_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub
+ نوشته شده در شنبه هشتم تیر 1387ساعت 8:28 توسط نادر
|
برای اجرای فایل صوتی Wave باید از کد زیر استفاده کنید .
Declare Function "PlayWave" lib "winmm" alias "sndPlaySoundA" _
(ByVal filename as string, ByVal flags as long) as long
برای اجرای فایل کد زیر را روی رویداد کلیک هر شی رو که دوست داشتید قرار دهید. البته شما می توانید روی رویداد های دیگر هم قرار بدهید هدف یادگیری این کد است.
Playwav "C:\Irani.wav", &H1 ' Masir File Ro Vared Konid
+ نوشته شده در شنبه هشتم تیر 1387ساعت 8:17 توسط نادر
|
با api زیر می تونید عکس پشت زمینه دسکتاپ رو روی فرم نمایش بدید.
api 1
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
این کد رو در یک Command بزارید
PaintDesktop Form1.hdc
با api زیر می تونید یک پیغام از نوع ویندوز 95 صادر کنید.
api 2
Private Declare Function ShellAbout Lib "shell32.dll" _
Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Sub ShowAbout(hWnd As Long, lngIcon As Long)
Shellabout hWnd, "متن شما باید اینجا وارد شود", "اینجا هم همینطور", lngIcon
End Sub
با api زیر می تونید نام کامپیوتر خودتون رو عوض کنید
api 3
Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Private Sub cmdChange_Click()
SetComputerName Com.text
End Sub
+ نوشته شده در پنجشنبه ششم تیر 1387ساعت 0:30 توسط نادر
|
برای اضافه کردن یک سخت افزار جدید از کد زیر استفاده کنید .
کد 1
Shell ("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
برای اضافه کردن یک پرینتر جدید از کد زیر استفاده کنید .
کد 2
Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter")
برای مدیریت فایل های به اشتراک گذاشته از کد زیر استفاده کنید.
کد 3
Shell("rundll32.exe ntlanui.dll,ShareManage")
برای مخفی کردن نام برنامه از کد زیر استفاده کنید.
کد 4
App.TaskVisible = False
برای ساختن فایل کیف دستی(Briefcase) از کد زیر استفاده کنید.
کد 5
Shell("rundll32.exe syncui.dll,Briefcase_Create")
برای به اشتراک گذاری یک پوشه از کد زیر استفاده کنید.
کد 6
Shell("rundll32.exe ntlanui.dll,ShareCreate")
+ نوشته شده در پنجشنبه ششم تیر 1387ساعت 0:11 توسط نادر
|
با سلام خدمت دوستان عزیز
یه چند هفته بود که روی یک پروژه برنامه نویسی مربوط به هک داشتم روش کار می کردم! و اصلا وقت نداشتم که این سایت را برای شما آپدیت کنم . اما یک خبر مهم این بود که یک برنامه بسیار قوی ساخنم که قادره دیال آپ طرف قربانی را به ایمیل شما ارسال کنه قیمت زیادی نداره چیزی در حدود
۲۰۰۰ هزار تومان هست . کارایی بالایی داره و در فرستادن دیال آپ بسیار زیرکانه عمل می کنه و غیر قابل شناسایی در آنتی ویروس ها است و با حجم کم. این برنامه فروشی است و اگر کسی این برنامه رو خواست مس تونه با ایدی من Nader_Talebii با من در تماس باشه. فقط یه چیزی که هست اینه این برنامه قادر هست هر تعداد که شما خواستید برای شما ایمیل کنه.
+ نوشته شده در چهارشنبه پنجم تیر 1387ساعت 11:57 توسط نادر
|
با این سورس کد بسیار راحت می توانید یک داده از نوع String در رجیستری ویندوز ایجاد کنید.
ذخیره کردن یک رشته در رجیستری ویندوز
دانلود
+ نوشته شده در شنبه یکم تیر 1387ساعت 13:10 توسط نادر
|
با این سورس هم می تونید اعداد دسیمال روبه باینری تبدیل کنید .
تبدیل اعداد دسیمال به باینری در ویژوال بیسیک
دانلود
+ نوشته شده در شنبه یکم تیر 1387ساعت 13:4 توسط نادر
|
با این سورس می تونید دیتا بیس خودتون رو ویرایش کنید. وای امتحانات چه قدر سخت بود ولی قبول شدم!
ویرایش دیتا بیس با قابلیت ذخیره سازی در ویژوال بیسیک
دانلود
+ نوشته شده در شنبه یکم تیر 1387ساعت 13:2 توسط نادر
|
