سیما

[jojoba2010]

تقدیم به سیما تابع مورد نظر

Public Function changeNum(ByVal Number As Double) As Double
    Dim numDouble As Double
    Dim num As String
    Dim TestArray() As String = Split(Number.ToString(), ".")
    num = TestArray(1) + "." + TestArray(0)
    numDouble = CDbl(num)
    Return numDouble
End Function

روش فراخوانی

Dim testnum As Double = changeNum(12.5)

[Lost User]

گلم خودم بنويسم يا پيش فرض هستpublic function

[jojoba2010]

این را فقط کپی کن

[Lost User]

گلم خط چهارم رو خطا ميگيره داخل فرم برنامه چيزي نمي خواد بنويسم

[jojoba2010]

Public Class Form1
    Public Function changeNum(ByVal Number As Double) As Double
        Dim numDouble As Double
        Dim num As String
        Dim TestArray() As String = Split(Number.ToString(), ".")
        num = TestArray(1) + "." + TestArray(0)
        numDouble = CDbl(num)
        Return numDouble
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim testnum As Double = changeNum(12.5)
    End Sub
End Class

[jojoba2010]

حل شد

[Lost User]

گلم همه اينا رو ولش كن فقط عكستو تو ميلم بفرست كه بد جوري تو كفم گذاشتي

[Mohammad Dayyan]

Translate: It is solved.

[Mohammad Dayyan]

Translate : Sweety forget them, just mail your photograph , I'm looking forward to see your photograph.

[Mohammad Dayyan]

Translate: Honey , The error has occurred on line four. Doesn't need to write something in App's form ?

[Mohammad Dayyan]

Translate : Just copy this one.