im JeDatum As Boolean
' prevrjamo veljavnost vnešenega datuma
JeDatum = Date.TryParse(txtRojstni.Text, Rojstni)
If JeDatum = False Then
lblOpozorilo.Text = ("Datum ni veljaven!")
txtRojstni.Focus()
txtRojstni.SelectAll()
Else
If Starost < 18 Then
lblOpozorilo.Text = "Oseba še nima 18 let"
End If
txtRojstni.Focus()
Exit Sub
End If
Pomoč bi rabu pri tej kodi, stvar naj bi delovala tako, da pač naj bi preverjala če je oseba mlajša kot 18 let se mi v seznam ne sme vpisat in pač opozorilo dat.
Ko pa to napišem recimo 22.2.1985 Mi pa napiše da oseba ni stara 18 let
Pomoc pri Datumih
Koda: Izberi vse
Public Class frmPodatki
Private Sub btnZapri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZapri.Click
Me.Close()
End Sub
Private Sub Pocisti()
txtPriimek.Text = ""
txtRojstni.Text = ""
txtSeznam.Text = ""
txtTelesnaT.Text = ""
txtTelesnaV.Text = ""
lblOpozorilo.ResetText()
lblOpozoriloTeze.ResetText()
lblOpozoriloVisine.ResetText()
txtPriimek.Focus() ' ko vse počistimo se kazalec postavi na Priimek
End Sub
Private Sub frmPodatki_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Pocisti()
txtSeznam.Text = "Priimek" & vbTab & "Rojstni Dat." & vbTab & "Višina" & vbTab & "Teža" & vbTab & "Indeks" & vbNewLine
End Sub
Private Sub btnVpisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVpisi.Click
Dim Priimek As String
Dim VRedu As Boolean
Dim StZnakov As Integer
Dim Visina As Single
Dim Teza As Single
Dim Rojstni As Date
Dim Starost As Integer
Dim Indeks As Integer
Priimek = txtPriimek.Text
' kličemo podprogram, ki preveri veljavnost priimka
Call PreveriNiz(Priimek, VRedu, StZnakov)
' podprogram je vrnil parametra VRedu in StZnakov
If VRedu = False Then
MsgBox("Priimek ni veljaven", MsgBoxStyle.Information, "Opozorilo")
txtPriimek.Focus()
txtPriimek.SelectAll()
' če priimek ni veljaven, prekinemo vnos in damo uporabniku možnost, da popravi napako
Exit Sub
End If
Dim JeDatum As Boolean
' prevrjamo veljavnost vnešenega datuma
JeDatum = Date.TryParse(txtRojstni.Text, Rojstni)
If JeDatum = False Then
lblOpozorilo.Text = ("Datum ni veljaven!")
txtRojstni.Focus()
txtRojstni.SelectAll()
Else
If Starost > 18 Then
lblOpozorilo.Text = "Oseba še nima 18 let"
End If
txtRojstni.Focus()
Exit Sub
End If
Dim JeVisina As Boolean
JeVisina = Single.TryParse(txtTelesnaV.Text, Visina)
If JeVisina = False Then
lblOpozoriloVisine.Text = "Višina mora biti število"
txtTelesnaV.Focus()
Else
If Visina < 100 Or Visina > 220 Then
lblOpozoriloVisine.Text = "Višina mora biti med 100 in 220 cm"
End If
txtTelesnaV.Focus()
Exit Sub
End If
Dim JeTeza As Boolean
JeTeza = Single.TryParse(txtTelesnaT.Text, Teza)
If JeTeza = False Then
lblOpozoriloTeze.Text = "Teža mora biti število"
txtTelesnaT.Focus()
Else
If Teza < 30 Or Teza > 200 Then
lblOpozoriloTeze.Text = "Teža mora biti med 100 in 200 kg"
End If
txtTelesnaT.Focus()
Exit Sub
End If
Indeks = Teza ^ 2 / Visina
' prikažemo rezultat
txtSeznam.Text = txtSeznam.Text & Priimek & vbTab & Starost & vbTab & vbTab & Visina & vbTab & Teza & vbTab & Indeks & vbNewLine
End Sub
End Class