Centar za edukaciju-BiH


Stranice (2):1,2

#1 07.09.2010 03:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Proba koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DeleteAllFiles(ByVal FolderSpec As String) _
  2. As Boolean
  3.  
  4.  
  5. 'EXAMPLE: DeleteAllFiles "C:\Test"
  6.  
  7. Dim oFs As New FileSystemObject
  8. Dim oFolder As Folder
  9. Dim oFile As File
  10.  
  11.  
  12. If oFs.FolderExists(FolderSpec) Then
  13. Set oFolder = oFs.GetFolder(FolderSpec)
  14. On Error Resume Next
  15. For Each oFile In oFolder.Files
  16. oFile.Delete True 'setting force to true
  17. 'deletes read-only file
  18. Next
  19. DeleteAllFiles = oFolder.Files.Count = 0
  20. End If
  21.  
  22. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 19.10.2010 02:15 od strane zxz. ↑  ↓

#2 26.09.2010 13:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
Kod: Označi sve
PreuzmiIzvorni kôd (PHP):
  1. < ?
  2. ? >
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  4. <html xmlns="http://www.w3.org/1999/xhtml">
  5. <head>
  6. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
  7. <title> Untitled </title>
  8. </head>
  9.  
  10. <body>
  11. < ?

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 19.10.2010 02:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Izmijeni(ImeTabele As String, ZnakUBazi _
  2. As String, Zamjena As String) As Variant
  3. '*******************************************
  4. 'Ime:      Izmijeni   (Function)
  5. 'Sadržaj: Promjena znaka ~ u slovo 
  6. 'Autor:     ZXZ
  7. 'Datum:      09 06, 2010, 09:54:46
  8. 'Adresa: Tuzla BiH
  9. 'Email:     zxz@icentar.ba
  10. 'Ulazni parametri:Ime tabele,Znak koji '
  11. 'treba mijenjati i znak u koji se mijenja
  12. 'Izlazni parametri:Nema
  13. 'Microsoft dao 3.1-Referenca
  14. '*******************************************
  15. Dim Db As Database
  16. Dim Rs As Recordset
  17. Dim Podatak As String
  18. Dim I As Integer
  19. Dim n As Integer
  20. Dim Promjena As Boolean
  21.  
  22.  
  23.  
  24. 'On Error GoTo Greska
  25. Set Db = CurrentDb()
  26. Set Rs = Db.OpenRecordset(ImeTabele)
  27. Do While Not Rs.EOF
  28.   For I = 0 To Rs.Fields.Count - 1
  29.   If Format$(Rs.Fields(I)) <> "" Then
  30.   Podatak = Rs.Fields(I).Value
  31.   Else
  32.   Podatak = ""
  33.   End If
  34.       For n = 1 To Len(Podatak)
  35.         If Mid(Podatak, n, 1) = ZnakUBazi Then
  36.         Mid(Podatak, n) = Zamjena
  37.         Rs.Edit
  38.         Rs.Fields(I).Value = Podatak
  39.         Promjena = True
  40.         End If
  41.       Next n
  42.    Podatak = ""
  43.   Next I
  44.  
  45. If Promjena = True Then
  46. Promjena = False
  47. Rs.Update
  48. End If
  49. Rs.MoveNext
  50. Loop
  51. Izlaz:
  52. Exit Function
  53. Greska:
  54. 'GreskaB (Err.Number)
  55. Resume Izlaz
  56. Kraj:
  57. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 29.06.2015 11:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
Proba internet explorer 11
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 29.06.2015 11:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
Neki se zale da ne radi odgovor na temu u IE.
Ja probao Ie 11 i win 8.1 i kod mene radi.
E sad ako ima kod koga neka kombinacija da ne radi neka napise.
Neka napisu i oni koji imaju IE bez obzira radi li neka probaju ovdje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 29.06.2015 15:32
mirsadz Van mreze
Administrator
Registrovan od:26.05.2011
Postovi:48


Predmet:Re: Proba koda
Proba test internet explorer WIN7
↑  ↓

#7 09.10.2015 23:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
Dodatna napomena autora:
kasnije dodano.
Nisam nikada ovo probao

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 09.10.2015 23:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
definicija
obrazlozenje

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 19.11.2016 00:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
PreuzmiIzvorni kôd (PHP):
  1. < ?
  2.  
  3.  
  4. ? >
  5.  
  6. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  7.  
  8. <html xmlns="http://www.w3.org/1999/xhtml">
  9.  
  10. <head>
  11.  
  12. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
  13.  
  14. <title> Untitled </title>
  15.  
  16. </head>
  17.  
  18.  
  19.  
  20. <body>
  21.  
  22. < ?

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 03.06.2017 10:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Proba koda
PreuzmiIzvorni kôd (Javascript):
  1. <HTML>
  2. <HEAD>
  3. <BODY>
  4. <DIV id=Zittertext
  5. style="FONT-WEIGHT: bold; FONT-SIZE: 25pt; FILTER: Wave(freq=5, light=0, phase=8, strength=1); WIDTH: 100%; COLOR: red">
  6.   <p align="center"><font color="#000000">
  7.   <span style="background-color: #FFFF00">Posjetite icentar</span></font></DIV>
  8. <SCRIPT language=JavaScript>
  9. <!--
  10. function DynWave()
  11. {
  12.   if(document.all.Zittertext.filters[0].freq > 130)
  13.      document.all.Zittertext.filters[0].freq = 15;
  14.   document.all.Zittertext.filters[0].freq += 1;
  15.   if(document.all.Zittertext.filters[0].phase > 50)
  16.      document.all.Zittertext.filters[0].phase = 1;
  17.  document.all.Zittertext.filters[0].phase += 1;
  18.   if(document.all.Zittertext.filters[0].strength > 1)
  19.      document.all.Zittertext.filters[0].strength = .1;
  20.   document.all.Zittertext.filters[0].strength += 1;
  21.   window.setTimeout("DynWave()",100);
  22. }
  23. DynWave();
  24. </SCRIPT>
  25. </BODY>
  26. </HTML>

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 4: 54 pm.