Temperaturen omzetten

[badwanted]

Hoi , ik ben net begonnen met het programmeren in visual basic , ik wou simpel beginnen met een temperaturen coverter .

Deze converter is voor Kelvin , Celcius & Fahrenheit .

Nou heb ik ook ingesteld dat je geen letters kan invoeren in de textbox , alleen cijfers en symbolen.

Nou is mijn vraag : hoe ik een waarschuwing kan geven als Tcelcius < -273 of Tkelvin <0 of Tf < -459,4

ik heb veel geprobeerd maar kom er maar niet uit , dit is mijn code :

Imports Microsoft.VisualBasic

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.CheckedChanged

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k.CheckedChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim box As Double
        Dim sum As Double
        Dim sum2 As Double
        Dim sum3 As Double
        box = Convert.ToDouble(txt.Text)



        If c.Checked = True Then
            lblc.Text = box
            sum = (box * 9) / 5 + 32
            lblf.Text = sum
            sum2 = box + 273.15
            lblk.Text = sum2
        End If
        If f.Checked = True Then
            lblf.Text = box
            sum = (box - 32) * 5 / 9
            lblc.Text = sum
            sum2 = sum + 273.15
            lblk.Text = sum2
        End If
        If k.Checked = True Then
            lblk.Text = box
            sum = box - 273.15
            lblc.Text = sum
            sum2 = (sum * 9) / 5 + 32
            lblf.Text = sum2
        End If

    End Sub


    Private Sub txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt.KeyPress
        If Asc(e.KeyChar) < 1 Or Asc(e.KeyChar) > 57 Then
            e.Handled = True
            MessageBox.Show("Alleen Nummers , Geen Letters!")
        End If
    End Sub

Bij voorbaat Dank

 

[ExcelAmateur]

badwanted,

Hoi , ik ben net begonnen met het programmeren in visual basic

Je zit nu bij het Forum voor VBA en niet bij het Forum van Visual Basic.
Of het wat voor de code uitmaak weet ik niet.

 

[JoZ1]

Ja, dat maakt wel voor de code uit...

Ik denk dat dit VB.NET is, maar:
@TS: Is dit VBA of VB.NET?

 

[badwanted]

uhm

maakt dat veel uit , waar ik het post ?

kunnen jullie me pls verder helpen met het coderen thnx

 

[JoZ1]

maakt dat veel uit , waar ik het post ?

Ehm, JA!

kunnen jullie me pls verder helpen met het coderen thnx

Vertel dan eerst of het VB.NET of VBA is. (Ik denk VB.NET)