[سعود]

موديول
رمز برمجي:

كود :

Module Module1
    Public ustr As String = ""
    Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb")
End Module

الفورم الاب
رمز برمجي:

كود :

Public Class Form1

  

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

  

  
    Private Sub mlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mlogin.Click
        login.MdiParent = Me
        login.Show()

    End Sub

    Private Sub mclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mclose.Click
        End
    End Sub

    Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
        ustr = ""
        mlogin.Enabled = True
        mexit.Enabled = False
        Me.Text = "  لايوجد مستخدم مسجل حاليا."
        numbergame.Enabled = False
        wg.Enabled = False
    End Sub

    Private Sub numbergame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numbergame.Click
        mynumbergame.MdiParent = Me
        mynumbergame.Show()
    End Sub

    Private Sub wg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wg.Click
        mywordgame.MdiParent = Me
        mywordgame.Show()
    End Sub
End Class

فورم الدخول
رمز برمجي:

كود :

Public Class login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
            ustr = TextBox1.Text
            Me.Hide()
            Form1.Text = "المستخدم الحالي: " & ustr
            Form1.mlogin.Enabled = False
            Form1.mexit.Enabled = True
            Form1.numbergame.Enabled = True
            Form1.wg.Enabled = True
        Else
            MsgBox("عفوا تاكد من بياناتك", MsgBoxStyle.Critical, "دخول")
        End If
    End Sub
End Class

فورم لعبة الارقم
رمز برمجي:

كود :

Public Class mynumbergame
    Dim n As Integer
    Dim s As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim <> "" And IsNumeric(TextBox1.Text) Then
            n = TextBox1.Text
            Button2.Enabled = True
        Else
            MsgBox("تاكد من كتابتك لرقم", MsgBoxStyle.Critical, "تخزين رقم")
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim u As Integer = Int(Rnd() * 90)
        Timer1.Enabled = True
        Label2.Text = u

        If u = n Then
            MsgBox("ممتاز! لقد عرفت الرقم السري خخخخخخخخخخ", MsgBoxStyle.Information, "توليد رقم")
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        s += 1
        Label4.Text = ""
        Select Case s
            Case "1"
                Label4.Text = "سبحان الله"
            Case "2"
                Label4.Text = "الحمدلله"
            Case "3"
                Label4.Text = "لااله الا الله"
            Case "4"
                Label4.Text = "الله اكبر"
            Case Else
                s = 0
        End Select
    End Sub

End Class

فورم لعبة الكلمات وهي هنا ترجمة
رمز برمجي:

كود :

Public Class mywordgame
    Dim u As Integer = 0
    Dim tr As Integer = 0
    Dim fa As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Select Case u
            Case "0"
                Label2.Text = "رجل"
            Case "1"
                Label2.Text = "شاب"
            Case "2"
                Label2.Text = "بنت"
            Case "3"
                Label2.Text = "امراة"
            Case "4"
                Label2.Text = "جد"
            Case "5"
                Label2.Text = "جدة"
            Case "6"
                Label2.Text = "أخ"
            Case Else
                MsgBox("انتهت اللعبة والدرجة اسفل", MsgBoxStyle.Exclamation, "")

        End Select
        u += 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
            Dim ds As New DataSet
            Dim da As New OleDb.OleDbDataAdapter("select * from tb where eng='" & TextBox1.Text & "'", con)
            ds.Clear()
            da.Fill(ds, "tb")
            If Me.BindingContext(ds, "tb").Count > 0 Then
                tr += 1
            Else
                fa += 1
            End If
            lw.Text = tr
            ll.Text = fa
        End If
        TextBox1.Clear()
        Button1.PerformClick()
    End Sub

  
End Class

وسلامة انتم وياها طولين