تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إمكانية إختصار هذا الكود بدالة
#1
السلام عليكم ورحمة الله وبركاته أعضاء المنتدي 
لدي هذا الكود وأريد إختصاره في دالة إن أمكن
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
Dim ZC
ZE As Integer
        Try
            ZC 
Integer.Parse(CboZCAT.Text)
 
           ZE Integer.Parse(CBoze.Text)

 
           If ZC And ZE 1 Then
                Txtone
.Text = (1500 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (1520 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (1540 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (1560 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (1580 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (1600 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (1620 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (1640 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (1660 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (1680 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (1700 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (1745 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (1790 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (1850 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (1910 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (1970 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (2040 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (2100 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (2170 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (2240 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (2300 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (2380 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (2460 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (2530 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                Txtone
.Text = (2610 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                Txtone
.Text = (2700 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                Txtone
.Text = (2780 35) / 100.ToString
            ElseIf ZC 
10 And ZE 1 Then
                Txtone
.Text = (2850 35) / 100.ToString
            ElseIf ZC 
10 And ZE 2 Then
                Txtone
.Text = (2920 35) / 100.ToString
            ElseIf ZC 
10 And ZE 3 Then
                Txtone
.Text = (2990 35) / 100.ToString
            ElseIf ZC 
10 And ZE 4 Then
                Txtone
.Text = (3060 35) / 100.ToString
            ElseIf ZC 
11 And ZE 1 Then
                Txtone
.Text = (3070 35) / 100.ToString
            ElseIf ZC 
11 And ZE 2 Then
                Txtone
.Text = (3130 35) / 100.ToString
            ElseIf ZC 
11 And ZE 3 Then
                Txtone
.Text = (3190 35) / 100.ToString
            ElseIf ZC 
11 And ZE 4 Then
                Txtone
.Text = (3250 35) / 100.ToString
            ElseIf ZC 
12 And ZE 1 Then
                Txtone
.Text = (3320 35) / 100.ToString
            ElseIf ZC 
12 And ZE 2 Then
                Txtone
.Text = (3380 35) / 100.ToString
            ElseIf ZC 
12 And ZE 3 Then
                Txtone
.Text = (3450 35) / 100.ToString
            ElseIf ZC 
12 And ZE 4 Then
                Txtone
.Text = (3530 35) / 100.ToString
            ElseIf ZC 
13 And ZE 1 Then
                Txtone
.Text = (3540 35) / 100.ToString
            ElseIf ZC 
13 And ZE 2 Then
                Txtone
.Text = (3640 35) / 100.ToString
            ElseIf ZC 
13 And ZE 3 Then
                Txtone
.Text = (3730 35) / 100.ToString
            ElseIf ZC 
13 And ZE 4 Then
                Txtone
.Text = (3830 35) / 100.ToString
            ElseIf ZC 
14 And ZE 1 Then
                Txtone
.Text = (3920 35) / 100.ToString
            ElseIf ZC 
14 And ZE 2 Then
                Txtone
.Text = (4000 35) / 100.ToString
            ElseIf ZC 
14 And ZE 3 Then
                Txtone
.Text = (4080 35) / 100.ToString
            ElseIf ZC 
14 And ZE 4 Then
                Txtone
.Text = (4160 35) / 100.ToString
            ElseIf ZC 
14 And ZE 5 Then
                Txtone
.Text = (4240 35) / 100.ToString
            ElseIf ZC 
15 And ZE 1 Then
                Txtone
.Text = (4340 35) / 100.ToString
            ElseIf ZC 
15 And ZE 2 Then
                Txtone
.Text = (4430 35) / 100.ToString
            ElseIf ZC 
15 And ZE 3 Then
                Txtone
.Text = (4520 35) / 100.ToString
            ElseIf ZC 
15 And ZE 4 Then
                Txtone
.Text = (4620 35) / 100.ToString
            ElseIf ZC 
15 And ZE 5 Then
                Txtone
.Text = (4720 35) / 100.ToString
            ElseIf ZC 
16 And ZE 1 Then
                Txtone
.Text = (4820 35) / 100.ToString
            ElseIf ZC 
16 And ZE 2 Then
                Txtone
.Text = (4920 35) / 100.ToString
            ElseIf ZC 
16 And ZE 3 Then
                Txtone
.Text = (5020 35) / 100.ToString
            ElseIf ZC 
16 And ZE 4 Then
                Txtone
.Text = (5120 35) / 100.ToString
            ElseIf ZC 
16 And ZE 5 Then
                Txtone
.Text = (5220 35) / 100.ToString
            ElseIf ZC 
17 And ZE 1 Then
                Txtone
.Text = (5340 35) / 100.ToString
            ElseIf ZC 
17 And ZE 2 Then
                Txtone
.Text = (5450 35) / 100.ToString
            ElseIf ZC 
17 And ZE 3 Then
                Txtone
.Text = (5560 35) / 100.ToString
            ElseIf ZC 
17 And ZE 4 Then
                Txtone
.Text = (5690 35) / 100.ToString
            ElseIf ZC 
17 And ZE 5 Then
                Txtone
.Text = (5810 35) / 100.ToString
            ElseIf ZC 
18 And ZE 1 Then
                Txtone
.Text = (5930 35) / 100.ToString
            ElseIf ZC 
18 And ZE 2 Then
                Txtone
.Text = (6060 35) / 100.ToString
            ElseIf ZC 
18 And ZE 3 Then
                Txtone
.Text = (6190 35) / 100.ToString
            ElseIf ZC 
18 And ZE 4 Then
                Txtone
.Text = (6320 35) / 100.ToString
            ElseIf ZC 
18 And ZE 5 Then
                Txtone
.Text = (6450 35) / 100.ToString
            ElseIf ZC 
19 And ZE 1 Then
                Txtone
.Text = (6580 35) / 100.ToString
            ElseIf ZC 
19 And ZE 2 Then
                Txtone
.Text = (6720 35) / 100.ToString
            ElseIf ZC 
19 And ZE 3 Then
                Txtone
.Text = (6860 35) / 100.ToString
            ElseIf ZC 
19 And ZE 4 Then
                Txtone
.Text = (7000 35) / 100.ToString
            ElseIf ZC 
19 And ZE 5 Then
                Txtone
.Text = (7140 35) / 100.ToString
            ElseIf ZC 
20 And ZE 1 Then
                Txtone
.Text = (7300 35) / 100.ToString
            ElseIf ZC 
20 And ZE 2 Then
                Txtone
.Text = (7460 35) / 100.ToString
            ElseIf ZC 
20 And ZE 3 Then
                Txtone
.Text = (7620 35) / 100.ToString
            ElseIf ZC 
20 And ZE 4 Then
                Txtone
.Text = (7780 35) / 100.ToString
            ElseIf ZC 
20 And ZE 5 Then
                Txtone
.Text = (7940 35) / 100.ToString
            ElseIf ZC 
And ZE 0 Then
                Txtone
.Text 0.ToString
            End 
If
 
       Catch ex As Exception
        End 
Try
End Sub 
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Sub Name_(TXtone As StringCboZCAT As StringCBoze As String)
 
       Dim ZCZE As Integer
        Try
            ZC 
Integer.Parse(CboZCAT)
 
           ZE Integer.Parse(CBoze)

 
           If ZC And ZE 1 Then
                TXtone 
= (1500 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (1520 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (1540 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (1560 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (1580 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (1600 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (1620 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (1640 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (1660 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (1680 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (1700 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (1745 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (1790 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (1850 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (1910 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (1970 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (2040 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (2100 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (2170 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (2240 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (2300 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (2380 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (2460 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (2530 35) / 100.ToString
            ElseIf ZC 
And ZE 1 Then
                TXtone 
= (2610 35) / 100.ToString
            ElseIf ZC 
And ZE 2 Then
                TXtone 
= (2700 35) / 100.ToString
            ElseIf ZC 
And ZE 3 Then
                TXtone 
= (2780 35) / 100.ToString
            ElseIf ZC 
10 And ZE 1 Then
                TXtone 
= (2850 35) / 100.ToString
            ElseIf ZC 
10 And ZE 2 Then
                TXtone 
= (2920 35) / 100.ToString
            ElseIf ZC 
10 And ZE 3 Then
                TXtone 
= (2990 35) / 100.ToString
            ElseIf ZC 
10 And ZE 4 Then
                TXtone 
= (3060 35) / 100.ToString
            ElseIf ZC 
11 And ZE 1 Then
                TXtone 
= (3070 35) / 100.ToString
            ElseIf ZC 
11 And ZE 2 Then
                TXtone 
= (3130 35) / 100.ToString
            ElseIf ZC 
11 And ZE 3 Then
                TXtone 
= (3190 35) / 100.ToString
            ElseIf ZC 
11 And ZE 4 Then
                TXtone 
= (3250 35) / 100.ToString
            ElseIf ZC 
12 And ZE 1 Then
                TXtone 
= (3320 35) / 100.ToString
            ElseIf ZC 
12 And ZE 2 Then
                TXtone 
= (3380 35) / 100.ToString
            ElseIf ZC 
12 And ZE 3 Then
                TXtone 
= (3450 35) / 100.ToString
            ElseIf ZC 
12 And ZE 4 Then
                TXtone 
= (3530 35) / 100.ToString
            ElseIf ZC 
13 And ZE 1 Then
                TXtone 
= (3540 35) / 100.ToString
            ElseIf ZC 
13 And ZE 2 Then
                TXtone 
= (3640 35) / 100.ToString
            ElseIf ZC 
13 And ZE 3 Then
                TXtone 
= (3730 35) / 100.ToString
            ElseIf ZC 
13 And ZE 4 Then
                TXtone 
= (3830 35) / 100.ToString
            ElseIf ZC 
14 And ZE 1 Then
                TXtone 
= (3920 35) / 100.ToString
            ElseIf ZC 
14 And ZE 2 Then
                TXtone 
= (4000 35) / 100.ToString
            ElseIf ZC 
14 And ZE 3 Then
                TXtone 
= (4080 35) / 100.ToString
            ElseIf ZC 
14 And ZE 4 Then
                TXtone 
= (4160 35) / 100.ToString
            ElseIf ZC 
14 And ZE 5 Then
                TXtone 
= (4240 35) / 100.ToString
            ElseIf ZC 
15 And ZE 1 Then
                TXtone 
= (4340 35) / 100.ToString
            ElseIf ZC 
15 And ZE 2 Then
                TXtone 
= (4430 35) / 100.ToString
            ElseIf ZC 
15 And ZE 3 Then
                TXtone 
= (4520 35) / 100.ToString
            ElseIf ZC 
15 And ZE 4 Then
                TXtone 
= (4620 35) / 100.ToString
            ElseIf ZC 
15 And ZE 5 Then
                TXtone 
= (4720 35) / 100.ToString
            ElseIf ZC 
16 And ZE 1 Then
                TXtone 
= (4820 35) / 100.ToString
            ElseIf ZC 
16 And ZE 2 Then
                TXtone 
= (4920 35) / 100.ToString
            ElseIf ZC 
16 And ZE 3 Then
                TXtone 
= (5020 35) / 100.ToString
            ElseIf ZC 
16 And ZE 4 Then
                TXtone 
= (5120 35) / 100.ToString
            ElseIf ZC 
16 And ZE 5 Then
                TXtone 
= (5220 35) / 100.ToString
            ElseIf ZC 
17 And ZE 1 Then
                TXtone 
= (5340 35) / 100.ToString
            ElseIf ZC 
17 And ZE 2 Then
                TXtone 
= (5450 35) / 100.ToString
            ElseIf ZC 
17 And ZE 3 Then
                TXtone 
= (5560 35) / 100.ToString
            ElseIf ZC 
17 And ZE 4 Then
                TXtone 
= (5690 35) / 100.ToString
            ElseIf ZC 
17 And ZE 5 Then
                TXtone 
= (5810 35) / 100.ToString
            ElseIf ZC 
18 And ZE 1 Then
                TXtone 
= (5930 35) / 100.ToString
            ElseIf ZC 
18 And ZE 2 Then
                TXtone 
= (6060 35) / 100.ToString
            ElseIf ZC 
18 And ZE 3 Then
                TXtone 
= (6190 35) / 100.ToString
            ElseIf ZC 
18 And ZE 4 Then
                TXtone 
= (6320 35) / 100.ToString
            ElseIf ZC 
18 And ZE 5 Then
                TXtone 
= (6450 35) / 100.ToString
            ElseIf ZC 
19 And ZE 1 Then
                TXtone 
= (6580 35) / 100.ToString
            ElseIf ZC 
19 And ZE 2 Then
                TXtone 
= (6720 35) / 100.ToString
            ElseIf ZC 
19 And ZE 3 Then
                TXtone 
= (6860 35) / 100.ToString
            ElseIf ZC 
19 And ZE 4 Then
                TXtone 
= (7000 35) / 100.ToString
            ElseIf ZC 
19 And ZE 5 Then
                TXtone 
= (7140 35) / 100.ToString
            ElseIf ZC 
20 And ZE 1 Then
                TXtone 
= (7300 35) / 100.ToString
            ElseIf ZC 
20 And ZE 2 Then
                TXtone 
= (7460 35) / 100.ToString
            ElseIf ZC 
20 And ZE 3 Then
                TXtone 
= (7620 35) / 100.ToString
            ElseIf ZC 
20 And ZE 4 Then
                TXtone 
= (7780 35) / 100.ToString
            ElseIf ZC 
20 And ZE 5 Then
                TXtone 
= (7940 35) / 100.ToString
            ElseIf ZC 
And ZE 0 Then
                TXtone 
0.ToString
            End 
If
 
       Catch ex As Exception
        End 
Try
 
   End Sub 
الرد
تم الشكر بواسطة: العزابي
#3
يمكن اختصار أكثر من ذلك
PHP كود :
Function GetTone(ZC As IntegerZE As Integer) As Double
    If 
(ZC Or ZC 20) Or (ZE Or ZE 5Then Return 0

    Dim arr
(,) As Integer = {
 
       {15001520154000}, {15601580160000}, {16201640166000}, {16801700174500},
 
       {17901850191000}, {19702040210000}, {21702240230000}, {23802460253000},
 
       {26102700278000}, {28502920299030600}, {30703130319032500}, {33203380345035300},
 
       {35403640373038300}, {39204000408041604240}, {43404430452046204720}, {48204920502051205220},
 
       {53405450556056905810}, {59306060619063206450}, {65806720686070007140}, {73007460762077807940}
 
   }

 
   Dim tone As Double = (arr((ZC 1), (ZE 1)) * 35) / 100

    Return tone

End 
Function 
الرد
تم الشكر بواسطة: العزابي , العزابي
#4
بارك الله فيكم علي الردود
ولكن على ما أضن أن رد الأخ عبد الله في GetTone
ليس بلغة vb net
الرد
تم الشكر بواسطة:
#5
(17-04-17, 11:51 AM)ahmedfa71 كتب : بارك الله فيكم علي الردود
ولكن على ما أضن أن رد الأخ عبد الله في GetTone
ليس بلغة vb net

كود الاخ عبد الله صحيح وبلغة vb.net ، ولكن السطر لم يكفي عندما قام بنسخ الكود الى الرد

على العموم اذا اضفنا _ الى نهاية كل سطر ستحل المشكلة
كود :
    Function GetTone(ByVal ZC As Integer, ByVal ZE As Integer) As Double
        If (ZC < 1 Or ZC > 20) Or (ZE < 1 Or ZE > 5) Then Return 0

        Dim arr(,) As Integer = { _
          {1500, 1520, 1540, 0, 0}, {1560, 1580, 1600, 0, 0}, {1620, 1640, 1660, 0, 0}, {1680, 1700, 1745, 0, 0}, _
            {1790, 1850, 1910, 0, 0}, {1970, 2040, 2100, 0, 0}, {2170, 2240, 2300, 0, 0}, {2380, 2460, 2530, 0, 0}, _
            {2610, 2700, 2780, 0, 0}, {2850, 2920, 2990, 3060, 0}, {3070, 3130, 3190, 3250, 0}, _
            {3320, 3380, 3450, 3530, 0}, {3540, 3640, 3730, 3830, 0}, {3920, 4000, 4080, 4160, 4240}, _
            {4340, 4430, 4520, 4620, 4720}, {4820, 4920, 5020, 5120, 5220}, {5340, 5450, 5560, 5690, 5810}, _
            {5930, 6060, 6190, 6320, 6450}, {6580, 6720, 6860, 7000, 7140}, {7300, 7460, 7620, 7780, 7940}}

        Dim tone As Double = (arr((ZC - 1), (ZE - 1)) * 35) / 100

        Return tone

    End Function
الرد
تم الشكر بواسطة: العزابي , العزابي , عبـدالله
#6
بالإضافة للكود الذي كتبه لك الأخوة الأفاضل
هذا حل أخر ......

PHP كود :
   Private Function CalculateTone(key As Integerindex As Integer) As Double
        
' لو ان البيانات المراد قرائتها مهمة
        ' 
من الأفضل قراءة هذه البيانات من ملف
        
' بحيث أن الأرقام لا تظهر داخل الكود الخاص بك
        Dim bucket As Dictionary(Of Integer, Integer()) = New Dictionary(Of Integer, Integer())() From {
            {1, {1500, 1520, 1540, 0, 0}},
            {2, {1560, 1580, 1600, 0, 0}},
            {3, {1620, 1640, 1660, 0, 0}},
            {4, {1680, 1700, 1745, 0, 0}},
            {5, {1790, 1850, 1910, 0, 0}},
            {6, {1970, 2040, 2100, 0, 0}},
            {7, {2170, 2240, 2300, 0, 0}},
            {8, {2380, 2460, 2530, 0, 0}},
            {9, {2610, 2700, 2780, 0, 0}},
            {10, {2850, 2920, 2990, 3060, 0}},
            {11, {3070, 3130, 3190, 3250, 0}},
            {12, {3320, 3380, 3450, 3530, 0}},
            {13, {3540, 3640, 3730, 3830, 0}},
            {14, {3920, 4000, 4080, 4160, 4240}},
            {15, {4340, 4430, 4520, 4620, 4720}},
            {16, {4820, 4920, 5020, 5120, 5220}},
            {17, {5340, 5450, 5560, 5690, 5810}},
            {18, {5930, 6060, 6190, 6320, 6450}},
            {19, {6580, 6720, 6860, 7000, 7140}},
            {20, {7300, 7460, 7620, 7780, 7940}}}

        Dim tones As Integer() = Nothing
        bucket.TryGetValue(CInt(Math.Truncate(If(key > 20, 20, (If(key < 1, 1, key))))), tones)
        Dim tone As Integer = tones(CInt(Math.Truncate(If(index > 4, 4, (If(index < 0, 0, index))))))
        Return tone * 35 / 100

    End Function 

الاستخدام
ملحوظة الدالة سوف تعود بقيمة مهما كانت المدخلات لأنني قمت بعمل Clamp لكل من Key و Index
PHP كود :
Dim tone As Double CalculateTone(20
الرد
تم الشكر بواسطة:
#7
بارك الله في كل الإخوة على الردود المفيدة
الكود الذي كتبته في بداية المشاركتي شغال 
لدي في الفورم 2 كومبوبوكس 
وتيكست بوكس 1
PHP كود :
Dim ZCZE As Integer
ZC 
Integer.Parse(CboZCAT.Text)
 
           ZE Integer.Parse(CBoze.Text

عند التغيير في قيمة الكومبوبوكس الأول CboZCAT.Text والثاني CBoze.Text حسب العملية الحسابية
تظهر النتيجة في التكست بوكس Txtone.text
ولذلك أن جربت كود الأخ عبد الله بعد تعديله قمت بتجربته لكن لم تظهر القيمة في التكست بوكس
وبارك الله لكل الإخوة على الردود
أشكر صبركم معي والسلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة:
#8
لا تقم بالتعديل على الدالة،
PHP كود :
Txtone.text=GetTone(Val(CboZCAT.Text),Val(CBoze.Text)) 
الرد
تم الشكر بواسطة:
#9
بارك الله فيك أخي عبدالله
دالة شغالة
شكرا جزيلا لك
تقبل تحياتي
الرد
تم الشكر بواسطة: عبـدالله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحكم فى لون خلفية الازرار من خلال الكود nabil.1710 6 473 03-05-22, 09:53 PM
آخر رد: nabil.1710
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 536 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  [كود] مساعدة في حل مشكل هذا الكود Necro PC 3 493 01-02-22, 01:12 PM
آخر رد: Necro PC
Brick [VB.NET] اختصار الكود EMADSS 1 376 12-01-22, 12:52 AM
آخر رد: أبو خالد الشكري
  رغم تنشيط Devexpress لكن مع تشغيل الكود يعطى هذه الرسالة shrarf_eg 2 439 28-12-21, 03:21 AM
آخر رد: DR.YASER
  ما هو الخطأ في هذا الكود haithammoftah 0 325 19-12-21, 09:29 PM
آخر رد: haithammoftah
  اريد عمل استعلام الكود يعمل على SQL server اريد يعمل على vb.net new_programer 17 1,249 17-12-21, 04:41 AM
آخر رد: new_programer
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 698 30-11-21, 07:37 AM
آخر رد: E100
  اريد تعديل الكود ليعمل على صف فى داتا جريد new_programer 14 1,397 30-11-21, 07:26 AM
آخر رد: E100
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 0 408 29-11-21, 06:53 PM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم