pomoc...hitno VB

[sub3r]

Braco...trebam vasu pomoc....imam zadatak iz accessa..vezano je za VB
Zadatak glasi ovako:

Kreirati formu i proceduru koja ce po pokretanju ispisati vase ime kao naziv forme.
Na formi kreirati text box u koji ce se unositi vrijednost izrazena u Dolarima
a nakon toga da se automatski tu vrijednost pretvori u Euro u novoj labeli.

Nisam bio u skoli vec neki duzi period u skoli zato sto sam slomio kljucnu kost...a profesorica je ne daj boze nikom,,,kaze da sam ja kuci mogao vjezbati...treba mi sto prije
ako mozete mi pomoci molim vas..ili makar neke upute kako i sta

hvala

[brainzor]

A sta ovde ima veze sa Accessom ???

[voodoo_]

Možda rade u Accessu koristeći VBA...

[sub3r]

Jeste...radimo u VBA

[sub3r]

Uradio sam..hvala na vasoj pomoci.......LOL
ovako ide

Private Sub Form1_Load()
Me.Caption = "Moje ime"

End Sub

Private Sub Text1_Enter()
Text2 = Text1 * 1.576

End Sub

[Eris]

Da ne otvaram novu temu....
Ovako treba mi mala pomoc, U prvom textboxu stoji cifra (npr. 1000) kada ispisete u drugi textbox neki broj (npr 3) treba da izbaci rezultat (*)(po primeru je 3000), e sad to sam uradio ali kada u drugom textboxu obrisem cifru tako da textbox bude prazan iskoci mi error zato sto nemoze da mnozi 1000 i prazan textbox... Pa ako imate vremena i volje a vi odgovorite nije hitno...

[pyost]

Pre nego sto pokusas da mnozis, postavi jedan IF koji ce da provera da li je textbox prazan. Ukoliko nije (ili ako je ono upisano u njemu validan broj), onda moze da se mnozi - u suprotnom se nista ne desava.

[Geomaster]

Možeš da uradiš nešto ovako:

Public Sub Command1_Click()
     If Text1.Text="" Or Text2.Text="" Then
          MsgBox "Neko od polja je prazno. Molimo unesite cifre u oba polja", vbExclamation, "Greška"
          Exit Sub
     End If

     Label1.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

To će uraditi isto što je i pyost rekao, ali posle provere se množe brojevne vrednosti TextBox-ova, tj. čak iako u TextBox-u imaš npr. 12REFsdfadh itd, Val funkcija će vratiti samo 12 i množenje će biti odrađeno. Ovo doprinosi fleksibilnosti programa jer se i pored neke greške u kucanju množenje izvršava bez problema.

[sub3r]

A samo da pitam..jeli moguce napraviti U VBA da kad se otvori forma da se mjenja background color....koji je code za to

private sub Form1_Load()
i sta dalje.......

[Geomaster]

Naravno...

Imaš 2 varijante. Ako znaš da koristiš RGB kolorni sistem (crvena, zelena, plava) onda ideš ovako:

Public Sub Form_Load()
Me.BackColor = RGB(intenzitet crvene(0-255), intenzitet zelene(0-255), intenzitet plave(0-255)
End Sub

Ukoliko ne znaš da koristiš RGB, to uradi ovako:

Uđi u Paint,
Idi na Colors->Edit Colors,
Klikni na dugme Define Custom Colors,
Zatim odaberi boju (pojaviće ti se color picker sa desne strane) ili klikni na neku već definisanu,
Pogledaj vrednosti Red, Green, Blue na dnu color picker-a i njih unesi kao intenzitet crvene, zelene i plave u kodu koji sam ti dao.

Naravno prethodni kod možeš koristiti u bilo kojoj proceduri, npr. Timer, click CommandButton-a itd.

P.S
<offtopic>
Jedna stvar koja mi se dopala je disco efekat:
Napravi timer,
Dodeli mu interval 100
U njegov kod ukucaj:

Sub Timer1_Timer()
Randomize

Me.BackColor=Rnd * vbWhite
End Sub

Dobićeš disco efekat... Čisto ovako kao "dodatna informacija"
</offtopic>