Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Program za rad sa web kamerom

[es] :: Visual Basic 6 :: Program za rad sa web kamerom

[ Pregleda: 5096 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Program za rad sa web kamerom28.01.2008. u 21:33 - pre 197 meseci
Pozdrav svima

Ja sam se tek registrovao pa da kazem par reci o forumu: Forum vam je super (barem VB posto stalno to gledam) ja odavno znam za ovaj forum i uvek sam sve nasao sto mi je trebalo, ali sad nisam :-(

Moj problem je sledeci: Skinuo sam sa jednog Francuskog web sajta jedan projekat sto komunicira sa web kamerom znaci ima opcije: Snimanje slika(to mi nije bitno), snimanja u avi format(e ovo mi je naj bitnije)... i sad oni su postavili jednu poruku koja veoma iritira kada kliknem na snimi( ne znam francuski ali to je drugo dugme ) mozete videti u fajlu original sto sam dodao. I ja sam se tu njakao jedno 3 sata i nasao de su je zavukli okacio sam primer i tu bez poruke, e sad nebi bilo zanimljivo da je tu kraj... trebao bi napraviti kada kliknem na snimi da on snima ovako: 1 put da ime fajlu "video1" drugi put "video2" i tako dokle moze "video1000" ja satim hocu da kad kliknem na snimi da on ne presnimava video preko videa ve da su svi razliciti. Ja znam za onu funkciju
Code:
for i = 1 to 1000 
ali nesto nemogu da je iskoristim :-( Zamolio bih nekoga ako je voljan da mi pomogne da objavi neki kod za ovaj moj slucaj ili da u nekom od dole primera malo pogleda i prepravi.
Havala unapred!



[Ovu poruku je menjao Dacex dana 29.01.2008. u 21:39 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

Monte12
Ibro Brkanovic
TobaccoSpress doo Podgorica
Bar Montenegro

Član broj: 130266
Poruke: 89
*.crnagora.net.



+1 Profil

icon Re: Program za rad sa web kamerom28.01.2008. u 21:39 - pre 197 meseci
Procitaj pravila foruma kodvi su zabranjeni!
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom28.01.2008. u 21:48 - pre 197 meseci
procitao sam gde sam pogresio??

[Ovu poruku je menjao Dacex dana 28.01.2008. u 23:44 GMT+1]
 
Odgovor na temu

Monte12
Ibro Brkanovic
TobaccoSpress doo Podgorica
Bar Montenegro

Član broj: 130266
Poruke: 89
*.crnagora.net.



+1 Profil

icon Re: Program za rad sa web kamerom28.01.2008. u 22:08 - pre 197 meseci
OK dobro je kad si vidijo pozz.
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom29.01.2008. u 20:40 - pre 197 meseci
Ajte ljudi jel ima neko nesto??
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Program za rad sa web kamerom29.01.2008. u 21:35 - pre 197 meseci
Mozes da zapamtis u neki externi fajl do kojeg broja je program stigao,ili da napravis ako fajl pod tim imenom postoji,da stavi neko drugo ime...
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom29.01.2008. u 23:37 - pre 197 meseci
Code:
With CMD                                    'avec la boite de dialogue
    .DialogTitle = "Sauvegarder sous"       'le titre de la boite est "...
    .CancelError = False
    .Filter = "Fichiers AVI |*.avi|"        'on spécifie le types de fichiers et sa designation
    .FilterIndex = 1                        'le nombre max de fichier a selectionnes
    .InitDir = "C:\"                        'la premiere direction
    .Filename = ""                          'le nom par defaut
    .ShowSave                               'on affiche la boite
End With


If CMD.Filename <> "" Then Filename = CMD.Filename Else Filename = "c:\video.avi"                  'la variable est egale au nom choisi dans la boite

ovaj kod sluzi za snimanje e sad ja sam mislio da to napravim tako sto bi bila jedan if koji bi proveravao dali u folderu ima zapis pod imenom "video1" ako ima on ce dodati jedan pa ce biti "video2" ...... To mi je veliki problem :-( jel mi neko moze pomoci oko ovog??
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Program za rad sa web kamerom30.01.2008. u 12:47 - pre 197 meseci
imas u FSO komandu FileExist,nju iskoristi,e sad kako ces menjanje imena to smisli nesto ;)
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom30.01.2008. u 19:38 - pre 197 meseci
Jel moze neko upustvo?
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Program za rad sa web kamerom30.01.2008. u 22:49 - pre 197 meseci
Project > Refereneces > Microsoft Scripting Runtime stiklirash

Code:
Dim fso As New FileSystemObject
If fso.FileExists("X:\nekifajl.ext") Then MsgBox "Fajl postoji"


pa ti izmeni kako ti odgovara
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom31.01.2008. u 10:03 - pre 197 meseci
E hvala bas cu sada probati
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom31.01.2008. u 10:27 - pre 197 meseci
Evo radi :-)
samo gad ovaj kod ukucam
Code:
Dim fso As New FileSystemObject
If fso.FileExists("X:\nekifajl.ext") Then MsgBox "Fajl postoji"
else
msgbox "fajl ne postoji" 
end if


U deburgu mi izmaci gresku, zasto??
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Program za rad sa web kamerom31.01.2008. u 12:55 - pre 197 meseci
zato sto si trebao da spustis dole prvi msgbox jer ti se sa njim zavrsava komada If ako je u istom redu... uradish ovako

Code:
Dim fso As New FileSystemObject
If fso.FileExists("X:\nekifajl.ext") Then 
MsgBox "Fajl postoji"
Else
MsgBox "Fajl ne postoji" 
End If

 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom31.01.2008. u 18:50 - pre 197 meseci
Ala sam glupav :-)
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom31.01.2008. u 20:36 - pre 197 meseci
Code:
Dim i
For i = 1 To 1000

If CMD.Filename <> "" Then Filename = CMD.Filename + (i) Else Filename = "c:\video.avi"

evo neki kod za snimanje pod razlicita imena, ali deburg kaze da to ne moze tako :-( kako onda????
 
Odgovor na temu

galahad
Slobodan Todorov
Radio-televizija Vojvodine,
Jack-Of-All-IT-Trades, Web redakcija
Novi Sad

Član broj: 20613
Poruke: 146
*.adsl-2.sezampro.yu.

Jabber: galahad@elitesecurity.org
ICQ: 52020296
Sajt: www.todorowww.net


+4 Profil

icon Re: Program za rad sa web kamerom01.02.2008. u 10:29 - pre 197 meseci
Code:

Dim i
For i = 1 To 1000

If CMD.Filename <> "" Then Filename = CMD.Filename + (i) Else Filename = "c:\video.avi"

Ovo ti nish' ne valja... For petlja mora da ima i Next deo, a ti si ga izostavio... Pravilno bi bilo:
Code:

Dim i
For i = 1 To 1000

If CMD.Filename <> "" Then Filename = CMD.Filename + (i) Else Filename = "c:\video.avi"

Next i

Opet, ne mozhesh da dodajesh broj stringu, odnosno, deo CMD.Filename + (i) tje prouzrokovati type mismatch greshku... Pravilno bi bilo:
Code:

For i = 1 To 1000

If CMD.Filename <> "" Then Filename = CMD.Filename + CStr(i) Else Filename = "c:\video.avi"

Next i

E sad, ovako je ispravan kod, ali tje uraditi sledetje: 1000 puta tje da proveri da li je CMD.Filename <> "", pa ako jeste, promenljivoj Filename tje dodeliti CMD.Filename + vrednost i pretvorena u string, a ako nije 1000 puta tje promenljivu Filename postaviti na vrednost "c:\video.avi".

I kad odradi petlju do kraja, Filename bi imala ili vrednost CMD.Filename + "1000" ili "c:\video.avi"... A to ti ne treba...

Ako hotjesh da svaki put snimi sa drugachijim imenom, pokushaj neshto ovako (Ovaj kod nije testiran, moratjesh proveriti, i mozhda neshto malo izmeniti):
Code:

Filename = "C:\Video.avi"
For i = 1 to 1000
  If Dir("C:\Video" & Padd(i,4) & ".avi") = "" Then
    Filename = "C:\Video" & Padd(i,4) & ".avi"
    Exit for
  End If
Next i

Funkcija Dir je ugradjena u VB i pomotju nje mozhesh da proverish postojanje odredjenog fajla, nema potrebe za korishtjenjem FSO, samo se povetjava distribucija, i stvara zavisnost of MS Scripting biblioteke... Dobra je praksa shto vishe smanjiti zavisnost programa od drugih biblioteka...

Ovaj primer gore, tje da prodje petlju 1000 puta, i da pogleda da li postoji fajl Video####.avi, ako nema, postavlja Filename na odgovarajutje ime, i izlazi iz petlje. Ukoliko petlja dodje do kraja, odnosno postoji 1000 Video####.avi fajlova, Filename ostaje "C:\Video.Avi". Naravno, ovo mozhe da ide na neogranicheni broj, odnosno, da se koristi Do...Loop petlja, sa counterom koji se povetjava u svakom prolazu...

Funkcija Padd je funkcija koju sam ja napisao, da kad mi treba leading ili trailing 0, ne moram svaki put da kuckam kod:
Code:

Public Function Padd(ByVal Num As Long, ByVal Count As Long, Optional ByVal Trailing As Byte = 0) As String
Dim sNum As String

sNum = Trim(CStr(Num))

If Trailing = 0 Then ' Ovde upada ako 0 idu ispred texta
  Padd = String(Count, "0") & sNum
Else ' Ovde upada ako 0 idu iza texta
  Padd = sNum & String(Count, "0")
End If
End Function


Eto, nadam se da je ovo pomoglo...
- SKRati link - JaZaKraljevo.rs -

"I have never let my schooling interfere with my education." - Mark Twain
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom01.02.2008. u 10:39 - pre 197 meseci
Hvala ti care!!! idem sad probati, pa javim.
 
Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.eunet.yu.



Profil

icon Re: Program za rad sa web kamerom01.02.2008. u 11:07 - pre 197 meseci
Care hvala!!!!!!!!!!!! Program radi besprekorno samo sam bio dodao ono dim i i nista vise radi savrseno.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Program za rad sa web kamerom

[ Pregleda: 5096 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.