Visual Basic Forum

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

Hallo, ich möchte einige Text optionen in mein programm einfügen

wie z.b

Text anders rum

Text nur groß
text nur klein
Wörter dürch einnander
Buchstaben groß und klein

Das heißt ich will möchte gerne wiessen
1. z.b ich gebe in eine Textbox "Pferd" ein
So nun Soll das Wort pferd in groß geschrieben werden in ein label halt PFERD oder halt klein pferd.

2.z.b in der TExt box steht "Hallo du da "
Wie könnte man nun in ein label per zufallen die wörter dürch einander einbinden z.b "Du da Hallo " oder halt Da du Hallo"

oder halt den text anders rum

3. Halt die Buchstaben klein und groß
per zufallen
" DudAgEhTsiNdI"

Jor danke für die hilfe

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Gross schreiben : UCase(Text)
Klein: LCase(Text)

Fuer den Rest brauchste Algorythmen wo ich nun nicht so viel Lust zu hab ;D
Aber du wirst die Funktion Mid(Text,i, 1) brauchen wobei i von einer For-Schleife ist; D

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

TheCoder_ · Verfasst am: 03.06.2007, 16:26

für die zufallsache (2.) würde ich die worte in nen Array laden und dann mit
msgbox zufall(int(rnd * Ubound(zufall)))
ausgeben. hier war zufall der array
in den array krigeste sie mit:
dim zufall() as String
zufall = Split(Text1.TExt, " ")
naja so in etwa ^^
zu drei da brauchst etwas mehr und da hab ich au keine lust.
aber als tipp würde ich jeden buchstaben einzeln machen und dann mit int(rnd * 1) entscheiden ob groß oder klein
0 = klein
1 = groß

wenne mehr hilfe brauchst schreib mir

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Einen String umdrehen kannst du mit:

[code]
StrReverse()
[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

wär es den für ein noobi Wink

sagen wir mal noch zu schwer das zu bewerk stelligen.

Weil von den dingen von ihr da rede .Algorythmen und co hatte ich bis jetzt noch nie zu tuen Wink

Daher denke ich das erst mal mit dem zufall sachen bleiben lasse , . Und es leichter frage angehen

z.b wie kann ein

1. Hallo
2. wie
3.gehts

dürch einander per zufall in ein label schreiben lassen also entweder 1 oder 2 oder 3

TheCoder_ · Verfasst am: 03.06.2007, 17:15

naja also zu schwer ist nichts...für nobody.
und soweit ich weiß isn algo auch nur ne endliche abfolge von befehlen und damit hast du ja in jeder sprache ständig zu tun oO

Wie sieht denn der String aus
1. text
2. Text
3. Text
oder echt so
ich chef du nix

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

danke the coder

probelm Wink

an deiner metho ist jetzt

das er kein begrenzung hat das er nur jede wort nur 1 mal würfel darf

[code]
Private Function Würfel(Text As String) As String

Dim SText() As String
SText = Split(Text, " ")
For i = 0 To UBound(SText)

Würfel = Würfel & SText(Int(Rnd * (1 + UBound(SText))))
Next
End Function

Private Sub Command1_Click()
Label1.Caption = Würfel(Text1.Text)

End Sub

[/code]

TheCoder_ · Verfasst am: 03.06.2007, 18:33

warte doch einfach bis ich in icq back bin ^^
[code]
Private Function Würfel(Text As String) As String
Dim SText() As String
Dim Zahl, Prüfen, Elemente As Long
Randomize -Timer
SText = Split(Text, " ")
Do
Zahl = Int(Rnd * (1 + UBound(SText)))
If Not InStr(Prüfen, Zahl) <> 0 Then
Würfel = Würfel & SText(Zahl)
Elemente = Elemente + 1
End If
Prüfen = Prüfen & Zahl
Loop Until Elemente > UBound(SText)
End Function[/code]