pomoc perspektivnom programeru (-:

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

Radio sam neki program u VB6 . Neki prosti retard Calc. Imam jedan mali probelm.
U interfejsu imama 3 edita X,Y i rezu
Dole dugmice sa opicjama deli , mnozi , saberi , oduzmi . (X sa Y)
1.Sve radi super dok ne pokusam da delim nest sa npr. 0.32 ili 0.32 da podelim sa necim.HELP
2.Kako da namestim da se u edite mogu unositi samo numericki karakteri.

Ako neko moze da pomogne objavicu izvorni kod.

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

1. text polje mora da bude odredjenog tipa podataka kako bi moglo da se deli sa brojevima u pokretnom zarezu... mozda to ne moze da se uradi sa txt boxom nego moras da uradis sa varijablama pa tek onda da sadrzaj tih varijabli upises u txt polje... nisam siguran ovako na nevidjeno...

2.
postoji funkcija IsNumeric(). ovu funkciju ces staviti u svako dugme...
If NOT IsNumeric(txtPolje1.Text) OR NOT IsNumeric(txtPolje2.Text) Then        Exit Sub End If

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

Evo koda.

Dim X As Currency, Y As Currency, Z As Currency Private Sub cmbExit_Click() Unload Me End Sub Private Sub cmbMinus_Click() If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text Z = X - Y txtZ.Text = Z End Sub Private Sub CmbNew_Click() txtX.Text = "" txtY.Text = "" txtZ.Text = "" End Sub Private Sub cmbPlus_Click() If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0   X = txtX.Text   Y = txtY.Text Z = X + Y   txtZ.Text = Z End Sub Private Sub cmbPodeli_Click() If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text If Y = 0 Then Z = X Else Z = X / Y End If txtZ.Text = Z End Sub Private Sub cmbProgInf_Click() txtX.Text = "Papuga Ljubomir" txtY.Text = "ljubomirp@neobee.net" txtZ.Text = "Uzivajte u programu!" End Sub Private Sub cmbPuta_Click() If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text Z = X * Y txtZ.Text = Z End Sub

Ovo 1. sam razumeo ali ovo drugo mi nije jasno.

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

ono sto ti treba da dodas sam ubacio u tvoj code, ali sam malo odvojio od ostalog... ipak citaj ceo ovaj tvoj kod poredu

polja txtPolje1 i txtPolje2 zameni sa imenima tvojih polja...

!cob.X ::Evo koda.

Dim X As Currency, Y As Currency, Z As Currency Private Sub cmbExit_Click() 'ovde treba da bude End, a ne Unload Me posto Unload Me samo unloaduje formu, ali je i ne izbacuje iz memorije osim ako ti ova forma nije u nekom drugom programu pa je onda taj drugi program poziva... npr. imas neki program koji sluzi za spisak artikala u prodavnici i eto stavio si calculator citso onako pa klik na neko dugme poziva calc iz tog kalkulatora ces izaci sa Unload Me, a ako je calc samo jedan i jedini prog izlazis sa End... End End Sub Private Sub cmbMinus_Click() If NOT IsNumeric(txtPolje1.Text) OR NOT IsNumeric(txtPolje2.Text) Then        Exit Sub End If If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text Z = X - Y txtZ.Text = Z End Sub Private Sub CmbNew_Click() txtX.Text = "" txtY.Text = "" txtZ.Text = "" End Sub Private Sub cmbPlus_Click() If NOT IsNumeric(txtPolje1.Text) OR NOT IsNumeric(txtPolje2.Text) Then        Exit Sub End If If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0   X = txtX.Text   Y = txtY.Text Z = X + Y   txtZ.Text = Z End Sub Private Sub cmbPodeli_Click() If NOT IsNumeric(txtPolje1.Text) OR NOT IsNumeric(txtPolje2.Text) Then        Exit Sub End If If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text If Y = 0 Then Z = X Else Z = X / Y End If txtZ.Text = Z End Sub Private Sub cmbProgInf_Click() txtX.Text = "Papuga Ljubomir" txtY.Text = "ljubomirp@neobee.net" txtZ.Text = "Uzivajte u programu!" End Sub Private Sub cmbPuta_Click() If NOT IsNumeric(txtPolje1.Text) OR NOT IsNumeric(txtPolje2.Text) Then        Exit Sub End If If txtX.Text = "" Then txtX.Text = 0 If txtY.Text = "" Then txtY.Text = 0 X = txtX.Text Y = txtY.Text Z = X * Y txtZ.Text = Z End Sub

Ovo 1. sam razumeo ali ovo drugo mi nije jasno.

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

za snoopa
-------------------------------------------------------------------------------------
Private Sub cmbExit_Click()
'ovde treba da bude End, a ne Unload Me posto Unload Me samo unloaduje formu, ali je i ne izbacuje iz memorije osim ako ti ova forma nije u nekom drugom programu pa je onda taj drugi program poziva... npr. imas neki program koji sluzi za spisak artikala u prodavnici i eto stavio si calculator citso onako pa klik na neko dugme poziva calc iz tog kalkulatora ces izaci sa Unload Me, a ako je calc samo jedan i jedini prog izlazis sa End...
End
End Sub
-------------------------------------------------------------------------------------



Naredba "Unload Me", brise obrazac iz memorije, dok END primorava program da se odmah prestane izvrsavati.

Microsoft preporucuje naredbu "Unload Me".

Citat.

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

@ Sove

aha OK... shvatio sam i ja sada, ali je nekako lakse napisati End nego Unload Me onoliko puta koliko imas pokrenutih formi... , ali mozes koristiti For Each...

koristi Quote lakse je za citiranje nego da ti sam pises crtice...

BTW dobrodosao...