2 Replies - 244 Views - Last Post: 29 October 2017 - 10:26 PM Rate Topic: -----

#1 Angeltje1992  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 29-October 17

School project Currency converter Help :)

Posted 29 October 2017 - 06:07 AM

Hi

I'm new to Visual Studio but I'm stuck at my new Project.
For a School project, I have to make an Windows Form Application with a currency converter.

I have 2 ListBoxes (i'm sorry my project is in Dutch):

1. ListBoxMunteenheden: The user selects the currency like American Dollars, British pounds etc.
If the value in the Inputbox is >0 and < 500 , the results go in the other ListBox.

2. ListBoxWisselkoers: The result of Listbox 1 (ListBoxMunteenheden) shows here.

When the user enters a currency twice and give a other value (>0 and <500), the old result in Listbox 2 (ListboxWisselkoers) needs to be removed.

Can someone help me with this?

My code is as follow

1.	Public Class Opdracht4
2.	 
3.	 
4.	    Private Sub ListBoxMunteenheden_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 
5.	     ListBoxMunteenheden.SelectedIndexChanged
6.	        'De Cases worden aangemaakt om de verschillende Munteenheden aan ListBox Wisselkoersen toe te voegen.
7.	 
8.	        Select Case ListBoxMunteenheden.SelectedIndex
9.	 
10.	            Case 0
11.	                'De Amerikaanse Dollar wordt toegevoegd aan ListBoxWisselkoersen
12.	 
13.	                Dim AmerikaanseDollar As Decimal
14.	 
15.	                AmerikaanseDollar = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Amerikaanse dollars (1 Euro 
16.	                = .... Amerikaanse Dollar):  ")
17.	                ListBoxWisselkoersen.Items.Add("1 Euro =  " & AmerikaanseDollar & "  Amerikaanse dollars")
18.	                ListBoxWisselkoersen.Items.Add(" ")
19.	 
20.	                If AmerikaanseDollar <= 0 Then ListBoxWisselkoersen.Items.Clear()
21.	                If AmerikaanseDollar <= 0 Then MsgBox("U dient een andere waarde op te geven")
22.	 
23.	                If AmerikaanseDollar >= 500 Then ListBoxWisselkoersen.Items.Clear()
24.	                If AmerikaanseDollar >= 500 Then MsgBox("U dient een andere waarde op te geven")
25.	 
26.	 
27.	            Case 1
28.	                'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
29.	                ListBoxMunteenheden.Text = " "
30.	                MsgBox("U dient op een munteenheid te klikken")
31.	 
32.	 
33.	            Case 2
34.	                'De Britse Pond wordt toegevoegd aan ListBoxWisselkoersen
35.	                Dim BritsePonden As Decimal
36.	                BritsePonden = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Britse Ponden (1 Euro = .... Britse Pond)")
37.	                ListBoxWisselkoersen.Items.Add("1 Euro =  " & BritsePonden & "  Britse Ponden")
38.	                ListBoxWisselkoersen.Items.Add(" ")
39.	 
40.	                If BritsePonden <= 0 Then ListBoxWisselkoersen.Items.Clear()
41.	                If BritsePonden <= 0 Then MsgBox("U dient een andere waarde op te geven")
42.	 
43.	                If BritsePonden >= 500 Then ListBoxWisselkoersen.Items.Clear()
44.	                If BritsePonden >= 500 Then MsgBox("U dient een andere waarde op te geven")
45.	 
46.	 
47.	            Case 3
48.	                'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
49.	                ListBoxMunteenheden.Text = " "
50.	                MsgBox("U dient op een munteenheid te klikken")
51.	 
52.	 
53.	 
54.	            Case 4
55.	                'Wanneer er op de Euro wordt geklikt, verschijnt er een melding.
56.	                Dim Euro As Decimal
57.	                Euro = MsgBox("U heeft gekozen voor de Euro. Hiervan is de waarde altijd 1. Kies een andere munteenheid uit 
58.	                 de lijst.")
59.	 
60.	 
61.	            Case 5
62.	                'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
63.	                ListBoxMunteenheden.Text = " "
64.	                MsgBox("U dient op een munteenheid te klikken")
65.	 
66.	 
67.	            Case 6
68.	                'De Russische Roebel wordt toegevoegd aan ListBoxWisselkoersen
69.	                Dim RussischeRoebel As Decimal
70.	                RussischeRoebel = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Russische Roebel (1 Euro = .... Russische Roebel)")
71.	                ListBoxWisselkoersen.Items.Add("1 Euro =  " & RussischeRoebel & "  Russische Robel")
72.	                ListBoxWisselkoersen.Items.Add(" ")
73.	 
74.	                If RussischeRoebel <= 0 Then ListBoxWisselkoersen.Items.Clear()
75.	                If RussischeRoebel <= 0 Then MsgBox("U dient een andere waarde op te geven")
76.	 
77.	                If RussischeRoebel >= 500 Then ListBoxWisselkoersen.Items.Clear()
78.	                If RussischeRoebel >= 500 Then MsgBox("U dient een andere waarde op te geven")
79.	 
80.	            Case 7
81.	                'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
82.	                ListBoxMunteenheden.Text = " "
83.	                MsgBox("U dient op een munteenheid te klikken")
84.	 
85.	            Case 8
86.	                'De Japanse Yen wordt toegevoegd aan ListBoxWisselkoersen
87.	                Dim JapanseYen As Decimal
88.	                JapanseYen = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Japanse Yen (1 Euro = .... Japanse Yen)")
89.	                ListBoxWisselkoersen.Items.Add("1 Euro =  " & JapanseYen & "  Japanse Yen")
90.	                ListBoxWisselkoersen.Items.Add(" ")
91.	 
92.	                If JapanseYen <= 0 Then ListBoxWisselkoersen.Items.Clear()
93.	                If JapanseYen <= 0 Then MsgBox("U dient een andere waarde op te geven")
94.	 
95.	                If JapanseYen >= 500 Then ListBoxWisselkoersen.Items.Clear()
96.	                If JapanseYen >= 500 Then MsgBox("U dient een andere waarde op te geven")
97.	 
98.	            Case 9
99.	                'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
100.	                ListBoxMunteenheden.Text = " "
101.	                MsgBox("U dient op een munteenheid te klikken")
102.	 
103.	        End Select






Is This A Good Question/Topic? 0
  • +

Replies To: School project Currency converter Help :)

#2 Martyr2  Icon User is offline

  • Programming Theoretician
  • member icon

Reputation: 5074
  • View blog
  • Posts: 13,697
  • Joined: 18-April 07

Re: School project Currency converter Help :)

Posted 29 October 2017 - 09:20 AM

What exactly do you need help with? What is giving you the problem? Keep in mind that we are not here simply to do your homework for you. If you have a specific problem, we can address that and get you unstuck. :)
Was This Post Helpful? 0
  • +
  • -

#3 Angeltje1992  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 29-October 17

Re: School project Currency converter Help :)

Posted 29 October 2017 - 10:26 PM

Thanks for your reply :)
Ofcourse I don't want you to make my homework :)

I am stuck at the point that the old data needs to be removed from Listbox 2 (ListBoxWisselkoersen).

1. The user selects a valuta from ListBox 1 (ListBoxMunteenheden).
2. The user gets a Inputbox when he selects the valuta from ListBox 1 and fills in the right number.
3. The input from the user, goes into ListBox 2 (ListBoxWisselkoersen).
4. When the user selects the same valuta twice, the old string needs to be removed and needs to be replaced with the new data.

I tried a few things like:
 For i = 0 To ListBoxWisselkoersen.Items.Count - 1
                    ListBoxWisselkoersen.Items.RemoveAt(ListBoxMunteenheden.SelectedIndex.ToString)
                Next


And I tried:

 For i = 0 To ListBoxMunteenheden.Items.Count - 1
                ListBoxMunteenheden.Items.Clear()
            Next


But ofcourse with the last code, the whole ListBox will be cleared and not the old rule.

Can someone tell me if i'm using the right code? Or does anyone know a rule like ListBoxMunteenheden.SelectedItem.Clear() that will work?

Thanks for your help! :)
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1