Avko 21.04.2015 16:43
Predmet:kako poslati sadrzaj textbox-a u funkciju

[img][/img]

na slici se vidi da imam 6xText.box i 3xtipke. Tipke su kodiranje,dekodiranje i izlaz
u modulu imamo funkcije za:
kodiranje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function kodiranje(sText)
  2.     Dim abData() As Byte
  3.     Dim i As Long
  4.     Dim Str As String
  5.     abData = StrConv(sText, vbFromUnicode)
  6.     For i = 0 To UBound(abData)
  7.         Str = Str & Hex(abData(i))
  8.     Next
  9.     sText = Str
  10. End Function

i dekodiranje:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function dekodiranje(sText)
  2.     Dim abData() As Byte
  3.     Dim i As Long
  4.     Dim Str as String
  5.     Str = sText
  6.     Str = StrConv(abData, vbUnicode)
  7.     sText = Str
  8. End Function

u formi imam ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub cmdKodiranje_Click()
  2.     Dim sText As String
  3.    
  4.     sText = Text1.Box
  5.     Call dekodiranje(sText)
  6.     Text2.Text = sText
  7.    
  8.     sText = Text3.Box
  9.     Call dekodiranje(sText)
  10.     Text4.Text = sText
  11.    
  12.     sText = Text5.Box
  13.     Call dekodiranje(sText)
  14.     Text6.Text = sText
  15. End Sub
Moj kod u varijablu sText stavlja vrijednost odgovarajuceg TextBox-a, poziva funkciju (kodiranje) i zatim vracenu vrijednost stavlja u odgovarajuci TextBox.
Htio bi smanjiti kod programa, a i nauciti nesto o slanju podataka iz TextBox-a u funkciju.

PITANJE:
Da li je moguce pritiskom na tipku (kodiranje) proslijediti funkciji (kodiranje) vrijednosti TextBox 1,3,5, a ona automatski vrati ispis u TextBox-ove 2,4,6 ili to nije moguce pa cu i dalje koristiti ovaj svoj kod
hmmm? malo sam isprobavao sa function(sText as TextBox) ali nisam uspio.
Ne znam dali sam dobro objasnio?

Gjoreski 21.04.2015 18:51
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

Pa ne ti treba da go kompliciras kodot sto poednostavno to popregledno.
Naravno da mozes od funkcija da gi napolnis text boxovite no togas pak moras da stavis nekoj uslov po koj funkcijata ke znae koja vrednost vo koe pole da ja vrati bidejki ova e univerzalna funkcija.
mozes i vaka :

Private Sub cmdKodiranje_Click()
Text2.Text = dekodiranje(Text1.Text)
Text4.Text = dekodiranje(Text3.Text)
Text6.Text = dekodiranje(Text5.Text)
End Sub

Avko 22.04.2015 09:21
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

to sam juce prvo napravio i nije radilo, iz nekog razloga ne izvrsi kodiranje.
al dobro nema veze. Necu komplicirati. Radi, to je bitno. Hvala.

Gjoreski 22.04.2015 13:59
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

ok odna probaj vaka

Text2.Text = dekodiranje(Cstr(Text1.Text))

zxz 23.04.2015 13:22
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

Citat:
Uglavnom ako netko naleti tko zna manje od mene dobro ce mu doci.
Ovo je dobro receno.
Nego ja imam neko moje razmisljanje o ovome pa cu se nadodati.
Ukoliko imas bazu a vjerovatno bi imao ako se radi o nekim podacima, onda bi to islo malo drugacije.
Morao bi upisivati sirove pdatke da tako nazovem te ih pri upisu u bazu sifrovati ili kodirati.
Prilikom iscitavanja iz baze morao bi tepodatke dekodirati.
To ljudi znaju cesto raditi jer je iz baze lako iscitati podatke a ovako bi bilo dosta teze.

Avko 24.04.2015 14:53
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

hvala na misljenju.
to cu i napraviti. kodiracu web linkove u hex oblik (svako slovo ascii u hex) i spremiti u fajl tako da se nemoze sa notepadom pregledati fajl i otkriti koji su to linkovi. Program napisan u vb6 ce korititi taj fajl za linkove. recimo link za skidanje nekih datoteka itd. Svi linkovi su spremljeni kao binarni podaci pa se nemogu niti ucitati ako neznamo koliko je podataka spremljeno recimo
PreuzmiIzvorni kôd (Visual Basic):
  1. type podaci
  2.        link1
  3.        link2
  4.        obavijest
  5.        razlog
  6.        pass
  7. end type
i cemu to sluzi, mozda se pitate? e pa nicemu igram se đems bonda u slobodno vrijeme i gubim dane. Eto, dakle razbibriga i ucenje vb6 Laughing

Avko 23.04.2015 12:34
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

nece. Hvala nemoj se vise truditi. Radicu po starom.

jedino ispravak za dekodiranje. Ono gore ne radi. Ispravno je ovo:

PreuzmiIzvorni kôd (Visual Basic):
  1. Function dekodiranje(sText)
  2.     Dim i As Long
  3.     Dim Str As String
  4.     For i = 1 To Len(sText) Step 2
  5.         Str = Str & Chr("&H" & Mid(sText, i, 2))
  6.     Next i
  7.     sText = Str
  8. End Function

jbg, kada sam isprobavao nije radilo pa sam morao promijeniti.
Narod bi rekao: "Ispeci pa reci" tako sam i ja trebao sve prvo isprobati pa staviti na forum.
Uglavnom ako netko naleti tko zna manje od mene dobro ce mu doci.

zxz 24.04.2015 15:32
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

type podaci
link1
link2
obavijest
razlog
pass
end type
Vise varijabli u jednoj grupi. U ci c++ se to zve struktura.
E sad ako hopces i primjer kako se to koristi ja cu napraviti primjer.

Gjoreski 24.04.2015 17:22
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

Ova igrajne e dobro no jas razmisluvam malku razlicito odnosno moeto prasajne e :

Kako da napravime baza na podatoci so kriptirani podatoci?

Nesto sto ne mi vleguva vo glava a toa e kako ke pravime funkcii , querija i stor proceduri so kriptirani podatoci vo bazata.

Avko 28.04.2015 10:39
Predmet:Re: kako poslati sadrzaj textbox-a u funkciju

Citiraj zxz:

Vise varijabli u jednoj grupi. U ci c++ se to zve struktura.
E sad ako hopces i primjer kako se to koristi ja cu napraviti primjer.
netreba, hvala.
samo evo jedno pitanje. Ako imamo binarni zapis recimo tel.imenik. Dali bi bilo brze ako cijeli zapis prebacimo na pocetku u matricu pa pretrazujemo matricu velicine recimo dim matrica(500,12,35) ili je isto. Jos me zanima dali se sa sqlstr "select" koristi samo kod otvaranja mdb (access) fajla ili se to moze koristiti i kod otvorenog binarnog fajla. recimo open fajl for binary ... pa onda mozemo sql upotrebiti.
mozda su pitanja glupa i pokazuju da onaj koji to pita pojma nema o strukturi podataka ali rekao bi narod: nema glupih pitanja ima samo glupih odgovora. Grinning

Citiraj Gjoreski:
Kako da napravime baza na podatoci so kriptirani podatoci?
pa rekao je zxz (a ne zizi , otkrio sam da imamo i registriranog ziz-ja), a koliko sam ja razumio i kako cu ja napraviti. napravis editor koji kriptira podatke i sprema u fajl. Otvaranjem toga fajla u recimo notepadu ili nekom drugom editoru dobijes kriptirane , necitljive podatke. Onda napravis program u vb i on kod ucitavanja fajla dekriptira te podatke i valjda ih spremi u memoriju RAM, mozda u matricu pa ih obradujes. Ako zelis spremiti te podatke opet u fajl moras imati proceduru koja kriptuje pa onda kriptirano spremis u taj isti fajl. Tako sam ja to razumio. Kriptirano je samo u fajlu snimljenom na disk a vb program to dekriptuje i pretrazuje, ispisuje ili vec sta drugo.
recimo imamo instalirane tel.imenike na racunalima korisnika , a baze telefonskih brojeva i podataka smjestene na internet. Baze su kriptirane i ako ih netko skine nemoze nista sa njima no oni koji imaju program tel.imenik instaliran na racunalu oni mogu citati te datoteke jer se u programu nalazi dekriptor. zanimljivo je sve to. Program moze skinuti i pass za dekripciju, a u samom programu nalazi se kljuc koji se razlikuje od korisnika do korisnika. Skidanjem baze sa interneta na lokalno racunalo korisnik skida i zabranu koristenja. Za odredeni licencni kljuc moze biti show off meni pa tako blokiramo nekoga korisnika za kojega sumnjamo da je djelio program. Blokiramo sve programe sa tim kljucem i onemogucimo im uvid u bazu. Slanjem local IP i IP spajanja mozemo otkriti i lokaciju toga korisnika i onih kojima je dao program, jer program salje podatke licencni kljuc, ip local i ip adresa na mail i onda vidimo iz kojih sve dijelova svijeta odredeni licencni kljuc koristi bazu podataka. Nemoguce je da isti licencni kljuc koristi u razmaku 1-2 sekunde bazu sa dve strane svijeta. Eto tako , idem se ja igrati sa vb6. Ovo postaje sve zanimljivije. Kupio sam jos jednu knjigu Laughing uglavnom unutra pise sve sto pise i u mojim koje sam imao samo je autor drugi Disappointed