Eclipse یک پلت فرم توسعه قابل توسعه با زمان اجرا و پلت فرم های کاربردی برای ایجاد، استفاده و مدیریت نرم افزار در طول چرخه عمر آن است. بسیاری از مردم Eclipse را به عنوان یک Java IDE می شناسند، اما Eclipse در واقع از بیش از 60 پروژه متن باز مختلف تشکیل شده است.
منبع باز رایگانمک ویندوز لینوکس
NetBeans
IDE رایگان و متن باز برای توسعه دهندگان نرم افزار. شما تمام ابزارهای مورد نیاز برای ساختن برنامه های حرفه ای دسکتاپ، سازمانی، وب و موبایل در جاوا، C/C++ و حتی زبان های پویا مانند PHP، جاوا اسکریپت، Groovy و Ruby را دریافت می کنید.
منبع باز رایگانمک ویندوز لینوکس BSD
استودیو آپتانا
Aptana Studio یک محیط توسعه وب کامل است که ابزارهای توسعه قدرتمند را با مجموعه ای از خدمات میزبانی آنلاین و همکاری ترکیب می کند تا به شما و تیم شما کمک کند تا کارهای بیشتری انجام دهید. شامل پشتیبانی از PHP، CSS، FTP و غیره است.
منبع باز رایگانمک ویندوز لینوکس
کومودو ویرایش
Komodo Edit یک ویرایشگر متن باز سریع، هوشمند و رایگان است. سعی کنید از Komodo Edit (یا برادر بزرگتر آن Komodo IDE) استفاده کنید - ارزشش را دارد.
منبع باز رایگانمک ویندوز لینوکس
xcode
Xcode توسط Apple محیط توسعه پیشرو برای Mac OS X است. علاوه بر اینکه با هر خرید Mac OS X بر روی دیسک قرار می گیرد، آخرین نسخه همیشه برای دانلود رایگان برای اعضای ADC (شبکه اجتماعی برای توسعه دهندگان برنامه در سراسر جهان) در دسترس است. پلتفرم های اپل) و شامل تمام ابزارهایی است که برای ایجاد، بهینه سازی و بهینه سازی برنامه هایی که ایجاد می کنید نیاز دارید
رایگانمک
MonoDevelop
MonoDevelop یک IDE بین پلتفرمی است که عمدتاً برای C# و دیگر زبان‌های دات‌نت طراحی شده است. MonoDevelop به توسعه دهندگان اجازه می دهد تا به سرعت برنامه های دسکتاپ و وب ASP.NET را برای Linux، Windows و Mac OSX ایجاد کنند. MonoDevelop به توسعه دهندگان اجازه می دهد تا به راحتی برنامه های دات نت ایجاد شده در ویژوال استودیو را به لینوکس و مک OSX منتقل کنند و در عین حال یک پایه کد واحد را در همه پلتفرم ها حفظ کنند.
منبع باز رایگان Mac Windows Linux .NET Framework Xamarin Studio
لازاروس
Free Pascal یک کامپایلر GPL است که روی Linux، Win32، OS/2، 68K و غیره اجرا می شود. پاسکال رایگان برای درک و کامپایل نحو دلفی طراحی شده است. Lazarus قطعه ای از پازل گم شده است که به شما امکان می دهد برنامه های دلفی مانند را برای همه پلتفرم های فوق توسعه دهید. از آنجایی که کامپایلر یکسان در همه پلتفرم‌های بالا موجود است، این بدان معناست که برای ایجاد محصولات یکسان برای پلتفرم‌های مختلف، نیازی به کدنویسی مجدد ندارید.
منبع باز رایگانمک ویندوز لینوکس BSD OpenSolaris
طوفان وب
JetBrains WebStorm یک محیط توسعه تجاری جاوا اسکریپت، CSS و HTML است که بر روی پلت فرم JetBrains IntelliJ IDEA ساخته شده است.
WebStorm تکمیل کد، تجزیه و تحلیل کد در لحظه، پشتیبانی از refactoring و یکپارچه سازی VCS را فراهم می کند.
پرداخت شدهمک ویندوز لینوکس
SharpDevelop
#develop (مخفف SharpDevelop) یک محیط توسعه رایگان برای پروژه های C#، VB.NET و Boo در پلتفرم مایکروسافت است. این یک محیط متن باز است. می توانید هم کد منبع و هم فایل های اجرایی را دانلود کنید.
مبانی برنامه نویسی.
زبان برنامه نویسی کم اهمیت پایه ای
درس 1: مقدمه ای بر محیط برنامه نویسی کم اهمیت پایه ای .
هدف:معرفی کنید با زبان برنامه نویسی Small Basic
وظایف:
شروع به یادگیری یک زبان برنامه نویسی کنیدکوچک پایه. مفهوم OOP (برنامه نویسی شی گرا) را بیان کنید.
یاد بگیرید که در این محیط برنامه نویسی کار کنید. پ با "شیء متن" محیط آشنا شویدکوچک پایه.
برای ارائه اولین ایده از ایجاد برنامه ها در یک محیط برنامه نویسی.
وظایف آموزشی اصلی پروژه:
آموزش ویژگی های فردی: هدفمندی، توجه، دقت، عینیت در عزت نفس، مسئولیت پذیری، علاقه شناختی.
وظایف اصلی توسعه پروژه:
ایجاد شایستگی های کلیدی در دانش آموزان که به سازگاری اجتماعی موفق کمک می کند.
از طریق فعالیت های شناختی میل به خودسازی و رشد شخصی را توسعه دهید.
بدانید: مفاهیم اساسی: شی، متغیرها، تخصیص، انواع داده، ورودی-خروجی.عناصر تشکیل دهنده محیط برنامه نویسی Small Basic را بشناسید.
قادر بودن به: برنامه Smal Basic را دانلود کنید. در این محیط برنامه نویسی پروژه های ساده ایجاد کنید. بتوانید توابع ریاضی را وارد کنید و عبارات ریاضی را به زبان اسمال بیسیک بنویسید. برنامه های خطی ساده بنویسید.
تجهیزات و مواد: یادداشت های اصلی سخنرانی (ر.ک.پیوست 1 ، کارت های وظیفه، رایانه شخصی، برنامه Small Basic، تخته سفید، پروژکتور چند رسانه ای، صفحه نمایش.
در طول کلاس ها:
آماده شدن برای درس
به روز رسانی دانش
سوالات مرتبط
درجه بندی
مشق شب
زمان سازماندهی
توضیح مطالب جدید
تلفیق مطالب مورد مطالعه
خلاصه کردن
آماده شدن برای درس (بررسی آمادگی برای درس، علامت غایب)
به روز رسانی دانش
زمان سازماندهی
برنامه نویسی برای چیست؟
شما می خواهید چکیده ای در زیست شناسی بنویسید. به احتمال زیاد، شما آن را در یک رایانه در برخی از ویرایشگرهای متن خواهید نوشت. ویرایشگر متن از کجا آمده است؟ البته برنامه نویسان آن را نوشته اند. با استفاده از مرورگری که برنامه نویسان نیز نوشته اند، اطلاعاتی را در اینترنت جستجو خواهید کرد. پس از نوشتن مقاله خود، می خواهید استراحت کنید و یک بازی رایانه ای انجام دهید، که باز هم توسط برنامه نویسان نوشته شده است. به طور کلی کار بر روی کامپیوتر بدون استفاده از برنامه هایی که برنامه نویسان می نویسند غیرممکن است. این بدان معناست که اگر برنامه نویسی نبود، برنامه ای وجود نداشت و کامپیوتر یکسری سخت افزار گران قیمت بود، زیرا انجام کاری با کمک کامپیوتر بدون برنامه غیرممکن است.
مراحل حل مسئله.
مفاهیم اساسی
برنامه نويسي - نوشتن برنامه ها
برنامه الگوریتمی که به زبان برنامه نویسی قابل فهم توسط کامپیوتر نوشته شده است.
الگوریتم - دنباله ای واضح از اقدامات با هدف دستیابی به هدف.
در برنامه نویسی شی گرا مفهوم یک شی معرفی می شود، مکانیسم های محاسباتی اجرا می شوند که اجازه می دهد:
ساختار یک شی را توصیف کنید
اعمال با اشیا را توصیف کنید
استفاده از قوانین وراثت شیء خاص (وراثت به معنای ایجاد اشیاء جدید از موارد موجود است)
درجه حفاظت از اجزای شی را تنظیم کنید
تئوری
اولین ملاقات
Microsoft Small Basic - زبان برنامه نویسی توسعه یافته توسط . برای توسعه دهندگان تازه کار که می خواهند اصول ایجاد برنامه ها را بیاموزند طراحی شده است.
مزایای اصلی:
یک محیط توسعه بسیار ساده - یک ویرایشگر متن با یک راهنمای ابزار چند منظوره و فقط چند دکمه برای ویرایش متن و راه اندازی برنامه ها.
زبان ساده با تنها 20 کلمه کلیدی
اسناد متنی در محیط توسعه برای همه عناصر زبان ساخته شده است
امکان گسترش اجزای Small Basic برای گنجاندن عملکردهای اضافی. (به عنوان مثال، تحویل از قبل شامل ویژگی هایی برای کار با خدمات است)
مزیت ویژه BASIC را باید توانایی کار در حالت تفسیر در نظر گرفت که روند اشکال زدایی برنامه ها را بسیار ساده می کند: اجرای تقریباً هر دستور را می توان بلافاصله پس از نوشتن بررسی کرد.
اپراتور خروجی
WriteLine ("سلام!")یک رشته (متنیا عدد )
هی!
برای به دست آوردن نتیجه - خروجی متن "سلام!" روی صفحه - باید یک برنامه بنویسید:
TextWindow.WriteLine ("سلام!")
برنامه وارد پنجره می شودکم اهمیتپایه ایو با یک دکمه شروع کنیدراه اندازییا کلید اف 5
نتیجه برنامه خروجی متن است: "سلام!" که درجعبه متن برنامه ها.
این رشته به معنای "برای ادامه هر کلید را فشار دهید..."
TextWindow یک شی "پنجره متنی" است که می توان متن را در آن نمایش داد.
شیء دارد خواصو مواد و روش ها.
روش شی -آنچه شی می تواند انجام دهد، یعنی آنعملیات (اپراتورها )
پارامتر عملیات در براکت WriteLine محصور شده است()
همان شی جعبه متن دارد خواص (اینها مشخصات شیء هستند) ، مثلا
ویژگی BackgroundColor – رنگ پس زمینه متن را تنظیم می کند.رنگ پیش زمینه- رنگ متن
رنگ ها:
قرمزرنگ زرد
سبز
آبی
سیاه
سفید
قرمز
رنگ زرد
سبز
آبی
سیاه
سفید
متغیر
از متغیرها اغلب برای ایجاد برنامه ها استفاده می شود.
متغیر داردنام - حرف لاتین (آ)
به یک متغیر می توان مقداری مانند یک عدد اختصاص داد
آ= 5، جایی که علامت " = " - این اپراتور واگذاری
مقدار رشتهa = a + 5
مقدار متغیر a را در نظر بگیرید
5 را به آن اضافه کنید
مقدار جدیدی را برای متغیر a تنظیم کنید و مقدار قبلی را از آن حذف کنید
متغیر دو نوع است: عددو خط
10، -5، 3.14 "علوم کامپیوتر"
تا کردن +تکثیر کردن *
تقسیم کردن /
اقدامات ریاضی:
سینوس، لگاریتم، ریشه
چسب
به قطعات تقسیم کنید
جستجوی نمادها
کاراکترها را جایگزین کنید
مثال با اپراتور "+"
اصطلاح
نتیجه
اصطلاح
نتیجه
"ایوان" + "او"
"ایوانووا"
"کلاس" + 10
"کلاس 10"
برنامه نويسي
مثال 1: نتیجه برنامه
مثال 2: نتیجه برنامه
مثال 3: برنامه مجموع دو متغیر را محاسبه و نمایش می دهدآ و ب
Math.Abs (شماره)
مدول
Math.Cos( عدد)
کسینوس
سقف ریاضی (عدد)
به یک عدد کامل گرد می کند
Math.GetDegrees( عدد)
تبدیل یک عدد از رادیان به درجه
Math.GetRandomNumber( حداکثر)
عدد تصادفی در محدوده 1 تاحداکثر
NaturalLog (شماره)
لگاریتم طبیعی
ریاضی پی
پی
Math.Power( شماره پایه, توان)
که در oافزایش نام baseNamber به توان توان
ریاضی. حداکثر (عدد 1، شماره 2)
حداکثر دو عدد
ریاضی. باقیمانده (سود سهام، تقسیم کننده)
باقی مانده از تقسیم
ریاضی .سین (تعداد)
سینوسی
ریاضی. قهوهای مایل به زرد(عدد)
کسینوس
ریاضی ScuareRoot (شماره)
ریشه
ریاضی. گرد(عدد)
گرد کردن معمولی
ریاضی .ArcSin(شماره)
آرکسین
ریاضی. کف(عدد)
به کوچکترین عدد صحیح گرد می کند
x=TextWindow.ReadNumber()
y=Math.Abs(x)
TextWindow.WriteLine("yبرابر است "+y)
ریاضی پیتعمیر مواد
کار عملی مستقل روی رایانه شخصی
وظایف برای کار مستقل
تمرین 1:
نتایج نهایی بیانیه های تکلیف را تعریف کنید
X=3Y=2
X=X+2
Y=X*2
X=Y
الف= 15
B=A
A=B/5+2
B=A*3
A=0
وظیفه 2 : برنامه ای برای محاسبه حاصل ضرب 3 متغیر بنویسید:آ , ب و ج .
وظیفه 3 : برنامه ای برای محاسبه عبارت بنویسید:z=5* ایکس+ y/2 (با فرض x=10،y=100)
وظیفه 4: برنامه ای بنویسید تا مقادیر X و را خروجی بگیردY، طبق وظیفه 1.
وظیفه 5: برنامه ای بنویسید تا متمایز کننده را پیدا کنید
وظیفه 6 : ارزیابی عبارات
(5+5) 3 (1000 )
2+|3-25| (24 )
4 2 – (10)
Cos 2 (پی/4)+ گناه 2 (پی/2) (1 )
( 1)
Y=2x 2 ( در x=5، y=50)
ایکس 1,2 \u003d (وقتی \u003d 2, ب=6, ج=4 , ایکس 1=-1, ایکس 2=-2)
ز= ln(y)-3 ( در y=3، z=-1.901…)
С= (زمانی که آ=4, ب=9, ج=13)
Y=cos(x)+sin(x) (x=180 0 ,y=-1)
سوالات
برنامه چیست؟
زبان های برنامه نویسی برای چیست؟
عناصر اساسی برنامه نویسی شی گرا چیست؟
چه عملیاتی را می توان در "پنجره متن" انجام داد؟
عملگر تخصیص به چه معناست:
در چه نوع داده هایی استفاده می شود Small Basic؟
عبارات I/O چگونه نوشته می شوند؟
درجه بندی
مشق شب
خلاصه کردن
کار با خلاصه
یک پیام آماده کنید با موضوع: "انواع زبان های برنامه نویسی"
یک برنامه بسازید محاسبه مساحت مثلث با استفاده از فرمول هرون
ضمیمه
OK 1: مبانی برنامه نویسی در زبان کم اهمیت پایه ای .
برنامه نويسي - نوشتن برنامه ها
الگوریتم + زبان برنامه نویسی= برنامه
متغیر
متغیر داردنام - حرف لاتین (به عنوان مثال،آ , که در , x1 , C9 )
به یک متغیر می توان مقداری اختصاص داد
مثال: آ = 5 ، جایی که علامت " = " - این اپراتور واگذاری
متغیر دو نوع است: عدد و خط (توالی شخصیت)
10، -5، 3.14 "علوم کامپیوتر"
تا کردن +تکثیر کردن *
تقسیم کردن /
اقدامات ریاضی:
سینوس، لگاریتم، ریشه
چسب
به قطعات تقسیم کنید
جستجوی نمادها
کاراکترها را جایگزین کنید
برنامه نويسي
TextWindow- این شیء "پنجره با متن" ، که در آن متن قابل نمایش است.
پارامتر عملیات محصور در پرانتز - WriteLine()
یک شی جعبه متن دارد خواص ، مثلا
ویژگی رنگ پس زمینه - رنگ پس زمینه متن را تنظیم می کند،رنگ پیش زمینه - رنگ متن
رنگ های مورد استفاده:
قرمزرنگ زرد
سبز
آبی
سیاه
سفید
قرمز
رنگ زرد
سبز
آبی
سیاه
سفید
اپراتورهای پایه کوچک
اپراتور "+".
اپراتورهای اصلیاستفاده از توابع ریاضی در یک عبارت
نوشتن عبارات پیچیده ریاضی ریاضی پی TextWindow.WriteLine ("مقدار متغیر x را وارد کنید")x=TextWindow.ReadNumber()
y=Math.Abs(x)
TextWindow.WriteLine("yبرابر است "+y)
TextWindow.WriteLine(Math.Abs(-10))
برنامه ای برای محاسبه مجموع دو متغیرولیو ب
TextWindow.WriteLine ("مقدار متغیر a را وارد کنید")
a=TextWindow.ReadNumber()
TextWindow.WriteLine ("مقدار متغیر b را وارد کنید")
b=TextWindow.ReadNumber()
s=a+b
TextWindow.WriteLine("مجموع اعداد است "+s)
برنامه وارد پنجره می شودکم اهمیتپایه ایو با یک دکمه شروع کنیدراه اندازییا کلید اف 5.
خط مطبوعات هر کلید ادامه هید ...به معنای " کلیدی را برای ادامه فشار دهید
سلام به همه، در این مقاله می خواهم کدهای مفید برای برنامه های کوچک را به شما نشان دهم. که می توانید از آن برای نوشتن برنامه های جدی تر خود استفاده کنید یا دقیقاً به دنبال این توابع بودید که در اینجا توضیح داده شده است.
همه کدها در محیط برنامه نویسی استفاده شدند مایکروسافت ویژوال بیسیک نسخه 6.0.
با تایید خارج شوید
اولین نوع برنامه، خوب یا تابع، خروجی با پیامی در مورد تأیید خروج است. به طور کلی محیط برنامه نویسی ویژوال بیسیک را باز کنید، یک پروژه استاندارد ایجاد کنید، سپس یک دکمه را روی فرم قرار دهید، روی دکمه کلیک کنید و پنجره ویرایش کد باز می شود و در آنجا باید کد زیر را قرار دهید:
بیپ پیام کم نور به عنوان دکمه تیره رشته و نمادها به عنوان عدد صحیح تیره عنوان به عنوان پاسخ کم رشته به عنوان پیام رشته = "آیا می خواهید خارج شوید؟" title = "(!LANG: خروج" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}
رمز عبور برای شروع برنامه
رمز عبور کم رنگ، رمز عبور Pword = "12345" Pword = InputBox ("رمز عبور را وارد کنید") اگر Pword<>PassWord سپس MsgBox "رمز عبور صحیح نیست" پایان پایان اگر
که در آن، 12345 رمز عبور برای اجرای برنامه است. اما این کد در هر کجا که بخواهید قابل استفاده است.
خروجی پیام
اگر فقط می خواهید پیامی برای چیزی نمایش دهید، این را در آن قرار دهید:
بیپ کم‌نور پیام به‌عنوان دکمه‌های کم‌نور رشته و علامت‌ها به‌عنوان عدد صحیح تیرگی عنوان به‌عنوان پیام رشته = «پیام» عنوان = «(!LANG:پیام" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}
طراحی روی فرم
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X as Single, Y as Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift as Integer, X as Single, Y as Single) If Button = 1 سپس Line (Form1.CurrentX, Form1.CurrentY)-(X,Y)، QBCcolor(0) End If End Sub
می توانید رنگ را با استفاده از پارامتر QBColor(0) تغییر دهید. 0 را با عدد دیگری جایگزین کنید.
راه اندازی مجدد کامپیوتر
برای راه اندازی مجدد کامپیوتر: دکمه را قرار داده و کد زیر را قرار دهید:
کم نور strComputer به عنوان رشته strComputer = "." تنظیم objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") تنظیم colOperatingSystems = objWMIService.ExecQuery *personate(3y_S) هر ObjOperatingSystem در colOperatingSystems ObjOperatingSystem.Reboot " برای راه اندازی مجدد بعدیاجرای برنامه در یک نسخه
مثال زیر به شما کمک می کند تا برنامه را فقط یک بار اجرا کنید، i.e. در صورت راه اندازی مجدد، پیغام مربوطه را صادر می کند. در کد فرم قرار دهید:
Private Sub Form_Load() If App.PrevInstance = True سپس MsgBox "پروژه قبلا شروع شده است!" پایان پایان اگر
خاموش کردن کامپیوتر
برای خاموش کردن کامپیوتر می توانید از کد زیر استفاده کنید:
کم نور strComputer به عنوان رشته strComputer = "." تنظیم objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") تنظیم colOperatingSystems = objWMIService.ExecQuery *personate(3y_S) هر ObjOperatingSystem در colOperatingSystems ObjOperatingSystem.ShutDown "برای خاموش شدن بعدی
هر فرآیندی را خاتمه دهید
برای پایان دادن به فرآیند می توانید از کد زیر استفاده کنید:
پوسته "Cmd /x/c taskkill /f /im ICQlite.exe"، vbvhite
جایی که به جای ICQlite.exe، هر فرآیندی می تواند وجود داشته باشد.
یک کامپیوتر چقدر کار می کند
در زیر مثالی از نحوه تعیین زمان کارکرد کامپیوتر آورده شده است. این روش مبتنی بر استفاده از کتابخانه kernel32 است، بنابراین در همان ابتدای کد فرم، این DLL را درج کنید.
عملکرد اعلام خصوصی GetTickCount Lib "kernel32" () به مدت "و در کد دکمه: کم نور a_hour، a_minute، a_second a = Format(GetTickCount() / 1000, "0") "Total seconds a_days = Int(a / 8640) = a - a_days * 86400 a_hour = Int(a / 3600) a = a - a_hour * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "کامپیوتر شما در حال اجرا بوده است" & Str(a_days) & "روز" & Str(a_hour) _ & "ساعت" & Str(a_minute) & "دقیقه" & Str(a_second) & "s seconds"
ما ویژگی های ساده ای را پوشش داده ایم که تقریباً در همه جا قابل استفاده هستند. حالا بیایید به نمونه های جدی تری نگاه کنیم، و آنها می توانند به شما کمک زیادی کنند تا پروژه های بزرگ خود را بنویسید.
نمونه های پوشه
حذف دایرکتوری
خصوصی اعلام تابع RemoveDirectory&Lib _ "kernel32" مستعار "RemoveDirectoryA" (ByVal lpPathName As String) "حذف دایرکتوری (خالی!) PathName$ = "D:\t" کد& = RemoveDirectory(PathName =0) حذف دایرکتوری Else "Directory deleted End Ifدایرکتوری ایجاد کنید
Sub MakeDir(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(مسیر ، یک)<>":" و Dir$(path, vbDirectory) = "" سپس مسیر MkDir پایان If Loop تا زمانی که i >= Len(dirname) End Sub Private Sub Command1_Click() Call MakeDir("C:\Soft\1\2\3\ ") پایان فرعیلیست تمام پوشه های دارای زیرپوشه ها
2 فیلد متنی و یک دکمه به فرم اضافه می کنیم، نام فیلد متنی اول StartText، نام فیلد متنی دوم OutText است. ویژگی چند خطی = true، نام دکمه = CmdStart
اجرای ایستا به صورت Boolean Dim AllDirs به عنوان مجموعه جدید Dim next_dir به عنوان عدد صحیح Dim dir_name به عنوان رشته کم نور sub_dir به عنوان رشته کمرنگ i به عنوان عدد صحیح تیره txt به عنوان رشته اگر در حال اجرا باشد سپس در حال اجرا = نادرست CmdStart.Enabled = نادرست CmdStart.Caption = "توقف در حال اجرا" Else True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Do while next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" If UCase$(sub_dir)<>"PAGEFILE.SYS" و sub_dir<>"." و sub_dir<>".." سپس sub_dir = dir_name & "\" & sub_dir در مورد خطا Resume بعد اگر GetAttr(sub_dir) و vbDirectory سپس AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) حلقه DoEvents اگر اجرا نشد سپس از Do Loop txt خارج شوید = "" برای i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf بعدی i OutText.Text = txt MousePointer = vbDefault unning = Fase End اگر
حالا برنامه را اجرا می کنیم، در قسمت متن StartText می نویسیم: C:\windows و روی دکمه کلیک می کنیم.
اندازه دایرکتوری
Const Max_Path = 260 نوع خصوصی نوع خصوصی dwlowdateTime به عنوان طولانی DWhighdateTime به عنوان نوع طولانی نوع خصوصی win32_find_data dwfileattributes به عنوان FileTime ftlastAccessTime به عنوان filetime ftlastwritetime به عنوان long nfilesizelow به عنوان طولانی dwreserved0 به عنوان طولانی cfilename به عنوان رشته * max_pater به عنوان رشته * 14 نوع پایان Private Declare Function FindFirstFile Lib _ "kernel32" مستعار "FindFirstFileA" (ByVal lpFileName به عنوان رشته، lpFindFileData به عنوان WIN32_FIND_DATA) به عنوان Long Private Declare Function LindFirstFinele LindNextalFindNextal Long، lpFindFileData به عنوان WIN32_FIND_DATA) تا زمانی که خصوصی اعلام تابع FindClose Lib _ "kernel32" (ByVal hFindFile تا زمانی) به عنوان Long عمومی تابع SizeOf (ByVal DirPath به عنوان رشته) به عنوان Double Dim Dim3NDizeS hFind Long: به عنوان تیرگی رشته x تا زمانی که خطا ادامه یابد x بعدی = GetAttr(DirPath) اگر Err باشد سپس SizeOf = 0: تابع خروج اگر (x And vbDirectory) = vbDirectory سپس dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & "*.*"، vbSystem or vbHidden یا vbDirectory) اگر Err.NumberFind = 0 = FindFirstFile(EndSlash(DirPath) & "*.*"، fdata) اگر hFind = 0 سپس از تابع خارج شوید، اگر (fdata.dwFileAttributes And vbDirectory) = vbDirectory سپس sName = Left$(fdata.cFileName.cFileName, InStrele) انجام دهید vbNullChar) - 1) اگر sName<>"." و sName<>".." سپس dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop while FindNext,<>0 hFind = FindClose(hFind) End If Else On Error Resume بعدی dblSize = FileLen(DirPath) End If SizeOf = dblSize Function End Private Function EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = " سپس EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "D:\soft" را با هر دایرکتوری که می خواهید اندازه MsgBox SizeOf("D:\soft") / 1000000 End Sub را جایگزین کنیدنمونه هایی از کار با فایل ها
کپی 🀄
فرض کنید یک فایل به نام 1.txt در پوشه C:\1\ داریم و باید آن را در C:\2\ کپی کنیم تا کد زیر را بنویسیم:
فایل کپی "C:\1\1.txt"، "C:\2\1.txt"
توجه داشته باشید! اگر دایرکتوری 2 از قبل حاوی فایلی به نام 1.txt باشد، با 1.txt از دایرکتوری 1 جایگزین می شود.
خصوصی اعلام تابع CopyFile Lib _ "kernel32.dll" مستعار "CopyFileA" _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته، ByVal bFailIfExists به عنوان طولانی) به عنوان Longd "1_Clickman"(1_Clickt. به D :\1.txt. کم نور تا زمانی که "مقدار بازگشتی "کپی فایل retval = CopyFile("C:\1.txt"، "D:\1.txt"، 1) اگر retval = 0 سپس "If MsgBox ناموفق" نمی توان کپی کرد" در غیر این صورت "اگر خوب است MsgBox "فایل کپی شد." End If End Sub
حذف
به عنوان مثال، ما می خواهیم فایل 1.txt را از ریشه درایو C:\ حذف کنیم.
Kill ("C:\1.txt")
راه API
Private Declare Function DeleteFile Lib _ "kernel32.dll" مستعار "DeleteFileA" (ByVal lpFileName As String) تا زمانی که Private Sub Command1_Click() "Delete File C:\Samples\anyfile.txt Dim retvaln Value As Long DeleteFile( "C:\1.txt") اگر retval = 1 سپس MsgBox "فایل با موفقیت حذف شد." پایان فرعی
در حال حرکت
برای مثال می توانید آن را به این صورت جابجا کنید:
کپی فایل "C:\1.txt"، "C:\2\1.txt" Kill ("C:\1.txt")
اما بهتر است اینگونه باشد (از طریق API):
تابع اعلام خصوصی MoveFile Lib _ "kernel32.dll" مستعار "MoveFileA" _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته) تا زمانی که Command Sub Private1_Click() Dim "Revalle As" \1 .txt، "C:\2\1.txt") اگر retval = 1 پس MsgBox "با موفقیت منتقل شد" در غیر این صورت MsgBox "Error" End If End Sub
تغییر نام
برای تغییر نام فایل 1.txt واقع در C:\ به 2.txt، می توانید از کد زیر استفاده کنید:
کپی فایل "C:\1.txt"، "C:\2.txt" Kill ("C:\1.txt")
راه API
خصوصی اعلام تابع MoveFile Lib _ "kernel32.dll" مستعار "MoveFileA" _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته) تا زمانی که Command Sub Private1_Click() Dim "RevaleFile" \1 .txt، "C:\2.txt") اگر retval = 1 سپس MsgBox "Success" در غیر این صورت MsgBox "Error" End If End Sub
اندازه فایل را تعیین کنید
اندازه فایل را می توان به دو روش تعیین کرد:
اگر فایل را می توان با تابع OPEN باز کرد، می توانید از تابع LOF استفاده کنید
Dim FileFree به عنوان عدد صحیح Dim FileSize As Long FileFree = FreeFile "C:\WIN\GENERAL.TXT" را برای ورودی به عنوان FileFree باز کنید FileSize = LOF (FileFree) بستن FileFree
یا از تابع FileLen استفاده کنید
کم نور lFileSize As Long FileSize = FileLen ("C:\WIN\GENERAL.TXT")
پنهان کردن ساعت به صورت برنامه ای
2 دکمه اضافه کنید و کد را قرار دهید:
گزینه Explicit Private Declare Function FindWindow Lib _ "user32" مستعار "FindWindowA" (ByVal lpClassName As String، ByVal lpWindowName As String) به عنوان Long Private Declare Function FindWindowEx Lib _ به عنوان "downEFixal" Long، ByVal hWnd2 به مدت طولانی، ByVal lpsz1 به عنوان رشته، ByVal lpsz2 به عنوان رشته) تا زمانی که عملکرد خصوصی اعلام شود ShowWindow Lib _ "user32" (ByVal hwnd As Long، ByVal nCmdShow As Long) As Long DingdC ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "FindWW",(TrayNobhull = FindWindow("Shell_TrayWnd", vbNullString) hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Hide Clock" Command2.Caption = "Show Clock" End Sub
اضافه کردن نماد به سینی
یک ماژول اضافه کنید، کد را در آن قرار دهید:
تابع Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage به مدت طولانی، lpData به عنوان NOTIFYICONDATA) به عنوان Const عمومی عدد صحیح NIM_ADD = 0 Const عمومی NIM_MODIFY = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 2 Const عمومی تایپ NOTIFYICONDATA cbSize به مدت hWnd به مدت uID به مدت طولانی uFlags به مدت طولانی uCallbackپیام به مدت طولانی نشانگر به عنوان رشته nidTemp به عنوان NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON یا NIF_TIP nidTemp.uCallbackMessage = nidTemp.uCallbackMesscon. عملکرد پایان Shell_NotifyIconA (حالت، nidTemp).
برای استفاده از paste در کد فرم:
Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "برای حذف Private Sub Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub
مسدود کردن دکمه شروع
عملکرد اعلان خصوصی FindWindow Lib "user32" نام مستعار "FindWindowA" _ (ByVal lpClassName به عنوان رشته، ByVal lpWindowName به عنوان رشته) به عنوان Long Private Declare Function FindWindowEx Lib "user32" با نام مستعار "WindowEx" با نام مستعار ByV1"Vxal hWnd2 به مدت طولانی، ByVal lpsz1 به عنوان رشته، ByVal lpsz2 به عنوان رشته) به عنوان طولانی خصوصی اعلام تابع EnableWindow Lib "user32" _ (ByVal hwnd به مدت، ByVal fEnable به عنوان طولانی) تا زمانی که عمومی Sub EnableStartButton (EnableStartButton) lHwnd تا زمانی که " hWnd lHwnd& = FindWindowEx (FindWindow("Shell_TrayWnd"، "")، 0&، "Button"، vbNullString) را فراخوانی کنید EnableWindow(lHwnd&, CLng(فعال)) پایان Sub Private SublickttarStuttonse(Button) غیرفعال پایان Sub Private Sub Command2_Click() EnableStartButton True "دکمه استارت غیرفعال نیست End Sub
خواندن پارامترها از فایل INI
این برنامه به FTP متصل می شود و پارامترها در فایل ini نوشته می شوند - سرور، ورود، پورت، رمز عبور.
ابتدا یک فایل INI ایجاد کنید:
نام سرور=کاربر سرور=ورود pwd=گذرواژه پورت=پورت
باید در پوشه همراه برنامه قرار داده شود. بعد در ماژول وارد کنید:
تابع اعلان خصوصی WritePrivateProfileString Lib _ "kernel32" مستعار "WritePrivateProfileStringA" (ByVal lpApplicationName به عنوان رشته، ByVal lpKeyName به عنوان رشته، _ ByVal lpString به عنوان String، ByVal lpString به عنوان String, ByVal lpString As String, ByVal, "GetPrivateProfileStringA" (ByVal lpApplicationName به عنوان رشته، ByVal lpKeyName به عنوان رشته، _ ByVal lpDefault به عنوان رشته، ByVal lpReturnedString به عنوان رشته، _ ByVal nSize به عنوان طولانی، ByVal lpKeyName به عنوان رشته، ByVal lpDefault به عنوان رشته، ByVal lpReturnedString به عنوان رشته، _ ByVal nSize به عنوان طولانی، ByValName به عنوان String،ParradleNa RingRm) String ReadIni = GetValue (Razdel، Param، App.Path و "\test.ini"، "0") پایان تابع تابع خصوصی GetValue (بخش ByVal به عنوان رشته، _ ByVal کلید به عنوان رشته، ByVal fFileName به عنوان رشته، اختیاری ByVal DefaultValue به عنوان String = vbNullString) به عنوان رشته کم‌نور داده به‌عنوان داده رشته = String$(1000، Chr$(0)) اگر GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 سپس GetValue = Left$(Data, InStr( داده$، Chr $(0)) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function
سپس در کد فرم قرار دهید:
Private Declare Function InternetOpen Lib _ "wininet.dll" مستعار "InternetOpenA" (ByVal sAgent As String، ByVal nAccessType As Long، ByVal sProxyName As String، _ ByVal sProxyBypass As StringFlagsVangreect) Lib _ "wininet.dll" نام مستعار "InternetConnectA" (ByVal hInternetSession As Long، ByVal sServerName As String، _ ByVal nServerPort به عنوان عدد صحیح، ByVal sUserName به عنوان رشته، ByVal sPaserName به عنوان رشته، ByVal sPaserName به عنوان String، ByVal sPaserGsla As LongSVal، ByVal sPasergsla As , ByVal dwContext As Long) تا زمانی که Private اعلان تابع FtpPutFile Lib _ "wininet.dll" مستعار "FtpPutFileA" (ByVal hFtpSession As Long، ByVal lpszLocalFile As String ByVal ByValFile As String ByVonte,V,StRingwFileAs، ByVal,Val,St. Long) به عنوان Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" نام مستعار "FtpGetFileA" (ByVal hFtpSession As Long، ByVal lpszRemoteFile As String، _ ByVal lpszNewFile As FtpGetFileA ByVal، ByVal lpszNewFile As Fwgsa, ByVal lpszNewFile As Fwgsa, _ ByVal dwFlags به مدت طولانی، ByVal dwContext تا زمانی) به عنوان Boolean Private اعلان تابع InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet تا زمانی) به عنوان عدد صحیح Dim rc& Dim rs&
و در کد دکمه:
rc& = InternetOpen(""، 0، vbNullString، vbNullString، 0) rs& = InternetConnect(rc&, ReadIni("General"، "servname")، "0"، _ ReadIni("General"، "usern")، ReadIni( "General"، "pwd")، 1، 0، 0) اگر FtpGetFile(rs&، "Your file.txt"، "path", False، 0، 1، 0) = False سپس پایان تماس InternetCloseHandle(rs&) Call InternetCloseHandle (rc&)لیست فرآیندهای در حال اجرا
یک لیست باکس و دکمه 1 اضافه کنید، کد زیر را قرار دهید:
گزینه Explicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" مستعار "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long، ByVal lProcessID As Long) As Long Private Declare Function (Alish nProcessFirst تا زمانی که، uProcess As PROCESSENTRY32) تا زمانی که عملکرد خصوصی اعلام شود ProcessNext Lib _ "Kernel32" مستعار "Process32Next" _ (ByVal hSnapShot As Long، uProcess As PROCESSENTRY32) As Long Private Declare Sub "Lob2b"Hand ) خصوصی const th32cs_snapprocess به عنوان Long = 2 و خصوصی Const Max_Path به عنوان integer = 260 نوع خصوصی پروسه PROCESSENTRY32 به عنوان طولانی CNTUSAGE به عنوان طولانی TH32DEFAUPEAPID به عنوان طولانی TH32MODEFAIPID به عنوان طولانی TH32MODULEID به عنوان طولانی TH32PARENTPROCESSID طولانی به عنوان طولانی pCPRICLAssbase به عنوان طولانی szexefile به عنوان طولانی szexefile به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان szexefile طولانی به عنوان String * max_Path پایان نوعSnaphot DimSnaphot کم نور uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) اگر hSnapShot = 0 سپس از Sub End خارج شوید If uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) آیا در حالی که r List1.AddItem uProcessle,AddItem uProcessle,hProcess.sll) CloseHandle(hSnapShot) End Sub
قرار دادن برنامه در راه اندازی
برای بارگذاری برنامه با ویندوز، مانند برخی دیگر از برنامه ها، می توانید از رجیستری استفاده کنید:
2 دکمه و کد زیر را اضافه کنید:
Private Sub Command1_Click() "Write to Registry Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program"، _ "Path to your program" Sub Private Sub Command2_Click() "حذف از رجیستری Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program" پایان زیر
و برای اینکه برنامه حتی در حالت ایمن با ویندوز لود شود کد زیر را بزنید:
برای شروع، یک راه جدی تر (در صورت امکان یک نسخه پشتیبان از رجیستری تهیه کنید).
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell"، _ "Path to your Programme"(Path to your Subli_C Sublid) این برای بازیابی است Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell"، _ "Explorer.exe"، End Sub
خوب، راه آسان.
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit"، _ "C:\\\\System" ,مسیر برنامه شما" End Sub Private Sub Command2_Click()"برای بازیابی Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion"U:Winit"، \\WINDOWS\\system32\\userinit.exe" End Sub
نوار وظیفه را مخفی کنید
2 دکمه اضافه کنید و کد را قرار دهید:
عملکرد اعلان خصوصی SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal cy As Long, ByVal Long WFlags) تابع FindWindow Lib "user32" مستعار "FindWindowA" _ (ByVal lpClassName As String، ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOWides ="H4Wind" ") فراخوانی SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Show Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Call SetWind1,0,0,0wn 0، 0، SWP_SHOWWINDOW) پایان فرعی
آرشیو RAR را از حالت فشرده خارج کنید
برای از حالت فشرده خارج کردن آرشیو RAR می توانید از کد زیر استفاده کنید:
WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "نام فایل.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr، vbHide)
مقدار رم کامپیوتر چقدر است
یک دکمه اضافه کنید و کد زیر را قرار دهید:
شخصی اعلام زیر GlobalMemoryStatus معاونت "kernel32" (lpBuffer به عنوان TMemoryStatus) نوع شخصی TMemoryStatus dwLength به عنوان طولانی dwMemoryLoad به عنوان طولانی dwTotalPhys به عنوان طولانی dwAvailPhys به عنوان طولانی dwTotalPageFile به عنوان طولانی dwAvailPageFile به عنوان طولانی dwTotalVirtual به عنوان طولانی dwAvailPageFile به عنوان طولانی dwTotalVirtual به عنوان طولانی dwAvailPageFile به عنوان طولانی dwTotalVirtual به عنوان طولانی dwAvailPageFile As Long End TMemoryStatus( ) ms.dwLength = Len(ms) فراخوانی GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "رایگان:" _ & ms.dwAvailPhys & vbCr: & "استفاده شده در %" ms.dwMemoryLoad End Sub
پنهان کردن آیکون های دسکتاپ
این کار به روش زیر انجام می شود. 2 دکمه اضافه کنید و کد زیر را قرار دهید:
عملکرد اعلان خصوصی ShowWindow&Lib "user32" (ByVal hwnd&، ByVal nCmdShow&) عملکرد اعلان خصوصی FindWindow Lib _ "user32" مستعار "FindWindowA" (ByVal lpClassName As String, ByVal,St=WRMAme Aslp_Windowal) 1 Command Sub Private1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As LongWindownHandle"("Progman") (Handle، SW_NORMAL) پایان فرعی
با استفاده از دکمه Command1، نمادها پنهان می شوند، Command2 - ظاهر می شوند.
این تمام چیزی است که من دارم، امیدوارم مثال های بالا برای شما مفید باشد، خداحافظ!
