Fazaeli
سه شنبه 14 شهریور 1385, 06:35 صبح
ایراد این ماژول چیست که عمل نمیکند
Public Function G(ByVal SPH As Single, ByVal CYL As Single) As String
Dim GSPH As Single
Dim GCYL As Single
Dim A As Single
Select Case Abs(SPH)
Case Is <= 2
GSPH = 2
Case Is <= 4
GSPH = 4
Case Is <= 6
GSPH = 6
Case Is <= 8
GSPH = 8
Case Is <= 10
GSPH = 10
Case Is <= 12
GSPH = 12
Case Is <= 14
GSPH = 14
Case Is <= 16
GSPH = 16
Case Is <= 18
GSPH = 18
Case Is <= 20
GSPH = 20
Case Is <= 22
GSPH = 22
Case Is <= 24
GSPH = 24
Case Is <= 26
GSPH = 26
Case Is <= 28
GSPH = 28
Case Is <= 30
GSPH = 30
Case Is <= 32
GSPH = 32
Case Is <= 34
GSPH = 34
Case Is <= 36
GSPH = 36
Case Is <= 38
GSPH = 38
Case Is <= 40
GSPH = 40
End Select
Select Case Abs(CYL)
Case Is <= 2
GCYL = 2
Case Is <= 4
GCYL = 4
Case Is <= 6
GCYL = 6
Case Is <= 8
GCYL = 8
Case Is <= 10
GCYL = 10
Case Is <= 12
GCYL = 12
Case Is <= 14
GCYL = 14
Case Is <= 16
GCYL = 16
Case Is <= 18
GCYL = 18
Case Is <= 20
GCYL = 20
Case Is <= 22
GCYL = 22
Case Is <= 24
GCYL = 24
Case Is <= 26
GCYL = 26
Case Is <= 28
GCYL = 28
Case Is <= 30
GCYL = 30
Case Is <= 32
GCYL = 32
Case Is <= 34
GCYL = 34
Case Is <= 36
GCYL = 36
Case Is <= 38
GCYL = 38
Case Is <= 40
GCYL = 40
End Select
If SPH = 0 And CYL = 0 Then
A = 2
Else
If SPH <> 0 And CYL = 0 Then
A = GSPH
Else
A = GSPH + "/" + GCYL
End If
End If
G = A
End Function
چون بصورت جدا جدا عمل میکند مثل زیر:
Public Function P(ByVal SPH As Single) As String
Dim GSPH As Single
Select Case Abs(SPH)
Case Is <= 2
GSPH = 2
Case Is <= 4
GSPH = 4
Case Is <= 6
GSPH = 6
Case Is <= 8
GSPH = 8
Case Is <= 10
GSPH = 10
Case Is <= 12
GSPH = 12
Case Is <= 14
GSPH = 14
Case Is <= 16
GSPH = 16
Case Is <= 18
GSPH = 18
Case Is <= 20
GSPH = 20
Case Is <= 22
GSPH = 22
Case Is <= 24
GSPH = 24
Case Is <= 26
GSPH = 26
Case Is <= 28
GSPH = 28
Case Is <= 30
GSPH = 30
Case Is <= 32
GSPH = 32
Case Is <= 34
GSPH = 34
Case Is <= 36
GSPH = 36
Case Is <= 38
GSPH = 38
Case Is <= 40
GSPH = 40
End Select
P = GSPH
End Function
باتشکر
فضائلی
Public Function G(ByVal SPH As Single, ByVal CYL As Single) As String
Dim GSPH As Single
Dim GCYL As Single
Dim A As Single
Select Case Abs(SPH)
Case Is <= 2
GSPH = 2
Case Is <= 4
GSPH = 4
Case Is <= 6
GSPH = 6
Case Is <= 8
GSPH = 8
Case Is <= 10
GSPH = 10
Case Is <= 12
GSPH = 12
Case Is <= 14
GSPH = 14
Case Is <= 16
GSPH = 16
Case Is <= 18
GSPH = 18
Case Is <= 20
GSPH = 20
Case Is <= 22
GSPH = 22
Case Is <= 24
GSPH = 24
Case Is <= 26
GSPH = 26
Case Is <= 28
GSPH = 28
Case Is <= 30
GSPH = 30
Case Is <= 32
GSPH = 32
Case Is <= 34
GSPH = 34
Case Is <= 36
GSPH = 36
Case Is <= 38
GSPH = 38
Case Is <= 40
GSPH = 40
End Select
Select Case Abs(CYL)
Case Is <= 2
GCYL = 2
Case Is <= 4
GCYL = 4
Case Is <= 6
GCYL = 6
Case Is <= 8
GCYL = 8
Case Is <= 10
GCYL = 10
Case Is <= 12
GCYL = 12
Case Is <= 14
GCYL = 14
Case Is <= 16
GCYL = 16
Case Is <= 18
GCYL = 18
Case Is <= 20
GCYL = 20
Case Is <= 22
GCYL = 22
Case Is <= 24
GCYL = 24
Case Is <= 26
GCYL = 26
Case Is <= 28
GCYL = 28
Case Is <= 30
GCYL = 30
Case Is <= 32
GCYL = 32
Case Is <= 34
GCYL = 34
Case Is <= 36
GCYL = 36
Case Is <= 38
GCYL = 38
Case Is <= 40
GCYL = 40
End Select
If SPH = 0 And CYL = 0 Then
A = 2
Else
If SPH <> 0 And CYL = 0 Then
A = GSPH
Else
A = GSPH + "/" + GCYL
End If
End If
G = A
End Function
چون بصورت جدا جدا عمل میکند مثل زیر:
Public Function P(ByVal SPH As Single) As String
Dim GSPH As Single
Select Case Abs(SPH)
Case Is <= 2
GSPH = 2
Case Is <= 4
GSPH = 4
Case Is <= 6
GSPH = 6
Case Is <= 8
GSPH = 8
Case Is <= 10
GSPH = 10
Case Is <= 12
GSPH = 12
Case Is <= 14
GSPH = 14
Case Is <= 16
GSPH = 16
Case Is <= 18
GSPH = 18
Case Is <= 20
GSPH = 20
Case Is <= 22
GSPH = 22
Case Is <= 24
GSPH = 24
Case Is <= 26
GSPH = 26
Case Is <= 28
GSPH = 28
Case Is <= 30
GSPH = 30
Case Is <= 32
GSPH = 32
Case Is <= 34
GSPH = 34
Case Is <= 36
GSPH = 36
Case Is <= 38
GSPH = 38
Case Is <= 40
GSPH = 40
End Select
P = GSPH
End Function
باتشکر
فضائلی