|
You last visited: Today at 05:58
Advertisement
TextBox auf Zahlen überprüfen!
Discussion on TextBox auf Zahlen überprüfen! within the .NET Languages forum part of the Coders Den category.
03/26/2013, 20:17
|
#1
|
elite*gold: 0 
Join Date: Mar 2011
Posts: 124
Received Thanks: 3
|
TextBox auf Zahlen überprüfen!
Hey leute !
habe mal eine Function geschriegen, wo man sich an anfang einen Name aussuchen kann. Da ich aber nicht will das sich Leute Adolf H**** nennen, oder sich ne Zahl in den Namen packen habe ich das hier geschrieben:
Code:
Public Class SplashScreen1
Public dein_Name As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To TextBox1.TextLength - 1
Dim currentChar As String = TextBox1.Text(i)
If IsNumeric(currentChar) Then
MsgBox("Zahlen sind nicht erlaubt")
Exit For
End If
Next
If TextBox1.Text = "Adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Adolf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Adolf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lfv" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf" Then
MsgBox("Nicht erlaubt")
ElseIf TextBox1.Text = "* Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "* Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "* Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
Else
If TextBox1.Text.Length >= 3 Then
dein_Name = TextBox1.Text
Tutorial.Show()
Me.Hide()
Else
MsgBox("Du musst einen richtigen Namen eingeben", vbOKOnly, "Falscher Name")
End If
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub SplashScreen1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
MsgBox("Diese Function geht nicht, wer eine Function weiß kann sie mir schreiben!")
'Shell(Application.StartupPath & "\Resourcen\Datein\Readme.txt")
End Sub
End Class
er überprüft zwar das dort eine zahl drinnen ist oder nicht, lässt dann aber die Function weiter ablaufen und überprüft als nächstes den Namen !
wie mache ich es, das er, wenn eine Zahl drinn ist, nicht weiter überprüft und mich mit den namen nicht durchlässt ?
Danke schonmal!
MFG
Nawiat
|
|
|
|
03/26/2013, 20:20
|
#2
|
elite*gold: 462
Join Date: Mar 2013
Posts: 3,427
Received Thanks: 333
|
Das hilft dir vielleicht: 
|
|
|
|
|
03/26/2013, 20:26
|
#3
|
elite*gold: 0
Join Date: Mar 2011
Posts: 124
Received Thanks: 3
|
Ist halt nicht so einfach das mit ein zu bauen, da er bei mir dann zwar sagt das eine zahl drinn ist, aber dann nichtmehr die Namen danach kontrolliert ! also Adolf H****1 geht dann ;(
^^
|
|
|
|
|
03/26/2013, 20:29
|
#4
|
elite*gold: 966
Join Date: Apr 2010
Posts: 1,105
Received Thanks: 681
|
Das, was du vermutlich suchst, nennt sich "Regular Expressions", oder kurz: Regex. Mit diesem Stichpunkt dürfstest du bei Google genug finden 
Falls du dazu noch Fragen hast, kannst du mir gerne eine PN schicken.
MfG
Jeoni
|
|
|
|
|
03/26/2013, 20:29
|
#5
|
elite*gold: 2932
Join Date: Oct 2009
Posts: 6,966
Received Thanks: 1,097
|
regex ist der schlüssel für sowas, musst dir dann nur gescheite patterns ausdenken, gibts bestimmt auch im internet irgendwo sachen zu
|
|
|
|
|
03/26/2013, 20:45
|
#6
|
elite*gold: 0
Join Date: Mar 2011
Posts: 124
Received Thanks: 3
|
habe es jetzt so erstmal :
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If NurZahlen() = Return True Then
ElseIf TextBox1.Text = "Adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "adolf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "**" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "Ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "ad0lf *" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt")
ElseIf TextBox1.Text = "*Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*adolf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*Ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*ad0lf" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
ElseIf TextBox1.Text = "*" Then
MsgBox("Nicht erlaubt!")
Else
If TextBox1.Text.Length >= 3 Then
dein_Name = TextBox1.Text
Tutorial.Show()
Me.Hide()
Else
MsgBox("Du musst einen richtigen Namen eingeben", vbOKOnly, "Falscher Name")
End If
End If
End Sub
Public Function NurZahlen(ByVal Text As String) As Boolean
If TextBox1.Text.Length = 0 Then Return False
If Not IsNumeric(Text) Then Return False
For i As Integer = 0 To TextBox1.Text.Length - 1
If Not "0123456789".Contains(TextBox1.Text.Chars(i)) Then
Return False
End If
Next
Return True
End Function
aber das erste, das er erst die Function überprüfen soll und dann die namen geht nicht
Also If NurZahlen() = Return True Then
da mekert er bei NurZahlen()
Hey ! Helft mir ;(
Bitte
|
|
|
|
|
03/26/2013, 21:36
|
#7
|
elite*gold: 2932
Join Date: Oct 2009
Posts: 6,966
Received Thanks: 1,097
|
Quote:
Originally Posted by nawiat
If NurZahlen() = Return True Then
|
ALTER, les dir erstmal irgendwo nen tag lang die grundlagen an.
|
|
|
|
|
04/03/2013, 01:02
|
#8
|
elite*gold: 0
Join Date: Jul 2009
Posts: 1,459
Received Thanks: 278
|
Code:
try
{
int zahl1 = Convert.ToInt16(textBox1.Text);
int zahl2 = Convert.ToInt16(textBox2.Text);
int ergebnis = zahl1 + zahl2;
label1.Text = Convert.ToString(ergebnis);
}
catch
{
MessageBox.Show("Du musst Zahlen eingeben, du Spoast!");
}
Nur umgekehrt.
Außerdem brauchst du Hitler nicht zensieren, du Held...
|
|
|
|
|
04/04/2013, 16:36
|
#9
|
elite*gold: 37
Join Date: Apr 2004
Posts: 2,154
Received Thanks: 250
|
ich hinterlass hier einfach mal ein FACEPALM
|
|
|
|
|
04/05/2013, 18:53
|
#10
|
elite*gold: 0
Join Date: Feb 2010
Posts: 7,220
Received Thanks: 6,758
|
Quote:
Originally Posted by x]vIrus[x
ich hinterlass hier einfach mal ein FACEPALM
|
Und für dich hinterlasse ich 'nen Report, helft ihm doch einfach anstatt dumme Kommentare zu hinterlassen.
__
Wenn du mit Regex noch nicht gearbeitet hast, empfehle ich dir eine manuelle Überprüfung mit etlichen If-Abfragen.
Code:
Private Function checkString(text As String) As Boolean
Dim pat As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
For Each ch As Char In text
If pat.IndexOf(ch) < 0 Then
Return False
End If
Next
Return True
End Function
Ansonsten, wenn du es gerne in Regex hättest:
Code:
Private Function checkString(text As String) As Boolean
Dim pat As New System.Text.RegularExpressions.Regex("^[A-Za-z]+$")
Return pat.IsMatch(text.Trim())
End Function
Bin mir nicht sicher ob das in vB so richtig ist, bin normalerweise C# Programmierer, hoffe aber, dass der Syntax dennoch richtig ist ;-)
Den Namen Adolf bzw. Hitler zu sperren ist übrigens schwachsinnig, sind beides noch genutzte Namen.
|
|
|
|
 |
Similar Threads
|
textbox splitten
03/13/2013 - General Coding - 1 Replies
moin,
folgendes Problem:
Ich habe eine Textbox und mit diesen Code habe ich schon die Maximalanzahl an zeichen eingestellt
Dim zeichenanzahl As Integer = TextBox7.Text.Count
If zeichenanzahl > 2 Then
|
Abfrage zur TextBox
02/15/2013 - .NET Languages - 6 Replies
Hey,
ich wollte eine Abfrage machen ob :
Die Zahlen in der Textbox kleiner als 1 sind.
Private Sub bt1w_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1w.Click
If tb1.Text > 1 Then
timer1.Start()
End If
|
TextBox und RichTextBox [VB]
06/06/2010 - .NET Languages - 7 Replies
Hi,
Ich hab ein Problem
und zwar...:
Ich will das man in einer RichBox nicht schreiben kann und das wenn man den Text in der TB eingiebt da er erscheint in der RichBox aber dann wenn man einen anderen Text angibt das er dann nicht verschwindet.
|
[Help]Zufälliger Text + Zahlen in einer Textbox generieren
05/14/2010 - General Coding - 4 Replies
Hi Leute, wie der Titel schon sagt, möchte ich einen Zufälligen text + nummern (also sowas wie: k3j4kjsj2) erstellen lassen per druck auf einen Button.
Ich bin schon so weit, dass es mit nummern geht. nur wie kann ich buchstaben an verschiedenen Positionen anzeigen lassen?
So weit bin ich:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rnd As Random
Dim number As Integer
rnd = New Random
|
Wie textbox in textdatei !?!
04/30/2010 - General Coding - 1 Replies
Hi comm,
ICh habe das problem das ihc mir ein passwort gen coden will der mir die daten dich ich da in eine textbox eingebe in eine txt packt und speihert hier mal ein code schnipsel und das prob is das er das nciht macht und ich mir nicht erklären kann wie ich das problem löse sufu hat nichts gebracht und google gibt mir nur scheißhoffe ihr könnt mir helfen.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fileno As...
|
All times are GMT +1. The time now is 05:58.
|
|
![x]vIrus[x's Avatar](https://www.elitepvpers.com/forum/customavatars/avatar283743_18.gif){kind=avatar}
