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

ما الخطا؟

كود :
       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))

(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

تحياتى لك

(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

تحياتى لك

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

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

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

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

كود :
       a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

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

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

كود :
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 وعرضها بها

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

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

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

تحياتى لك

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

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

hichem1

elgokr

hichem1

mrnooo2000

elgokr