VB Problemi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

da nesmarm puno iako sam smor evo pitanja...

1 - Tajmer

Napravio sam mali programcic koji na svaku sekundu menja slike,odnosno jedne sekunde je jedna a druge naravno druga slika.I sve to lepo radi.
Nerazumem zasto moram da postavljam uslove tipa if timer1 = 1000 then bla bla bla ili bilo koju drugu komanu vezanu za tajmer stim, sto ako tajmer postavim recimo na interval 10000 pomenuti uslov ili komande takodje moraju da slede tu vrednost.
Ja sam mislio da postavim vrednost intervala na 10000 tako da postavim uslov ili bilo sta drugo a da se slika menja na 5 sek ali to neradi!!! Odnosno slika se nemenja, konstantno stoji jedna te ista po isteku
vremenskog inervala.Zasto???

2 - Font size, Font style, Font color

Kako da u kodu koji pisem promenim pomenute vrednost.
Pokusavao sam sa nesto.fontstyle ili nesto.font.size i njima slicnim ali neznam kako se izvode ove akrobacije.
Konkretno mislim na tekst koji se nalazi u labelama.

3 - Kreiranje objekata i klasa

Da li neko moze i hoce da mi objasni nacin upotrbe klasa uz jednostavan primer.
Nemislite da sam lenj procitao sam sve sto posedujem od literature (nekoliko puta) ali tu je sve uglavnom suva teorija sa nekim slabasnim primerima.
Pokupio sam takodje nekoliko primera sa neta ali uzalud, moja ocekivanja resavanja pomenutog (pomenutih) problema su mrtvo slovo na papiru.

Iskreno se nadam da vas nism suvise smorio....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

1 - pojasni malo bolje, kakvi uslovi? Ne razumem sta je tu problem? Postavis Timer1.Interval=5000 (za 5 sec) i onda samo koristis Timer event:
Private Sub Timer1_Timer()  'kod za promenu slike End Sub
nema potrebe da proveravas u Timer1_Timer() koliki je interval tajmera.

2
Label1.FontBold = True Label1.FontName = "Arial" Label1.FontStrikethru = True Label1.FontSize = Label1.FontSize + 10 '...

3 - klase spadaju u oop (object oriented programming) mada dosad nisam sreo ni jednu knjigu u kojoj je to lepo objasnjeno.
Dakle, klase koristis kada ti treba neki objekat sa posebnim funkcijama, karakteristikama. Recimo, ja trenutno pravim igru u kojoj sam lopticu uradio kao klasu. Razlog zasto sam to radio preko klase je:
-istovremeno ce moci da se nalayi vise loptica na ekranu (pravim klon arkanoida)
-u svakom frejmu pozivam Ball(i).Animate, funkciju koja se nalazi u klasi i sluzi da animira lopticu ako je to potrebno (razliciti stilovi)
-itd, itd

evo ti jedan najbanalniji primer (mislim da si takve sretao u knjigama :p):
napravis ovakvu klasu (nazovi je clsDog)
Option Explicit Public Event Barking() Private m_age As Long Private m_name As String Public Property Let Name (s AS String)   m_name = s End Property Public Property Get Name As String  Name= m_name End Property Public Property Let Age (a As Long)   m_age = a End Property Public Property Get Age As Long  Age= m_age End Property Public Sub Bark()  RaiseEvent Barking  MSgBox "Woof! Woof!",,m_name End Sub
pa onda, recimo u formi, pises ovaj kod:
Private WithEvents Scuby As New clsDog Private Sub Form_Load()  Scuby.Name="Scuby Do" ':)  Scuby.Age=8 End Sub Private Sub Command1_Click()  Scuby.Bark End Sub Private Sub Scuby_Barking()  Debug.Print "Scuby is barking right now" End Sub

primer jeste mozda malo glup, ali ja sam uz pomoc jednog takvog primera (cini mi se da je bila macka :p) savladao rad sa klasama a kasnije i oop koji me je veoma zainteresovao...

p.s. evo sad sam zavrsio neku klasu sto sam pisao veceras, pa pogledaj mozda ti bude jasnije: [url=https://www.mycity.rs/must-login.png (18.6 KB)[/url]