VB.NET භාවිතයෙන් කැල්කියුලේටරයක් නිර්මාණය කරමු

VB.NET ඉගෙන ගන්නා ආරම්භකයන්ට කුඩා කැල්කියුලේටර යෙදුමක් නිර්මාණය කිරීම ඉතා ප්‍රයෝජනවත් පුහුණුවකි. මෙහිදී Windows Forms අතුරුමුහුණත, පාලක වස්තු, බොත්තම් ක්‍රියාකාරකම් සහ ගණිතමය මෙහෙයුම් එකට භාවිතා කළ හැකිය.

මෙම ව්‍යාපෘතියෙන් එකතු කිරීම, අඩු කිරීම, ගුණ කිරීම සහ බෙදීම වැනි මූලික ගණනය කිරීම් සිදු කළ හැකි වැඩසටහනක් සාදමු. පසුව එයට ප්‍රතිශතය, දශම සංඛ්‍යා, මතක බොත්තම් සහ යතුරුපුවරු සහාය වැනි පහසුකම්ද එක් කළ හැකිය.

Visual Studio තුළ Windows Forms App ව්‍යාපෘතියක් භාවිතා කිරීම ආරම්භකයන්ට පහසුය. පාලක වස්තු ඇදගෙන ආකෘතිය මත තැබිය හැකි නිසා, මුල සිටම සම්පූර්ණ කේතයක් ලිවීමට අවශ්‍ය නොවේ.

ගණනය කිරීමේ කේතයට අමතරව, වැරදි දත්ත ඇතුළත් කළ විට වැඩසටහන බිඳ වැටීම වැළැක්වීමද වැදගත් වේ. එබැවින් මෙම උදාහරණයේදී දෝෂ පාලනය සහ පරීක්ෂා කිරීමද පැහැදිලි කර ඇත.

ව්‍යාපෘතිය සූදානම් කිරීම

Visual Studio විවෘත කර “Create a new project” තෝරන්න. භාෂාව ලෙස Visual Basic තෝරා Windows Forms App ව්‍යාපෘති ආකෘතිය තෝරන්න. ව්‍යාපෘතියට SimpleCalculator වැනි නමක් ලබාදී නිර්මාණය කරන්න.

Form එකේ ප්‍රධාන ගුණාංග කිහිපයක් වෙනස් කරන්න. Text ගුණාංගයට “මගේ කැල්කියුලේටරය” ලෙස නමක් ලබාදී, StartPosition අගය මධ්‍යයට සකස් කළ හැකිය. ව්‍යාපෘතිය නිවැරදිව ක්‍රියාත්මක වීමට .NET සහ Visual Basic පරිසරය සූදානම් වීම අත්‍යවශ්‍යය. වෙනස් පද්ධතිවල සංවර්ධන පරිසර ගැන දැනගැනීමට පද්ධති උපදෙස් ද ප්‍රයෝජනවත් විය හැකිය.

ආකෘතිය නිර්මාණය කිරීම

Form එකට TextBox දෙකක් එක් කර පළමු සහ දෙවන සංඛ්‍යා ඇතුළත් කිරීමට භාවිතා කරන්න. ඒවායේ නාම txtNumber1 සහ txtNumber2 ලෙස සකස් කරන්න. ප්‍රතිඵලය පෙන්වීමට Label එකක් හෝ තවත් TextBox එකක් එක් කර lblResult ලෙස නම් කළ හැකිය.

ඊළඟට Button හතරක් ඇතුළත් කර ඒවායේ නාම සහ පෙන්වන පෙළ මෙසේ සකස් කරන්න: btnAdd සඳහා “එකතු කරන්න”, btnSubtract සඳහා “අඩු කරන්න”, btnMultiply සඳහා “ගුණ කරන්න” සහ btnDivide සඳහා “බෙදන්න”. අමතරව සියලුම දත්ත මකා දැමීමට btnClear බොත්තමක්ද එක් කරන්න.

ගණනය කිරීමේ කේතය

බොත්තමක් මත දෙවරක් ක්ලික් කළ විට එයට අදාළ Click සිදුවීම් ක්‍රියාකාරකම නිර්මාණය වේ. පළමු සංඛ්‍යාව සහ දෙවන සංඛ්‍යාව Decimal වර්ගයට පරිවර්තනය කර ගණනය කිරීම වඩාත් සුදුසුය. මුදල් හෝ දශම අගයන් සමඟ වැඩ කරන විට මෙය Double වර්ගයට වඩා නිවැරදි ප්‍රතිඵල ලබාදීමට උපකාරී වේ.

Private Function GetNumbers(ByRef firstNumber As Decimal,
                            ByRef secondNumber As Decimal) As Boolean

    If Not Decimal.TryParse(txtNumber1.Text, firstNumber) OrElse
       Not Decimal.TryParse(txtNumber2.Text, secondNumber) Then

        MessageBox.Show("කරුණාකර නිවැරදි සංඛ්‍යා දෙකක් ඇතුළත් කරන්න")
        Return False
    End If

    Return True
End Function

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
    Dim firstNumber As Decimal
    Dim secondNumber As Decimal

    If GetNumbers(firstNumber, secondNumber) Then
        lblResult.Text = (firstNumber + secondNumber).ToString()
    End If
End Sub

Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click
    Dim firstNumber As Decimal
    Dim secondNumber As Decimal

    If GetNumbers(firstNumber, secondNumber) Then
        lblResult.Text = (firstNumber - secondNumber).ToString()
    End If
End Sub

ගුණ කිරීම සහ බෙදීම සඳහාද එකම ආකාරයේ ක්‍රමයක් භාවිතා කළ හැකිය. බෙදීමේදී දෙවන අගය ශුන්‍යදැයි පරීක්ෂා කරන්න. එසේ නොකළහොත් වැඩසටහනට ගණිතමය දෝෂයක් ඇති විය හැකිය.

Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click
    Dim firstNumber As Decimal
    Dim secondNumber As Decimal

    If GetNumbers(firstNumber, secondNumber) Then
        If secondNumber = 0D Then
            MessageBox.Show("ශුන්‍යයෙන් බෙදිය නොහැක")
        Else
            lblResult.Text = (firstNumber / secondNumber).ToString()
        End If
    End If
End Sub

දෝෂ පාලනය සහ පරීක්ෂාව

පරිශීලකයා TextBox එකක අකුරු, හිස් අගයක් හෝ වැරදි දශම ආකෘතියක් ඇතුළත් කළ හැකිය. Decimal.TryParse භාවිතා කිරීමෙන් එවැනි අවස්ථාවල වැඩසටහන නතර නොවී පණිවිඩයක් පෙන්විය හැකිය. මෙය Convert.ToDecimal භාවිතා කරනවාට වඩා ආරක්ෂිත ක්‍රමයකි.

Clear බොත්තම සඳහා පහත කේතය යොදන්න. ඉන්පසු වැඩසටහන ධාවනය කර සාමාන්‍ය අගයන්, දශම අගයන්, හිස් කොටු සහ ශුන්‍යයෙන් බෙදීම වැනි අවස්ථා පරීක්ෂා කරන්න. පරිශීලක දත්ත ආරක්ෂාව පිළිබඳ වැඩිදුර කියවීමට ආරක්ෂක ලිපිය ද බලන්න.

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    txtNumber1.Clear()
    txtNumber2.Clear()
    lblResult.Text = "ප්‍රතිඵලය"
    txtNumber1.Focus()
End Sub

වැඩසටහන වැඩිදියුණු කිරීම

මූලික කැල්කියුලේටරය සාර්ථකව ක්‍රියාත්මක වූ පසු, මෙහෙයුම් තේරීමට ComboBox එකක් භාවිතා කළ හැකිය. එවිට බොත්තම් හතරක් වෙනුවට එක් “ගණනය කරන්න” බොත්තමක් පමණක් තිබිය හැකිය. එසේම අවසාන ගණනය කිරීම් ලැයිස්තුවක් ListBox එකක පෙන්වීමෙන් යෙදුම වඩාත් ප්‍රයෝජනවත් වේ.

මෙවැනි ගණනය කිරීමේ තර්කය නිවසේ උෂ්ණත්ව පාලකයක්, විදුලි පරිභෝජන ගණකයක් හෝ ස්මාර්ට් හෝම් පාලන පැනලයක් තුළද භාවිතා කළ හැකිය. ඒ සඳහා ස්මාර්ට් හෝම් අදහස් අධ්‍යයනය කර, පරිශීලක අතුරුමුහුණත සරලව තබා ගැනීම වැදගත්ය.

අංගය	භාවිතා කරන පාලකය	ප්‍රධාන කාර්යය
පළමු අගය	ටෙක්ස්ට්බොක්ස්	සංඛ්‍යාවක් ලබාගැනීම
දෙවන අගය	ටෙක්ස්ට්බොක්ස්	දෙවන සංඛ්‍යාව ලබාගැනීම
මෙහෙයුම	බොත්තම	ගණනය කිරීම ආරම්භ කිරීම
ප්‍රතිඵලය	ලේබලය	පිළිතුර පෙන්වීම
මකා දැමීම	බොත්තම	සියලුම අගයන් හිස් කිරීම

මෙම ව්‍යාපෘතිය සම්පූර්ණ කරමින් කේතය වෙනස් කර බලන්න, නව මෙහෙයුම් එක් කරන්න සහ ඔබේම VB.NET යෙදුම් නිර්මාණ අත්දැකීම ගොඩනඟා ගන්න.񎟟