مشروع في الفيجول بيسك دوت نيت

[فرولة لذيذة]

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




عندي مشروع في الجامعه .. ومطلوب مني تقريبا يعني اقصى مدة في الاسبوع التاني من بعد الحج :134:


وبصراحه ماكنت فاضية مرررة :217: .. وكمان مني عارفة اشيااااء كتير :155: ... وكمااان مني عارفة ايش راح تكون فكرة المشروع الي بدي اسوية مخي مررررة مهو قادر يجمع .. :drr05_62: :140:



مين فيكم يقدر يساااعدني لو سمحتوا :158:



دا طلب الافندية الي بيتدرسنا .. :121: في الملف المرفق ... >>




انا عندي فكرة بس مني عارفة الأكواد .. وكمان البرمجه مو كلها الي عارفتها ...


بدي اسوي زي كده ... ..


محد حيعرف ايش هوة غير لليتداول في بنك الرياض .. :221:




http://www.arb-up.com/files/arb-up-Dec1/Fbz42083.gif (http://www.arb-up.com/)




ودي الصفحة التانية


http://www.arb-up.com/files/arb-up-Dec1/jFG42153.gif (http://www.arb-up.com/)




ساااااااااعدوني لو سمحتوا :111:






شكرا لكم مقدماً .. |64|

[فرولة لذيذة]

محد رد عليا :(

[محمد المحيا]

أهلين فرولة

أنا دوبي شفت الموضوع.. اللي فهمته إنك تبغي مساعدة في فكرة البرنامج.. صح؟

إن شاء الله الليلة أرد عليكي لأني قريت الموضوع وأنا خارج :)

بالتوفيق

[فرولة لذيذة]

ماشي ... ان شاااء الله راح استنيك ..



شوووكرن ..




:)

[فرولة لذيذة]

اها نسيت أقول شي ..


ماتنفع الفكرة دي .. الي هية نسوي نوافذ بيع وشراء ..



زي الموجودة في الصور ...

ازا تنفع يسير مابدي غير بس البرمجة ..




أما إزا صعبة وطويلة .. يسير عندك .. شييين .. :)


الفكرة والبرمجة ..


بس مابدي مررة فكرة سهلة .. ومابدي اتعبك كمان .. :)

[فرولة لذيذة]

فينك يا محمد ...

نمت وأنا جالسة أستنيك .. :(

[محمد المحيا]

سلام.. وسوري عالتأخير..

الفكرة المذكورة في الملف كويسة وسهلة.. سجلات الطلاب

ورح يكون فيها أكثر من نافذة زي ماهم طالبين.. يعني نافذة رئيسية ونافذة لإدخال بيانات طالب ونافذة للاستعلام ونافذة للطباعة..

بالنسبة للبرمجة ماهي صعبة كثير لأن اللغة مثل غيرها من لغات الأوبجكت أورينتد يعني كل العناصر قدامك وما رح تكتبي أكواد كثيرة.. وأنا شخصياً ما درست الدوت نت لكن بحاول أفيدك باللي أقدر عليه إن شاء الله..

انتي ابدأي وأي شي صعب رح أساعدك فيه إن شاء الله لأن مهمتنا هي المساعدة في الحل وليس الحل بكامله..

بالتوفيق..

[فرولة لذيذة]

فهمت .. الفكرة ..




وأكيد أنو انا الي راح اشتغل .. .. بس ما ننحرم من مساعدتك ..

الله يخليك :)


بس أبدأ فية إن شاء الله ..

نافذة الطباعه ح يكون فيها بس زي امر لطباعه البيانات ..

يعني نافذة فاضي ما فيها غير زر أمر



وشكرا ... :)

[فرولة لذيذة]

سلام عليكم ..



محمد لو سمحت .. زر الطباعه .. ليه دالة ثابتة .. برمجه خاصة



لأن والله ما درسنا زر الطباعه .. ويسلام لو لية دالة .. جديدة .. يعطيك ربنا الف عافية يارب





وبعدين انا صممت الحمد لله الشكل .. حأ حكيك عنو


دا الفورم الأول ..




http://www.dorarr.ws/forum/uploaded/14365/5.JPG



ودا الفورم التاني ..


http://www.dorarr.ws/forum/uploaded/14365/44.JPG


يمكن باقيلوا شوية تعديلات


الي هية الألوان ..





بس مني عارفة فين أحط زر الطباعه كمان ...






شكرا لك ... كتييييييير مرررررررة


:)

[محمد المحيا]

سلام..

الفورم بداية كويسة.. لكن يحتاج بعض التحسينات في التنسيق وتصحيح الأخطاء الإملائية..
مثلاً بدال "مكانه" تكتبي "مكان الميلاد" وبدال "الجنسية" تكتبي "الجنس"
وأيضاً تضيفي عنصر جديد للجنسية بجوار السجل المدني وتضيفي معاه "تاريخ الانتهاء"

زر الطباعة الأفضل يكون فوق.. وطبعاً المفروض الجزء العلوي من جميع نوافذ البرنامج يحتوي على أيقونات البرنامج مثل (إضافة/تعديل/حذف/بحث/طباعة/خروج) وغيرها

كود الطباعة المفروض تسويله ميثود وبعدين تستدعيها في الكلاس اللي انتي شغالة عليه عن طريق زر الأوامر (طبعاً أنا ما عندي خبرة بالدوت نت لأني تعلمت غيرها لكن المبادئ تقريباً نفسها) وبحثت لك عن بعض الأكواد تساعدك وتقدري تعدلي عليها وتضيفيها في مشروعك..

http://www.vb-helper.com/howto_net_print_long_text.html
http://www.vb4arab.com/vb/showthread.php?t=2008

[سارونه]

http://www.elaana.com/up/get-1197673471.gif


:130: ا ه يابنك الرياض
حسبي الله عليك:130: << بينهم ثأر


الله يوفقك يارب
مااقدر اساعد لان حدي الفوتوشوب خههخخخخ:262:
بس شدتني نافذة البيع :131:

[فرولة لذيذة]

السلام عليكم ..




عدت مرررة أخرى للصداع ..



والله يا محمد مرررررة شكرا يعطيك الف عافية ..


التنسيق قلت أخلية في الأخير ..

أما على الأخطاء صححتها .... ماما من أول قالتلي حطي الجنسية ..


فهمتها غلط .. ورحت حطيطها ذكر .. وأنثى ..


بس بدي أقولك شي عن أكواد الطباعه ..


الي ارسلتلي هوة .. مرررررة عجبني ..

بس أظن أنهم بيتكلمو عن الفيجوال بيسك .. من غير .. الدوت نت ...


لأنو طالب العنصر الي نضيفوا .. PrintForm


وانا كل العناصر الي عندي للطباعه .. دي .. http://www.dorarr.ws/forum/uploaded/14365/54.JPG



و جربت الأكواد الي محطوطة على كل العناصر الي عندي .. وما زبطت :158:



بس مني عارفة كيف أغير الكود .. . على العناصر الي عندي جربت وبرضوا مازبط .. لمن دوخت .. :217:







وشكرا جزييييييلا |64|

[فرولة لذيذة]

اها ونسيت أقولك .. المنتدى الي اعطيتني هوة انا مسجلة فية


بس للآن ما ارسلولي تفعيل العضوية .. من أول وكل شوية أطلبها وما توصل ..



بدي اعطيهم أسماء العناصر الي عندي .. عن الـ print



:)

[فرولة لذيذة]

محمد ... .. جربت دي الطريقة ..


لكي نطبع الصفحة نكتب فى حدث الزر هذا الكود


كود:

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

PrintDocument1.Print()

End Sub


اضعط ظغطتين علي المكون PrintDocumet يظهر الحدث PrintPage



كود:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintP ageEventArgs) Handles PrintDocument1.PrintPage

End Sub





وزبطت ... :201: .. وفرحاااااااانة مرررررة كتير .. :drr05_81:




طبعا الحمد لله .. ثم شكرا لك كتييير .. |547|






بس مشكلة .. :134:





لمن تنطبع الصفحة .. تطلع فاضية ..




وزي ما قلتلك للآن مهي مفعلة عضويتي في المنتدى ومني قادرة أقولهم .. :148:

[فرولة لذيذة]

السلام عليكم




وانا على السرير بدي أنام جاتني الفكرة هادي ..


فإني أحط msgbox لمن يجي المستخدم يضغط خروج تـطـلعـلـوا .. دي النافذة زي كده ..


http://www.dorarr.ws/forum/uploaded/14365/55.JPG



عرفت الكود .. شوف ما تعبتك في دي .. :134: بس علشان لا تقول اني ما بأفكر .. ولا متقلة عليك ..


بأحاول قد ما يجي في راسي والله .. :)


استني الي جي ..

استخدمت الكود دا ..



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("عزيزي المستخدم هل أنت متأكد من الخروج", MsgBoxStyle.YesNo)

End
End Sub



شايف MsgBoxStyle.YesNo انا أخترت الإستايل دا ..

وزبطت .. لمن أضغط نعم راح ينتهي البرنامج .. لاكن لمن أضغط لا .. برضوا يتقفل البرنامج :183:

حركة حلوة .. كل الطرق تؤدي الى رووما ..:drr05_62:


كيف بس .. أخلي لمن أضغط لا .. يكمل البرنامج ... :)






:121:

[همسة عاشق]

sory

كنت حاب أساعد بس ماعرفت :(

بالتوفيق إن شاء الله

[محمد المحيا]

سلام

انتي في الكود طالبة منه يخرج من البرنامج مهما كان خيار المستخدم :)

لازم تسوي شرط عشان يخرج إذا ضغط على Yes فقط

جربي الكود هذا:


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim answer As MsgBoxResult
answer = MsgBox("عزيزي المستخدم هل أنت متأكد من الخروج", MsgBoxStyle.YesNo)
If answer = MsgBoxResult.Yes Then
End
Else
Exit Sub

End If
End Sub

[فرولة لذيذة]

اهلا محمد ..

فكرت في الشرط .. بس ما كنت عارفة ايش استخدم فية يعني ..
زي

As MsgBoxResult

ما أخدنا أخدنا as enteger
و as string

وزيها كتير زي الي في المرفق


بس ما في As MsgBoxResult



دراسة نص كم ..


وكمان ماكنت راح أعرف .. exit sub نهائيا :)



الله يسعدك ويديك العافية يارب ..




بس معلية والله ان شاء الله يكون أخر شي >>>> :drr05_23:


ما قلتلي على حكاية الطباعه .. قتلك مشي الحال لاكن لمن أطبع تنطبعلي صفحة بيضا مو نفس الفورم .. :140:




وشكرا والله مررررررة كتير ,,,

[محمد المحيا]

أهلين فراولة

بالنسبة للطباعة جربي الكود اللي هنا:
http://www.vb-helper.com/howto_net_print_form_image.htm l

وإن شاء الله يضبط معك..

[فرولة لذيذة]

سلام عليكم <<




محمد .. جربت الأكواد ..


اصلا بالقوة فهمتها ..




Private Sub m_PrintDocument_PrintPage(ByVa l sender As _
Object, ByVal e As _
System.Drawing.Printing.PrintP ageEventArgs) Handles _


m_PrintDocument.PrintPage




بالقوة فهمت أنوا اخر سطر هوة الكود .. :134:



بس حرف الـ M الي في بداية الكود .. عجيبة ..


يقولي في الكود خطأ ..


مو كل الكود ..m_PrintDocument.PrintPage



لا بس من هنا m_PrintDocument


حاططلي تحتها خط أزرق .. :148:



|56|

[محمد المحيا]

أهلين فراولة

طبعاً الكود مو تاخذيه كوبي بيست مثل ما هو.. أكيد ما رح يشتغل
لازم تغيري بعض الأشياء في الكود عشان يتوافق مع مشروعك..

بالنسبة للـ M ما فيها غلط... هذا اسم المتغير مو ضروري تغيريه..

شوفي أنا عدلت عليه شوية أشياء وصار كذا:


Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal _
hdcDest As IntPtr, ByVal nXDest As Integer, ByVal _
nYDest As Integer, ByVal nWidth As Integer, ByVal _
nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc _
As Integer, ByVal nYSrc As Integer, ByVal dwRop As _
System.Int32) As Boolean
Private Const SRCCOPY As Integer = &HCC0020

' Variables used to print.
Private m_PrintBitmap As Bitmap
Private WithEvents m_PrintDocument As Printing.PrintDocument

' Print the picture.
Private Sub btnPrint_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPrint.Click
' Copy the form's image into a bitmap.
m_PrintBitmap = GetFormImage()

' Make a PrintDocument and print.
m_PrintDocument = New Printing.PrintDocument
m_PrintDocument.Print()
End Sub

Private Function GetFormImage() As Bitmap
' Get this form's Graphics object.
Dim me_gr As Graphics = Me.CreateGraphics

' Make a Bitmap to hold the image.
Dim bm As New Bitmap(Me.ClientSize.Width, _
Me.ClientSize.Height, me_gr)
Dim bm_gr As Graphics = me_gr.FromImage(bm)
Dim bm_hdc As IntPtr = bm_gr.GetHdc

' Get the form's hDC. We must do this after
' creating the new Bitmap, which uses me_gr.
Dim me_hdc As IntPtr = me_gr.GetHdc

' BitBlt the form's image onto the Bitmap.
BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, _
Me.ClientSize.Height, _
me_hdc, 0, 0, SRCCOPY)
me_gr.ReleaseHdc(me_hdc)
bm_gr.ReleaseHdc(bm_hdc)

' Return the result.
Return bm
End Function

' Print the form image.
Private Sub m_PrintDocument_PrintPage(ByVa l sender As _
Object, ByVal e As _
System.Drawing.Printing.PrintP ageEventArgs) Handles _
m_PrintDocument.PrintPage
' Draw the image centered.
Dim x As Integer = e.MarginBounds.X + _
(e.MarginBounds.Width - m_PrintBitmap.Width) \ 2
Dim y As Integer = e.MarginBounds.Y + _
(e.MarginBounds.Height - m_PrintBitmap.Height) \ 2
e.Graphics.DrawImage(m_PrintBi tmap, x, y)

' There's only one page.
e.HasMorePages = False
End Sub


طبعاً بالإضافة للكود لازم تسحبي الـ PrintDocument من التول بوكس
وكمان تسحبي زر Button ولازم يكون اسمه btnPrint في خانة Name على اليمين عشان هذا هو الاسم المستخدم للزر في الكود..

جربيه عندك وإن شاء الله رح يطبع الفورم 100%

[فرولة لذيذة]

مو كأنوا طول الكووود ..



وكمان مني فاهمتوا كيف راح اشرحوا الله يسلمك ويسعدك ..


معليش دووووخت بس استحملني الله يخليك



شوووووووكرن .... :)

[محمد المحيا]

انتي شكلك تغيبي عن المحاضرات :174:

الكود هو نفسه اللي في الموقع وأنا ما عدلت إلا أشياء بسييييطة

وعموماً هو يشرح نفسه والكومنتس موجودة فيه..

شوفي:


Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal _
hdcDest As IntPtr, ByVal nXDest As Integer, ByVal _
nYDest As Integer, ByVal nWidth As Integer, ByVal _
nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc _
As Integer, ByVal nYSrc As Integer, ByVal dwRop As _
System.Int32) As Boolean
Private Const SRCCOPY As Integer = &HCC0020

الجزء السابق عبارة عن تصريح للدالة BitBlt وهي دالة خاصة بنظام التشغيل ويندوز وظيفتها نقل قيمة معينة (صورة الفورم في مشروعنا هذا) من جهة معينة (الشاشة) إلى جهة معينة أخرى (الطابعة)



' Variables used to print.
Private m_PrintBitmap As Bitmap
Private WithEvents m_PrintDocument As Printing.PrintDocument

المقطع السابق تعيين للمتغيرات المستخدمة في الفورم



' Print the picture.
Private Sub btnPrint_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPrint.Click
' Copy the form's image into a bitmap.
m_PrintBitmap = GetFormImage()

' Make a PrintDocument and print.
m_PrintDocument = New Printing.PrintDocument
m_PrintDocument.Print()
End Sub

المقطع السابق يحتوي على الدالة الخاصة بزر "طباعة" ووظيفتها الحصول على نسخة من الفورم على شكل صورة وتنفيذ أمر الطباعة




Private Function GetFormImage() As Bitmap
' Get this form's Graphics object.
Dim me_gr As Graphics = Me.CreateGraphics

' Make a Bitmap to hold the image.
Dim bm As New Bitmap(Me.ClientSize.Width, _
Me.ClientSize.Height, me_gr)
Dim bm_gr As Graphics = me_gr.FromImage(bm)
Dim bm_hdc As IntPtr = bm_gr.GetHdc

' Get the form's hDC. We must do this after
' creating the new Bitmap, which uses me_gr.
Dim me_hdc As IntPtr = me_gr.GetHdc

' BitBlt the form's image onto the Bitmap.
BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, _
Me.ClientSize.Height, _
me_hdc, 0, 0, SRCCOPY)
me_gr.ReleaseHdc(me_hdc)
bm_gr.ReleaseHdc(bm_hdc)

' Return the result.
Return bm
End Function


المقطع السابق هو الكود الخاص بالدالة BitBlt
يعني يشرح للدالة خطوات تكوين صورة للفورم




' Print the form image.
Private Sub m_PrintDocument_PrintPage(ByVa l sender As _
Object, ByVal e As _
System.Drawing.Printing.PrintP ageEventArgs) Handles _
m_PrintDocument.PrintPage
' Draw the image centered.
Dim x As Integer = e.MarginBounds.X + _
(e.MarginBounds.Width - m_PrintBitmap.Width) \ 2
Dim y As Integer = e.MarginBounds.Y + _
(e.MarginBounds.Height - m_PrintBitmap.Height) \ 2
e.Graphics.DrawImage(m_PrintBi tmap, x, y)

' There's only one page.
e.HasMorePages = False
End Sub


المقطع الأخير هذا هو اللي يحدد خصائص الطباعة.. يعني مثلاً يعطي الأمر بطباعة الفورم وتوسيطه في الصفحة..


بس هذا باختصار.. وتقدري تزودي كلمتين من عندك :)

[فرولة لذيذة]

شووووووووووكرن (http://www.dorarr.ws/forum/showthread.php?p=423346#post42 3346)



http://www.dream4two.de/images/SigTagseite/Tags/Thank%20you.gif