كتاب يتصفحة المستخدم

[N A W A L]

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

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

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

[Programmer_911]

السلام عليكم الأخت نوال

هل المجلة عدد صفحاتها كثيره

بإمكانك ربطها مع قاعدة بيانات وجعل محتوى المواضيع والصور في القاعدة

لكن أتمنى التوضيح أكثر أو إعطائي جزئية بسيطة لأبرمجها بإذن الله وأرجعها
لترين هل هي صح أم خطاء,,, أما بالنسبة للفلاشات يمكن أن لا أفيدك بها

شكراً

[Programmer_911]

بالنسبة للأصوات ممكن بإذن الله أفيدك بها

[N A W A L]

جزاك الله خير

ممكن قسم منها وهو بعنوان (قصة وعبرة)
هي عبارة عن24 قصة قصيرة ولكل قصة عبرة

[Programmer_911]

مرجباً أختي

فقط أنتظري سأقوم بإذن الله بعملها لكن هل تريدين القصة عبارة عن
نص أو صوت

شكراً

[Programmer_911]

أختي أتمنى إن كنت جادة أن تتواصلي معي بشكل يومي
فأنا سألتك

لكن هل تريدين القصة عبارة عن
نص أو صوتتأخر الإجابة يعني تأخر الحل ,, وأنا كذالك لدي وقت مهم بالنسبة إلي لا أريد أن أضيع وقتي وبالأخير لاأجد أحداً

أتمنى أن لا تفهمي بشكل خاطئ

شكراً

[N A W A L]

اسفه جدا على التأخير ومتفهمه
وجزاك الله خير
نعم تكون نص

[Programmer_911]

شكراً أختي سأعملة بإذن الله الليلة أو غداً
شكرأ

[N A W A L]

ننتـظــرها

[Programmer_911]

السلام عليكم أختي

عملت الجزئية الصغيرة من المجلة وأتمنى أن تكون هي ماتريدين

طبعاً لم أهتم بالتصميم اطلاقاً كان جل الإهتمام بالبرمجة لأن البرمجة هي القلب

قمت بتصميم ثلاث نماذج النموذج الخاص بالقصص كل القصص معروضة في
DataGridView بمجرد اختيار موضع القصة أومحتواها يظهر تلقائي بالأسفل

طبعا البرنامج very Simple ينقص الكثير من الأشياء بإمكانك إضافتها لاحقاً

هذا الرابط
http://www.up-hayatech.com/9450_0119911649 0.zip
فقط ماأريده هل هذا ماتريدينه

وشكراً

[N A W A L]

جزاك الله خير
لكن نفس الفورم مايفتح ماأدري شو السبب
the selected file is a visual studio solution file,but was created by anewer version of visual studio and connot be obened
وكيف طريقة حفظ الملف حتى يفتح

[Programmer_911]

مرحباً أختي

بداية ماهي النسخة التي لديك هل هي
VS 2003

اذا كانت كذالك فأعتقد أن هذه هي المشكلة

لان هذا العمل ب VS 2005

---------------------------------
فك ضغط المجلد بعدها إذهبي إلى بيئة VS
وأختاري
Open project
إذهبي لنفس المجلد تجدين ملف أمتداده
.sln
أفتحية وكل شئ بإذن الله سيشتغل

في الانتظار...

[N A W A L]

نعم النسخة 2003
وفي المعهد vb.netفقط
معنى هذا أن كل البرامج ماراح تفتح إذا تغير الإصدار

[Programmer_911]

نعم النسخة 2003
وفي المعهد vb.netفقط
معنى هذا أن كل البرامج ماراح تفتح إذا تغير الإصدار

سأوحاول إيجاد طريقة لتحويل من 2005 إلى 2003

المشكلة أن محمل على جهازي 2005 وإذا أردت تحميل 2003
يتوجب علي حذف 2005

هل تريدين أن أعطيك الكود؟ ممكن تحاولين مع بعض التعديلات

شكراً

[N A W A L]

ممكن تضع الكود وبأحاول أعمله
وكتب الله ماعملتم في ميزان حسناتكم

[Programmer_911]

النموذج الأول

يوجد به عدد 1 زر لعرض النموذج التابع للقصص
http://www.up-hayatech.com/9450_0119921386 6.jpg (http://www.hayatech.co m/c)
الكود الخاص به
:)
Form2.Show()وفي 2003 أعتقد ماتنفع الطريقة إلا ب
Dim frm as New Form2
frm.Show()نموذج القصص

http://farm3.static.fl ickr.com/2311/2154767787_951a e49900_o.jpg
وهذا الكود


Imports System.data.Ole Db
Public Class Form2
Dim conn As New OleDb.OleDbConn ection(constr)
Dim DS As New DataSet
Dim SQLstr As String = "SELECT [الموضوع],[محتوى القصة] FROM Table1"

Private Sub Form2_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
Reload()
DataGridView1.D ataSource = DS

DataGridView1.D ataMember = "Table1"

Label4.Text = "عدد القصص الموجودة = " & Me.BindingConte xt(DS, "Table1").Count

End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
Me.Close()
Add.Show()
Add.Button1.Vis ible = True
Add.Button2.Vis ible = True
Add.Button3.Hid e()
Add.Button4.Hid e()
End Sub

Private Sub ListBox1_Select edIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArg s)
'Dim nn As String
'nn = ListBox1.Select edItem
'TextBox1.Text = nn
End Sub
Sub Reload()
Try
conn.Open()
Dim DataAdapter1 As New OleDb.OleDbData Adapter(SQLstr, conn)
DataAdapter1.Fi ll(DS, "Table1")
conn.Close()

TextBox1.DataBi ndings.Add("Text", DS, "Table1.الموضوع")
TextBox2.DataBi ndings.Add("Text", DS, "Table1.محتوى القصة")


Catch ex As DataException
MsgBox("قاعدة البيانات فارغة")
Catch ex1 As Exception
MsgBox(ex1.Mess age)
End Try

End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click
Me.BindingConte xt(DS, "Table1").Position = 0
End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button3.Click
Me.BindingConte xt(DS, "Table1").Position += 1
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button4.Click
Me.BindingConte xt(DS, "Table1").Position -= 1
End Sub

Private Sub Button5_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button5.Click
Me.BindingConte xt(DS, "Table1").Position = Me.BindingConte xt(DS, "Table1").Count - 1
End Sub

Private Sub Button6_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button6.Click

Add.TextBox2.Te xt = Me.TextBox1.Tex t
Add.TextBox1.Te xt = Me.TextBox2.Tex t
Add.Label3.Text = Me.TextBox1.Tex t
Add.Button3.Vis ible = True
Add.Button4.Vis ible = True
Add.Button1.Hid e()
Add.Button2.Hid e()

Add.Show()
Me.Close()
End Sub

Private Sub TextBox2_TextCh anged(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles TextBox2.TextCh anged

End Sub
End Class
وهذا نموذج الإضافة والتحرير ويوجد به 6 أزره وضعت 2 خلف بعض

http://farm3.static.fl ickr.com/2312/2154811465_3587 51d4d1_o.jpg
الكود
Imports System.Data.Ole Db

Public Class Add

Private Sub Add_Load(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load

End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button2.Click
Try

Dim Sav As New OleDbCommand
Dim Conn As New OleDbConnection (constr)
Sav.Connection = Conn
Sav.CommandType = CommandType.Tex t

Sav.CommandText = "INSERT INTO Table1([الموضوع],[محتوى القصة])" & _
"values ('" & TextBox2.Text & "','" & TextBox1.Text & "') "
Conn.Open()
Sav.ExecuteNonQ uery()
Conn.Close()
MsgBox("تم الحفظ بقاعدة البيانات")
Form2.Show()
Me.Close()

Catch ex As Exception
Exit Sub
End Try
End Sub

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click
Me.Close()
Form2.Show()
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button4.Click
Me.Close()
Form2.Show()
End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button3.Click
Try
Dim a As String
a = Label3.Text
'If TextBox1.Text = "" And TextBox2.Text = "" Then
'MsgBox("الرجاء كتابة محتوى أو عنوان القصة")
'Exit Sub
'End If
Dim Udt As New OleDb.OleDbComm and

Dim Conn As New OleDbConnection (constr)
Udt.Connection = Conn
Udt.CommandType = CommandType.Tex t
Udt.CommandText = "UPDATE Table1 SET [الموضوع] = '" & (TextBox2.Text) & "' , [محتوى القصة] = '" & (TextBox1.Text) & "' WHERE [الموضوع] ='" & a & "'"
Conn.Open()
Udt.ExecuteNonQ uery()
Conn.Close()
MsgBox("تمت التعديل في قاعدة البيانات ")
Form2.Show()
Me.Close()
Catch ex As Exception
MsgBox(ex.Messa ge)
End Try
End Sub

Private Sub Button5_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button5.Click
Form1.Show()
Me.Hide()
End Sub

Private Sub Button6_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button6.Click
Form2.Show()
Me.Hide()
End Sub
End Class
وهذا
Module1
للإعلانات العامة

ويوجد فيه مزود قاعدة البيانات وهي من نوع ِAccess2003 ومسار قاعدة البيانات

Module Module1
Public constr As String = "Provider=Micros oft.Jet.OLEDB.4 .0;" & _
"Data Source =" & Application.Sta rtupPath & "\database.mdb"


End Module



قاعدة البيانات

http://www.up-hayatech.com/9450_0119921566 3.zip


شكراً

[Green Glass]

وأنا يا حلوة بالنسبة إلى التصاميم فلا تشيلي هم أنا تحت خدمتك

[N A W A L]

جاري التطبيق
أخت Green Glass
مشكوووووورة ماتقصرين

[أم جمانه]

رائع أخي المبرمج

طبعا أنا جاية متأخر لأني كنت في إجازة

أتمنى تكون دائما متواصل مع القسم

وفقك الله

[أتحدى بيل غيتس]

Programmer_911 (http://www.hayatech.co m/c/member.php?u=94 50) يعطيك ألف عافية :thumbsup:... أعتقد كل من مر بهذا الموضوع إستفاد من برنامجك الرهيب ... لا تحرمنا من طلتك :)..

[النجوم]

لا تحرمنا من وضعها عند الإنتهاء منها

وشكراً...