معلومة كل يوم

فكرة جميلة جداً أخي hishamnasr

وسأبدأ اليوم بكتابة خوارزمية رسم معادلة معينة

ولتكن معادلة من الشكل :

y = Sin(x^2)

يلزمنا في هذا المثال تحديد مجال الرسم وليكن من -2 إلى +2

لعمل ذلك :

1- نفتح مشروع VB جديد

2- نضع فيه مربع PicturePox اسمه يكون Picture1 و زر نعنونه بـ Draw

3- نضع لأداة Picture1 الخصائص التالية :

Width = 4000

Height = 4000

ScaleMode = User

ScaleLeft = -2

ScaleUp = -2

ScaleWidth = 4

ScaleHeight = 4

4- نكتب في حدث عند الضغط على الزر ما يلي :

    Dim X As Single, Y As Single
    With Picture1
        .Line (-2, 0)-(2, 0), QBColor(7) '<---------- رسم المحور الأفقي
        .Line (0, -2)-(0, 2), QBColor(7) '<---------- رسم المحور العمودي
        For X = -2 To 2 Step 0.01
            Y = Sin(X ^ 2)
            .PSet (X, Y), vbBlue
        Next
    End  With

طبعاً يمكن التغيير بالمعادلة للحصول على أشكال مختلفة

مشكور يا أستاذ مهند على الدرس الرائع و أيضا مشكور يا أخ هشام على الفكرة الجميلة و بانتظار مشاركات الجميع

فكرة جميلة اخ هشام تحياتى لك

كيف تتضيف صورة للزر او تغير لونه???

غير خاصية style الى graphical

أرجو من الجميع المشاركة في هذا الموضوع .. مهما كانت المعلومة بسيطة .. يمكن لأن تكون خافية على غيرك ويستفيد منها الآخرون

أنا سأتكلم اليوم عن كيفية معرفة أن الرقم زوجي أو فردي ..

ويوجد لهذه المشكلة الكثير من الحلول ... وأنت حاول أن تفكر في حل قبل أن تقرأ باقي الموضوع

بفرض الرقم n

الحل 1:

   If n/2 = n\2 then
       MsgBox "الرقم زوجي"
   Else
       MsgBox "الرقم فردي"
   End If

الحل 2:

   If n/2 = int(n/2)  then
       MsgBox "الرقم زوجي"
   Else
       MsgBox "الرقم فردي"
   End If

الحل 3:

   If n mod 2 = 0  then
       MsgBox "الرقم زوجي"
   Else
       MsgBox "الرقم فردي"
   End If

الحل 4:

   If (-1) ^ N = 1 Then
       MsgBox "الرقم زوجي"
   Else
       MsgBox "الرقم فردي"
   End If

فكذروا معي ..

هل هنالك وسائل أخرى ؟؟

للوصول السريع لخاصية معينة فى نافذة الخصائص الخاصة بكل أداة:

اضغط على Control + Shift و أول حرف من اسم الخاصية

السلام عليكم

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

للذهاب إلى مكان برمجة أي دالة تراها أمامك في الكود .. ضع المؤشر ضمنها ثم اضغط Shift+F2

كيف تجعل ادواتك دائما تتوسط الشاشة ؟؟

اي مهما كان مقاس الشاشة فان الادوات المستعملة تكون في الوسط؟

ضع frame1 بالفورم و ضع به جميع الادوات المستعملة في الفورم

اضف الكود التالي للفورم لود

frame1.move (screen.width-frame1.width)/2,(screen.height-frame1.height)/2

هنا سيتوسط الframe الشاشة

وكناحية جمالية اجعل الframe1.visible=false

السلام عليكم

لفتح برنامج في جهازك ذو امتداد .exe استعمل الكود التالي

shell  "path name with extension exe ",vbNormalFocus

بين ال "" ضع المسار و بعد , اكتب مقاس البرنامج في الشاشة

لكتابة كود يكتب جملة معينة معكوسة

اضف زر و تكست بوكس و اضف الكود التالي

Private Sub Command1_Click()
Dim n As String, x As Integer
x = Len(Text1.Text)
n = Text1.Text
Text1.Text = ""
For i = x To 1 Step -1
Text1.Text = Text1.Text & Mid(n, i, 1)
Next
End Sub

وين يا شباب مشاركاتكم؟؟؟؟؟؟؟؟؟؟

السلام عليكم

شكراً لك اخي هشام ناصر (hishamnaser) على ردك لاجابة سؤالي اغلاق

الكل بلمسه

ولكن اقصد في سؤالي هو بدلاً من ان اغلاق جميع الفروم من علامة اغلاق

الفروم (x) في اعلى الزاوية اليمنى من الشاشة ... ان اغلاقها كلها دفعه واحدة

ولا اقصد اغلاق الفورم برمجياً كما كتبت . فارجو منك ومن الاخوة الافاضل الاهتمام .

وجزاكم الله الف الف الف بل كل الخير لاهتمامكم

و الله ولي التوفيق

اخوكم في الله انيس القبائلي

و السلام عليكم ورحمة الله وبركاتة

السلام عليكم

اذا اردت تصميم برنامج من بشرط الا يظهر البرنامج في شريط start اقصد شريط ويندوز اسفل الشاشة فضع خاصية boarder style للفورم =none

Private Sub Form_Load()
Dim A As Double, B As String
A = 123456789
B = "   A B C D E F"
MsgBox StrReverse(A & B & " ا ب ت ث ج  ")
End Sub

الكود أعلاه يعكس ترتيب النصوص أو الأرقام

فقط ضع النص أو الرقم أو المتغير بين القوسين من السطر التالي

StrReverse()

السلام عليكم

لتنشيط شريط الخواص اضغط F4

لعمل ما يسمى بمصفوفة الادوات او Control array قم باختيار الاداة و من ثم

1) اما باعطاء خاصية ال Index القيمة 0

2) او بعمل Copy/Paste للاداة

و من ثم ستسالك ال Visual basic اذا كنت تريد عمل المصفوفة لهذه الاداة و اضغط على نعم

يمكن التعمل مع الادوات من خلال ال Index

Dim i as integer
For i = 0 to Command1.UBound
Command1(i).caption = " this is command number " & i & " from array"
next i

رائع وللأمام

لفتح ملف معين ببرنامج معين نكتب الآتي ولنفرض أنها في الحدث Command1_Click

Dim s As Long
s=shell(“ مسار الملف التنفيذي للبرنامج      مسار الملف المراد فتحه” ,1)

مثلا لفتح ملف .txt ببرنامج المفكرة نكتب الآتي:

 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim s As Long
Dim path As String
path = Space$(255)
lonstatus = GetWindowsDirectory(path, 255)
 s = Shell(path & "\system32\notepad.exe  C:\text.txt", 1)
end sub

حيث path & "\system32\notepad.exe هو مسار برنامج المفكرة و C:\text.txt هو مسار الملف المراد فتحه

ملاحظة : لاحظ وجود مسافة بين مسار البرنامج ومسار الملف .

للرفع

السلام عليكم ورحمة الله وبركاته

الحقيقة الأخ hishamnasr ذكر الكثير من الأمور .. وياريت تواصل أخي العزيز :)

وسنحاول من خلال معلوماتنا المتواضعة جداً أي نضع أي معلومة ونتمنى أن تفيد بعض من يقرأها ..

لإستدعاء الأوامر التي ينفذها زر ما عند الضغط عليه نكتب التالي على فرض أن اسم الزر command1

command_click

:)

حقيقة أنا أستخدم هذا الأمر كثيراً في البرامج التي اكتبها .. وإن شاء الله تكون مفيده :)

السلام عليكم،

مشاركتى تصحيحية وهي بخصوص with حيث يبدو انها تعمل فقط مع خصائص ال object ولم اكتشفها الا بعد لصق كود الاخ مهند وتفاجئت بظهور اخطاء لل line. و pset.

   Dim X As Single, Y As Single
   With Picture1
       .Line (-2, 0)-(2, 0), QBColor(7) '<---------- رسم المحور الأفقي
       .Line (0, -2)-(0, 2), QBColor(7) '<---------- رسم المحور العمودي
       For X = -2 To 2 Step 0.01
           Y = Sin(X ^ 2)
           .PSet (X, Y), vbBlue
       Next
   End  With

السلام عليكم

لقراءة نص من textbox و تريد ان يعامل معاملة التاريخ استعمل التالي

dim d as date
d=text1.text

و اذا اردت التاكد من ان النص بالتكست بوكس هو تاريخ ام لا ...و ان كان تاريخ تاريخ فهل هو صحيح ام لا

if isdate(text1.text) then

وهنا اذا ادخلت التاريخ 29 -2-2001 سيرجع خطأ false لان 2001 سنة بسيطة

السلام عليكم ورحمة الله وبركاته

إضافة أخرى للتأكد من أن محتوى مربع النص هو رقم

isnumeric(text1.text)

والتي تحمل القيمة True أو False

ماشاء الله تبارك الله الله يزيدكم من علمه اخواني