الأربعاء، 26 مارس 2014

أنماط فوتوشوب أكثر من 1600 نمط




للتحميل:

إضغط هنا

كلمة المرور لفك الضغط:

Hazim07
مرسلة بواسطة في

طريقة اخراج ملف من نوع معين في vb.net ( See if a file exists in VB .NET)

مثال يوضح هل يمكن اخراج ملفات بالفيجوال بيسك 

الكود:
The System.IO.File.Exists method returns True if a file exists.
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
    e As System.EventArgs) Handles MyBase.Load
    Dim file_path As String = Application.StartupPath
    file_path = file_path.Substring(0, _
        file_path.LastIndexOf("\"))

    If System.IO.File.Exists(file_path & "\Form1.vb") Then
        lblFile1.Text = "Form1.vb exists"
    Else
        lblFile1.Text = "Form1.vb does not exist"
    End If

    If System.IO.File.Exists(file_path & "\Missing.vb") Then
        lblFile2.Text = "Missing.vb exists"
    Else
        lblFile2.Text = "Missing.vb does not exist"
    End If
End Sub
 للتحميل: إضغط هنا     
مرسلة بواسطة في

الثلاثاء، 25 مارس 2014

آلة حاسبة متتطورة علمية

مرسلة بواسطة في
تصميم لعبة اكس أو × & O للاعبين
سنتعرف في هذا المقال على كيفية تصميم لعبة اكس أو الشهيرة البسيطة للاعبين باستخدام لغة الفيجوال بيسك دوت نت

1-نقوم بفتح الفيجوال بيسك ثم نقوم بانشاء مشروع جديد و نسميه X&o
2- نقوم باضافة تسعة أزرار Buttons الى النموذج و نغير خصائصهم جميعا كما يلي :

الخاصية FlatStyle اجعلها Flat

الخاصية BackColor اجعلها White

بحيث يكون التصميم النهائي للعبة قريب من الشكل التالي :




نذهب الآن الى نافذة الكود Code Windows ((يمكنك الانتقال الى نافذة الكود بالضغط F7)) لكتابة الاكواد اللازمة

سوف تجد مبدئيا الكود التالي :
Public Class Form1

End Class

قم بنسخ الكود التالي كاملا وضعه بين السطرين السابقين
Public Class Form1
قم بنسخ الكود التالي هنا
End Class

الكود:


Dim a As Integer = 1
Dim s As Integer = 0

Private Sub Buttons_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
If a = 1 Then
sender.text = "×"
sender.backcolor = Color.Yellow
sender.enabled = False
a = 0
Else
sender.text = "0"
sender.backcolor = Color.LightSalmon
sender.enabled = False
a = 1
End If
s = s + 1
q()
End Sub


Private Sub q()
If Button1.Text = "×" And Button2.Text = "×" And Button3.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button4.Text = "×" And Button5.Text = "×" And Button6.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button7.Text = "×" And Button8.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button1.Text = "×" And Button4.Text = "×" And Button7.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button2.Text = "×" And Button5.Text = "×" And Button8.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button3.Text = "×" And Button6.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button1.Text = "×" And Button5.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button3.Text = "×" And Button5.Text = "×" And Button7.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
End If

If Button1.Text = "0" And Button2.Text = "0" And Button3.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button4.Text = "0" And Button5.Text = "0" And Button6.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button7.Text = "0" And Button8.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button1.Text = "0" And Button4.Text = "0" And Button7.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button2.Text = "0" And Button5.Text = "0" And Button8.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button3.Text = "0" And Button6.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button1.Text = "0" And Button5.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button3.Text = "0" And Button5.Text = "0" And Button7.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
End If
If s = 9 Then
MsgBox("تعادل")
clear()
End If
End Sub


Private Sub clear()
If MsgBox("هل تريد اللعب مجددا", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Button1.Text = ""
Button2.Text = ""
Button3.Text = ""
Button4.Text = ""
Button5.Text = ""
Button6.Text = ""
Button7.Text = ""
Button8.Text = ""
Button9.Text = ""
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button1.BackColor = Color.White
Button2.BackColor = Color.White
Button3.BackColor = Color.White
Button4.BackColor = Color.White
Button5.BackColor = Color.White
Button6.BackColor = Color.White
Button7.BackColor = Color.White
Button8.BackColor = Color.White
Button9.BackColor = Color.White
a = 1
s = 0
Else
End
End If

End Sub


سوف أدع لقارئي العزيز فهم الكود السابق و تطبيقه بنفسه فالكود سهل و بسيط جدا ,فقط حاول قراءة الكود أكثر من مرة ثم قم بربط أجزاءه المختلفة ببعضها ثم طبق
ومن يصعب عليه فهم الكود فلا يتردد في السؤال




تصميم لعبة اكس أو × & O للاعبين
سنتعرف في هذا المقال على كيفية تصميم لعبة اكس أو الشهيرة البسيطة للاعبين باستخدام لغة الفيجوال بيسك دوت نت

1-نقوم بفتح الفيجوال بيسك ثم نقوم بانشاء مشروع جديد و نسميه X&o
2- نقوم باضافة تسعة أزرار Buttons الى النموذج و نغير خصائصهم جميعا كما يلي :

الخاصية FlatStyle اجعلها Flat

الخاصية BackColor اجعلها White

بحيث يكون التصميم النهائي للعبة قريب من الشكل التالي :




نذهب الآن الى نافذة الكود Code Windows ((يمكنك الانتقال الى نافذة الكود بالضغط F7)) لكتابة الاكواد اللازمة

سوف تجد مبدئيا الكود التالي :
Public Class Form1

End Class

قم بنسخ الكود التالي كاملا وضعه بين السطرين السابقين
Public Class Form1
قم بنسخ الكود التالي هنا
End Class

الكود:


Dim a As Integer = 1
Dim s As Integer = 0

Private Sub Buttons_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
If a = 1 Then
sender.text = "×"
sender.backcolor = Color.Yellow
sender.enabled = False
a = 0
Else
sender.text = "0"
sender.backcolor = Color.LightSalmon
sender.enabled = False
a = 1
End If
s = s + 1
q()
End Sub


Private Sub q()
If Button1.Text = "×" And Button2.Text = "×" And Button3.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button4.Text = "×" And Button5.Text = "×" And Button6.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button7.Text = "×" And Button8.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button1.Text = "×" And Button4.Text = "×" And Button7.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button2.Text = "×" And Button5.Text = "×" And Button8.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button3.Text = "×" And Button6.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button1.Text = "×" And Button5.Text = "×" And Button9.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
ElseIf Button3.Text = "×" And Button5.Text = "×" And Button7.Text = "×" Then
MsgBox("اللاعب الأول فاز")
clear()
End If

If Button1.Text = "0" And Button2.Text = "0" And Button3.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button4.Text = "0" And Button5.Text = "0" And Button6.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button7.Text = "0" And Button8.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button1.Text = "0" And Button4.Text = "0" And Button7.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button2.Text = "0" And Button5.Text = "0" And Button8.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button3.Text = "0" And Button6.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button1.Text = "0" And Button5.Text = "0" And Button9.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
ElseIf Button3.Text = "0" And Button5.Text = "0" And Button7.Text = "0" Then
MsgBox("اللاعب الثاني فاز")
clear()
End If
If s = 9 Then
MsgBox("تعادل")
clear()
End If
End Sub


Private Sub clear()
If MsgBox("هل تريد اللعب مجددا", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Button1.Text = ""
Button2.Text = ""
Button3.Text = ""
Button4.Text = ""
Button5.Text = ""
Button6.Text = ""
Button7.Text = ""
Button8.Text = ""
Button9.Text = ""
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button1.BackColor = Color.White
Button2.BackColor = Color.White
Button3.BackColor = Color.White
Button4.BackColor = Color.White
Button5.BackColor = Color.White
Button6.BackColor = Color.White
Button7.BackColor = Color.White
Button8.BackColor = Color.White
Button9.BackColor = Color.White
a = 1
s = 0
Else
End
End If

End Sub


سوف أدع لقارئي العزيز فهم الكود السابق و تطبيقه بنفسه فالكود سهل و بسيط جدا ,فقط حاول قراءة الكود أكثر من مرة ثم قم بربط أجزاءه المختلفة ببعضها ثم طبق
ومن يصعب عليه فهم الكود فلا يتردد في السؤال





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

1- البيانات الشخصية كما في الصورة 

2- البيانات الصحية كما في الصورة 


3- بيانات الفاتورة كما في الصورة
وأيضا هناك الكثير من الأشياء سوف أكملها لحقا
بإذن الله
للتواصل معي: Eng.Maymoona@gmail.com
مرسلة بواسطة في
الاشتراك في: الرسائل (Atom)