मैं निर्माण कर रहा हूँ एक छोटे से स्टॉक ब्रोकिंग खेल के रूप में एक पक्ष परियोजना है और भर में भाग गया एक समस्या

Question 1

वर्तमान में, खेल randomizes नए शेयर की कीमत के लिए मूल्यों में खेल दिनों के लिए हर समय form5 बंद कर देता है और reopens. मेरा उद्देश्य है करने के लिए एक यादृच्छिक मूल्य पर दिनों के लिए: 2, 8, 5, 3, 13, 24, 29, पल में खेल बनाता है एक निर्धारित मूल्य के लिए एक दिन है, लेकिन जब कि खेल में दिन समाप्त होता है और दो दिन शुरू होता है, दोनों दिन एक और दो की कीमतों में बेतरतीब रहे हैं. जब इस प्रपत्र बंद कर दिया और फिर से खोल कीमतों randomize करने के लिए इन 2 दिनों के लिए फिर से.

यहाँ है उपनेमका के लिए फ़ॉर्म2: इस प्रपत्र को प्रदर्शित करता है, उपलब्ध स्टॉक ब्रांडों उपयोगकर्ता कर सकते हैं 'निवेश' में, इस शो के उपनेमका के लिए जब उपयोगकर्ता पर क्लिक करता है, टेस्ला शेयर:

Public Shared Sub tesla(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Teslal.Click


    stockbrand.tesla()
    Teslastock.Show()
End Sub

यहाँ है उपनेमका के लिए stockbrand.टेस्ला:

Shared Sub tesla()
    stockrand(2, 8, 5, 3, 13, 24, 29)
End Sub

और फिर stockrand जिम्मेदार है पैदा करने के लिए यादृच्छिक मूल्यों में निर्दिष्ट दिनों की संख्या:

 Public Shared Function stockrand(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Integer)
    For i As Integer = 1 To Form2.DAYno.Text

        If i = a Then
            Teslastock.at1986(a.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = b Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = c Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = d Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = e Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = f Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)

        ElseIf i = g Then
            Teslastock.at1986(i.ToString & "/8/86 1986", CInt(Int((11 * Rnd()) + 1)) * 2000)
        Else
            Teslastock.at1986(i.ToString & "/8/86 1986", Math.Sin(i) * 2000)
        End If
    Next
End Function

ग्राफ के द्वारा बनाई गई कार्य के लिए समान दिखता है एक पाप ग्राफ के साथ अपवाद निर्दिष्ट दिन और नकारात्मक मूल्य से गुणा कर रहे हैं -1 देने के लिए एक तर्कसंगत मूल्य

Teslastock.शो से पता चलता है जो ग्राफ रखा गया है

Question 2

कुछ अपनी समस्याओं के कारण कर रहे हैं नहीं होने के विकल्प पर सख्त. यह पर होना चाहिए. प्रोजेक्ट गुण -> संकलन टैब. यह भी भविष्य की परियोजनाओं के लिए उपकरण> विकल्प> परियोजनाओं और समाधान -> VB चूक

कार्यों में vb.net की जरूरत है एक Type और एक Return बयान. आप कर रहे हैं नहीं लौटने के कुछ भी तो तुम क्यों कर रहे हैं का उपयोग कर एक Function? का प्रयोग करें एक Sub.

मैं नहीं जानता कि क्या DAYno पर फ़ॉर्म2 है, लेकिन जब मैं देख रहा हूँ एक Text संपत्ति यह मतलब है एक String मुझे करने के लिए. आप कर सकते हैं नहीं है एक String में To खंड के एक For पाश, इस प्रकार CInt()

एक उदाहरण की घोषणा की Random वर्ग पर Classस्तर. हम केवल जरूरत है, एक नई यादृच्छिक संख्या (नहीं एक नया उदाहरण के Random वर्ग) के अनुसार एक बार चलना । निकट के रूप में मैं बाहर कर सकता है, यह एक नंबर 1 के बीच एक 12. मैं मुश्किल से याद Rnd(). के Next विधि के Random वर्ग प्रदान करता है Integer समावेशी के तर्क और कम से कम दूसरा ।

उन सभी If...ElseIfएस लगभग समान कोड. मैं करने की कोशिश की यह सॉर्ट करने के लिए बाहर के साथ एक Select Case. पहले 2 मामलों भेजें Integer करने के लिए at1986 लेकिन तीसरे भेजता है Double, इस प्रकार के 2 तरीकों में Teslastock वर्ग के साथ अलग-अलग हस्ताक्षर.

शायद अपनी समस्याओं गायब हो जाएगा के साथ इन सुधार.

Private Rand As New Random()

Public Sub stockrand(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Integer)
    For i As Integer = 1 To CInt(Form2.DAYno.Text)
        Dim r = Rand.Next(1, 13)
        Select Case i
            Case a
                Teslastock.at1986($"{a}/8/86 1986", r * 2000)
            Case b, c, d, e, f, g
                Teslastock.at1986($"{i}/8/86 1986", r * 2000)
            Case Else
                Teslastock.at1986($"{i}/8/86 1986", Math.Sin(i) * 2000)
        End Select
    Next
End Sub

Public Class Teslastock
    Public Shared Sub at1986(strDate As String, aNumber As Integer)
        'Some code
    End Sub

    Public Shared Sub at1986(strDate As String, aNumber As Double)
        'Some code
    End Sub
End Class

Mary · Answer 1 · 2021-11-24T03:29:56

कुछ अपनी समस्याओं के कारण कर रहे हैं नहीं होने के विकल्प पर सख्त. यह पर होना चाहिए. प्रोजेक्ट गुण -> संकलन टैब. यह भी भविष्य की परियोजनाओं के लिए उपकरण> विकल्प> परियोजनाओं और समाधान -> VB चूक

कार्यों में vb.net की जरूरत है एक Type और एक Return बयान. आप कर रहे हैं नहीं लौटने के कुछ भी तो तुम क्यों कर रहे हैं का उपयोग कर एक Function? का प्रयोग करें एक Sub.

मैं नहीं जानता कि क्या DAYno पर फ़ॉर्म2 है, लेकिन जब मैं देख रहा हूँ एक Text संपत्ति यह मतलब है एक String मुझे करने के लिए. आप कर सकते हैं नहीं है एक String में To खंड के एक For पाश, इस प्रकार CInt()

एक उदाहरण की घोषणा की Random वर्ग पर Classस्तर. हम केवल जरूरत है, एक नई यादृच्छिक संख्या (नहीं एक नया उदाहरण के Random वर्ग) के अनुसार एक बार चलना । निकट के रूप में मैं बाहर कर सकता है, यह एक नंबर 1 के बीच एक 12. मैं मुश्किल से याद Rnd(). के Next विधि के Random वर्ग प्रदान करता है Integer समावेशी के तर्क और कम से कम दूसरा ।

उन सभी If...ElseIfएस लगभग समान कोड. मैं करने की कोशिश की यह सॉर्ट करने के लिए बाहर के साथ एक Select Case. पहले 2 मामलों भेजें Integer करने के लिए at1986 लेकिन तीसरे भेजता है Double, इस प्रकार के 2 तरीकों में Teslastock वर्ग के साथ अलग-अलग हस्ताक्षर.

शायद अपनी समस्याओं गायब हो जाएगा के साथ इन सुधार.

Private Rand As New Random()

Public Sub stockrand(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Integer)
    For i As Integer = 1 To CInt(Form2.DAYno.Text)
        Dim r = Rand.Next(1, 13)
        Select Case i
            Case a
                Teslastock.at1986($"{a}/8/86 1986", r * 2000)
            Case b, c, d, e, f, g
                Teslastock.at1986($"{i}/8/86 1986", r * 2000)
            Case Else
                Teslastock.at1986($"{i}/8/86 1986", Math.Sin(i) * 2000)
        End Select
    Next
End Sub

Public Class Teslastock
    Public Shared Sub at1986(strDate As String, aNumber As Integer)
        'Some code
    End Sub

    Public Shared Sub at1986(strDate As String, aNumber As Double)
        'Some code
    End Sub
End Class

मैं निर्माण कर रहा हूँ एक छोटे से स्टॉक ब्रोकिंग खेल के रूप में एक पक्ष परियोजना है और भर में भाग गया एक समस्या

सवाल

सबसे अच्छा जवाब

अन्य भाषाओं में

यह पृष्ठ अन्य भाषाओं में है

इस श्रेणी में लोकप्रिय

लोकप्रिय सवाल इस श्रेणी में