Visual Basic.NET -da ikkita raqamni qanday qo'shish kerak

Muallif: Virginia Floyd
Yaratilish Sanasi: 5 Avgust 2021
Yangilanish Sanasi: 1 Iyul 2024
Anonim
Visual Basic.NET -da ikkita raqamni qanday qo'shish kerak - Jamiyat
Visual Basic.NET -da ikkita raqamni qanday qo'shish kerak - Jamiyat

Tarkib

Ushbu maqolada siz ikkita raqamning yig'indisini hisoblash uchun oddiy Visual Basic dasturini yozishni o'rganasiz. Dasturni ishga tushirish uchun sizga Visual Studio 2017 kabi Visual Basic kompilyatori kerak.

Qadamlar

  1. 1 Visual Basic muharririni oching. Kodni keyinroq sinab ko'rish uchun kodingizni tuzatadigan dasturingiz borligiga ishonch hosil qiling (masalan, Visual Basic 2017).
    • Agar sizda Visual Basic muharriri bo'lmasa, Notepad ++ dan foydalaning yoki Visual Basic 2017 -ni yuklab oling.
  2. 2 Kodning birinchi qatorini kiriting. Kirish Xususiy sinf shakli 1 Visual Basic muharririda va keyin bosing ↵ Kirish... Bu satr quyidagi kod satrlarini belgilaydi.
    • Visual Basic -dagi "Maxsus sinf" yorlig'i HTML -dagi html> yorlig'i bilan bir xil.
  3. 3 O'zgaruvchilarni o'rnating. Yig'indini topish uchun ikkita tamsayı qo'shish kerak, shuning uchun Visual Basic raqamlarni o'zgaruvchi sifatida tan olishi kerak. Buning uchun:
    • Kirish Shaxsiy pastki tugma1_Click (jo'natuvchi sifatida, EventArgs sifatida) va bosing ↵ Kirish.
    • Kirish Tutqich (Button1_Click) va bosing ↵ Kirish.
    • Kirish Dim sum butun son sifatida va bosing ↵ Kirish.
    • Kirish Butun son sifatida va bosing ↵ Kirish.
    • Kirish Dim b butun son sifatida va bosing ↵ Kirish.
  4. 4 Bo'sh joylar uchun istisnolarni o'rnating. Bunday holda, agar biror raqam kiritilmagan bo'lsa, dastur xato qiladi. Buning uchun:
    • Kirish Label4.Visible = To'g'ri va bosing ↵ Kirish.
    • Kirish Agar TextBox1.Text = "" Keyin va bosing ↵ Kirish.
    • Kirish Label4.Visible = False va bosing ↵ Kirish.
    • Kirish MessageBox.Show ("Kechirasiz, maydon bo'sh bo'lishi mumkin emas.") va bosing ↵ Kirish.
    • Kirish TextBox 1. Focus () va bosing ↵ Kirish.
    • Kirish Agar tugasa va bosing ↵ Kirish.
  5. 5 Raqamlarni kiritish uchun matn qutilarini yarating. Buning uchun:
    • Kirish a = qiymat (TextBox1.Text) va bosing ↵ Kirish.
    • Kirish b = qiymat (TextBox2.Text) va bosing ↵ Kirish.
    • Kirish sum = (a + b) va bosing ↵ Kirish.
    • Kirish Label4.Text = "" & a & "va" & b & "yig'indisi" & sum & "ga teng." va bosing ↵ Kirish.
  6. 6 Tugmani bosish qismini yoping. Kirish Sub tugatish va bosing ↵ Kirish.
  7. 7 Yangi bo'lim yaratish. Kirish Maxsus pastki shakl1_Load (jo'natuvchi sifatida, e EventArgs sifatida) MyBase.Load -ni boshqaradi. va bosing ↵ Kirish.
  8. 8 "Noto'g'ri" va "yorliq" teglarini kiriting. Kirish Label4.Visible = False, bosing ↵ Kirish, keyin kiriting Sub tugatish va bosing ↵ Kirish .
  9. 9 Oxirgi bo'limni yarating. Kirish Shaxsiy pastki tugma2_Click (jo'natuvchi sifatida, EventArgs sifatida) tugmani boshqaradi 2. bosing. va bosing ↵ Kirish.
  10. 10 Matn maydonlariga havolalar qo'shing. Bu tugallangan dasturga raqamlarni qo'shadi. Buning uchun:
    • Kirish TextBox1.Text = "" va bosing ↵ Kirish.
    • Kirish TextBox2.Text = "" va bosing ↵ Kirish.
    • Kirish Label4.Text = "" va bosing ↵ Kirish.
    • Kirish TextBox 1. Focus () va bosing ↵ Kirish.
  11. 11 Raqam qo'shish uchun buyruq yarating. Kirish Sum = Val (TextBox1.Text) + Val (TextBox2.Text) va bosing ↵ Kirish.
  12. 12 "Sum" buyrug'ini kiriting. Kirish TextBox3.Text = Sum va bosing ↵ Kirish.
  13. 13 Kodni yoping. Kirish Sub tugatish va bosing ↵ Kirishoxirgi bo'limni yopish uchun yozing Yakuniy sinfbutun dasturni yopish uchun.
  14. 14 Dasturni tuzating. Nosozliklarni tuzatish yorlig'iga o'ting, Nosozliklarni tuzatishni boshlash -ni bosing va disk raskadrovka tugashini kuting. Dastur to'liq tuzatilgandan so'ng, uchta matnli maydon va tugma bilan oyna ochiladi; Endi raqamlarni yuqori ikkita qutiga kiriting va raqamlarni qo'shish uchun tugmani bosing.
    • Agar kod oddiy matn muharririda yozilgan bo'lsa, disk raskadrovka yorlig'i bo'lmaydi.Bunday holda, disk raskadrovka qilish va ishga tushirish uchun Visual Studio 2017 -da yozgan kodni oching.
    • Agar kod Notepad yoki TextEdit -da yozilgan bo'lsa, faylni ".txt" yoki ".text" emas, ".vb" formatida saqlang.

Maslahatlar

  • Visual Studio 2017 -ni Microsoft -dan bepul yuklab olish mumkin.
  • Notepad yoki TextEdit -da kodning harakatlanishini osonlashtirish uchun kodning har xil bo'limlari chiziq bilan belgilanishi mumkin.

Ogohlantirishlar

  • Visual Basic katta -kichiklarga sezgir emas, lekin bu erda kodda ko'rsatilgan joyni katta harf bilan yozib ko'ring.