Duomenų kodavimas - dekodavimas 4 Laboratorinis darbas

4-am Laboratoriniui darbui realizuoti pasirinkau Visual Basic 6.0 programavimo kalbą nes antrame kurse mes mokinomės šia kalbą ir man pasirodė tinkamiausia atlikti dėstytojo nurodytai užduočiai, renkantis iš objektinio programavimo kalbų.
Sukurta šifravimo sistema pateikta dėstytojui, kartu su šia ataskaita
Programos vaizdai
Pav 1 Programos printscreenas
Pav 2 Programos failai
Pav 3 Programos dalis kodo
Programos kodas
Dim a As String ‘Išskiriama nustatyta vieta tam tikram kintamajam
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Dim k As String
Dim l As String
Dim m As String
Dim n As String
Dim o As String
Dim p As String
Dim q As String
Dim r As String
Dim s As String
Dim t As String
Dim u As String
Dim v As String
Dim w As String
Dim x As String
Dim y As String
Dim z As String
Private Sub Command1_Click()‘ Apsirasomas pirmojo mygtūko „šifruoti“ kodas
a = "a" ‘a raidei priskiriama a reikšmė
b = "b"
c = "c"
d = "d"
e = "e"
f = "f"
g = "g"
h = "h"
i = "i"
j = "j"
k = "k"
l = "l"
m = "m"
n = "n"
o = "o"
p = "p"
q = "q"
r = "r"
s = "s"
t = "t"
u = "u"
v = "v"
w = "w"
x = "x"
y = "y"
z = "z"
Text2.Text = Text1.Text ‘ Text2 laukeliui su tekstu priskyriamas įvestas text1 laukelio tekstas
Text2.Text = Replace(Text2, a, "1") ‘Text2 laukeliui pakeiciama a reikšmė į 1 ir analogiškai padaroma su kitomis raidėmis.
Text2.Text = Replace(Text2, b, "2")
Text2.Text = Replace(Text2, c, "3")
Text2.Text = Replace(Text2, d, "4")
Text2.Text = Replace(Text2, e, "5")
Text2.Text = Replace(Text2, f, "6")
Text2.Text = Replace(Text2, g, "7")
Text2.Text = Replace(Text2, h, "8")
Text2.Text = Replace(Text2, i, "9")
Text2.Text = Replace(Text2, j, "/")
Text2.Text = Replace(Text2, k,...

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!