Hulp gevraagd bij opsporen van de fout

[Brood18]

Hallo,
Dit is het laatste topic dat ik hier maak, ik heb nog 1 keer hulp nodig bij de opdrachten. Hieronder staan een aantal fouten volgens het programma zo zegt het bijvoorbeeld bij dit:

'inlezen van scherm
CelsiuskelvinS = txtCelsiuskelvin.Text

Dat het fout is, weet iemand wat er fout aan is?
En als iemand tijd heeft misschien ook aan de rest?


Private Sub cmdCelsiusFarhrenheit_Click()

'declaratie van waarden
Dim CelsiufahrenheitS As String
Dim Celsiusfahrenheit As Double
Dim CelsiuskelvinS As String
Dim Celsiuskelvin As Double
Dim KelvincelsiusS As String
Dim Kelvincelcius As Double
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double

'inlezen van scherm
CelsiusfahrenheitS = txtCelciusfahrenheit.Text
Celsiusfahrenheit = Val(CelsiusfahrenheitS)

'berekenen
Celsiusfahrenheit = Celsius - 32

'schrijven naar scherm
CelsiusS = Str(Celsius)
txtCelsius.Text = CelsiusS

End Sub

Private Sub cmdCelsiuskelvin_Click()

'declaratie van waarden
Dim CelsiuskelvinS As String
Dim Celsuiskelvin As Double
Dim CelsiusfahrenheitS As String
Dim Celsiusfahrenheit As Double
Dim KelvincelsiusS As String
Dim Kelcincelsius As Double
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double

'inlezen van scherm
CelsiuskelvinS = txtCelsiuskelvin.Text
Celsiuskelvin = Val(CelsiuskelvinS)

'berekenen
Celsiuskelvin = Celsius - 273.15

'schrijven naar scherm
CelsiusS = Str(Celsius)
txtCelsius.Text = CelsiusS

End Sub

Private Sub cmdFahrenheitCelsuis_Click()

'declaratie van waarden
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double
Dim CelsiuskelvinS As String
Dim Celsiuskelvin As Double
Dim CelsiusfahreheitS As String
Dim Celsiusfahrenheit As Double
Dim KelvincelsiusS As String
Dim Kelvincelsius As Double
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double

'inlezen van scherm
FahrenheitcelsiusS = txtFahrenheitcelsius.Text
Fahrenheitcelsius = Val(FahrenheitcelsiusS)

'berekenen
Fahrenheitcelsius = Fahrenheit + 32

'schrijven naar scherm
FahrenheitS = Str(Fahrenheit)
txtFahrenheit.Text = FahrenheitS

End Sub

Private Sub cmdFahrenheitkelvin_Click()

'declaratie van waarden
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double
Dim CelsiuskelvinS As String
Dim Celsiuskelvin As Double
Dim CelsiusfahrenheitS As String
Dim Celsiusfahrenheit As Double
Dim KelvincelsiusS As String
Dim Kelvincelsius As Double
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double

'inlezen van scherm
FahrenheitkelvinS = txtFahrenheitkelvin.Text
Fahrenheitkelvin = Val(FahrenheitkelvinS)

'berekenen
Fahrenheitkelvin = Fahrenheit + 32

'schrijven naar scherm
FahrenheitS = Str(Fahrenheit)
txtFahrenheit.Text = FahrenheitS

End Sub

Private Sub cmdKelvincelsius_Click()

'declaratie van waarden
Dim KelvincelsiusS As String
Dim Kelvincelsius As Double
Dim CelsiuskelvinS As String
Dim Celsiuskelvin As Double
Dim CelsiusfahrenheitS As String
Dim Celsiusfahrenheit As Double
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double

'inlezen van scherm
KelvincelsiusS = txtKelvincelsius.Text
Kelvincelsius = Val(KelvincelsiusS)

'berekenen
Kelvincelsius = Kelvin + 273.15

'schrijven naar scherm
Kelvins = Str(Kelvin)
txtKelvin.Text = Kelvins

End Sub

Private Sub cmdKelvinfahrenheit_Click()

'declaratie van waarden
Dim KelvinfahrenheitS As String
Dim Kelvinfahrenheit As Double
Dim CelsiuskelvinS As String
Dim Celsiuskelvin As Double
Dim CelsiusfahrenheitS As String
Dim Celsuisfahrenheit As Double
Dim KelvincelsiusS As String
Dim Kelvincelsius As Double
Dim FahrenheitcelsiusS As String
Dim Fahrenheitcelsius As Double
Dim FahrenheitkelvinS As String
Dim Fahrenheitkelvin As Double

'inlezen van scherm
KelvinfahrenheitS = txtKelvinfahrenheit.Text
Kelvinfahrenheit = Val(KelvinfahrenheitS)

'berekenen
Kelvinfahrenheit = Kelvin + 273.15

'schrijven naar scherm
Kelvins = Str(Kelvin)
txtKelvin.Text = Kelvins

End Sub

Private Sub cmdReset_Click()

txtCelsius = " "
txtKelvin = " "
txtFahrenheit = " "
End Sub

 

[That Guy]

als je de exacte fouten geeft (code die fout is) en de precieze melding, is dat wat makkelijker. Nu is het gissen...

 

[Brood18]

Er komt alleen te staan dat er een fout is en de fout is dan geel gemarkeerd, maar wat er fout is staat niet aangegeven. Dit wordt telkens geel gemarkeerd:

CelsiuskelvinS = txtCelsiuskelvin.Text

CelsiusfahrenheitS = txtCelciusfahrenheit.Text

KelvincelsiusS = txtKelvincelsius.Text

KelvinfahrenheitS = txtKelvinfahrenheit.Text

FahrenheitcelsiusS = txtFahrenheitcelsius.Text

FahrenheitkelvinS = txtFahrenheitkelvin.Text

Het staat gelijk onder 'inlezen van scherm

 

[DuneII]

als je nou van alle strings integer maakt, gaat het dan beter?