प्रोग्रामिंग, सवालों के जवाब में मदद करें / Vbnet / शुरुआत Visual Basic प्रोजेक्ट कर रहा है - vb.net, क्लिक करें

विजुअल बेसिक प्रोजेक्ट - vb.net करने वाले शुरुआती, क्लिक करें

मैं vb.net के साथ एक छोटी सी परियोजना कर रहा हूं और मुझे गैर-तैरने वाले बिंदु पर हीटिंग लागत वापस करने में परेशानी हो रही है।

पूल है या नहीं इसकी गणना करने के लिए एक फ़ंक्शन को कॉल करेंछोटा, मध्यम या बड़ा। फ़ंक्शन में एक उपयुक्त ब्रांचिंग संरचना का उपयोग करें, और एक स्ट्रिंग लौटाएं पूल की श्रेणी बताते हुए। ईवेंट हैंडलर इस स्ट्रिंग को असाइन करेगा श्रेणी लेबल की टेक्स्ट प्रॉपर्टी अब यहाँ एक के साथ, मेरे पास एक लेबल है जिसका नाम है lblCategory।
अंत में, घटना में एक लूप संरचना डालेंहीटिंग की डॉलर-पारमार्थिक मूल्य की गणना करने के लिए हैंडलर। 5 से 23 के मान से तापमान चर (जिसमें एक फ्लोटिंग पॉइंट प्रकार होने की आवश्यकता होगी) को अलग-अलग करने के लिए लूप की आवश्यकता होती है 1.5 के चरण।

इस लूप के अंदर, तापमान टेंपरेचर के मान को Tem Temp टेक्स्ट बॉक्स में जोड़ें और इसी मूल्य जोड़ें $ प्रति महीना पाठ बॉक्स में, एक फ़ंक्शन को कॉल करना जो निम्न सूत्र का उपयोग करता है:

ताप लागत = (25 - तापमान) * आयतन / 32500

यह हीटिंग की लागत की गणना करेगापूल को 25 डिग्री से गुणा करके पूल की मात्रा से तापमान का अंतर और पूर्व निर्धारित मूल्य से समायोजन। सुनिश्चित करें कि फ़ंक्शन गैर-फ़्लोटिंग बिंदु डेटा प्रकार लौटाता है, ताकि किसी को भी हटाया जा सके परिणाम से अस्थायी बिंदु मान।

यह मेरा अब तक का कोड है ...

Public Class Form1

Const MinLength As Integer = 5
Const MaxLength As Integer = 50
Const MinWidth As Integer = 2
Const MaxWidth As Integer = 20
Const MinDepth As Integer = 2
Const MaxDepth As Integer = 4


Private Function ValidLength(ByVal TestLength As String) As Boolean
"Length of the pool
Dim i As Double
Dim Message As String = ""
If Double.TryParse(TestLength, i) Then
If i >= MinLength AndAlso i <= MaxLength Then
Return True
End If
End If
Message = "Length measurement is not valid." & vbCrLf & vbCrLf & "Please enter a value between 5 and 50"
MessageBox.Show(Message, "Data Invalid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End
End Function

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim Volume As Double
Dim Temp As Double
Dim SA As Double
Dim HeatingCostInt As Integer
If Not ValidLength(txtLength.Text) Then
Exit Sub
End If
If Not ValidWidth(txtWidth.Text) Then
Exit Sub
End If
If Not ValidDepth(txtAvgDepth.Text) Then
Exit Sub
End If
"SurfaceArea Function
SA = Val(SurfaceArea(txtLength.Text, txtWidth.Text))
txtSurfaceArea.Text = SA
"Volume Function
Volume = Val(Vol(txtLength.Text, txtWidth.Text, txtAvgDepth.Text * 1000))
txtVolume.Text = Volume
If PoolVolume(Volume) Then
End If
"Temperature Function
For Temp = 5 To 23 Step 1.5
txtTableAvgTemp.AppendText(Temp & Environment.NewLine)
HeatingCost(Temp, Volume)
Next
End Sub

Private Function ValidWidth(ByVal TestWidth As String) As Boolean
"Width of the Pool
Dim Message As String = ""
Dim i As Double
If Double.TryParse(TestWidth, i) Then
If i >= MinWidth And i <= MaxWidth Then
Return True
End If
End If
Message = "Width measurement is not valid." & vbCrLf & vbCrLf & "Please enter a value between 2 and 20"
MessageBox.Show(Message, "Data Invalid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End
End Function

Private Function ValidDepth(ByVal TestDepth As String) As Boolean
"Depth of the pool
Dim Message As String = ""
Dim i As Double
If Double.TryParse(TestDepth, i) Then
If i >= MinDepth And i <= MaxDepth Then
Return True
End If
End If
Message = "Depth measurement is not valid." & vbCrLf & vbCrLf & "Please enter a value between 2 and 4"
MessageBox.Show(Message, "Data Invalid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End
End Function

Private Function SurfaceArea(ByVal Value1 As Double, ByVal Value2 As Double) As Double
"Calculation for SurfaceArea
SurfaceArea = Value1 * Value2
Return SurfaceArea
End Function

Private Function Vol(ByVal Value1 As Double, ByVal Value2 As Double, ByVal Value3 As Double) As Double
"Calculation for Volume
Vol = Value1 * Value2 * Value3 * 1000
Return Vol
End Function

Private Function PoolVolume(ByVal Value1 As Double) As Boolean
"Pool Volume size that isn"t working correctly and I don"t know why
If (Value1 <= 500000) Then
lblCategory.Text = "Pool Category: Small"
ElseIf (Value1 > 500000 <= 1500000) Then
lblCategory.Text = "Pool Category: Medium"
Else
lblCategory.Text = "Pool Category: Large"
Value1 = lblCategory.Text
End If
Return PoolVolume
End Function

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
"Ends the program
End
End Sub

Private Sub txtSurfaceArea_TextChanged(sender As Object, e As EventArgs) Handles txtSurfaceArea.TextChanged
"Changes text of SurfaceArea
txtSurfaceArea.Text = txtLength.Text * txtWidth.Text
End Sub

Private Sub txtVolume_TextChanged(sender As Object, e As EventArgs) Handles txtVolume.TextChanged
"Changes text of Volume
txtVolume.Text = txtLength.Text * txtWidth.Text * txtAvgDepth.Text * 1000
End Sub

Private Function HeatingCost(ByVal Value1 As Double, ByVal Value2 As Double) As Double
"Calculation for Heating Cost that isn"t returning as a non-floating point. Main issue right here!!!
Dim Value3 As Double = 32500
HeatingCost = (25 - Value1) * Value2 / Value3
txtTableDollars.AppendText(HeatingCost & Environment.NewLine)
End Function

End Class

प्रदान की गई कोई भी सहायता मेरे लिए इस बात को समाप्त करने के लिए बहुत अच्छी और उपयोगी होगी, धन्यवाद एक नज़र रखने और इसके माध्यम से जाने के लिए समय लेने के लिए

उत्तर:

जवाब के लिए 0 № 1

आपके पास अपने कोड में एक से अधिक सबट सबट है। आपके तीन कंडीशन ब्लॉक के बाद एक एग्जिट सब आता है जो इस लाइन पर आपके उप से हमेशा बाहर निकलेगा।

If Not ValidLength(txtLength.Text) Then
Exit Sub
End If
If Not ValidWidth(txtWidth.Text) Then
Exit Sub
End If
If Not ValidDepth(txtAvgDepth.Text) Then
Exit Sub
End If
Exit Sub

यह अंतिम "एक्जिट सब" ^ ^ निकालें

जवाब के लिए 0 № 2

आपके ValidXXX () फ़ंक्शन को कुछ काम की आवश्यकता है।यदि उपयोगकर्ता टेक्स्टबॉक्स में "चोकेऑन" टाइप करता है, उदाहरण के लिए, प्रोग्राम क्रैश हो जाएगा और जल जाएगा। ऐसा इसलिए है क्योंकि आप एक स्ट्रिंग से गुजर रहे हैं जहां एक सिंगल की उम्मीद है। इसके परिणामस्वरूप स्ट्रिंग से एकल तक एक अंतर्निहित (स्वचालित) रूपांतरण होता है। यदि स्ट्रिंग एक मान्य एकल नहीं है (जैसे "चोकोऑन" उदाहरण) तो एक अपवाद फेंक दिया जाता है और प्रोग्राम क्रैश हो जाता है।

ऐसा करने का उचित तरीका एक प्राप्त करना होगाValidXXX () फ़ंक्शन में स्ट्रिंग और फिर आंतरिक रूप से Integer.TryParse () फ़ंक्शन का उपयोग करें। फिर, ध्यान दें कि कार्य करने के लिए पैरामीटर "TestLength" एक स्ट्रिंग है:

Private Function ValidLength(ByVal TestLength As String) As Boolean
"Length of the pool
Dim i As Single
If Single.TryParse(TestLength, i) Then
If i >= MinLength AndAlso i <= MaxLength Then
Return True
End If
End If

Dim Message As String = _
"Length measurement is not valid." & vbCrLf & vbCrLf & _
"Please enter a value between 5 and 50"
MessageBox.Show(Message, "Data Invalid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return False
End Function

आप अन्य ValidXXX () फ़ंक्शन के समान परिवर्तन करते हैं।

आपके भूतल के लिए वही समस्या मौजूद है ()और अन्य गणना कार्य, जैसा कि वे पूर्णांक मापदंडों की अपेक्षा करते हैं, लेकिन आप उन्हें स्ट्रिंग मानों को पारित कर रहे हैं। चूंकि स्ट्रिंग्स को उस बिंदु पर मान्य किया गया होगा, हालांकि, कार्यक्रम "टी क्रैश" जीता। यह कई बार होने वाले रूपांतरणों के लिए केवल एक बुरा डिज़ाइन है। एक बेहतर डिज़ाइन इनपुट को मान्य करेगा और इसमें परिवर्तित किए गए पूर्णांक मान स्थानीय चर में संग्रहीत किए जाएंगे ताकि उन्हें गणना कार्यों में पारित किया जा सके।

विजुअल बेसिक प्रोजेक्ट - vb.net करने वाले शुरुआती, क्लिक करें

उत्तर:

संबंधित सवाल