Visual Basic i .NET pitanje

Visual Basic i .NET pitanje

offline
  • Research Engineer @MalwareBytes
  • Pridružio: 09 Avg 2011
  • Poruke: 15874
  • Gde živiš: Beograd

Jel Visual Basic u stvari Visual Basic .NET ili su to dva razlicita jezika...

Gledam nesto po ovom tutorialu

http://www.homeandlearn.co.uk/NET/vbNet.html



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Fil  Male
  • Legendarni građanin
  • Pridružio: 11 Jun 2009
  • Poruke: 15928

Postoji razlika, a osnovna je da za Visual Basic 6.0 nije trebao .NET Framework. Znaci, osnovna razlika je sto je kod generisan sa .NET-om --> upravljiv (managed code) i zahteva CLR. Dalje, .NET ukljucuje i siri opseg klasa kolekcije, liste, ... Takodje, razne kontrole su promenile naziv ili su slicnog naziva (npr. OptionButton vs RadioButton), ali sve u svemu, trebalo bi da se snadjes. Ziveli

Clanak o razlikama:
http://download.microsoft.com/download/C/C/8/CC8C1.....apter2.pdf



offline
  • Research Engineer @MalwareBytes
  • Pridružio: 09 Avg 2011
  • Poruke: 15874
  • Gde živiš: Beograd

Poceo sam da ucim VB.Net malo, ide solidno, imam jedan problemcic pa ako neko moze da pomogne

Pravim kalkulator prvi i evo koda. Sve ide OK, kad odradim debugging i pokrene se program, npr. kad saberem 3 i 5 pojavi se 8 normalno. Onda odem na Clear button i obrise. Posle kad opet ocu da saberem neka dva broja opet, ono mi pamti onu trojku prvu i dodaje ovome. U cemu je problem evo koda. Inace kalkulator je krajnje jednostavan, 0-9, +, = i Clear dugme

Public Class Form1     Dim total1 As Integer     Dim total2 As Integer     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub btnZero_Click(sender As System.Object, e As System.EventArgs) Handles btnZero.Click         txtDisplay.Text = txtDisplay.Text & btnZero.Text     End Sub     Private Sub btnOne_Click(sender As System.Object, e As System.EventArgs) Handles btnOne.Click         txtDisplay.Text = txtDisplay.Text & btnOne.Text     End Sub     Private Sub btnTwo_Click(sender As System.Object, e As System.EventArgs) Handles btnTwo.Click         txtDisplay.Text = txtDisplay.Text & btnTwo.Text     End Sub     Private Sub btnThree_Click(sender As System.Object, e As System.EventArgs) Handles btnThree.Click         txtDisplay.Text = txtDisplay.Text & btnThree.Text     End Sub     Private Sub btnFour_Click(sender As System.Object, e As System.EventArgs) Handles btnFour.Click         txtDisplay.Text = txtDisplay.Text & btnFour.Text     End Sub     Private Sub btnFive_Click(sender As System.Object, e As System.EventArgs) Handles btnFive.Click         txtDisplay.Text = txtDisplay.Text & btnFive.Text     End Sub     Private Sub btnSix_Click(sender As System.Object, e As System.EventArgs) Handles btnSix.Click         txtDisplay.Text = txtDisplay.Text & btnSix.Text     End Sub     Private Sub btnSeven_Click(sender As System.Object, e As System.EventArgs) Handles btnSeven.Click         txtDisplay.Text = txtDisplay.Text & btnSeven.Text     End Sub     Private Sub btnEight_Click(sender As System.Object, e As System.EventArgs) Handles btnEight.Click         txtDisplay.Text = txtDisplay.Text & btnEight.Text     End Sub     Private Sub btnNine_Click(sender As System.Object, e As System.EventArgs) Handles btnNine.Click         txtDisplay.Text = txtDisplay.Text & btnNine.Text     End Sub     Private Sub cmdClear_Click(sender As System.Object, e As System.EventArgs) Handles cmdClear.Click         txtDisplay.Clear()     End Sub     Private Sub cmdPlus_Click(sender As System.Object, e As System.EventArgs) Handles cmdPlus.Click         total1 = total1 + Val(txtDisplay.Text)         txtDisplay.Clear()     End Sub     Private Sub cmdEquals_Click(sender As System.Object, e As System.EventArgs) Handles cmdEquals.Click         Dim total2 As Integer         total2 = total1 + Val(txtDisplay.Text)         txtDisplay.Text = total2         MsgBox(total2)     End Sub End Class

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 447
  • Gde živiš: Novi Beograd

Probaj da na pocetku plus procedure pre svega stavis Total1=0 (da setujes varijablu na nulu).

cini mi se da kad ti sabere dva broja, vrednost varijable Total1 ti ostane 3, ti lepo resetujes txtDisplay.txt (da bude prazan za sl unos) posle sabiranja, ali vrednosta varijable Total1 ti ostane 3.

Pa sledeci put kad sabiras, i kazes Total1=Total1+txtDisplay.text on kaze 3=3+x

Probaj da prema logici programa resetujes varijablu Total1 na "pocetno" stanje.

offline
  • Research Engineer @MalwareBytes
  • Pridružio: 09 Avg 2011
  • Poruke: 15874
  • Gde živiš: Beograd

Probacu, hvala ti Smile

offline
  • Fil  Male
  • Legendarni građanin
  • Pridružio: 11 Jun 2009
  • Poruke: 15928

@THE

Jesi li ti ovo pisao ili si prepisao?

Ne vidi se nigde resetovanje varijable total1. Ako se ne resetuje, pamtice vrednost.

offline
  • Research Engineer @MalwareBytes
  • Pridružio: 09 Avg 2011
  • Poruke: 15874
  • Gde živiš: Beograd

Ne razumem...

Radio sam po tutorialu, mada ga nisam najbolje razumeo (tu lekciju u kojoj se radi kalkulator). Ja sam pisao kod sam i onda sam samo kopirao kod ovde na forum...

Kakvo bi to ucenje bilo kad bih isao copy/paste

U cemu je problem u kodu?

offline
  • Fil  Male
  • Legendarni građanin
  • Pridružio: 11 Jun 2009
  • Poruke: 15928

Koliko mogu da vidim, Clear vrednost totala ne postavlja na nulu.

Eksperimentisi malo sa tim. Ziveli

offline
  • Research Engineer @MalwareBytes
  • Pridružio: 09 Avg 2011
  • Poruke: 15874
  • Gde živiš: Beograd

Probacu samo da dobijem inspiraciju, ako ne budem mogao da resim, trazim pomoc Ziveli

Ko je trenutno na forumu
 

Ukupno su 875 korisnika na forumu :: 71 registrovanih, 2 sakrivenih i 802 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _commandos_, aljosa7, Apok, b.jakovljevic76, babaroga, Bane san, bankulen, Blagojević Mlađan, cemix, crnitrn, dejanbenkovic, DH2, Dimitrise93, Dorcolac, Dovla, draggan, drdoca, Dukelander, dule10savic, Gama, Georgius, Gerilac, gorangogs88, goxin, grunff, hyla, ikan, Ivan Germanovic, ivica976, jery2, kljift, kunktator, lacko2, Markoni958, mercedesamg, mgaji21, Mirage 2000N, Mixelotti, mnn2, mushroom2, nenad812, nikoladgajic, ofbeyond, Panter2, PrintZip, raykan, Recce, rkekoke, Roman, ruseskij, Shomy2, Singidunumac, Sirius, Skijavoneska, slonic_tonic, srbi, srecko81, stug, suton2, T-72, tamburski, theNedjeljko, Toni, ucenik32, vlad the impaler, vladom6, vlahale, Wrangler, x92, yamato, zoran-ruma