Centar za edukaciju-BiH


Stranice (4):1,2,3,4

#11 19.05.2015 16:47
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Eve i za megu zagradite

PreuzmiIzvorni kôd (Visual Basic):
  1. Function DioStr(Dio As Integer, Str As String, Karakter As String) As String
  2. Dim Pozicija1, Pozicija2, Brojac
  3. '***************************************************************************
  4. 'FUNKCIJA ZA SJECENJE STRINGA KADA JE POZNAT
  5. 'KARAKTER IZMEDJU KOJEG SE SIJECE STRING
  6. 'Autor funkcije(ZXZ)
  7. '***************************************************************************
  8. On Error GoTo Greska:
  9. Pozicija2 = 1
  10. If Right(Str, 1) <> Karakter Then 'Ako je desni karakter razlicit tada
  11. Str = Trim(Str) & Karakter 'Dodaj karakter na kraj
  12. End If 'Kraj uslova
  13.  
  14. 'POZICIJA IZMEDJU DVA KARAKTERA
  15. For Brojac = 1 To Dio
  16. Pozicija1 = InStr(Pozicija2, Str, Karakter, 1)
  17. If Brojac < Dio Then
  18. Pozicija2 = Pozicija1 + 1
  19. If Pozicija1 = 0 Then GoTo Upozorenje
  20. End If
  21. Next Brojac
  22. 'DIO STRINGA IZMEDJU DVIJE POZICIJE
  23. DioStr = Mid(Str, Pozicija2, Pozicija1 - Pozicija2)
  24. Exit Function
  25. Greska:
  26. If Err.Number = 5 Then
  27. Upozorenje:
  28. Beep
  29. MsgBox "Áàðàâòå äåë êî¼ íå ïîñòîè!!!!", vbCritical + vbOKOnly + _
  30.         vbDefaultButton1, "Íàïîìåíà!!!"
  31. Else
  32. MsgBox "Greska Br: " & Err.Number, vbCritical + vbOKOnly + _
  33.         vbDefaultButton1, "Napomena!!!"
  34. End If
  35. End Function
  36.  
↑  ↓

#12 19.05.2015 17:02
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Hvala. Mozes li malo objasniti drugu funkciju.
Pozdrav, Amela
↑  ↓

#13 19.05.2015 17:34
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas se izvinuvam ovaa funkcija DioStr e za secejne na stringot pomegu dva isti karakteri a vo slucajov kaj tebe se dva razlicni .
eve ti druga funkcija koja vadi broj od string ovaa ke ti zavrsi rabota

PreuzmiIzvorni kôd (Visual Basic):
  1. Function GetNumbers(Value As String) As String
  2. Dim Index As Long
  3. Dim Final As String
  4.  
  5.   For Index = 1 To Len(Value)
  6.     If Mid(Value, Index, 1) Like "[0-9]" Then
  7.       Final = Final & Mid(Value, Index, 1)
  8.     End If
  9.   Next
  10.  
  11.   GetNumbers = Final
  12. End Function


MsgBox GetNumbers("odlièan (5)")
↑  ↓

#14 19.05.2015 18:12
Div Van mreze
Clan
Registrovan od:01.11.2007
Postovi:22


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Nije problem iz stringa, "vrlo dobar, (4)" izdvojiti slovni deo i numerički deo, može se za to napraviti funkcija koja će na samom izveÅ¡taju, svedodžbi ispisivati slovni deo i numerički a da argument ulazni podatak bude uneti string.
Ponoviću, podaci nisu dobro organizovani, međutim, ako su već uneti, ako je problem samo u razdvajanju broja od opisa ocene, onda je, verovatno, brže primeniti funkciju i zavrÅ¡iti posao, barem jednokratno. Ukoliko tek treba da se unose podaci, da se prave forme i izveÅ¡taji, mislim da je brže reorganizovati podatke.
To neka odluči Amela, a dobro bi bilo čuti nekog od majstora za Access.
Ja ću svejedno pokuÅ¡ati da uradim bazu kako mislim da treba, može valjati za neku drugu priliku ako ne za ovu.
Krećem u rad, javiću se ako mi zatrebaju dodatne informacije i kad budem imao neÅ¡to konkretno.
↑  ↓

#15 19.05.2015 18:20
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas mislam deka ne treba da se pravi baza bidejki Amelasar veke ima baza nea sega samo i treba kako ovie podatoci sto najverovatno se vneseni da gi exportira na izvestaj.
Pocekaj na konsultacii so Amelasar da ne si go trosis vremeto badijala.
↑  ↓

#16 19.05.2015 19:01
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Bilo bi dobro sve odraditi profesionalnije. Ja sam ovo na brzinu rijesila, forme sam napravila za unos, sad jos samo izvjestaj. Ove dvije funkcije od Gjoreski odvojice mi slovni i numericki dio za izvjestaj.
Podaci se tek trebaju unositi.

Hvala.
Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 19.05.2015 19:03 od strane Amelasar. ↑  ↓

#17 19.05.2015 19:14
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Citiraj Amelasar:
Bilo bi dobro sve odraditi profesionalnije.
?

Ti vikas deka formi za vnes na podatoci si napravila i baza isto e, sega jas ne razbiram dali sakas da prodolzis so tvojava baza i da se doraboti programot ili treba sve na novo da se pravi.

Ako treba sve na novo togas treba da se postavat zadaci sto sve treba da ima programot i da se pocni so rabota.
So ogled deka e kraj na skolskata godina dali ke se ima dovolno vreme za sve da se pravi na novo ?
↑  ↓

#18 19.05.2015 19:25
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:262


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Program ne treba da sadrzi nista posebno.

Evidencija ucenika.
Unos ocjena za svjedocanstvo (jedan razred) i ispis istog.
Unos ocjena za uvjerenje (VI,VII i VIII razred) i ispis istog.
Pretraga za naknadni ispis po djelovodnom broju ili JMBG.
Mozda poslije neke statisticki izvjestaji.
Bilo bi dobro login forma sa dozvolama tako da razrednik ima pristupa samo svojim ucenicima.

Ovo sto sam ja napravila moze da posluzi. Izvjestaje kad zavrsim mogu se iskoristiti
i u novom programu. Podaci se mogu importovati i u drugacije organizovanu bazu.
Pozdrav, Amela
↑  ↓

#19 20.05.2015 11:54
Div Van mreze
Clan
Registrovan od:01.11.2007
Postovi:22


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
PokuÅ¡avam da uradim bazu za bođenje evidencije o ocenama učenika i izdavanje svedočanstava i uverenja. Već sam naučio da nikada u startu ne kažem da je neÅ¡to lako ili teÅ¡ko, da to ostavim z akraj. Tako nisam ni juče komentarisao težinu zadatka. Uspeo sam da osmislim nekakav model koji može obaviti posao, mislim na model organizacije podataka. Unos podataka, printanje, izrada izveÅ¡taja, mora da potraje malo duže, ne bi stiglo na vreme. Svakako, nastavljam sa radom, već sam imao u planu da neÅ¡to tako uradim.
@Amela, ukoliko želiÅ¡ da nastaviÅ¡ onako kako si krenula, razmisli o tome da ne unosiÅ¡ celokupni tekst ocene, "vrlo dobar, (4)" već samo brojčanu vrednost a da jednom funkcijom Select Case, svakom broju dodeliÅ¡ i tekstualni iskaz, misli+m da ****lje i brže nego da se unosi string pa razdvaja na dva dela.
↑  ↓

#20 20.05.2015 12:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Ne znam kako e kaj vas ama kaj nas vo MK postoi veke Elektronski dnevnik na nivo na Drzava koj go vodi Ministerstvoto za obrazovanie e sega ne znamkolku e dobro da se potrosi mnogu vreme za nesto sto se menuva sekoja godina odnosno se menuva nastavniot program i fondot na casovi taka sto ovaj program sekoja godina bi trpel golemi izmeni ,a dokolku postoi EDnevnik i kaj vas ova e samo oteznuvajne na rabotata na profesorite za vnes na odceni i podatoci bidejki treba da se vnesuvaat na 3 mesta vo fizicki dnevnik,zadolzitelniot Ednevnik i ovaj sto ke se napravi.
Taka da dokolku se pravi ovaj program treba da se razmisluva za negovata dinamika odnosno parametrite da moze da se zadavaat na pocetok na godina i toa da bide brzo i da moze da go napravi samiot korisnik.
Isto treba da se razmisli i za dinamicen izgled na sveditestvoto i uverenieto za pogolema fleksibilnost.
↑  ↓

Stranice (4):1,2,3,4


Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 44 am.