تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فكرة بسيطة لبرنامج القرعة(ما يستخدم لاختيار اسم بين الاسماء)
#1
كاتب الموضوع : سعود

استدعاء ماتسمى بفضاء الاسماء

كود :
Imports System.Data
Imports System.Data.OleDb

ثم بعد جملة public class form1

كود :
Dim constr As String = "provider=microsoft.ace.oledb.12.0;data source=db1.accdb"
Dim conn As New OleDbConnection(constr)
Dim sql As String = "select * from tab1"









هذي فكرة دخلت راسي بعد برنامج باحدى القنوات حينما المذيع يقول للمتصل قل وقف(قف) ويقوم من على الكمبيوتر بنقر زر فيقف الكمبيوتر عن العدمتوقفا عند اسم معين

ثلاث ادوات تسمية
زر امر
اداة مؤقت(timer)
عند تحميل النموذج بحدث form1_load

اكتب

كود :
Me.AcceptButton = Button1
وبزر الامر

كود :
Select Case Timer1.Enabled
Case False
Timer1.Enabled = True
Case True
Timer1.Enabled = False
Label1.Text = " الفائز هو : " & vbCrLf & txtname.Text
End Select

وبحدث المؤقت

كود :
Try
txtnu.Text += 1

Dim sql As String = "select * from tab1 where txtnu=" & Val(txtnu.Text)

Dim ds As New DataSet
Dim da As New OleDbDataAdapter(sql, conn)
da.Fill(ds, "tab1")
If Me.BindingContext(ds, "tab1").Count = 0 Then
txtname.Text = ""
txtemail.Text = ""
End If
txtname.DataBindings.Add("text", ds, "tab1.txtname")
txtemail.DataBindings.Add("text", ds, "tab1.txtemail")

txtname.DataBindings.Clear()
txtemail.DataBindings.Clear()
'Timer1.Enabled = False

Catch ex As Exception
MsgBox(Err.Description)
End Try
Dim ds1 As New DataSet
Dim da1 As New OleDbDataAdapter(Sql, conn)
da1.Fill(ds1, "tab1")
If txtnu.Text > Me.BindingContext(ds1, "tab1").Count Then
txtnu.Text = 0
End If
قاعدة البيانات db1.accdb
tab1
txtnu
txtname
txtemail

جدول
حقل رقم
حقل نصي للاسم
حقل نصي للبريد


تحياتي
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم