09-08-20, 12:54 AM
السلام عليكم
استغلالا للمواضيع السابقة حول رسم خطوط
يمكن ان نطلب من الطالب ان يعين نقطة في المغلم المتعامد و المتجانس
و نقوم بتصحيح اجابته
الان في الصفحة ضع ليبال1 في الاسفل لعرض النقطة المطلوبة
ليبال2 و فيه نص ( اضغط على النقطة ذات الاحداثيات )
ضع ليبال 3 لحساب عدد الاجابات الصحيحة
و ليبال 4 لحساب عدد الاجابات الخاطئة
في الكود ارزع التالي :
PHP كود :
Imports System.Drawing
Public Class Form1
Dim g As Graphics
Dim NovoN As PictureBox
Dim Rep As String
Dim Sah As Integer = 0
Dim kata As Integer = 0
Sub qustions()
Dim Rnd As New Random
Dim Xrnd = Rnd.Next(-4, 4)
Dim Yrnd = Rnd.Next(-4, 4)
Label1.Text = "( " & Xrnd & " * " & Yrnd & " )"
End Sub
Sub correction()
If Label1.Text = Rep Then
Sah += 1
Label3.Text = Sah
MsgBox("جميل جدا واصل ")
Else
kata += 1
Label4.Text = kata
MsgBox("للاسف لقد ضغطت على النطقة" & vbNewLine & Rep)
End If
qustions()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
g = CreateGraphics()
' وضع نقط في اماكن التقاطع
For i = 0 To 320 Step 40
For p = 0 To 320 Step 40
NovoN = New PictureBox
Controls.Add(NovoN)
NovoN.Size = New Size(5, 5)
NovoN.BackColor = Color.Red
NovoN.Location = New Point(p - 2, i - 2)
NovoN.Name = "( " & (p - 160) / 40 & " * " & (i - 160) / 40 * (-1) & " )"
NovoN.Cursor = Cursors.Hand
AddHandler NovoN.Click, Sub(s, ev) Rep = s.name
AddHandler NovoN.Click, Sub(s, ev) correction()
Next
Next
qustions()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
' معطيات طول و عرض الصفحة كلها
Dim Mw As Integer = 320 'Me.Size.Width
Dim Mh As Integer = 320 ' Me.Size.Height
' الخطوط الافقية
For i = 0 To Mh Step 4
Dim x = 0
Dim y = i
g.DrawLine(Pens.OrangeRed, New Point(x, y), New Point(Mw, y))
Next
' الخطوط العمودية
For i = 0 To Mw Step 4
Dim x = i
Dim y = 0
g.DrawLine(Pens.OrangeRed, New Point(x, y), New Point(x, Mh))
Next
' كل عشرة افقية خط سميك
For i = 0 To Mh Step 40
g.DrawRectangle(Pens.Red, 0, i, Mw, 1)
Next
' كل عشرة خطوط عمودية خط مسيك
For i = 0 To Mw Step 40
g.DrawRectangle(Pens.Red, i, 0, 1, Mh)
Next
' الخط المركزي الافقي
Dim Cw As Integer = Mh / 2
g.DrawRectangle(Pens.DarkRed, 0, Cw, Mw, 1)
' الخط العمودي المركزي
Dim Ch As Integer = Mw / 2
g.DrawRectangle(Pens.DarkRed, Ch, 0, 1, Mh)
End Sub
End Class
بالتوفيق في مشاريعكم
-------------------------------
يمكن ان ارفع الملف لمن لم يفهم العمل
------------
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك