Көрнекі базалық/мәтіндік жолда сөзді қалай қабылдауға және сандық мәнді шығаруға

Мен қазір колледжде көрнекі базаны үйреніп жатырмын және оны шынымен шатастыратын деп санаймын. Мәтін жолының енгізілімін жол ретінде қалай қабылдауға және енгізуді қабылдайтын және тізімді жолаққа айнымалы мәнді шығаратын түймешіктің рәсімін жазуға болады. Мысалы, орындық бағасы = $ 10 және кесте бағасы = 40 $ сияқты жолдарға түрлі мәндерді тағайындағым келеді. Түймешікті басқан кезде, ол мәтіндік терезелерде орындық сөзді алады және тізім терезесінде мәнді шығарады.

0
@David Stratton - Ол ешқашан еске алмады. NET. Мүмкін ол VB6 немесе VBA сияқты нәрсені үйренуі мүмкін ... Сіз VB.NET Braeden-ті жасайсыз ба?
қосылды автор Sivvy, көзі
Мұны істеудің көптеген жолдары бар, мен қайдан бастау керек екеніне сенімді емеспін. Мысалы, бөлшекті/баға жұптарын қалай сақтау керектігін анықтау үшін, сіз әлі күнге дейін зерттегендеріңізді білуіміз керек пе? Топтама сабақтары? Дерекқорлар? Файлдар? XML? Сондай-ақ, бұл VB.NET немесе VB6 екенін анықтаңыз. (Мен VB.NET-тің болуы мүмкін екенін түсінемін, бірақ сіз ешқашан білмейсіз). Бұл форум үшін жауап беру тым үлкен болуы мүмкін. Бұл оқулықтың бір тарауын ғана қамтуға болады. Сіз бұл жерде жақсы қызмет етуі мүмкін: msdn.microsoft.com/en-us/ beginner/default.aspx Сабақтар жаңадан бастағандарға арналған және оңай болуы мүмкін.
қосылды автор David, көзі
Алдыңғы түсініктемедегі сілтемесін ұмытпаңыз - бұл жерден бастаңыз: msdn.microsoft.com/en- біз/vbasic/bb466159
қосылды автор David, көзі
Visual Basic экспрессті пайдалана отырып, визуальды базалық білімі жоқ.
қосылды автор Braeden Aspeleiter, көзі
оны екі орынға теңестіріп, одан кейін lstBox.Items.Add (орындықты) қолданыңыз және дұрыс нөмірді көрсетіңіз. Бірақ, мен не істеу керектігін білмеймін, мәтіндік жәшікке енгізілген нәрселердің шығуын пайдаланып, тізім ұясына мәндерді қосу. Мен кафедрада жазған кезде, оны қалай көрсетілгенін i бағанының креслоларына түрлендіруге бола аламын. листингтік терезеде сөз орынды басып шығарудың орнына.
қосылды автор Braeden Aspeleiter, көзі

1 жауаптар

Function GetPrice(ByVal key As String) As Decimal
    Dim priceTable As New Dictionary(Of string, Decimal)()
    priceTable.Add("chair", 10.0)
    priceTable.Add("table", 40.0)

    Return If(priceTable.ContainsKey(key), priceTable(key), 0)
End Function

Public Sub Button1_click(ByVal sender As Object, ByVal e As EventArgs)
    ListBox1.Items.Add(GetPrice(Textbox1.Text).ToString())
End Sub
0
қосылды