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
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,...
Šį darbą sudaro 711 žodžiai, tikrai rasi tai, ko ieškai!
Nuolat dirbame, kad pagerintume visų mūsų turimų mokslo darbų kokybę, todėl informuojame, jog šis rašto darbas buvo patikrintas savo srities specialisto, todėl galite būti užtikrinti dėl šio darbo kokybės.
Norint atsisiųsti šį darbą spausk ☞ Peržiūrėti darbą mygtuką!
Šis mokslo darbas pasitarnaus tau kaip puikus pavyzdys siekiant aukščiausio pažymio!
Mūsų mokslo darbų bazėje yra daugybė įvairių mokslo darbų, todėl tikrai atrasi sau tinkamą!
Panašūs darbai
Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.
Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.
Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!