ايران ويج

صفحه‌ها: 1 2

(۱۴-آذر-۱۳۸۸, ۰۲:۳۵:۰۴)Tender نوشته است: [ -> ]اون مقدار رو از بالا هرچی هست میریزه داخل Label
ممنون اصلا متوجه نشدم الان تو خواب و بیداری دارم مینویسم ببخشید و ممنون

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

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

اینم هست ولی مشکل داره اگه میشه اشتباهاتش رو بگید
[attachment=4257]

روش کار با تابع اشتباست ؛
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 

کد: 
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

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

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

کی گفتین ؟؟ Biggrin

-------

کد: 
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

صفحه‌ها: 1 2

babyy

Tender

Tender

babyy

Tender

babyy