مبانی برنامه نویسی.

زبان برنامه نویسی کم اهمیت پایه ای

درس 1: مقدمه ای بر محیط برنامه نویسی کم اهمیت پایه ای .

هدف:معرفی کنید با زبان برنامه نویسی Small Basic

وظایف:

شروع به یادگیری یک زبان برنامه نویسی کنیدکوچک پایه. مفهوم OOP (برنامه نویسی شی گرا) را بیان کنید

یاد بگیرید که در این محیط برنامه نویسی کار کنید. پ با "ابژه متن" محیط آشنا شویدکوچک پایه.

برای ارائه اولین ایده از ایجاد برنامه ها در یک محیط برنامه نویسی.

وظایف آموزشی اصلی پروژه:

تربیت ویژگی های شخصی: هدفمندی، توجه، دقت، عینیت در عزت نفس، مسئولیت پذیری، علاقه شناختی.

وظایف اصلی توسعه پروژه:

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

از طریق فعالیت های شناختی میل به خودسازی و رشد شخصی را توسعه دهید.

بدانید: مفاهیم اساسی: شی، متغیرها، تخصیص، انواع داده، ورودی-خروجی.عناصر تشکیل دهنده محیط برنامه نویسی Small Basic را بشناسید.

قادر بودن به: برنامه Smal Basic را دانلود کنید. در این محیط برنامه نویسی پروژه های ساده ایجاد کنید. بتوانید توابع ریاضی را وارد کنید و عبارات ریاضی را به زبان اسمال بیسیک بنویسید. برنامه های خطی ساده بنویسید.

تجهیزات و مواد: یادداشت های اصلی سخنرانی (ر.ک.پیوست 1 )، کارت های وظیفه، رایانه شخصی، برنامه Small Basic، تخته سفید، پروژکتور چند رسانه ای، صفحه نمایش.

در طول کلاس ها:

زمان سازماندهی

1. آماده شدن برای درس

   به روز رسانی دانش

توضیح مطالب جدید

تلفیق مطالب مورد مطالعه

1. پرسش های مرتبط

خلاصه کردن

1. درجه بندی

   مشق شب

زمان سازماندهی

1. آماده شدن برای درس (بررسی آمادگی برای درس، علامت غایب)

   به روز رسانی دانش

برنامه نویسی برای چیست؟

شما می خواهید چکیده ای در زیست شناسی بنویسید. به احتمال زیاد، شما آن را روی رایانه در برخی از ویرایشگرهای متن می نویسید. و از کجا آمده است ویرایشگر متن? البته برنامه نویسان آن را نوشته اند. با استفاده از مرورگری که برنامه نویسان نیز نوشته اند، اطلاعاتی را در اینترنت جستجو خواهید کرد. پس از نوشتن مقاله خود، می خواهید استراحت کنید و بازی کنید بازی رایانه ایکه باز هم توسط برنامه نویسان نوشته شده است. به طور کلی کار بر روی کامپیوتر بدون استفاده از برنامه هایی که برنامه نویسان می نویسند غیرممکن است. این بدان معناست که اگر برنامه نویسی نبود، برنامه ای وجود نداشت و کامپیوتر یک دسته سخت افزار گران قیمت بود، زیرا انجام کاری با کمک کامپیوتر بدون برنامه غیرممکن است.

مراحل حل مسئله.

مفاهیم اساسی

برنامه نويسي - نوشتن برنامه ها

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

الگوریتم - دنباله ای واضح از اقدامات با هدف دستیابی به هدف.

در برنامه نویسی شی گرا مفهوم یک شی معرفی می شود، مکانیسم های محاسبه ای اجرا می شود که اجازه می دهد:

ساختار یک شی را توصیف کنید

اعمال با اشیا را توصیف کنید

استفاده از قوانین وراثت شیء خاص (وراثت به معنای ایجاد اشیاء جدید از موارد موجود است)

درجه حفاظت از اجزای شی را تنظیم کنید

تئوری

اولین ملاقات

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( شماره پایه, توان)

AT oافزایش نام baseNamber به توان توان

ریاضی. حداکثر (عدد 1، شماره 2)

حداکثر دو عدد

ریاضی. باقیمانده (سود سهام، تقسیم کننده)

باقی مانده از تقسیم

ریاضی .سین (تعداد)

سینوسی

ریاضی. قهوهای مایل به زرد(عدد)

کسینوس

ریاضی ScuareRoot (شماره)

ریشه

ریاضی. گرد(عدد)

گرد کردن معمولی

ریاضی .ArcSin(شماره)

آرکسین

ریاضی. کف(عدد)

به کوچکترین عدد صحیح گرد می کند

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yبرابر است "+y)

ریاضی پی

تعمیر مواد

1. مستقل کار عملیبرای کامپیوتر

وظایف برای کار مستقل

تمرین 1:

نتایج نهایی بیانیه های تکلیف را تعریف کنید

X=3

Y=2

X=X+2

Y=X*2

X=Y

A= 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 چگونه نوشته می شوند؟

خلاصه کردن

1. درجه بندی

   مشق شب

کار کنید با خلاصه

یک پیام آماده کنید با موضوع: "انواع زبان های برنامه نویسی"

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

کاربرد

OK 1: مبانی برنامه نویسی در زبان کم اهمیت پایه ای .

برنامه نويسي - نوشتن برنامه ها

الگوریتم + زبان برنامه نویسی= برنامه

متغیر

متغیر داردنام - حرف لاتین (به عنوان مثال،آ , AT , 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.

خط مطبوعات هر کلید ادامه هید ...به معنای " کلیدی را برای ادامه فشار دهید

سلام به همه، در این مقاله می خواهم به شما نشان دهم کدهای مفید برنامه های کوچک. که می توانید از آن برای نوشتن برنامه های جدی تر خود استفاده کنید یا دقیقاً به دنبال این توابع بودید که در اینجا توضیح داده شده است.

همه کدها در محیط برنامه نویسی Microsoft Visual Basic v6.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) & "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 نوع خصوصی filetime dwlowdatetime به عنوان طولانی dwhighdatetime به عنوان نوع طولانی از نوع خصوصی نوع خصوصی win32_find_data dwfileattributes به عنوان طولانی مدت به عنوان filetime ftlastAccessTime به عنوان filetime ftlastwiteTime به عنوان donfizeLow به عنوان nfizehight nfizehight nfizehight nfizehight this filetime nfizehigh * 14 نوع آخر Private Declare Function FindFirstFile Lib _ "kernel32" مستعار "FindFirstFileA" (ByVal lpFileName به عنوان رشته، lpFindFileData به عنوان WIN32_FIND_DATA) به عنوان Long Private Declare Function LindFirstFinele LindNextal Long، lpFindFileData به عنوان WIN32_FIND_DATA) به عنوان Long Private اعلام تابع FindClose Lib _ "kernel32" (ByVal hFindFile تا زمانی) به عنوان Long Public Function SizeOf(ByVal DirPath به عنوان رشته) به عنوان Double Dim Dim3MFIND_mAs به عنوان تیره رشته 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, 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 whileFindNext,<>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 پایان فرعی

نمونه هایی از کار با فایل ها

کپی 🀄

فرض کنید یک فایل به نام 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 _ "WindowEx 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) 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 عمومی تایپ 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.uCallback00. عملکرد پایان Shell_NotifyIconA (حالت، nidTemp).

برای استفاده از چسباندن در کد فرم:

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) با نام مستعار (WindowEx) 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 Sublickttars(Button) دکمه "Button" غیرفعال شد End Sub Private Sub Command2_Click() EnableStartButton True "دکمه استارت غیرفعال نیست End Sub

خواندن پارامترها از فایل INI

این برنامه به FTP متصل می شود و پارامترها در فایل ini نوشته می شوند - سرور، ورود، پورت، رمز عبور.

ابتدا یک فایل INI ایجاد کنید:

نام سرور=کاربر سرور=ورود pwd=گذرواژه پورت=پورت

باید در پوشه برنامه قرار داده شود. سپس در ماژول وارد کنید:

عملکرد اعلان خصوصی WritePrivateProfileString Lib _ "kernel32" مستعار "WritePrivateProfileStringA" (ByVal lpApplicationName As String، ByVal lpKeyName As String، _ ByVal lpString As String, ByVal lpString As String, ByVal lpString As Prinlp, ByVal, ​"GetPrivateProfileStringA" (ByVal lpApplicationName به عنوان رشته، ByVal lpKeyName به عنوان رشته، _ ByVal lpDefault به عنوان رشته، ByVal lpReturnedString به عنوان رشته، _ ByVal nSize به عنوان طولانی، ByVal lpKeyName به عنوان رشته، ByVal lpDefault به عنوان رشته، lpVal lpReturnedString به عنوان رشته، _ ByVal nSize به عنوان طولانی، ByValName به عنوان طول عمومی، ByValLa 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 String, ByVal sProxyBypass As String, ByVal, ByVal sProxyBypass As String, ByVal nAccessType As String, ByVal Lib _ "wininet.dll" مستعار "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPaserName As String, ByVal sPaserGsla String, ByVal sPasergsla As String, ByVal sPasergsla As , ByVal dwContext تا مدت زمان Long) به عنوان Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" نام مستعار "FtpGetFileA" (ByVal hFtpSession As Long، ByVal lpszRemoteFile As String، _ ByVal lpszNewFile As Fwgsa, ByVal lpszNewFile AsFwgsa, ByVal lpszNewFile AsFwgsa,ByValAsFwgsaildt _ 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) تا زمانی که Private Declare Function ProcessNext Lib _ "Kernel32" مستعار "Process32Next" _ (ByVal hSnapShot As Long، uProcess As PROCESSENTRY32) As Long Private Declare Sub "Lob2b"(Ksnelle) ) const th32cs_snapprocess به عنوان طولانی = 2 & private const max_path به عنوان عدد صحیح = 260 نوع خصوصی پردازش پردازش 32 dwsize به اندازه cntusage طولانی به اندازه th32processid به اندازه th32defaulteapid به اندازه th32moduleid به عنوان طولانی مدت cntthreads به همان اندازه pcpriclassid به اندازه pcpriclassid long th32prentpracessid پایان نوع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) Do while r List1.AddItem uProcessle,hdItem uProcess. 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 این برای بازیابی است 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 WFlangre) تابع FindWindow Lib "user32" مستعار "FindWindowA" _ (ByVal lpClassName As String، ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOWides = "H4WINDOWides &H4wnt"(H4Windli ") فراخوانی 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 = "File name.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr، vbHide)

مقدار رم کامپیوتر چقدر است

یک دکمه اضافه کنید و کد زیر را قرار دهید:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long 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"(VideoWindownHandle) (هندل، SW_NORMAL) پایان فرعی

با استفاده از دکمه Command1، نمادها پنهان می شوند، Command2 - ظاهر می شوند.

این تمام چیزی است که من دارم، امیدوارم مثال های بالا برای شما مفید باشد، خداحافظ!

Eclipse یک پلت فرم توسعه قابل توسعه با زمان اجرا و پلت فرم های کاربردی برای ایجاد، استفاده و مدیریت نرم افزار در طول عمر خود است. چرخه زندگی. بسیاری از مردم Eclipse را به عنوان یک Java IDE می شناسند، اما Eclipse در واقع از بیش از 60 پروژه متن باز مختلف تشکیل شده است.

منبع باز رایگانمک ویندوز لینوکس

NetBeans

IDE رایگان و متن باز برای توسعه دهندگان نرم افزار. شما تمام ابزارهای مورد نیاز برای ایجاد دسکتاپ حرفه ای، سازمانی، وب و برنامه های موبایلدر زبان جاوا، C/C++ و حتی در زبان های پویا مانند PHP، جاوا اسکریپت، Groovy و Ruby

منبع باز رایگانمک ویندوز لینوکس BSD

استودیو آپتانا

Aptana Studio یک محیط توسعه وب کامل است که ابزارهای توسعه قدرتمند را با مجموعه ای از خدمات میزبانی آنلاین و همکاری ترکیب می کند تا به شما و تیم شما کمک کند تا کارهای بیشتری انجام دهید. شامل می شود پشتیبانی از PHP، CSS، FTP و موارد دیگر.

منبع باز رایگانمک ویندوز لینوکس

کومودو ویرایش

کومودو ویرایش سریع، هوشمند و ویرایشگر رایگانمتن باز. سعی کنید از 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 به توسعه دهندگان اجازه می دهد تا به راحتی برنامه های دات نت ساخته شده را پورت کنند استودیوی تصویری، در Linux و Mac OSX، یک پایه کد واحد را برای همه پلتفرم ها حفظ می کند

منبع باز رایگانمک ویندوز لینوکس. چارچوب خالصاستودیو Xamarin

لازاروس

پاسکال رایگانیک کامپایلر GPL است که روی لینوکس، Win32، OS/2، 68K و موارد دیگر اجرا می شود. پاسکال رایگان برای درک و کامپایل نحو دلفی طراحی شده است. Lazarus قطعه ای از پازل گم شده است که به شما امکان می دهد برنامه های دلفی مانند را برای همه پلتفرم های فوق توسعه دهید. از آنجایی که کامپایلر یکسان در همه پلتفرم‌های بالا موجود است، این بدان معناست که برای ایجاد محصولات یکسان نیازی به کدنویسی مجدد ندارید. پلتفرم های مختلف

منبع باز رایگانمک ویندوز لینوکس BSD OpenSolaris

طوفان وب

JetBrains WebStorm یک محیط توسعه تجاری جاوا اسکریپت، CSS و HTML است که بر روی پلت فرم JetBrains IntelliJ IDEA ساخته شده است.
WebStorm تکمیل کد، تجزیه و تحلیل کد در لحظه، پشتیبانی refactoring و یکپارچه سازی VCS را فراهم می کند.

پرداخت شدهمک ویندوز لینوکس

SharpDevelop

#develop (مخفف SharpDevelop) یک محیط توسعه رایگان برای پروژه های C#، VB.NET و Boo در پلتفرم مایکروسافت است. این یک محیط متن باز است. می توانید به عنوان دانلود کنید منبعو فایل های اجرایی