[es] - Potrebna pomoc u vezi VB

Rivaldo1

Član broj: 167163
Poruke: 86
85.94.121.*

+2 Profil

^{27.05.2008. u 16:04 - pre 193 meseci}

Trebam za dva dana da uradim u Visuak Basicu 6 analogni sat. Medjutim imam jedan problem - prije 5 dana mi se ostetio racunar i trenutno je na popravku. Na njemu sam imao instaliran VB 6 i poceo sam bio da radim analogni sat. Trenutno se javljam sa pozajmljenog lap topa i potrebna mi je pomoc- dali bi neko mogao da mi uradi analogni sat do sjutra i posalje mi sve na PM.

P.S nadam se da ce mi neko pomoci. Za toga koji mi pomogne poslacu mu putem moneybookersa 5-10 eura.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: Potrebna pomoc u vezi VB

^{27.05.2008. u 16:29 - pre 193 meseci}

Pa kada bi koristio Google verovatno bi ustedeo dosta para (inace, tako "providan" razlog kao sto si naveo: ostetio mi se racunar jos nisam video)

Evo ti jedan primer, a ti ga modifikuj kada ti poprave racunar

http://www.codetoad.com/vb_clock.asp

Odgovor na temu

Rivaldo1

Član broj: 167163
Poruke: 86
77.222.3.*

+2 Profil

Re: Potrebna pomoc u vezi VB

^{27.05.2008. u 16:52 - pre 193 meseci}

Citat:

goranvuc: Pa kada bi koristio Google verovatno bi ustedeo dosta para (inace, tako "providan" razlog kao sto si naveo: ostetio mi se racunar jos nisam video)

Evo ti jedan primer, a ti ga modifikuj kada ti poprave racunar ;) http://www.codetoad.com/vb_clock.asp

[quote]goranvuc

To nije providan razlog, na racunaru koji je na popravci imam instaliran VB 6, a na lap topu koji sam pozajmio nemam instaliran VB - tako da ne mogu nista na njemu raditi. Zato sam i trazio to jer nemam koristi nikakve od toga sto cu nesto skinuti na netu a necu stici da odradim izmjene do sjutra.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: Potrebna pomoc u vezi VB

^{27.05.2008. u 16:57 - pre 193 meseci}

Izvini prijatelju ako je stvarno tako. Meni onda nije jasno kako ti mislis da predas zadatak koji ne mozes ni da vidis i pokrenes?

Dao sam ti link na primer gde samo treba malo da se skloni komentar, promeni pozadina i slika autora iz Indije (valjda) i izgledace skoro kao da si ti uradio. Ono sto meni nije jasno je kako ti i tebi slicni koji dodju da im se uradi zadatak posle odbrane taj isti zadatak kada nemaju pojma o cemu se tu radi? Dakle, sta ovim postizete, zar vam profesori ne traze objasnjenje?

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

Re: Potrebna pomoc u vezi VB

^{27.05.2008. u 17:30 - pre 193 meseci}

Izgleda ne.....

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
91.150.99.*

+41 Profil

Re: Potrebna pomoc u vezi VB

^{27.05.2008. u 17:32 - pre 193 meseci}

A izgleda da ti profesori ne posecuju ES i slicne sajtove

Odgovor na temu

Srđan Pavlović
Specijalna Edukacija i Rehabilitacija MNRO
Vojvodina, Bačka Palanka

Član broj: 139340
Poruke: 5571
93.86.29.*

Sajt: www.oligofrenolog.com

+382 Profil

Re: Potrebna pomoc u vezi VB

^{13.06.2008. u 19:46 - pre 192 meseci}

Citat:

Jel stavio neko vec u bisere ili ne?

Inace, sad malo svratih onako slucajno u VB podforum, pa covece, ovde je svaka druga tema krajnje neozbiljna :)

oligofrenolog

Odgovor na temu

Rivaldo1

Član broj: 167163
Poruke: 86
77.222.1.*

+2 Profil

Re: Potrebna pomoc u vezi VB

^{21.06.2008. u 19:06 - pre 192 meseci}

Potrebna mi je pomoc u vezi ovog koda

Code:

Option Explicit
Const T As Double = 57.29577951

Private Sub Form_Load()
Me.Height = 2048
Me.Width = 2048
End Sub

Private Sub Form_Resize()
Me.ScaleHeight = 100
Me.ScaleWidth = 100
End Sub

Private Sub Timer1_Timer()
Dim H As Long, M As Long, S As Long                     'time units
Dim Hd As Double, Md As Double, Sd As Double            'Degrees
Dim Hr As Double, Mr As Double, Sr As Double            'Radians

Me.Cls
H = Hour(Time): M = Minute(Time): S = Second(Time)

If H >= 12 Then H = H - 12

Hd = H * 30
Hd = Hd + M / 2
Md = M * 6
Sd = S * 6

Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90

If Hd < 0 Then Hd = Hd + 360
If Md < 0 Then Md = Md + 360
If Sd < 0 Then Sd = Sd + 360

Hr = Hd / T: Mr = Md / T: Sr = Sd / T

Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed

End Sub

Sta oznacava Me.? Sta znaci Me.Cls?

Kako bi mi neko najlakse objasnio znacenje ovog koda
If H >= 12 Then H = H - 12

Hd = H * 30
Hd = Hd + M / 2
Md = M * 6
Sd = S * 6

Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90

If Hd < 0 Then Hd = Hd + 360
If Md < 0 Then Md = Md + 360
If Sd < 0 Then Sd = Sd + 360

Hr = Hd / T: Mr = Md / T: Sr = Sd / T

Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed

I na kraju - kako da ubacim sliku sata?

_{[Ovu poruku je menjao Aleksandar Ružičić dana 22.06.2008. u 01:34 GMT+1]}

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.112.*

+7 Profil

Re: Potrebna pomoc u vezi VB

^{21.06.2008. u 21:12 - pre 192 meseci}

Ovaj kod popunjava prve tri promenljive trenutim vrednostima sistemskog vremena (sat, minut i sekunda) i racuna uglove (u ostalim promenljivim) sa polozaj skazaljki.
Line funkcija crta linije u razlicitim bojama (polazna - krajnja tacka u koordinatnom sistemu forme) koje pretstavljaju skazaljke sata.
Me u kodu VB forme oznacava tu formu a Me.Cls brise formu (ako je nesto nacrtano na njoj).
Ovaj kod se izvodi u Timer eventu (ciji je interval ponavljanja 1 sec. ,mada se to iz koda nevidi, ali je logicno).
Da dodas sliku, otvori Formu u grafickom modu i u properties podesi Picture forme na neku sliku (sata bez skazaljki) koju si napravio.
Stavi AutoRedraw forme na True ... isto, napravi sliku u velicini forme da nebi morao da prepravljas kod.
poz

HomePage http://www.eurora3d.com

Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*

+3 Profil

Re: Potrebna pomoc u vezi VB

^{22.06.2008. u 00:39 - pre 192 meseci}

Pa delom su ti objasnili ovde a ja sam dopunio i na My City gde si takodje postavio isto pitanje:
Evo, na brzinu:

Option Explicit= komanda oznacava da svaka varijabla mora biti deklarisana
Const = konstanta, koja ne menja vrednost kao virijabla
Private Sub= privatna subrutina
Form_Load() = dogadjaj forme, pri ucitavanju
Height = visina
Width =sirina
End Sub =kraj subrutine
Form_Resize=dogadjaj forme pri promeni velicine forme
Timer1_Timer=dogadjaj kontrole timer(sat) pri promeni zadatog intervala vremena
Me=aktivna forma
Me.Cls=brisanje aktivne forme
Hour, Minute, Second=komande koje daju sat, minut i sekundu
time=komanda za tekuce vreme(npr: 10:42:45)
line=metoda (formeu ovom slucaju) za crtanje linije

Sliku ces na formu dodati ovako:
Klikni na prazno mesto u formi, pa u prozoru Properties klikni na Picture pa kada se pojave tri tacke klikni na tri tacke i nakon toga odaberi sliku.

rgdrajko

Odgovor na temu