إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

برامج بسيطة في الفيجوال بيسك 2003


4 رد (ردود) على هذا الموضوع

#1 انريكي

انريكي

    عضو نشط

  • الأعضــاء
  • 335 مشاركة
  • البـلـد: Country Flag
  • الاهتمامات:Programming

تاريخ المشاركة 08 November 2010 - 04:55 PM



السلام عليكم جميعاً...

هذه بعض البرامج البسيطة الي طبقتها أثناء دراستي لمادة برمجة1 لدبلوم البرمجة

رح أرفق صوره الفورم مع الكود

أتمنى أنكم تستفيدوا منه ...


1/ برنامج جدول الضرب

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        For x = 1 To 10
            For y = 1 To 10
                MessageBox.Show(x & " * " & y & " = " & x * y)
            Next y
            If MessageBox.Show("Do You Wont To Stop??", "Stop", MessageBoxButtons.YesNo) = DialogResult.Yes Then Exit For
        Next x
    End Sub

2/ برنامج الجمع وإظهار النتيجه عدد صحيح

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2, sum As Integer
        sum = CInt(TextBox1.Text) + CInt(TextBox2.Text)
        TextBox3.Text = sum
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mydouble As Double
        Dim myinteger As Integer
        mydouble = InputBox("Enter double number")
        myinteger = CInt(mydouble)
        MessageBox.Show(myinteger)
    End Sub

3/ صلاحية للدخول (فحص إسم المستخدم وكلملة المرور)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim UserName As String
        Dim PassWord As Integer
        UserName = TextBox1.Text
        PassWord = TextBox2.Text
        If UserName = "enrique" And PassWord = "11111" Then
            MessageBox.Show("الإدخال صحيح")
        Else
            MessageBox.Show("الإدخال خاطئ حاول مرة أخرى")
        End If
    End Sub

4/ تطبيق بسيط على الإغلاق وإضهار رسالة ترحيبية

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("أهلا وسهلا بكم")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("خروج من البرنامج")
        End
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Control
        For Each x In Controls
            x.BackColor = Color.Gold
        Next
    End Sub

5/ حلقة لتكرار حساب المكافأه

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim salary, reward As Double
        Do
            salary = InputBox("Enter the Salary")
            reward = salary * 0.5
            MessageBox.Show("The Reward =  " & reward)
        Loop While salary > 0
    End Sub

6/ برنامج جمع عددين

Sub hello(ByVal name As String)
        MessageBox.Show("welcom:" & name)
    End Sub
    Function add(ByVal num1 As Integer, ByVal num2 As Integer)
        num1 = textbox1.text
        num2 = textbox2.text
        Return num1 + num2
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim firstname As String
        firstname = InputBox("enter your name plz")
        Call hello(firstname)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x, y As Integer
        TextBox3.Text = add(x, y)
    End Sub

7/ برنامج حساب المساحة والمحيط

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim radius, area, circumference As Double
        Const pi As Double = 3.1415
        radius = InputBox("Enter the radius")
        area = pi * radius ^ 2
        circumference = 2 * pi * radius
        MessageBox.Show("The area = " & area)
        MessageBox.Show("the circumference = " & circumference)

    End Sub

8/ برنامج إظهار الرقم الأكبر

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b As Integer
        a = InputBox("Enter the value of a")
        b = InputBox("Enter the value of b")
        If a > b Then
            MessageBox.Show("the Big number is :" & a)
        Else
            MessageBox.Show("the Big number is :" & <img src='http://www.araboug.org/ib/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />
        End If
    End Sub

9/ برنامج حساب رقم الزائر

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static num As Integer
        num = num + 1
        MessageBox.Show(" you are user no: " & num)
    End Sub


10/ تطبيق بسيط على تغير لون الكائن ومكان النص

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(TextBox1.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.BackColor = Color.CadetBlue
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.ForeColor = Color.Red
    End Sub
    Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Beep()
        Me.Close()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Hide()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.CenterToScreen()
    End Sub

صورة الواجهات ...

ملف مرفق  Doc1.doc   118كيلو   71 عدد مرات التحميل


البرامج بسيطة وهي عباره عن واجبات كنا ناخذها بالمعهد لكن أرفقتها لتعم الفائده فقط

** دعــــــاء فــي ظــهــر الــغــيــب يــكــفــيــنــي **





#2 rmoplusx

rmoplusx

    مشترك

  • الأعضــاء
  • 106 مشاركة

تاريخ المشاركة 08 November 2010 - 05:12 PM

شكرا اخى فعلا برامج مفيدة بالرغم من ان الموقع خاص باوراكل ولكن البرامج اغلبها تعتمد على loop - if statement فعلا مفيدة جدا الى الامام

#3 انريكي

انريكي

    عضو نشط

  • الأعضــاء
  • 335 مشاركة
  • البـلـد: Country Flag
  • الاهتمامات:Programming

تاريخ المشاركة 09 November 2010 - 12:03 AM



شكراً لك أخي الكريم ... أسعدني مرورك


#4 Amgad

Amgad

    مشرف عام ومشرف قسم تحليل النظم

  • الفريق الإداري
  • 4,558 مشاركة
  • الاسم الأول:امجد
  • اسم العائلة:حلمي
  • البـلـد: Country Flag
  • المنصب الحالي:Business Systems Analyst at al Fanar Co. Riyadh KSA

تاريخ المشاركة 09 November 2010 - 02:40 AM

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

اخي الفاضل / انريكي

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

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


....


#5 انريكي

انريكي

    عضو نشط

  • الأعضــاء
  • 335 مشاركة
  • البـلـد: Country Flag
  • الاهتمامات:Programming

تاريخ المشاركة 09 November 2010 - 02:48 AM




أشــكــركـ أخ أمــجـــد ... B) :D

أسعدني مرورك الكــريــم .