+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : [مشروع] تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج (/showthread.php?tid=29986)
تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - سعود - 22-06-19
بصراحة متعود على فيجوال بيسك ايا كان قديم او حديث لكن اللي يفرق ان الجديد اسرع واقصد vb.net لان كل شي (غالبا) مجهز.
الموضوع للتسلية
الازرار كانها بسكويت الشاي.
__________________________________________________________________
نسخة اخرى نسيت ان ارفعها بعد معرفة كم خطأ
الملف الجديد مرفق
كما تلاحظون بالصورة لما لم اكتب رقم قبل الفاصلة تم اعتبارها 0
[attachment=22410]
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - princeofislam - 12-08-19
روعة يا سيدي
كيف ممكن اخلي المنازل العشرية فقط رقمين مثال :
5.3 - 2.5 = 2.8
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - سعود - 12-08-19
(12-08-19, 03:12 AM)princeofislam كتب : روعة يا سيدي
كيف ممكن اخلي المنازل العشرية فقط رقمين مثال :
5.3 - 2.5 = 2.8
ذوقك الرائع
هل تقصد بالمثال ام ماذا؟
لان بالمثال لم اتدخل بشيء فقط نتيجة الحساب ظهرت كما كتبت
جربتها الان
![[صورة مرفقة: 999.png]](https://i.postimg.cc/TwWPpqBj/999.png)
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - princeofislam - 12-08-19
اقصد مثال خارجي يعطي النتيجة مثلا الجواب يكون 2.75 وهكذا
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - سعود - 12-08-19
بصراحة لست متاكد لكن تذكرت دالة او كود
PHP كود :
Math.Round(n1 / n2))
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - princeofislam - 13-08-19
ممكن كود اخي سعود وليكن مثلا
val(text1.text) - val(text2.text) = 2.75
فقط رقمين عشريات
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - سعود - 13-08-19
(13-08-19, 04:23 AM)princeofislam كتب : ممكن كود اخي سعود وليكن مثلا
val(text1.text) - val(text2.text) = 2.75
فقط رقمين عشريات
هذا الناتج كيف يكون
هل بالطرح ام بالقسمة
لو تكتب لي رقمين وباي عملية حسابية حتى اجرب.
لو اردت ان اتعامل معها كـنص فالموضوع بسيط
PHP كود :
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Dim a1 As String
a1 = Split(Text3.Text, ".")(0)
Dim a2 As String
a2 = Split(Text3.Text, ".")(1)
Text4.Text = a1 & "." & Mid(a2, 1, 2)
End Sub
RE: تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج - princeofislam - 15-08-19
اتعامل معها كرقم احصل علية من قاعدة البيانات
جزاكم الله كل خير وكل عام وانتم بخير سيدي راح احتاج لمساعدتكم قريبا في موضوع اقساط المدرسة
لانني عندي مشكلة وهي الحصول على تقرير الذين لم يدفعو القسط
يعني بالفورم تقدر تحط تعديل على ان ولي الامر قد دفع القسط او لم يدفع وهكذا لاكن المشلكة بالشهر الثاني هل على ادخال ولي الامر مرة اخرى او كيف يتم الموضوع