Proporcije u VB 6 ili 2008

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

Pozdrav,
Kao što piše u nasllovu, potrebna mi je pomoć oko proporcija u Visual Basicu. Naime, treba da uradim program u kome cu upisate odredjini broj, a kada kliknem na dugme, izračuna proporciju 3:1.
Hvala unapred.

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

Nisam baš dobro razumio šta ti želiš da napraviš ali evo ti primjer pa ga možeš prepravljati da postigneš željeni učinak.

Možeš da uradiš nešto ovakvo:
1. Na formu postavi dva TextBox-a i jedan komandni gumb
2. Prvom TextBox-u daj ime txtInput, a drugom txtRezultat i postavi njegovo svojstvo ReadOnly na true
3. dodaj ovaj kod u komandni gumb (događaj click komandnog gumba):
dim input as integer
dim rezultat1 as integer
dim rezultat 2 as integer
Ovaj dio će se mijenjati u zavisnosti da li koristiš vb6 ili vb 2008, ovaj primjer je za vb 2008.
input=convert.toInteger(txtInput.text)
rezultat2=input/4
rezultat1=tmpRezultat*3
txtRezultat.text=rezultat1 & ":" & rezultat2

Ako ti je potrebno da ograničiš mogućnost unosa samo na brojeve koristi KeyPress događaj txtInputa imaš dosta primjera na internetu kako se to radi.
Naravno ovo je samo jedno od rješenja...

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

Hm, uradio sam, ali prijavljuje greške, tako da neće da kompajlira.. Ovako izgleda kod:

Class Form1
Dim Input As Integer
Dim Rezultat1 As Integer
Dim Rezultat2 As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Input = Convert.toInteger(txtInput.Text)
Rezultat2 = Input() / 4
Rezultat1 = tmpRezultat * 3
txtRezultat.Text = Rezultat1 & ":" & Rezultat2
End Sub
End Class

A ovo su greške:

Error 1 'toInteger' is not a member of 'System.Convert'. C:\Users\Marko\Desktop\bitumen\bitumen\Form1.vb 7 16 bitumen
Error 2 Expression is not an array or a method, and cannot have an argument list. C:\Users\Marko\Desktop\bitumen\bitumen\Form1.vb 8 21 bitumen
Error 3 Name 'tmpRezultat' is not declared. C:\Users\Marko\Desktop\bitumen\bitumen\Form1.vb 9 21 bitumen

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

Izvini molim te pogriješio sam ispravke su sledeće:
rezultat1=rezultat2 * 3
input=convert.toint64(txtInput.text) ' možeš i u int32 ili cak int16 ovisno koliki ćeš broj obrađivati
ostalo je isto...
Malo sam požurio pa nisam pratio nazive varijabli, a i u Vb-u nisam radio odavno pa sam zaboravio da konvertovanje traži ovakvu specifikaciju...