تقييم الموضوع :
  • 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
بارك الله فيك أخي عبدالله
دالة شغالة
شكرا جزيلا لك
تقبل تحياتي
الرد }}}
تم الشكر بواسطة: عبـدالله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

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


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