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 vrijednosti Str u samu funkciju kodiranjeDekodiranje kodiranjeDekodiranje = Str End Function Private Sub Command3_Click() Unload Me End Sub