الكمبيوتر التعليمى - إدارة منية النصر التعليمية

من موقع الحدث ندعوك - تابع ما انجزنا - دعواتنا لكم بوقت ممتع -تفيد وتستفيد - فخيركم من تعلم العلم وعلمه
مدير الموقع
الكمبيوتر التعليمى - إدارة منية النصر التعليمية

موقع خدمى لعلوم الحاسب ومناهج المدارس

الكمبيوتر التعليمى ادارة منية النصر اهلآ وسهلآ بك فى بيتك الثانى مبرمجو الكمبيوتر التعليمى ادارة منية النصر - http://mobarmg.roo7.biz/

    تمارين محلولة

    شاطر
    avatar
    sayed
    DR COMPUTER
    DR COMPUTER

    عدد المساهمات : 450
    تاريخ التسجيل : 20/03/2009
    العمر : 63
    الموقع : computereadara.yoo7.com

    sayed تمارين محلولة

    مُساهمة من طرف sayed في الأربعاء مارس 25, 2009 5:03 pm

    Projects vb.net


    • 1 – اظهار رسالة ترحيب علي form
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.Label1.Text = "welcome here"
    End Sub
    End Class







    • 2- اظهار رسالة ترحيب في صندوق رسالة
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox("welcome here")
    End Sub
    End Class









    • 3 - برنامج يظهر الصورة في أماكن عشوائية

    Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim x, y, h, w As Integer
    x = Me.PictureBox1.Left
    y = Me.PictureBox1.Top
    h = Me.PictureBox1.Height
    w = Me.PictureBox1.Width
    y = 200 * Rnd()
    x = 200 * Rnd()
    Me.PictureBox1.SetBounds(x, y, w, h)
    End Sub
    End Class







    • 4 – اظهار الوقت والتاريخ

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.Label1.Text = Date.Now
    End Sub
    End Class










    • 5 – اظهار واخفاء صورة

    Public Class Form2
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
    Me.PictureBox1.Visible = True
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    Me.PictureBox1.Visible = False
    End Sub

    End Class







    • -6 -برنامج يوضح الاعلان عن المتغيرات الرقمية واستخدام أمر التخصيص وتتبع قيمة المتغيرات واجراء العمليات الحسابية
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim X As Short
    Dim Y As Short
    Dim Z As Short
    X = 10
    X = 2 * X + 1
    Y = X - 8
    Z = Y / 4
    Z = Z + 4
    Me.Label1.Text = X Me.Label2.Text = Y Me.Label3.Text = Z
    End Sub





    • 7- برنامج يوضح الاعلان عن المتغيرات الحرفية واستخدام أمر التخصيص والعمليات التي تجري عليها وعرض كلمة ترحيب مع عرض الاسم الذي تم ادخاله في سطر جديد

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim fristname As String
    Dim lastname As String
    Dim fullname As String
    fristname = (Me.TextBox1.Text)
    lastname = (Me.TextBox2.Text)
    fullname = fristname & " " & lastname
    ' Me.Label1.Text = "hello" & vbCrLf & fullname
    MsgBox("hello" & vbCrLf & fullname)
    End Sub
    End Class













    Global variables
    • -8 الالة الحاسبة باستخدام المتغيرات الشاملة















    Public Class Form1
    Dim a, b, add, subtract, mult, div As Decimal

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    a = Decimal.Parse(Me.TextBox1.Text)
    b = Decimal.Parse(Me.TextBox2.Text)
    add = a + b
    Me.Label3.Text = add.ToString()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    End
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    TextBox1.Text = ""
    TextBox2.Text = ""
    Label3.Text = ""
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    subtract = a - b
    Me.Label3.Text = subtract.ToString()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    mult = a * b
    Me.Label3.Text = mult.ToString()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    div = a / b
    Me.Label3.Text = div.ToString()
    End Sub

    9 – برنامج auto test يستخدم لشرح كيفية استدعاء نموذج آخر

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form2.Show()
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim b As Integer
    If Me.RadioButton2.Checked Then
    b = 20
    Me.Label6.Text = b.ToString
    End If
    If Me.RadioButton4.Checked Then
    b = b + 20
    Me.Label6.Text = b.ToString
    End If
    If Me.RadioButton5.Checked Then
    b = b + 20
    Me.Label6.Text = b.ToString
    End If
    If Me.RadioButton8.Checked Then
    b = b + 20
    Me.Label6.Text = b.ToString
    End If
    If Me.RadioButton9.Checked Then
    b = b + 20
    Me.Label6.Text = b.ToString
    End If
    Dim score As Decimal
    ' score = Decimal.Parse(Me.TextBox1.Text)
    score = b.ToString
    If score >= 90 Then
    Me.Label7.Text = "ممتاز"
    ElseIf score >= 75 Then
    Me.Label7.Text = "جيد جدا"
    ElseIf score >= 60 Then
    Me.Label7.Text = "جيد "
    ElseIf score >= 50 Then
    Me.Label7.Text = "مقبول "
    Else
    Me.Label7.Text = "راسب "
    End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Label6.Text = ""
    ' TextBox1.Text = ""
    Label7.Text = ""
    Me.RadioButton1.Checked = False
    Me.RadioButton2.Checked = False
    Me.RadioButton3.Checked = False
    Me.RadioButton4.Checked = False
    Me.RadioButton5.Checked = False
    Me.RadioButton6.Checked = False
    Me.RadioButton7.Checked = False
    Me.RadioButton8.Checked = False
    Me.RadioButton9.Checked = False
    Me.RadioButton10.Checked = False

    End Sub
    End Class

      الوقت/التاريخ الآن هو الثلاثاء ديسمبر 18, 2018 3:07 pm