درخواست آموزش

[babyy]

اون مقدار رو از بالا هرچی هست میریزه داخل Label
ممنون اصلا متوجه نشدم الان تو خواب و بیداری دارم مینویسم ببخشید و ممنون

خوب شما اون تایع رو کجا صدا زدی ؟؟

[Tender]

میگم دیگه الان من چشمام داره میره متوجه نشدم اشتباهم کجا بوده ممنون که اشتباهمو گفتی

[Tender]

اینم هست ولی مشکل داره اگه میشه اشتباهاتش رو بگید

  Test 3.rar (اندازه: 1.55 KB / تعداد دفعات دریافت: 50)

[babyy]

روش کار با تابع اشتباست ؛
label رو تو تابعی که هدفش برگردوندن مقدار هست ، مقدار ندید ؛
-------
یا اینکه اگه مقدار دادید ، زیر برنامه بنویسید(sub) استفاده کنید ، مثل این :

کد php:

Private Sub Coding(txt As String)
intlen = Len(txt)
For i = 1 To intlen
    strmid = Mid(txt, i, 1)
    strascii = Asc(Mid(txt, i, 1))
        Select Case strascii
            Case 48 To 57
                a = Int(strmid) Mod 2
                    If a = 0 Then
                        Label1.Caption = Int(strmid) + 2
                    ElseIf a = 1 Then
                        Label1.Caption = (Int(strmid) Mod 2) + 1
                    End If
            Case 65 To 90
                Label1.Caption = strmid & "2"
            Case 97 To 122
                Label1.Caption = txt 'in ghesmat ro ham komak konid
        End Select
Next i
End Sub

Private Sub Command1_Click()
Coding Text1.Text
End Sub 


[Tender]

کد:

Private Sub Coding(txt As String)
intlen = Len(txt)
For i = 1 To intlen
strmid = Mid(txt, i, 1)
strascii = Asc(Mid(txt, i, 1))
Select Case strascii
Case 48 To 57
a = Int(strmid) Mod 2
If a = 0 Then
Label1.Caption = Label1.Caption & Int(strmid) + 2
ElseIf a = 1 Then
Label1.Caption = Label1.Caption & (Int(strmid) Mod 2) + 1
End If
Case 65 To 90
Label1.Caption = Label1.Caption & strmid & "2"
Case 97 To 122
Label1.Caption = txt 'in ghesmat ro ham komak konid
End Select
Next i
End Sub

Private Sub Command1_Click()
Coding (Text1.Text)
End Sub

ولی اینم کامل کار نمی کنه من گفتم کاراکتر به کاراکتر چک کنه هر چی بود عملیاتش رو انجام بده بچسبونه ادامه ی متن های قبلی ولی این این کارو نمیکنه

[babyy]

من گفتم کاراکتر به کاراکتر چک کنه هر چی بود عملیاتش رو انجام بده بچسبونه ادامه ی متن های قبلی

کی گفتین ؟؟
-------

کد:

Private Function Coding(txt As String) As String
intlen = Len(txt)
For i = 1 To intlen
strmid = Mid(txt, i, 1)
strascii = Asc(Mid(txt, i, 1))
Select Case strascii
Case 48 To 57
a = Int(strmid) Mod 2
If a = 0 Then
a1 = Int(strmid) + 2
ElseIf a = 1 Then
a1 = (Int(strmid) Mod 2) + 1
End If
Case 65 To 90
a1 = strmid & "2"
Case 97 To 122
a1 = strascii + 5 'in ghesmat ro ham komak konid
End Select
a2 = a2 & a1
Next i
Coding = a2
End Function

Private Sub Command1_Click()
Label1.Caption = Coding(Text1.Text)
End Sub