دخول

**ali_ahmed12** · 15-10-22, 03:45 PM

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

كود :

Public Function CODE_GENE(TABLENAME, ID_) As Integer

        CODE_GENE = 0

        Dim DT As New DataTable

        Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", sqlcon)

        DA.Fill(DT)

        If DT.Rows.Count <> 0 Then

            Dim I = DT.Rows.Count - 1

            CODE_GENE = Val(DT.Rows(I).Item(ID_))

        End If

    End Function

**Meen2**

(15-10-22, 03:45 PM)ali_ahmed12 كتب : السلام عليكم ممكن تحويل دالة مكتوبه فيجوال بيسك الي سي شارب

كود :

Public Function CODE_GENE(TABLENAME, ID_) As Integer CODE_GENE = 0 Dim DT As New DataTable Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", sqlcon) DA.Fill(DT) If DT.Rows.Count <> 0 Then Dim I = DT.Rows.Count - 1 CODE_GENE = Val(DT.Rows(I).Item(ID_)) End If End Function

كود :

public int CODE_GENE(string TABLE_NAME, string COLUMN_NAME) {

    int CODE = 0;

    DataTable DT = new DataTable();

    SqlDataAdapter DA = new SqlDataAdapter(String.Format("SELECT {1} FROM {0} ORDER BY {1}", TABLE_NAME, COLUMN_NAME), sqlcon);

    DA.Fill(DT);

    if (DT.Rows.Count > 0) {

        int I = DT.Rows.Count - 1;

        CODE = Convert.ToInt32(DT.Rows[I][COLUMN_NAME]);

    }

    return CODE;

}

**ali_ahmed12**

(15-10-22, 04:12 PM)Meen2 كتب :
(15-10-22, 03:45 PM)ali_ahmed12 كتب : السلام عليكم ممكن تحويل دالة مكتوبه فيجوال بيسك الي سي شارب

كود :

Public Function CODE_GENE(TABLENAME, ID_) As Integer CODE_GENE = 0 Dim DT As New DataTable Dim DA As New SqlDataAdapter("select *from " & TABLENAME & " ORDER BY " & ID_ & "", sqlcon) DA.Fill(DT) If DT.Rows.Count <> 0 Then Dim I = DT.Rows.Count - 1 CODE_GENE = Val(DT.Rows(I).Item(ID_)) End If End Function

كود :

public int CODE_GENE(string TABLE_NAME, string COLUMN_NAME) { int CODE = 0; DataTable DT = new DataTable(); SqlDataAdapter DA = new SqlDataAdapter(String.Format("SELECT {1} FROM {0} ORDER BY{1}", TABLE_NAME, COLUMN_NAME), sqlcon); DA.Fill(DT); if (DT.Rows.Count > 0) { int I = DT.Rows.Count - 1; CODE = Convert.ToInt32(DT.Rows[I][COLUMN_NAME]); } return CODE; }

الله يرحم والديك ممكن تحويل كود استدعاء

كود :

       TXT_CODE.Text = Format(CODE_GENE("ITEMS", "ID") + 1, "CUS0000000")

**Meen2**

كود :

TXT_CODE.Text = "CUS" +  (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

**ali_ahmed12** · 15-10-22, 05:05 PM

(15-10-22, 04:46 PM)Meen2 كتب :

كود :

TXT_CODE.Text = "CUS" + (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

ممكن موقع الذي تستخدمه لتحويل

**Meen2** · 15-10-22, 05:28 PM

(15-10-22, 05:05 PM)ali_ahmed12 كتب :
(15-10-22, 04:46 PM)Meen2 كتب :

كود :

TXT_CODE.Text = "CUS" + (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

ممكن موقع الذي تستخدمه لتحويل

هذا موقع مشهور لتحويل الكود من #C إلى VB وأيضا من VB إلى #C
https://converter.telerik.com
لكن في بعض الأحيان تحتاج أن تقوم بتعديلات يدوية بسيطة

**ali_ahmed12** · 16-10-22, 11:41 AM

(15-10-22, 05:28 PM)Meen2 كتب :
(15-10-22, 05:05 PM)ali_ahmed12 كتب :
(15-10-22, 04:46 PM)Meen2 كتب :

كود :

TXT_CODE.Text = "CUS" + (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

ممكن موقع الذي تستخدمه لتحويل

هذا موقع مشهور لتحويل الكود من #C إلى VB وأيضا من VB إلى #C
https://converter.telerik.com
لكن في بعض الأحيان تحتاج أن تقوم بتعديلات يدوية بسيطة

ممكن تحويل كود هدا يظهر لي خطا

كود :

'======قيود الادخال

        If TXT_NAME.Text = "" Then

            TXT_NAME.BackColor = Color.Red

            TXT_NAME.Select()

            Exit Sub

        End If

        If TXT_BAR.Text = "" Then

            TXT_BAR.BackColor = Color.Red

            TXT_BAR.Select()

            Exit Sub

        End If

        If Val(TXT_TKLFA.Text) > Val(TXT_PRICE.Text) Then

            MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Exit Sub

        End If

        If Val(TXT_TKLFA.Text) = Val(TXT_PRICE.Text) Then

            MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Exit Sub

        End If

        '============Save

        Dim DT As New DataTable

        Dim DA As New SqlDataAdapter("select *from items where item_name= '" & TXT_NAME.Text & "'or item_bar = '" & TXT_BAR.Text & "'", sqlcon)

        DA.Fill(DT)

        If DT.Rows.Count > 0 Then

            MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        Else

            Dim DR = DT.NewRow

            DR!item_code = TXT_CODE.Text

            DR!item_name = TXT_NAME.Text

            DR!item_bar = TXT_BAR.Text

            DR!item_unit = TXT_UNIT.Text

            DR!item_tklfa = Val(TXT_TKLFA.Text)

            DR!item_price = Val(TXT_PRICE.Text)

            DR!NOTES = TXT_NOTES.Text

            DR!item_expire = DTP.Value

            DR!qty = Val(TXT_QTY.Text)

            DT.Rows.Add(DR)

            Dim SAVE As New SqlCommandBuilder(DA)

            DA.Update(DT)

            MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

            btn_new_Click(sender, e)

        End If

**Meen2**

(16-10-22, 11:41 AM)ali_ahmed12 كتب : ممكن تحويل كود هدا يظهر لي خطا

كود :

'======قيود الادخال If TXT_NAME.Text = "" Then TXT_NAME.BackColor = Color.Red TXT_NAME.Select() Exit Sub End If If TXT_BAR.Text = "" Then TXT_BAR.BackColor = Color.Red TXT_BAR.Select() Exit Sub End If If Val(TXT_TKLFA.Text) > Val(TXT_PRICE.Text) Then MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If Val(TXT_TKLFA.Text) = Val(TXT_PRICE.Text) Then MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If '============Save Dim DT As New DataTable Dim DA As New SqlDataAdapter("select *from items where item_name= '" & TXT_NAME.Text & "'or item_bar = '" & TXT_BAR.Text & "'", sqlcon) DA.Fill(DT) If DT.Rows.Count > 0 Then MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else Dim DR = DT.NewRow DR!item_code = TXT_CODE.Text DR!item_name = TXT_NAME.Text DR!item_bar = TXT_BAR.Text DR!item_unit = TXT_UNIT.Text DR!item_tklfa = Val(TXT_TKLFA.Text) DR!item_price = Val(TXT_PRICE.Text) DR!NOTES = TXT_NOTES.Text DR!item_expire = DTP.Value DR!qty = Val(TXT_QTY.Text) DT.Rows.Add(DR) Dim SAVE As New SqlCommandBuilder(DA) DA.Update(DT) MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information) btn_new_Click(sender, e) End If

كود :

//======قيود الادخال

if (TXT_NAME.Text.Equals(""))

{

    TXT_NAME.BackColor = Color.Red;

    TXT_NAME.Select();

    return;

}

if (TXT_BAR.Text.Equals(""))

{

    TXT_BAR.BackColor = Color.Red;

    TXT_BAR.Select();

    return;

}

if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text))

{

    MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

    return;

}

if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text))

{

    MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

    return;

}

//============Save

DataTable DT = new DataTable();

SqlDataAdapter DA = new SqlDataAdapter("select *from items where item_name= '" + TXT_NAME.Text + "'or item_bar = '" + TXT_BAR.Text + "'", sqlcon);

DA.Fill(DT);

if (DT.Rows.Count > 0)

{

    MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

}

else

{

    DataRow DR = DT.NewRow();

    DR["item_code"] = TXT_CODE.Text;

    DR["item_name"] = TXT_NAME.Text;

    DR["item_bar"] = TXT_BAR.Text;

    DR["item_unit"] = TXT_UNIT.Text;

    DR["item_tklfa"] = Convert.ToDouble(TXT_TKLFA.Text);

    DR["item_price"] = Convert.ToDouble(TXT_PRICE.Text);

    DR["NOTES"] = TXT_NOTES.Text;

    DR["item_expire"] = DTP.Value.Date;

    DR["qty"] = Convert.ToDouble(TXT_QTY.Text);

    DT.Rows.Add(DR);

    SqlCommandBuilder SAVE = new SqlCommandBuilder(DA);

    DA.Update(DT);

    MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information);

    btn_new.PerformClick();

}

طريقة أفضل

كود :

//======قيود الادخال

if (TXT_NAME.Text.Equals("")) {

    TXT_NAME.BackColor = Color.Red;

    TXT_NAME.Select();

    return;

}

if (TXT_BAR.Text.Equals("")) {

    TXT_BAR.BackColor = Color.Red;

    TXT_BAR.Select();

    return;

}

if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text)) {

    MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

    return;

}

if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text)) {

    MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

    return;

}

//============Save

try {

    if (sqlcon.State != ConnectionState.Open) sqlcon.Open();

    SqlCommand CMD = new SqlCommand("SELECT COUNT(*) FROM items WHERE item_name=@name OR item_bar=@bar", sqlcon);

    CMD.Parameters.AddWithValue("@name", TXT_NAME.Text);

    CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text);

    if ((int)CMD.ExecuteScalar() > 0) {

        MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

    }

    else {

        CMD = new SqlCommand("INSERT INTO items(item_code, item_name, item_bar, item_unit, item_tklfa, item_price, NOTES, item_expire,qty)" +

            "VALUES(@code, @name, @bar, @unit, @tklfa, @price, @NOTES, @expire, @qty)", sqlcon);

        CMD.Parameters.AddWithValue("@code", TXT_CODE.Text);

        CMD.Parameters.AddWithValue("@name", TXT_NAME.Text);

        CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text);

        CMD.Parameters.AddWithValue("@unit", TXT_UNIT.Text);

        CMD.Parameters.AddWithValue("@tklfa", Convert.ToDouble(TXT_TKLFA.Text));

        CMD.Parameters.AddWithValue("@price", Convert.ToDouble(TXT_PRICE.Text));

        CMD.Parameters.AddWithValue("@NOTES", TXT_NOTES.Text);

        CMD.Parameters.AddWithValue("@expire", DTP.Value.Date);

        CMD.Parameters.AddWithValue("@qty", Convert.ToDouble(TXT_QTY.Text));

        CMD.ExecuteNonQuery();

        MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information);

        btn_new.PerformClick();

    }

}

catch (Exception ex) {

    MessageBox.Show(ex.Message, "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

}

finally {

    sqlcon.Close();

}

**ali_ahmed12**

(16-10-22, 12:02 PM)Meen2 كتب :
(16-10-22, 11:41 AM)ali_ahmed12 كتب : ممكن تحويل كود هدا يظهر لي خطا

كود :

'======قيود الادخال If TXT_NAME.Text = "" Then TXT_NAME.BackColor = Color.Red TXT_NAME.Select() Exit Sub End If If TXT_BAR.Text = "" Then TXT_BAR.BackColor = Color.Red TXT_BAR.Select() Exit Sub End If If Val(TXT_TKLFA.Text) > Val(TXT_PRICE.Text) Then MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If If Val(TXT_TKLFA.Text) = Val(TXT_PRICE.Text) Then MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If '============Save Dim DT As New DataTable Dim DA As New SqlDataAdapter("select *from items where item_name= '" & TXT_NAME.Text & "'or item_bar = '" & TXT_BAR.Text & "'", sqlcon) DA.Fill(DT) If DT.Rows.Count > 0 Then MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else Dim DR = DT.NewRow DR!item_code = TXT_CODE.Text DR!item_name = TXT_NAME.Text DR!item_bar = TXT_BAR.Text DR!item_unit = TXT_UNIT.Text DR!item_tklfa = Val(TXT_TKLFA.Text) DR!item_price = Val(TXT_PRICE.Text) DR!NOTES = TXT_NOTES.Text DR!item_expire = DTP.Value DR!qty = Val(TXT_QTY.Text) DT.Rows.Add(DR) Dim SAVE As New SqlCommandBuilder(DA) DA.Update(DT) MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information) btn_new_Click(sender, e) End If

كود :

//======قيود الادخال if (TXT_NAME.Text.Equals("")) { TXT_NAME.BackColor = Color.Red; TXT_NAME.Select(); return; } if (TXT_BAR.Text.Equals("")) { TXT_BAR.BackColor = Color.Red; TXT_BAR.Select(); return; } if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text)) { MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text)) { MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } //============Save DataTable DT = new DataTable(); SqlDataAdapter DA = new SqlDataAdapter("select *from items where item_name= '" + TXT_NAME.Text + "'or item_bar = '" + TXT_BAR.Text + "'", sqlcon); DA.Fill(DT); if (DT.Rows.Count > 0) { MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); } else { DataRow DR = DT.NewRow(); DR["item_code"] = TXT_CODE.Text; DR["item_name"] = TXT_NAME.Text; DR["item_bar"] = TXT_BAR.Text; DR["item_unit"] = TXT_UNIT.Text; DR["item_tklfa"] = Convert.ToDouble(TXT_TKLFA.Text); DR["item_price"] = Convert.ToDouble(TXT_PRICE.Text); DR["NOTES"] = TXT_NOTES.Text; DR["item_expire"] = DTP.Value.Date; DR["qty"] = Convert.ToDouble(TXT_QTY.Text); DT.Rows.Add(DR); SqlCommandBuilder SAVE = new SqlCommandBuilder(DA); DA.Update(DT); MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information); btn_new.PerformClick(); }

طريقة أفضل

كود :

//======قيود الادخال if (TXT_NAME.Text.Equals("")) { TXT_NAME.BackColor = Color.Red; TXT_NAME.Select(); return; } if (TXT_BAR.Text.Equals("")) { TXT_BAR.BackColor = Color.Red; TXT_BAR.Select(); return; } if (Convert.ToDouble(TXT_TKLFA.Text) > Convert.ToDouble(TXT_PRICE.Text)) { MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } if (Convert.ToDouble(TXT_TKLFA.Text) == Convert.ToDouble(TXT_PRICE.Text)) { MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error); return; } //============Save try { if (sqlcon.State != ConnectionState.Open) sqlcon.Open(); SqlCommand CMD = new SqlCommand("SELECT COUNT(*) FROM items WHERE item_name=@name OR item_bar=@bar", sqlcon); CMD.Parameters.AddWithValue("@name", TXT_NAME.Text); CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text); if ((int)CMD.ExecuteScalar() > 0) { MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); } else { CMD = new SqlCommand("INSERT INTO items(item_code, item_name, item_bar, item_unit, item_tklfa, item_price, NOTES, item_expire,qty)" + "VALUES(@code, @name, @bar, @unit, @tklfa, @price, @NOTES, @expire, @qty)", sqlcon); CMD.Parameters.AddWithValue("@code", TXT_CODE.Text); CMD.Parameters.AddWithValue("@name", TXT_NAME.Text); CMD.Parameters.AddWithValue("@bar", TXT_BAR.Text); CMD.Parameters.AddWithValue("@unit", TXT_UNIT.Text); CMD.Parameters.AddWithValue("@tklfa", Convert.ToDouble(TXT_TKLFA.Text)); CMD.Parameters.AddWithValue("@price", Convert.ToDouble(TXT_PRICE.Text)); CMD.Parameters.AddWithValue("@NOTES", TXT_NOTES.Text); CMD.Parameters.AddWithValue("@expire", DTP.Value.Date); CMD.Parameters.AddWithValue("@qty", Convert.ToDouble(TXT_QTY.Text)); CMD.ExecuteNonQuery(); MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information); btn_new.PerformClick(); } } catch (Exception ex) { MessageBox.Show(ex.Message, "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); } finally { sqlcon.Close(); }

بارك الله فيك سؤال فيجوال بيسك عندما نكتب DR!ITEN_NAME=TEXTNAME.TEXT ماذا يعني علامة النفي في فيجوال بيسك التي قبل اسم حقل في قاعدة البيانات
ممكن تحويل كود تالي

كود :

For I = 0 To GroupBox1.Controls.Count - 1

            If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""

            If TypeOf GroupBox1.Controls(I) Is DateTimePicker Then GroupBox1.Controls(I).Text = Now.Date

            'If TypeOf GroupBox1.Controls(I) Is ComboBox Then GroupBox1.Controls(I).Text = ""

        Next

        CheckBox1.Checked = False

        TXT_CODE.Text = Format(CODE_GENE("ITEMS", "ID") + 1, "CUS0000000")

        btn_delete.Enabled = False

        btn_edit.Enabled = False

        btn_save.Enabled = True

        TXT_NAME.Select()

        TXT_UNIT.Text = ""

**Meen2**

(16-10-22, 01:52 PM)ali_ahmed12 كتب : بارك الله فيك سؤال فيجوال بيسك عندما نكتب DR!ITEN_NAME=TEXTNAME.TEXT ماذا يعني علامة النفي في فيجوال بيسك التي قبل اسم حقل في قاعدة البيانات

هذه العلامة ! ليست علامة نفي كما هو الحال في لغة C ولكنها من مخلفات VB6 القديمة كانت بدلا من علامة التنصيص والاقواس حول اسم العمود

كود :

DR("ITEN_NAME") = TEXTNAME.TEXT

كود :

DR!ITEN_NAME = TEXTNAME.TEXT

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[C#.NET] تحويل كود	ahmed_king2023	2	871	06-06-23, 09:44 AM آخر رد: fouadhdfouad
	[VB.NET] تحويل كود	ahmed_king2023	6	1,315	22-04-23, 11:30 PM آخر رد: ahmed_king2023
	[C#.NET] تحويل كود الي c#	ali_ahmed12	2	833	10-01-23, 03:02 PM آخر رد: ali_ahmed12
	[C#.NET] تحويل كود الي c#	ali_ahmed12	2	936	03-12-22, 03:52 PM آخر رد: ali_ahmed12
	[VB.NET] تحويل كود الي c#	ali_ahmed12	5	1,249	30-11-22, 07:32 PM آخر رد: ali_ahmed12
	[VB.NET] تحويل كود الي c#	ali_ahmed12	0	650	29-11-22, 06:30 PM آخر رد: ali_ahmed12
	[C#.NET] تحويل كود تالي الي c#	ali_ahmed12	5	1,253	17-11-22, 04:25 AM آخر رد: yaser27
	[C#.NET] تحويل كود الي c#	ali_ahmed12	2	1,399	02-11-22, 05:54 PM آخر رد: الماجيك مسعد
	تحويل مشروع من c# الى فيجول بيسك	Lathe1	3	1,785	04-06-22, 08:49 PM آخر رد: Lathe1
	تحويل كود سي شارب الي فاكشن داخل سيكول سيرفر	amonem	0	1,235	10-03-22, 11:32 AM آخر رد: amonem