منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 (/showthread.php?tid=18779)

ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - محمد بوقزاحة - 12-01-17

السؤال الاول
 
كيف اطبع رقم في التكست بوكس على هذا الشكل    ((   78,568.000  ))  عندما  هذا الرقم في التكست 78568.000  عند الكبس على الزر ENTER يصبح على الشكل  78,568.000

//////////////////


السؤال الثاني

بفس الطريقة على الدتا غريد فيو  


//////
 جزاءكم الله كل الخير   **********************   والسلام عليكم ورحمة الله

RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - مساعدة - 12-01-17

السلام عليكم

لتنسيق الرقم لمربع النص TextBox عند الضغط على الزر Enter تفضل الكود
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   If e.KeyChar = Chr(Keys.Enter) Then
       TextBox1.Text = FormatNumber(TextBox1.Text, 3)
   End If
End Sub


RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - مساعدة - 12-01-17

وهذه طريقة تنسيق الرقم لخلية للداتاجريدفيو DataGridView عند ترك الخلية تفضل الكود
كود :
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
   ' تحديد رقم فهرس العمود - والهارس تبدأ من رقم صفر
   If e.ColumnIndex = 1 Then
       e.Value = FormatNumber(e.Value, 3)
   End If
End Sub


RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - محمد عبدو - 12-01-17

لكن لاحظت الكود ناقص مفروض يكون في برميتر في formatnumber منكن توضخ اي اكتب بين القوسين عشان انفذ البروجكت

RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - مساعدة - 13-01-17

الاستاذ محمد عبدو، هل السؤال موجه لي؟ إن كان كذلك فالكود كامل،
وإلا ما تقصد ب(برميتر في formatnumber) وأيضا ماذا تقصد ب(اي اكتب بين القوسين عشان انفذ البروجكت)!

RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - محمد بوقزاحة - 17-01-17

مشكور استاذي الفاضل ( بارك الله فيك وجزاك الله كل خير )

RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - محمد بوقزاحة - 18-01-17

سؤال بسيط استاذي الفاضل عندما ابحث عن قيمة مثلاً ولتكن (( 78,568.549 )) عندما استدعيها من قاعدة البيانات تاتي يالطريقة الاتية (( 78568549 ))
ممكن مسعادتي في كود لاجراء هذه العمليه جربت في حدث اتجبنج والفورم حدث اللوود ولم تنجح

///////////////////
كود لتحويل هذه القيمة إلى حروف " ( ثمانية وسبعون الف وخمسمائة وثمانية وستون دينار و خمسمائة وتسعة واريعون درهم )
الكود الموجود عندي لايظهر اخر رقم من الدراهم ( ثمانية وسبعون الف وخمسمائة وثمانية وستون دينار واربعه وخمسون درهم )
لا يظهر الرقم الاخير

ارجواااا مسعادتي وجزاك الله خيراً

RE: ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 - مساعدة - 18-01-17

(18-01-17, 03:36 PM)محمد بوقزاحة كتب : سؤال بسيط استاذي الفاضل عندما ابحث عن قيمة مثلاً ولتكن (( 78,568.549 )) عندما استدعيها من قاعدة البيانات تاتي يالطريقة الاتية (( 78568549 ))
ممكن مسعادتي في كود لاجراء هذه العمليه جربت في حدث اتجبنج والفورم حدث اللوود ولم تنجح
لم أفهم كيف تاتي الارقام (( 78568549 )) فأين العلامة العشرية! اليس الحقل من نوع كسري!
أيضا لم أفهم (حدث اتجبنج)! وما المساعدة التي تريدها بالضبط؟


(18-01-17, 03:36 PM)محمد بوقزاحة كتب : كود لتحويل هذه القيمة إلى حروف " ( ثمانية وسبعون الف وخمسمائة وثمانية وستون دينار و خمسمائة وتسعة واريعون درهم )
الكود الموجود عندي لايظهر اخر رقم من الدراهم ( ثمانية وسبعون الف وخمسمائة وثمانية وستون دينار واربعه وخمسون درهم )
لا يظهر الرقم الاخير
بالنسبة لتحويل القيمة لحروف هذا يتعمد كود التحويل، فقد يحتاج لتعديل.

RE: ارجوا المساعدة ف توضيح استاذي الفاضل - محمد بوقزاحة - 19-01-17

ارسلت صوره  توضيح
عندما استدعيت  رقم الصك  (  896 )  تم استدعاء البيانات كما موضح  ( ملاحظة على القيمة 123666.555 )    شكل رقم ( 1 )
عندما اضغط على ENTER   ينفذ الكود الذي وضحته لي من قبل  فتصبح على هذا الشكل   123,666.555   شكل رقم ( 2 )
المطلوب هو عند الاستدعاء تظهر هذه القيمة  بهذا الشكل 123,666.555 وليست مثل الشكل رقم ( 1 )
/////////////////////
لاحظ في القيمة   ولاحظ القيمة بالحروف 
مائة وثلاثة وعشرون الف وستمائة وستة وستون دينار  و ستة وخمسون درهم فقط لاغير 
بالنسبه الى تحويل القيمة الى حروف اذا كان عندك كود فلا تبخل عليا به جزاءك الله خير