Bu wikiHow sizga ikkita raqamning yig'indisini topishga imkon beradigan oddiy Visual Basic dasturini yaratishni o'rgatadi. Dasturni ishga tushirish uchun sizga Visual Studio 2017 kabi Visual Basic kompilyatori kerak bo'ladi.
Qadamlar
Qadam 1. O'zingiz yoqtirgan Visual Basic muharririni oching
Agar siz keyinroq dasturni sinab ko'rmoqchi bo'lsangiz, disk raskadrovka (masalan, Visual Basic 2017) ni qo'llab -quvvatlaydigan dasturingiz borligiga ishonch hosil qiling.
Agar sizda Visual Basic muharriri bo'lmasa, Notepad ++ dan foydalanishingiz yoki rasmiy Visual Basic 2017 dasturini yuklab olishingiz mumkin
Qadam 2. Bosh qatorni qo'shing
Visual Basic muharririga Private Class Form1 yozing va Enter tugmasini bosing. Bu hujjatning qolgan qismini o'rnatadi.
Visual Basic -dagi "Maxsus sinf" yorlig'i HTML -dagi "" tagiga o'xshaydi
Qadam 3. O'zgaruvchilarni taniy oladigan hujjatingizni o'rnating
Agar siz summani topish uchun bir -biringizga ikkita tamsayı qo'shsangiz, siz Visual Basic -dan raqamlarni o'zgaruvchi sifatida tan olishni talab qilishingiz kerak. Buning uchun:
- Maxsus sub tugmachasini kiriting 1_Click (jo'natuvchi sifatida, e sifatida EventArgs) va press Enter tugmasini bosing.
- Tutqichni kiriting (Button1_Click) va ↵ Enter tugmasini bosing.
- Dim sumni butun son sifatida kiriting va ↵ Enter tugmasini bosing.
- Dim a butun son sifatida kiriting va ↵ Enter tugmasini bosing.
- Dim b ni butun son sifatida kiriting va ↵ Enter tugmasini bosing.
Qadam 4. Matn qutilari uchun istisno yarating
Agar siz katakchani to'ldirmasangiz, bu sizning dasturingizni xato qilishiga olib keladi. Buning uchun:
- Label4. Visible = True kiriting va Enter tugmasini bosing.
- If TextBox1. Text = "" ni kiriting va ↵ Enter tugmasini bosing.
- Label4. Visible = False kiriting va ↵ Enter tugmasini bosing.
- MessageBox. Show -ni kiriting ("Kechirasiz, quti bo'sh bo'lishi mumkin emas.") Va press Enter tugmasini bosing.
- TextBox1. Focus () ni kiriting va Enter tugmasini bosing.
- End If ni kiriting va ↵ Enter ni bosing.
Qadam 5. Raqamlaringiz uchun matn qutilari yarating
Bu sizning raqamlaringizni kiritish uchun foydalanadigan interfeys bo'ladi. Buning uchun:
- A = Val (TextBox1. Text) kiriting va ↵ Enter tugmasini bosing.
- B = Val (TextBox2. Text) kiriting va ↵ Enter tugmasini bosing.
- Sum = (a + b) kiriting va ↵ Enter tugmasini bosing.
- Label4. Text = "" & a & "va" & b & "ning yig'indisi" & sum & "dir." va ↵ Enter tugmasini bosing.
Qadam 6. Tugmani bosish bo'limini tugating
End Sub -ni kiriting va Enter tugmasini bosing.
Qadam 7. Yangi bo'lim yarating
Maxsus sub formasini kiriting1_Load (jo'natuvchi sifatida, e EventArgs sifatida) MyBase. Load -ni boshqaradi va ↵ Enter tugmasini bosing.
Qadam 8. Soxta yorliq yorlig'i qo'shing
Label4. Visible = False ni kiriting va ↵ Enter tugmasini bosing, so'ng End Sub -ni kiriting va ↵ Enter -ni bosing.
Qadam 9. Yakuniy bo'limni yarating
Shaxsiy pastki tugmani kiriting 2_Click (jo'natuvchi sifatida, e EventArgs sifatida) 2. tugmachalarni boshqaradi 2. bosing va ↵ Enter ni bosing.
10 -qadam. Matn maydonlariga havolalar qo'shing
Bu sizga tugallangan dasturga raqamlarni qo'shish imkonini beradi. Buning uchun:
- TextBox1. Text = "" ni kiriting va ↵ Enter tugmasini bosing.
- TextBox2. Text = "" kiriting va Enter tugmasini bosing.
- Label4. Text = "" kiriting va Enter tugmasini bosing.
- TextBox1. Focus () ni kiriting va Enter tugmasini bosing.
Qadam 11. "Qo'shish" buyrug'ini yarating
Sum = Val (TextBox1. Text) + Val (TextBox2. Text) yozing va ↵ Enter tugmasini bosing.
12 -qadam "yig'ish" buyrug'ini qo'shing
TextBox3. Text = Sum yozing va ↵ Enter tugmasini bosing.
Qadam 13. Kodni yoping
Yakuniy bo'limni yozing va "Enter" tugmasini bosing, so'ngra oxirgi bo'limni yoping, so'ngra butun sinfni yopish uchun "End Class" ni kiriting.
14 -qadam. Dasturingizni disk raskadrovka qiling
Ni bosing Nosozliklarni tuzatish yorlig'ini bosing Nosozliklarni tuzatishni boshlangva disk raskadrovka jarayoni tugashini kuting. Sizning dasturingiz to'liq tuzatilgandan so'ng, uchta matn qutisi va qo'shish tugmasi bo'lgan oyna ochilishi kerak; keyin yuqoridagi ikkita qutiga raqam qo'shishingiz va raqamlarni bir -biriga qo'shish uchun tugmani bosishingiz mumkin.
- Agar siz Visual Basic kodini yaratish uchun asosiy matn muharriridan foydalansangiz, sizda Nosozliklarni tuzatish yorliq Dasturni disk raskadrovka qilish va ishga tushirish uchun loyihangizni Visual Studio 2017 da ochishni o'ylab ko'ring.
- Agar siz kodni yaratish uchun Notepad yoki TextEdit -dan foydalanayotgan bo'lsangiz, oxirgi faylni ".txt" yoki ".text" o'rniga ".vb" formatida saqlashga ishonch hosil qiling.
Maslahatlar
- Visual Studio 2017 -ni Microsoft veb -saytidan bepul yuklab olish mumkin.
- Notepad yoki TextEdit kabi ilovalardan foydalanganda, dasturning turli qismlarini osongina ko'rish uchun kodning alohida bo'limlarini qo'lda ajratish yordam beradi.