Paskutiniame vadove mes sukūrėme formą su amygtuką, kuriame parašyta „Pridėti du numerius“ ir teksto dėžutę. Dukart spustelėkite mygtuką, kad atidarytumėte kodavimo langus ir įveskite į jį sekantį kodą. Taip pat galite nukopijuoti įklijuoti jį iš čia, bet įvesdami tekstą, pateiksite galimų klaidų, kurias galite padaryti rašydami savo kodą. Tai taip pat padės atsiminti tam tikros funkcijos sintaksę. Taigi mes siūlome jį įvesti, o ne tik kopijuoti.
Dim Number1 As Integer Dim Number2 As Integer Dim Number3 As Integer Number3 = Number1 + Number2 MsgBox(Number3)
Išsaugokite kodą ir suderinkite jį paspausdami F5. Dabar ekrane turi būti kažkas panašaus:
Mes jau žinome ką Dim kodo eilutė žymi. Mes apibrėžėme tris tokius kintamuosius kaip Skaičius1, Skaičius2 ir Skaičius3. Mes priskyrėme kintamojo Number3 papildymo rezultatą linijos pagalba
Skaičius3 = Skaičius1 + Skaičius2
Pranešimo dėžutė šiuo atveju naudojama norint parodyti pridėjimo rezultatą. Tokiems vaizdams naudojome labai paprastą kodą:
„MsgBox“ (skaičius 3)
Iš šio kodo nurodome VB, kad, paskaičiavus, rodoma reikšmė, saugoma kintamajame „Number3“, pranešimų laukelyje, kuris turi pasirodyti paspaudus mygtuką. Ir veikia!
Bet tada, ką naudoti turimą teksto dėžutę?įtraukta į formą? Panaudosime jį rezultatui parodyti. Bet tam turime padaryti nedidelius kodų pakeitimus. Ištrinkite žinučių dėžutės kodą iš mūsų kodo eilučių ir pakeiskite ją taip:
Textbox1.Text = Number3
Dabar suderinkite kodą ir spustelėkite mygtuką. Ekrane pamatysite kažką panašaus:
Tai, ką mes čia padarėme, labai paprasta. Mūsų forma pasiekėme „Textbox1“ nuosavybės nuosavybę. Šią savybę panaudojome vertės, saugomos kintamajame „Number3“, rodymui.
Ši maža kodo eilutė išmokė jusatlikite papildymą naudodami mygtuką ir teksto laukelį VB. Atlikti bet kokius pagrindinius matematinius skaičiavimus VB yra taip paprasta. Mūsų skaitytojai gali patys išbandyti atimimo, daugybos ir dalijimo kodavimą. Jums nereikės atskiro teksto laukelio kiekvienam skaičiavimui, tačiau šį vieną langelį galite naudoti su dar trim mygtukais.
Išbandykite ir praneškite mums, jei turite kokių nors klausimų.
Komentarai