الصفحة الرئيسية / التثبيت والتكوين/ جميع أوامر مايكروسوفت سمايل الأساسية. بدائل لاستبدال Microsoft Small Basic

جميع أوامر مايكروسوفت سمايل الأساسية. بدائل لاستبدال Microsoft Small Basic

Eclipse عبارة عن نظام أساسي للتطوير قابل للتوسيع مع أوقات تشغيل ومنصات تطبيقات لإنشاء البرامج واستخدامها وإدارتها طوال دورة حياتها. يعرف الكثير من الناس Eclipse على أنه Java IDE ، لكن Eclipse يتكون في الواقع من أكثر من 60 مشروعًا مختلفًا مفتوح المصدر ، راجع

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux

NetBeans

IDE مجاني مفتوح المصدر للمطورين البرمجيات... تحصل على كل الأدوات التي تحتاجها للإنشاء التطبيقات المهنيةلسطح المكتب والشركات وتطبيقات الويب و تطبيقات الهاتف الجوالبلغات Java و C / C ++ وحتى اللغات الديناميكية مثل PHP و JavaScript و Groovy و Ruby

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux BSD

استوديو أبتانا

Aptana Studio هي بيئة تطوير ويب كاملة تجمع بين أدوات تطوير قوية ومجموعة من خدمات الاستضافة والتعاون عبر الإنترنت لمساعدتك أنت وفريقك على إنجاز المزيد. يشمل دعم PHPو CSS و FTP والمزيد.

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux

تحرير كومودو

برنامج Komodo Edit سريع وذكي و محرر مجانيالمصدر المفتوح. جرب استخدام Komodo Edit (أو أخيه الأكبر Komodo IDE) - إنه يستحق ذلك.

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux

Xcode

تعد Xcode من Apple بيئة التطوير الأولى لنظام التشغيل Mac OS X. بالإضافة إلى كونها مجمعة على القرص مع كل نظام Mac OS X يتم شراؤه ، فهي الأكثر نسخة جديدةمتاح دائمًا أيضًا للتنزيل المجاني لأعضاء ADC ( شبكة اجتماعيةلمطوري التطبيقات على جميع أنظمة Apple الأساسية) ويتضمن جميع الأدوات التي تحتاجها لإنشاء التطبيقات التي تقوم بإنشائها وتعديلها وتحسينها

شحن مجانيماك

تطوير أحادي

MonoDevelop عبارة عن IDE متعدد المنصات مصمم بشكل أساسي لـ C # ولغات .NET الأخرى. يسمح MonoDevelop للمطورين ببناء تطبيقات سطح المكتب وتطبيقات الويب ASP.NET بسرعة لأنظمة Linux و Windows و Mac OSX. يسمح MonoDevelop للمطورين بسهولة نقل تطبيقات .NET المدمجة في Visual Studio إلى Linux و Mac OSX مع الحفاظ على قاعدة رمز واحدة لجميع الأنظمة الأساسية

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux. الإطار الصافياستوديو Xamarin

لعازر

Free Pascal هو مترجم GPL يعمل على Linux و Win32 و OS / 2 و 68K والمزيد. تم تصميم Free Pascal لفهم وترجمة بناء جملة دلفي. يعد Lazarus جزءًا من اللغز المفقود الذي سيسمح لك بتطوير برامج تشبه Delphi لجميع الأنظمة الأساسية المذكورة أعلاه. نظرًا لأن المترجم نفسه متاح على جميع الأنظمة الأساسية المذكورة أعلاه ، فهذا يعني أنك لست بحاجة إلى إعادة الترميز لإنشاء منتجات متطابقة لمنصات مختلفة.

المصدر المفتوح المجانينظام التشغيل Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm عبارة عن JavaScript و CSS و HTML IDE تجاري مبني على إطار عمل JetBrains IntelliJ IDEA.
يوفر WebStorm إكمال التعليمات البرمجية وتحليل الشفرة سريعًا ودعم إعادة البناء وتكامل VCS.

مدفوعنظام التشغيل Mac Windows Linux

شارب ديفيلوب

#develop (اختصار لـ SharpDevelop) هي بيئة تطوير مجانية لمشروعات C # و VB.NET و Boo على منصة Microsoft. إنها بيئة مفتوحة المصدر. يمكنك تنزيل ملفات مصدروالملفات القابلة للتنفيذ.

أساسيات البرمجة.

لغة برمجة صغير أساسي

الدرس 1: الإلمام ببيئة البرمجة صغير أساسي .

استهداف:لتعريف مع لغة البرمجة أساسيات صغيرة.

مهام:

ابدأ بتعلم لغة برمجةسمال بيسك. إعطاء مفهوم OOP (البرمجة الشيئية)

لتعليم كيفية العمل في بيئة البرمجة هذه. NS التعرف على "كائن النص" للبيئةسمال بيسك.

لإعطاء الفكرة الأولى لإنشاء البرامج في بيئة البرمجة.

المهام التربوية الرئيسية للمشروع:

تعليم الصفات الشخصية: التفاني والانتباه والدقة والموضوعية في احترام الذات والمسؤولية والاهتمام المعرفي.

المهام التطويرية الرئيسية للمشروع:

تشكيل الكفاءات الأساسية للطلاب التي تساهم في التكيف الاجتماعي الناجح ؛

لتنمية الرغبة في تطوير الذات والنمو الشخصي من خلال النشاط المعرفي.

أعرف: المفاهيم الأساسية: الكائن ، المتغيرات ، التخصيص ، أنواع البيانات ، المدخلات والمخرجات.تعرف على العناصر المكونة لبيئة برمجة Small Basic.

يكون قادرا على: قم بتنزيل برنامج Smal Basic. قم بإنشاء أبسط المشاريع في بيئة برمجة معينة. أن تكون قادرًا على إدخال الدوال الرياضية وكتابة التعبيرات الرياضية في لغة Smal Basic. إنشاء برامج خطية بسيطة.

المعدات والمواد: ملاحظات المحاضرة الداعمة (انظر.المرفق 1 ) ، بطاقات المهام ، الكمبيوتر الشخصي ، تطبيق Small Basic ، السبورة ، جهاز عرض الوسائط المتعددة ، الشاشة.

خلال الفصول:

تنظيم الوقت

التحضير للدرس
تحديث المعرفة

شرح المادة الجديدة

توحيد المادة المدروسة

أسئلة حول الموضوع

تلخيص

وضع العلامات
واجب منزلي

تنظيم الوقت

التحضير للدرس (تحقق من الاستعداد للدرس ، حدد الغائب)
تحديث المعرفة

ما هي البرمجة ل؟

تريد كتابة ملخص في علم الأحياء. على الأرجح ، ستكتبه على جهاز الكمبيوتر الخاص بك في بعض محرر النصوص. من أين أتى محرر النص؟ بالطبع ، كتبه المبرمجون. سوف تبحث عن معلومات على الإنترنت باستخدام متصفح كتبه أيضًا المبرمجون. بعد كتابة الملخص ، سترغب في الاسترخاء واللعب لعبة كومبيوترالذي كتبه المبرمجون مرة أخرى. بشكل عام ، العمل على جهاز كمبيوتر مستحيل دون استخدام برامج كتبها مبرمجون. هذا يعني أنه إذا لم تكن هناك برمجة ، فلن تكون هناك برامج ، وسيكون الكمبيوتر مجموعة من الأجهزة باهظة الثمن ، لأنه من المستحيل القيام بشيء ما باستخدام جهاز كمبيوتر بدون برامج.

مراحل حل المشكلات.

مفاهيم أساسية

برمجة - برامج الكتابة.

برنامج - خوارزمية مكتوبة بلغة برمجة يستطيع الكمبيوتر فهمها.

الخوارزمية - تسلسل واضح للإجراءات التي تهدف إلى تحقيق الهدف.

في البرمجة الشيئية تم تقديم مفهوم الكائن ، وتم تنفيذ آليات الحساب التي تسمح بما يلي:

وصف هيكل الشيء

وصف الإجراءات مع الأشياء

استخدام قواعد خاصة لميراث الكائن (الميراث يعني إنشاء كائنات جديدة من الكائنات الموجودة)

قم بتعيين درجة حماية مكونات الكائن

نظرية

أول لقاء

Microsoft Small Basic - لغة برمجة طورتها الشركة. مصمم للمطورين المبتدئين الذين يرغبون في فهم أساسيات تطوير البرامج.

المزايا الرئيسية:

بيئة تطوير بسيطة للغاية - محرر نصوص مع تلميح أدوات متعدد الوظائف وأزرار قليلة فقط لتحرير النصوص وتشغيل البرامج.

لغة بسيطة مع 20 كلمة رئيسية فقط

التوثيق السياقي لجميع عناصر اللغة المضمنة في بيئة التطوير

القدرة على توسيع مكونات Small Basic لتشمل وظائف إضافية. (على سبيل المثال ، يتضمن التسليم بالفعل فرصًا للعمل مع الخدمات)

يجب اعتبار الميزة الخاصة لـ BASIC القدرة على العمل في وضع التفسير ، مما يبسط إلى حد كبير عملية تصحيح الأخطاء: يمكن التحقق من تنفيذ كل أمر تقريبًا فور الكتابة.

عامل الإخراج

WriteLine ("Hello!")

يعرض الخط (نصأو عدد )

مهلا!

للحصول على النتيجة - أخرج النص "مرحبًا!" على الشاشة - تحتاج إلى كتابة برنامج:

TextWindow.WriteLine ("مرحبًا!")

يتم إدخال البرنامج في النافذةصغيرأساسيويبدأ بالزريطلقأو بالمفتاح F 5

نتيجة البرنامج هي إخراج النص: "Hello!" الخامسمربع الكتابة البرامج.

يعني السطر "اضغط على أي مفتاح للمتابعة ...."

إن TextWindow هو كائن إطار نص يمكن عرض النص فيه.

الكائن يمتلك الخصائصو أساليب.

طريقة الكائن شيء يمكن أن يفعله الكائن ، أي أنهعمليات (العاملين )

معامل العملية محاطة بأقواس WriteLine()

نفس الشيء مربع الكتابة يمتلك الخصائص (هذه هي خصائص الشيء) ، على سبيل المثال

خاصية BackgroundColor - تحدد لون الخلفية للنص ،المقدمة- لون الخط

الألوان:

أحمر

أصفر

لون أخضر

أزرق

أسود

أبيض

أحمر

أصفر

لون أخضر

أزرق

أسود

أبيض

عامل

غالبًا ما تستخدم المتغيرات لإنشاء البرامج.

المتغير لهاسم - حرف لاتيني (أ)

يمكن تعيين قيمة لمتغير ، مثل قيمة رقمية

أ= 5 ، حيث توجد علامة " = " - هذا هو مهمة تشغيل

قيمة السلسلة

أ = أ + 5

خذ قيمة المتغير أ

أضف 5 إليه

ضع القيمة الجديدة للمتغير أ ، محو القيمة السابقة منه

هناك نوعان من المتغيرات: عددو خط

10، -5، 3.14 "معلوماتية"

أضعاف +

تتضاعف *

يقسم /

الإجراءات الرياضية:

الجيب واللوغاريتم والجذر

صمغ

قسّم إلى أجزاء

رموز البحث

استبدل الأحرف

مثال مع عامل التشغيل "+"

التعبير

نتيجة

التعبير

نتيجة

"إيفان" + "ova"

"إيفانوفا"

"فئة" + 10

"الصف العاشر"

برمجة

مثال 1: نتيجة البرنامج

مثال 2: نتيجة البرنامج

مثال 3: يحسب البرنامج ويعرض مجموع متغيرينأ و ب

رياضيات ابس (نامبر)

وحدة

Math.Cos ( نامبر)

جيب التمام

الرياضيات.

تقرب إلى عدد صحيح

الرياضيات. الحصول على الدرجات ( نامبر)

تحويل رقم من راديان إلى درجات

Math.GetRandomNumber ( ماكسنامبر)

رقم عشوائي في النطاق من 1 إلىماكسنامبر

NaturalLog (الاسم)

اللوغاريتم الطبيعي

الرياضيات

بي

الرياضيات. القاعدة, الأس)

الخامس اضرب baseNamber في أس

رياضيات. ماكس (namber1، namber2)

الحد الأقصى هو رقمين

رياضيات. الباقي (المقسوم ، المقسوم)

ما تبقى من الانقسام

رياضيات .Sin (الاسم)

التجويف

رياضيات. تان(نامبر)

جيب التمام

رياضيات .ScuareRoot (الاسم)

جذر

رياضيات. مستدير(نامبر)

التقريب العادي

رياضيات .ArcSin (الاسم)

أركسين

رياضيات. أرضية(نامبر)

تقريب إلى أقرب عدد صحيح أصغر

س = TextWindow.ReadNumber ()

y = Math.Abs (x)

TextWindow.WriteLine ("yيساوي "+ ص)

الرياضيات

تأمين المادة

التعيينات لـ عمل مستقل

التمرين 1:

تحديد النتائج النهائية لمشغلي التخصيص

س = 3

ص = 2

س = س + 2

ص = س * 2

س = ص

أ = 15

ب = أ

أ = ب / 5 + 2

ب = أ * 3

أ = 0

التكليف 2 : إنشاء برنامج لحساب حاصل ضرب 3 متغيرات:أ , ب و ج .

التنازل 3 : قم بعمل برنامج لحساب التعبير:ض=5* x+ ذ/ 2 (بشرط x = 10 ،ذ=100)

التكليف 4: قم بإنشاء برنامج لإخراج قيم X وص، حسب المهمة 1.

الواجب 5: قم بإنشاء برنامج لإيجاد المميز

التنازل 6 : تقييم التعبيرات

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

كوس 2 (بي/4)+ الخطيئة 2 (بي/2) (1 )

( 1)

ص = 2x 2 ( في س = 5 ، ص = 50)

X 1،2 = (ل = 2 ، ب=6, ج=4 , x 1=-1, x 2=-2)

ض= ln (y)-3 ( في ص = 3 ، ض = -1.901 ...)

С = (لـ أ=4, ب=9, ج=13)

Y = cos (x) + sin (x) (x = 180 0 ، ص = -1)

أسئلة

ما هو البرنامج؟

ما هي لغات البرمجة؟

ما هي العناصر الأساسية للبرمجة الشيئية؟

ما هي العمليات التي يمكن إجراؤها في "مربع النص"؟

ماذا يعني عامل التخصيص:

ما هي أنواع البيانات المستخدمة فيسمال بيسك؟

كيف يتم كتابة بيانات I / O؟

تلخيص

وضع العلامات
واجب منزلي

عمل مع الملاحظات الداعمة

تحضير رسالة حول موضوع: "مجموعة متنوعة من لغات البرمجة"

قم بعمل برنامج حساب مساحة المثلث باستخدام صيغة هيرون

تطبيق

حسن 1: أساسيات البرمجة في اللغة صغير أساسي .

برمجة - برامج الكتابة.

الخوارزمية + لغة برمجة= برنامج

عامل

المتغير لهاسم - حرف لاتيني (على سبيل المثال ،أ , الخامس , x1 , ج 9 )

يمكن تعيين قيمة متغير

مثال: أ = 5 حيث العلامة " = " - هذا هو مهمة تشغيل

هناك نوعان من المتغيرات: عدد و خط (تسلسل الأحرف)

10، -5، 3.14 "معلوماتية"

أضعاف +

تتضاعف *

يقسم /

الإجراءات الرياضية:

الجيب واللوغاريتم والجذر

صمغ

قسّم إلى أجزاء

رموز البحث

استبدل الأحرف

برمجة

TextWindow- هذا هو كائن نافذة النص حيث يمكنك عرض النص.

معلمة العملية بين قوسين - WriteLine()

شيء مربع الكتابة يمتلك الخصائص ، على سبيل المثال

ملكية لون الخلفية - يحدد لون الخلفية للنص ،المقدمة - لون الخط

الألوان المستخدمة:

أحمر

أصفر

لون أخضر

أزرق

أسود

أبيض

أحمر

أصفر

لون أخضر

أزرق

أسود

أبيض

العوامل الأساسية الصغيرة

عامل التشغيل "+"

المشغلين الأساسيين

استخدام وظائف الرياضيات في التعبير

كتابة التعبيرات الرياضية المعقدة الرياضيات TextWindow.WriteLine ("أدخل قيمة للمتغير x")

س = TextWindow.ReadNumber ()

y = Math.Abs (x)

TextWindow.WriteLine ("yيساوي "+ ص)

TextWindow.WriteLine (Math.Abs [-10))

برنامج لحساب مجموع متغيرينأو ب

TextWindow.WriteLine ("أدخل قيمة المتغير أ")

أ = TextWindow.ReadNumber ()

TextWindow.WriteLine ("أدخل قيمة لـ b")

ب = TextWindow.ReadNumber ()

ق = أ + ب

TextWindow.WriteLine ("مجموع الأرقام "+ s)

يتم إدخال البرنامج في النافذةصغيرأساسيويبدأ بالزريطلقأو بالمفتاح F 5.

خط صحافة أي مفتاح استمر ... يعني " اضغط على أى زر للاستمرار

مرحباً بالجميع ، أريد أن أعرض عليكم في هذا المقال أكواد مفيدةبرامج صغيرة. والتي يمكنك استخدامها لكتابة برامجك الأكثر جدية ، حسنًا ، أو كنت تبحث بالضبط عن هذه الوظائف ، والتي تم وصفها هنا.

تم استخدام جميع الرموز في بيئة البرمجة Microsoft Visual Basic v6.0.

خروج مع التأكيد

النوع الأول من البرنامج ، أو الوظيفة ، هو خروج برسالة تأكيد خروج. بشكل عام ، افتح الأربعاء البرمجة المرئيةأساسي ، قم بإنشاء مشروع قياسي ، ثم ضع زرًا واحدًا على النموذج ، وانقر فوق الزر وسترى نافذة تحرير الكود ، وهناك تحتاج إلى إدخال الكود التالي:

رسالة خافتة للصفير كأزرار خافتة للسلسلة والرموز كعنوان خافت صحيح كإجابة خافتة للسلسلة كرسالة سلسلة = "هل ترغب في الخروج؟" title = "(! LANG: خروج" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

كلمة السر لبدء البرنامج

Dim Password، Pword PassWord = "12345" Pword = InputBox If Pword<>PassWord ثم MsgBox "كلمة المرور غير صحيحة" End End If

حيث ، 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 مفرد) إذا كان الزر = 1 ثم سطر (Form1.CurrentX ، Form1.CurrentY) - (X ، Y) ، QBColor (0) End If End Sub

يمكنك تغيير اللون باستخدام معامل QBColor (0) ، أي استبدل 0 برقم آخر.

قم بإعادة تشغيل جهاز الحاسوب الخاص بك

لإعادة تشغيل جهاز الكمبيوتر الخاص بك: ضع الزر والصق الرمز التالي:

Dim strComputer As String strComputer = "." اضبط objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = impersonate، (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") Set colOperatingSystems = objWMIService.ExeperacQuery ("حدد * من For WinO32_O في colOperatingSystems ObjOperatingSystem.Reboot "لإعادة تشغيل التالي

تشغيل البرنامج في نسخة واحدة

سيساعدك المثال التالي على تشغيل البرنامج مرة واحدة فقط ، أي في حالة إعادة التشغيل ، ستظهر رسالة مقابلة. أدخل في رمز النموذج:

Sub Form_Load () الخاص إذا كان App.PrevInstance = صحيح ثم MsgBox "المشروع قيد التشغيل بالفعل!" End End إذا

اغلاق جهاز الكمبيوتر الخاص بك

لإيقاف تشغيل الكمبيوتر ، يمكنك استخدام الكود التالي:

إتمام أي عملية

من أجل إتمام العملية ، يمكنك استخدام الكود التالي:

شل "Cmd / x / c Taskkill / f / im ICQlite.exe" ، vbvhite

حيث ، بدلاً من ICQlite.exe ، يمكن أن يكون هناك أي عملية.

كم من الوقت يعمل الكمبيوتر

يوجد أدناه مثال لكيفية تحديد وقت تشغيل جهاز الكمبيوتر الخاص بك. هذه الطريقةيعتمد على استخدام مكتبة kernel32 ، لذا قم بتضمين DLL هذا في بداية كود النموذج.

وظيفة التصريح الخاصة GetTickCount Lib "kernel32" () بطول "وفي رمز الزر: خافت ساعة ، a_minute ، a_second a = Format (GetTickCount () / 1000 ،" 0 ")" ثوان فقط a_days = Int (a / 86400) a = 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) _ & "hours" & Str (a_minute) & "minutes" & Str (a_second) & "seconds"

لقد قمنا بتغطية وظائف بسيطة يمكن استخدامها في أي مكان تقريبًا. الآن دعنا نلقي نظرة على أمثلة أكثر جدية ، ويمكن أن تساعدك بشكل كبير في كتابة مشاريعك الكبيرة.

أمثلة على العمل مع المجلدات

حذف الدليل

وظيفة التصريح الخاصة RemoveDirectory & Lib _ "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName كسلسلة) "حذف الدليل (فارغ!) PathName $ =" D: \ t "code & = RemoveDirectory (PathName) إذا كان الرمز & = 0 ثم حذف الدليل "خطأ في حذف الدليل آخر" End If

إنشاء دليل

MakeDir الفرعي (اسم الدليل كسلسلة) خافت طويًا ، المسار مثل String Do i = InStr (i + 1، dirname & "\"، "\") path = Left $ (dirname، i - 1) If Right $ (path ، 1)<>":" And Dir $ (path، vbDirectory) = "" ثم MkDir path End If Loop until i> = Len (dirname) End Sub Private Sub Command1_Click () Call MakeDir ("C: \ Soft \ 1 \ 2 \ 3 \ ") End Sub

قائمة بجميع المجلدات مع المجلدات الفرعية

أضف حقلين نصيين وزرًا إلى النموذج ، واسم حقل النص الأول: StartText ، واسم حقل النص الثاني OutText. خاصية Multiline = true ، اسم الزر = CmdStart

تشغيل ثابت كـ Boolean Dim AllDirs كمجموعة جديدة Dim next_dir كـ عدد صحيح Dim dir_name كسلسلة Dim sub_dir كسلسلة Dim i كعدد صحيح Dim txt كسلسلة في حالة التشغيل ثم التشغيل = False CmdStart.Enabled = False CmdStart.Caption = "إيقاف" تشغيل آخر = 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 <>"" إذا كان UCase $ (sub_dir)<>"PAGEFILE.SYS" و sub_dir<>"." و sub_dir<>".." ثم sub_dir = dir_name & "\" & sub_dir عند الخطأ استئناف التالي إذا GetAttr (sub_dir) و vbDirectory ثم AllDirs.Add sub_dir End If sub_dir = Dir $ (، vbDirectory) Loop DoEvents إذا لم يكن قيد التشغيل ثم قم بإنهاء Do Loop txt = "" بالنسبة إلى i = 1 إلى AllDirs.Count txt = txt & AllDirs (i) & vbCrLf التالي i OutText.Text = txt MousePointer = vbDefault unning = False End إذا

الآن نقوم بتشغيل البرنامج ، في مربع النص ، اكتب StartText: C: \ windows ، وانقر فوق الزر.

حجم الكتالوج

Const MAX_PATH = 260 نوع خاص FILETIME dwLowDateTime طويل dwHighDateTime كنوع نهاية طويلة نوع خاص نوع WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETHIME As FILETIME الاسم المستعار "FindFirstFileA" (ByVal lpFileName كسلسلة ، lpFindFileData باسم WIN32_FIND_DATA) كما Long Private Declare Function FindNextFile Lib _ "kernel32" Alias "FindNextFileA" (بواسطة AsFile Long hFind WIN32_FIND_DATA) بحث عن وظيفة تعريف خاصة طويلة "(ByVal hFindFile As Long) مثل Long Public Function SizeOf (ByVal DirPath As String) كخافت مزدوج h البحث عن خافت fdata طويل مثل WIN32_FIND_DATA خافت dblSize مثل خافت مزدوج sName كسلسلة خافتة × طول خطأ استئناف التالي x = GetAttr (DirPath) إذا كان هناك خطأ ثم SizeOf = 0: إنهاء الوظيفة If (x And vbDirectory) = vbDirectory ثم dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & "*. *" أو VbSystem أو vbHidden أو vbDirectory) إذا كان Err.Number = 0 ثم hFind = FindFirstFile (EndSlash (DirPath) & "*. *"، Fdata) إذا كان hFind = 0 ثم قم بالخروج من الوظيفة Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory ثم sName = Left $ (fdata.cFileName، InStr (fdata.cFileName، vbNullChar) - 1) إذا كان الاسم<>"." والاسم<>".." ثم dblSize = dblSize + SizeOf (EndSlash (DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop FindNextFile (hFind، fdata)<>0 hFind = FindClose (hFind) End If Else On Error ، استئناف التالي dblSize = FileLen (DirPath) End If SizeOf = dblSize End Function Private Function EndSlash (ByVal PathIn As String) كسلسلة إذا كانت صحيحة $ (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"

ملحوظة! إذا كان هناك بالفعل ملف باسم 1.txt في الدليل 2 ، فسيتم استبداله بـ 1.txt من الدليل 1.

وظيفة التصريح الخاصة CopyFile Lib _ "kernel32.dll" Alias "CopyFileA" _ (ByVal lpExistingFileName كسلسلة ، ByVal lpNewFileName كسلسلة ، ByVal bFailIfExists As Long) As Long Private Sub Command1_Click () "نسخ الملف C: \ 1.txt إلى D: \ 1.txt. Dim retval As Long "return value" Copy file retval = CopyFile ("C: \ 1.txt"، "D: \ 1.txt"، 1) If retval = 0 ثم "If MsgBox خطأ "لا يمكن نسخ" آخر "إذا كان كل شيء على ما يرام MsgBox" تم نسخ الملف. "End If End Sub

حذف

على سبيل المثال ، نريد حذف الملف 1.txt من جذر محرك الأقراص C: \

قتل ("C: \ 1.txt")

طريقة API

وظيفة التصريح الخاصة DeleteFile Lib _ "kernel32.dll" الاسم المستعار "DeleteFileA" (ByVal lpFileName كسلسلة) كـ Long Private Sub Command1_Click () "حذف الملف C: \ Samples \ anyfile.txt Dim retval As Long" إرجاع القيمة retval = DeleteFile ("C: \ 1.txt") إذا كان retval = 1 ثم MsgBox "تم حذف الملف بنجاح." End Sub

متحرك

يمكنك ، على سبيل المثال ، نقله على النحو التالي:

Filecopy "C: \ 1.txt"، "C: \ 2 \ 1.txt" Kill ("C: \ 1.txt")

لكنه أفضل مثل هذا (عبر API):

إعلان خاص دالة MoveFile Lib _ "kernel32.dll" اسم مستعار "MoveFileA" _ (ByVal lpExistingFileName كسلسلة ، ByVal lpNewFileName كسلسلة) كـ Long Private Sub Command1_Click () Dim retval As Long "إرجاع القيمة retval = MoveFile (" C: \ 1 .txt "،" C: \ 2 \ 1.txt ") إذا retval = 1 ثم MsgBox" تم نقله بنجاح "Else MsgBox" Error "End If End Sub

إعادة تسمية

لإعادة تسمية الملف 1.txt الموجود في C: \ إلى 2.txt ، يمكنك استخدام الكود التالي:

Filecopy "C: \ 1.txt"، "C: \ 2.txt" Kill ("C: \ 1.txt")

طريقة API

إعلان خاص دالة MoveFile Lib _ "kernel32.dll" اسم مستعار "MoveFileA" _ (ByVal lpExistingFileName كسلسلة ، ByVal lpNewFileName كسلسلة) كـ Long Private Sub Command1_Click () Dim retval As Long "إرجاع القيمة retval = MoveFile (" C: \ 1 .txt "،" C: \ 2.txt ") إذا كان retval = 1 ثم MsgBox" Success "Else MsgBox" Error "End If End Sub

تحديد حجم الملف

يمكن تحديد حجم الملف بطريقتين:

إذا كان من الممكن فتح الملف باستخدام وظيفة OPEN ، فيمكنك استخدام وظيفة LOF

خافت FileFree كملف خافت عدد صحيح بحجم ملف طويل مجاني = فتح ملف مجاني "C: \ WIN \ GENERAL.TXT" للإدخال كـ FileFree FileSize = LOF (FileFree) أغلق FileFree

أو استخدم وظيفة FileLen

Dim lFileSize As Long FileSize = FileLen ("C: \ WIN \ GENERAL.TXT")

إخفاء الساعة برمجيًا

أضف زرين والصق الرمز:

الخيار الواضح الخاص التصريح الوظيفة FindWindow Lib _ "user32" Alias "FindWindowA" (ByVal lpClassName كسلسلة ، ByVal lpWindowName كسلسلة) كسلسلة تعريف خاصة طويلة FindWindowEx Lib _ "user32" الاسم المستعار "FindWindowExA" _ (ByVal hWnd1 As طويل ، ByVal hWnd2 طويل ، ByVal lpsz1 كسلسلة ، ByVal lpsz2 كسلسلة) مثل وظيفة التصريح الخاصة الطويلة ShowWindow Lib _ "user32" (ByVal hwnd As Long ، ByVal nCmdShow طويل) كما طويل خافت hnd طويل مثل أمر فرعي خاص طويل 1_lick () ShowW 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، "TrayNotifyWnd"، vbNullString) hnd = FindWindowEx ( hnd، 0، "TrayClockWClass"، vbNullString) Command1.Caption = "إخفاء الساعة" Command2.Caption = "إظهار الساعة" End Sub

أضف رمزًا إلى العلبة

أضف وحدة ، الصق الكود فيها:

قم بتعريف الوظيفة Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long ، lpData كـ NOTIFYICONDATA) كـ Conster Public Const NIM_ADD = 0 Const العام NIM_MODIFY = 1 Const العام NIM_DELETE = 2 Const العام NIF_MESSAGE = 1 CONST العام NIFSICONTOND = 2 النوع hWnd معرّف طويل مثل uFlags طويل مثل uCallbackMessage طويل كمؤشر طويل مثل SzTip طويل مثل String * 64 End Type Public Function SetTrayIcon (الوضع طويل ، hWnd طويل ، رمز طويل ، تلميح كسلسلة) كما nidTemp طويل خافت مثل NOTIFYICONDATA nidTemp. cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON أو NIF_TIP nidTemp.uCallbackMessemp = 0 & nidTraycon = 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 كسلسلة) باعتبارها وظيفة تعريف خاصة طويلة FindWindowEx Lib "user32" اسم مستعار "FindWindowExA" _ (ByVal hWnd1 طويل ، ByVal hWnd2 طويلة ، ByVal lpsz1 كسلسلة ، ByVal lpsz2 كسلسلة) مثل وظيفة التصريح الخاصة الطويلة EnableWindow Lib "user32" _ (ByVal hwnd طويل ، ByVal fEnable طويلاً) طالما تم تمكين فرعية عمومية StartButton (اختياري ممكن كـ Boolean = True) خافت lHwnd As Long "find hWnd lHwnd & = FindWindowEx (FindWindow (" Shell_TrayWnd "،" ")، 0 &،" Button "، vbNullString) EnableWindow (lHwnd &، CLng (Enabled)) End Sub Private Sub Command1_Click () EnableStartButton False زر "START مغلق" End Sub Private Sub Command2_Click () EnableStartButton True "زر START غير مؤمن End Sub

قراءة المعلمات من ملف INI

يتصل البرنامج بـ FTP ، وتتم كتابة المعلمات في ملف ini - الخادم ، تسجيل الدخول ، المنفذ ، كلمة المرور.

من البداية ، قمنا بإنشاء ملف INI:

Servname = server usern = تسجيل الدخول pwd = منفذ كلمة المرور = المنفذ

ضعه في مجلد البرنامج. بعد ذلك ، ندرج في الوحدة النمطية:

وظيفة التصريح الخاصة WritePrivateProfileString Lib _ "kernel32" الاسم المستعار "WritePrivateProfileStringA" (ByVal lpApplicationName كسلسلة ، ByVal lpKeyName كسلسلة ، _ ByVal lpString كسلسلة ، ByVal lpFileName كسلسلة) كـ Long kernel Private Declare Function GetPrivate " ByVal lpApplicationName كسلسلة ، ByVal lpKeyName كسلسلة ، _ ByVal lp الافتراضي كسلسلة ، ByVal lpReturnedString كسلسلة ، _ ByVal nSize As Long ، ByVal lpFileName كسلسلة) As Long Public Function ReadIni (Razdel As String ، Parami) As String Param، App.Path & "\ test.ini"، "0") وظيفة النهاية الوظيفة الخاصة GetValue (مقطع ByVal كسلسلة ، _ مفتاح ByVal كسلسلة ، ByVal fFileName كسلسلة ، اختيارية ByVal DefaultValue كسلسلة = vbNullString) كسلسلة باهتة البيانات على هيئة بيانات سلسلة = String $ (1000، Chr $ (0)) إذا GetPrivateProfileString (قسم ، مفتاح ، قيمة افتراضية ، بيانات ، 1000 ، fFileName)> 0 ثم GetValue = Left $ (Data ، InStr (Data $ ، Chr $ (0 )) - 1 ) Else GetValue = DefaultValue End If إنهاء وظيفة إنهاء الوظيفة

ثم ندخل في كود النموذج:

وظيفة التصريح الخاصة InternetOpen Lib _ "wininet.dll" الاسم المستعار "InternetOpenA" (ByVal sAgent As String ، ByVal nAccessType طويلاً ، ByVal sProxyName كسلسلة ، _ ByVal sProxyBypass As String ، ByVal nFlags As Long) وظيفة إعلان خاص طويل InternetConnect Lib _ "wininet.dll" الاسم المستعار "InternetConnectA" (ByVal hInternetSession As Long ، ByVal sServerName كسلسلة ، _ ByVal nServerPort As Integer ، ByVal sUserName As String ، ByVal sPassword As String ، ByVal nService As Long ، _ ByVal As LongFlags ، ByVal dwVFlags طويلة، ByVal dwVFlags طويلة، ByVal Long) كما Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long ، ByVal lpszLocalFile As String ، _ ByRempsz ByVal dwFlags طويلة ، ByVal dw) AsContext Asole Long Function FtpGetFile Lib _ "wininet.dll" الاسم المستعار "FtpGetFileA" (ByVal hFtpSession As Long ، ByVal lpszRemoteFile As String ، _ ByVal lpszNewFile As StringI ، ByVal ، السمات الطويلة _ ByVal dwFlags طويلة ، ByVal dwContext بطول طويل) مثل Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) مثل Dimr 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) If FtpGetFile (rs &، "Your file.txt"، "path where"، False، 0، 1، 0) = False ثم End Call InternetCloseHandle (rs &) الاتصال بالإنترنت

قائمة العمليات الجارية

أضف Listbox وزر 1 ، أدخل الكود التالي:

الخيار الصريح الخاص التصريح الدالة CreateToolhelpSnapshot Lib _ "Kernel32" Alias "CreateToolhelp32Snapshot" _ (ByVal lFlags طويلة ، ByVal lProcessID طويل) بصفتها طويلة خاصة للإعلان عن الوظيفة ProcessFirst Lib _ "Kernel32" Alias "Process32First" _ (ByVhot hSnap ما دامت PROCESSENTRY32) طالما أن عملية الإعلان الخاصة طويلة عملية الوظيفة Next Lib _ "Kernel32" Alias "Process32Next" _ (ByVal hSnapShot طويل ، uProcess as PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) خاص Const TH32CS_ AsNAPPRO = 2 & Private Const_PATH As Integer = 260 نوع خاص PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID طويل th32DefaultHeapID طويل th32ModuleID مثل طويل cntThreads مثل th32ParentProcessID مثل طويل pcPriCess خافت r كطولة خاصة فرعية Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS، 0 &) إذا كانت hSnapShot = 0 ثم اخرج من النهاية الفرعية إذا uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot ، uProcess) قم بإجراء أثناء استدعاء r List1.AddItem uProcess.szleFile (hSnapShot) End Sub

وضع برنامج عند بدء التشغيل

لكي يتم تحميل البرنامج مع Windows ، مثل بعض البرامج الأخرى ، يمكنك استخدام السجل:

أضف زرين و الكود التالي:

Private Sub Command1_Click () "تعيين إدخال التسجيل Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Your program name "، _" المسار إلى برنامجك "End Sub أمر فرعي خاص2_Click () "حذف من التسجيل تعيين Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Your program name "End Sub

ولكي يتم تحميل البرنامج مع Windows ، حتى في ملفات الوضع الآمن، ثم رمز مثل هذا:

أولاً ، طريقة أكثر جدية (فقط في حالة دعمالتسجيل).

أمر فرعي خاص1_Click () تعيين Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell"، _ "المسار إلى برنامجك" End Sub Private Sub Command2_Click () " هذا لاستعادة Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell"، _ "Explorer.exe،" End Sub

حسنًا ، وطريقة سهلة.

أمر فرعي خاص1_Click () تعيين Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit"، _ "C: \\ WINDOWS \\ system32 \\ userinit.exe ، المسار إلى برنامجك "End Sub Private Sub Command2_Click ()" لاستعادة Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit"، _ "C : \\ WINDOWS \\ system32 \\ userinit.exe ، "End Sub

إخفاء شريط المهام

أضف زرين والصق الرمز:

تعيين وظيفة التصريح الخاص "user32" (ByVal hwnd طويل ، _ ByVal hWndInsertAfter As Long ، ByVal x As Long ، ByVal y As Long ، _ ByVal cx طويلاً ، ByVal cy طويل ، ByVal wFlags طويلة) إعلان خاص طويل الوظيفة FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName كسلسلة ، ByVal lpWindowName كسلسلة) مثل Const طويلة SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "(Hide Private Sub Command1_Click () hindow1 =" FindWindow1 = " Shell_trawindow ("" Shell_traw) استدعاء SetWindowPos (hwnd1، 0، 0، 0، 0، 0، SWP_HIDEWINDOW) End Sub "يعرض Special Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "،" ") استدعاء SetWindowPos (hwnd1، 0، 0 ، 0 ، 0 ، 0 ، SWP_SHOWWINDOW) End Sub

قم بفك ضغط أرشيف RAR

لفك ضغط أرشيف RAR ، يمكنك استخدام الكود التالي:

WinRarApp = "C: \ Program Files \ WinRAR \ WinRAR.exe x -o +" iPath = "C: \" iArhivName = "Filename.rar" adr = WinRarApp & "" "& iPath & iArhivName &" "" " "" & iPath & "" "" RetVal = Shell (adr، vbHide)

كم ذاكرة الوصول العشوائي في الكمبيوتر

أضف زرًا واحدًا والصق الكود التالي:

إعلان خاص Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer باسم TMemoryStatus) النوع الخاص TMemoryStatus dwLength طويل dwMemoryLoad as Long dwTotalPhys as long dwAvailPhys as long dwTotalPageFile as long dwAvailwatPage As TMemoryStatus) الإجمالي: "& ms.dwTotalPhys & vbCr &" مجاني: "_ & ms.dwAvailPhys & vbCr &" مستخدم في٪: "& ms.dwMemoryLoad End Sub

إخفاء رموز سطح المكتب

ويتم ذلك بالطريقة التالية. أضف زرين والصق الكود التالي:

وظيفة التصريح الخاصة ShowWindow & Lib "user32" (ByVal hwnd &، ByVal nCmdShow &) وظيفة التصريح الخاصة FindWindow Lib _ "user32" Alias "FindWindowA" (ByVal lpClassName كسلسلة ، ByVal lpWindowName كسلسلة) طويلة Const SW_HIDE = 0 Const SW_NORMAL = أمر فرعي خاص واحد 1_Click () Dim hHandle As Long hHandle = FindWindow ("progman"، vbNullString) استدعاء ShowWindow (hHandle، SW_HIDE) End Sub Private Sub Command2_Click () Dim hHandle As Long hHandle = FindWindow ("progman"، vbNullString) ) استدعاء ShowWindow، SW_NORMAL) End Sub

يخفي الزر Command1 الرموز ، بينما يجعل Command2 تظهر الرموز.

هذا كل شيء بالنسبة لي ، وآمل أن تكون الأمثلة المذكورة أعلاه مفيدة لك ، في الوقت الحالي!

جميع أوامر مايكروسوفت سمايل الأساسية. بدائل لاستبدال Microsoft Small Basic

NetBeans

استوديو أبتانا

تحرير كومودو

Xcode

تطوير أحادي

لعازر

WebStorm

شارب ديفيلوب

خروج مع التأكيد

كلمة السر لبدء البرنامج

عرض رسالة

الرسم على نموذج

قم بإعادة تشغيل جهاز الحاسوب الخاص بك

تشغيل البرنامج في نسخة واحدة

اغلاق جهاز الكمبيوتر الخاص بك

إتمام أي عملية

كم من الوقت يعمل الكمبيوتر

أمثلة على العمل مع المجلدات

حذف الدليل

إنشاء دليل

قائمة بجميع المجلدات مع المجلدات الفرعية

حجم الكتالوج

أمثلة على العمل مع الملفات

ينسخ

حذف

متحرك

إعادة تسمية

تحديد حجم الملف

إخفاء الساعة برمجيًا

أضف رمزًا إلى العلبة

منع زر البداية

قراءة المعلمات من ملف INI

قائمة العمليات الجارية

وضع برنامج عند بدء التشغيل

إخفاء شريط المهام

قم بفك ضغط أرشيف RAR

كم ذاكرة الوصول العشوائي في الكمبيوتر

إخفاء رموز سطح المكتب

استعادة كلمة السر