<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Option Explicit
Dim kodDek As Boolean 'dimenzioniranje kodDek logicke varijable kao boolen na globalnoj razini

Private Sub Command1_Click()
    Dim f As Integer
        
    'prolazak kroz sve textbox uz pomoc Controls
    'imamo 4 textbox-a f=1 to 4, broj=f
    'izabiremo ih uz pomoc Me.Controls("ImeKontrole" & Cstr(broj).text)="ono sto zelimo ispisati"
    For f = 1 To 4
        'ovisno dali je kodDek True ili False
        If kodDek = True Then
            'poziva funkciju kodiranjeDekodiranje i rezultat vraca u isti textbox
            Me.Controls("Text" & CStr(f)).text = kodiranjeDekodiranje(Me.Controls("Text" & CStr(f)).text)
        Else
            'poziva funkciju kodiranjeDekodiranje i rezultat vraca u isti textbox
            Me.Controls("Text" & CStr(f)).text = kodiranjeDekodiranje(Me.Controls("Text" & CStr(f)).text)
        End If
    Next f
    'okrecemo logicku varijablu ako je kodDek = False onda je kodDek= True i obrnuto
    If kodDek = False Then
        kodDek = True
    Else
        kodDek = False
    End If
End Sub

Function kodiranjeDekodiranje(sText)
    'dimenzioniranje varijabli koje koriste oba uvjeta
    'sText je varijabla na globalnoj razini koju smo poslali u funkciju
    Dim i As Long
    Dim Str As String
    If kodDek = True Then
        Command1.Caption = "KODIRANJE" 'zamjena ispisa na tasteru
        For i = 1 To Len(sText) Step 2
            Str = Str & Chr("&H" & Mid(sText, i, 2))
        Next i
    Else
        Dim abData() As Byte 'dimenzioniranje varijable koju koristi samo ovaj uvijet
        Command1.Caption = "DEKODIRANJE" 'zamjena ispisa na tasteru
        abData = StrConv(sText, vbFromUnicode)
        For i = 0 To UBound(abData)
            Str = Str & Hex(abData(i))
        Next
    End If
    'vracanje vri