Potrebna pomoc u vezi VB

[ Rivaldo1 @ 27.05.2008. 16:04 ] @

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.

[ goranvuc @ 27.05.2008. 16:29 ] @

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

[ Rivaldo1 @ 27.05.2008. 16:52 ] @

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.

[ goranvuc @ 27.05.2008. 16:57 ] @

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?

[ Aleksandar Vasic @ 27.05.2008. 17:30 ] @

Izgleda ne.....

[ goranvuc @ 27.05.2008. 17:32 ] @

A izgleda da ti profesori ne posecuju ES i slicne sajtove

[ Srđan Pavlović @ 13.06.2008. 19:46 ] @

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 :)

[ Rivaldo1 @ 21.06.2008. 19:06 ] @

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]}

[ Eurora3D Team @ 21.06.2008. 21:12 ] @

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

[ rgdrajko @ 22.06.2008. 00:39 ] @

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.

[ BackSpaceR @ 15.07.2008. 09:47 ] @

Ovo mi lici kao kad je moja zena sela prvi put za racunar u zivotu i kad me pitala "KAKO DA SAD PROGRAMIRAM U VB!?" LOL