ما الخطأ في هذا الكود ؟؟ - نسخة قابلة للطباعة

ما الخطأ في هذا الكود ؟؟ - نسخة قابلة للطباعة

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

ما الخطأ في هذا الكود ؟؟ - hichem1 - 07-06-18

ما الخطا؟

كود :

       Dim u As String

        Dim z As String

        Dim y As String

        z = TextBox2.Text

        y = TextBox3.Text

        u = TextBox5.Text

        Me.ListBox1.Items.Add(New CityInfo("city",

                                   z, y, u))

RE: ما الخطأ في هذا الكود ؟؟ - elgokr - 07-06-18

(07-06-18, 01:24 AM)hichem1 كتب : ما الخطا؟

كود :

Dim u As String Dim z As String Dim y As String z = TextBox2.Text y = TextBox3.Text u = TextBox5.Text Me.ListBox1.Items.Add(New CityInfo("city", z, y, u))

اتمني ارفاق الصورة فى المرفقات لانها لا تعمل معى

وغالباً سيكون الخطاء فى الكود

من خلال جلب البيانات من خلال CityInfo

لاتمام ادخاله داخل ListBox1

تحياتى لك

RE: ما الخطأ في هذا الكود ؟؟ - hichem1 - 07-06-18

(07-06-18, 01:36 AM)elgokr كتب :
(07-06-18, 01:24 AM)hichem1 كتب : ما الخطا؟

كود :

Dim u As String Dim z As String Dim y As String z = TextBox2.Text y = TextBox3.Text u = TextBox5.Text Me.ListBox1.Items.Add(New CityInfo("city", z, y, u))

اتمني ارفاق الصورة فى المرفقات لانها لا تعمل معى

وغالباً سيكون الخطاء فى الكود

من خلال جلب البيانات من خلال CityInfo

لاتمام ادخاله داخل ListBox1

تحياتى لك

تمت إظافة المشروع في الملحقات

RE: ما الخطأ في هذا الكود ؟؟ - mrnooo2000 - 07-06-18

الخطأ فى نوع الداتا DataType

لأن الكلاس يحتاج الى نوع داتا عبارة عن Double
و المدخلات عبارة عن نص

ضع أرقام فى مربعات النص
و كذلك للتغلب على الخطأ استخدم هذا التعديل البسيط

كود :

       a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

RE: ما الخطأ في هذا الكود ؟؟ - elgokr - 07-06-18

الفكرة كلها من الخطاء هو التالى

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

كود :

Me.ListBox1.Items.Add(New CityInfo("تونس - تونس", a, b, c))

داخل منطقة Form1_Load

حيث ان CityInfo هو كلاس يقوم بتدريج احداثيات لمواقع الدولة وفارق التوقيت

لكن القيم لكل من

A و B و C

عبارة عن

Double - Double - Integer

وانت بالاعلى قمت بتعريف كل من الاحرف الى

كود :

Dim a As String

        Dim b As String

        Dim c As String

كما قمت بجلب قيم كل حرف من خلال

كود :

a = TextBox1.text

        b = textbox2.text

        c = TextBox3.Text

وقمت بجعل كلاً من TextBox 1:3 البيانات التالية

gmt - lat - long

فهل تعتقد هذه القيمة الافتراضية للاسماء بالاعلى هى احداثيات لاى دولة

او باصح هى هي قيمة من نوع

Double - Double - Integer

كل ما تحتاج اليه هو عمل التالى

1- انشاء Button
2- جعل كل من TextBox من 1 : 3 يقوم بالكتابة الارقام مع علامة . فقط
3- وضع الكود التالى داخل Button

كود :

Me.ListBox1.Items.Add(New CityInfo("تونس - تونس", a, b, c))

بحيث عند اتمام ادخال بيانات واحداثيات دولة معينة بعد الضغط على Button

يقوم باضافتها داخل ListBox وعرضها بها

وبكده تكون حليت مشكلة الكود

اتمنى اكون وضحت بالشرح سبب الخطاء

وكيفية ببساطة حل المشكلة

تحياتى لك

وتمنياتى لك التوفيق