App inventor 2: Text If-Anfrage?

Wie kann ich beim MIT App inventor eine Anfrage erstellen die testet, ob in einem Textfeld etwas bestimmtes steht.

In etwa sowas :

Wenn Text in textbox. 1 == ("zb. Hallo") Dann Setze Hintergrund == (grün)

Diese Logik kann man aus den blöden Blöcken nicht zusammenstecken! Oder doch? Ich benutze erst den If/then Block und danach passt nichts mehr in Sachen Text dran.

1 Antwort

bananerlol

20.10.2015, 19:19

Hallo TightLP,
doch, das geht :)

Du musst den "If, then" Block verwenden und und dann den "=" Block zum vergleichen von TextBox Text und einem festgelegtem Text.

Ein Bild habe ich beigefügt. Hier wird der Text geprüft, wenn Button1 gerückt wird.
Solltest Du den Text kontinuierlich überprüfen wollen, könntest du mit einem ClockTimer arbeiten. Gerne bei Bedarf nochmal nachfragen :)

Gruß,

bananerlol

TextboxText auf "Hallo" überprüfen und App Hintergrundfarbe auf grün setzen. - (PC, Android, Software)

TightLP

Beitragsersteller

20.10.2015, 19:33

Danke :)

Ähnliche Beiträge

App Inventor Spinner Problem?

Hallo, Ich möchte mit dem App Inventor ein Textfeld programmieren, das nach einem Buttonklick den Inhalt des Textfeldes in einen Spinner hineinfügt, das in einem Speichermodul speichert und beim Drücken eines Lade- Button, die Sachen aufruft. Allerdings habe ich das Problem, dass, wenn ich etwas eingegeben habe, dann auf Hinzufügen und dann etwas anderes eingegeben habe, wurde das erste durch das Zweite ersetzt, also stand nur eine Sache zur Auswahl! Wie kann ich das Problem lösen? Was habe ich falsch gemacht?

...zum Beitrag

VBA mehrere Textboxen außer XY auf Inhalt prüfen?

Hallo zusammen,

kann man für mehrere Textboxen bis auf Ausnahmen den gleichen Inhalt prüfen?

Zu Sache: Ich habe ein Userform mit einer Multiseite mit 10 Pages. Jeder Page hat 63 Textboxen, ergo 630 Textboxen im gesamten Userform.

Von diesen 630 Textboxen muss in 620 Textboxen geprüft werden, ob diese entweder leer sind oder eine Uhrzeit steht. Wenn dieses der Fall ist, dann ist alles Ok. Ansonsten soll entsprechend der Vorgang abgebrochen werden.

Die 620 Textboxen haben alle individuelle Namen wie (AN1t1a, AN1t1e, AN1t2a usw.) Dies ist nach einem bestimmten Muster.

Die restlichen Textboxen, die NICHT geprüft werden sollen haben Namen wie (AN_Name1, AN_Name2, AN_Name3 usw. bis 10).

Wie können nun alle 620 Textboxen auf folgendes Format geprüft werden:

Private Function CheckTime(ByVal txt As String) As Boolean

If txt.Length <> 5 or txt.Length <> 0 Then
Return False
End If

If txt(0) >= "3" Then
Return False
End If

If txt(0) = "2" AndAlso txt(1) >= "4" Then
Return False
End If

If txt(2) <> ":" Then
Return False
End If

If txt(3) = "0" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "1" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) = "2" Then
Return False
End If

If txt(3) = "3" AndAlso txt(4) <> "0" Then
Return False
End If

If txt(3) = "4" AndAlso txt(4) <> "5" Then
Return False
End If

If txt(3) > "4" Then
Return False
End If

Return True
End Function

Falls die Prüfung auf die korrekte Uhrzeit fehlerhaft ist oder auch einfacher geht, nehme ich die Hilfe auch gerne an :) Erlaubte Uhrzeiten sollen im Forma HH:MM sein und im Viertelstunden Takt (10:00, 10:15, 10:30, 10:45) erlaubt sein. Nur Zahlen sind nicht möglich, da es auch einen Doppelpunkt gibt ;)

Gruß

...zum Beitrag

VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?

Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

Dim rDatWartung

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

lz = Cells(Rows.Count, 5).End(xlUp).Row

For Each rDatWartung In Range("D30:D600")

If rDatWartung.Value <> "" Then

If rDatWartung.Value <= Date + 7 Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

Else

If rDatWartung.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

End If

End Sub

Herzlichen Dank, und einen schönen Abend

...zum Beitrag

MIT App Inventor - wie funktioniert das mit der TinyWebDB?

Hallo liebe Community,

ich schreibe sehr gerne mit dem App Inventor App's und jz habe ich mir mal die Frage gestellt wie das mit der TinyWebDb funktioniert....also ich möchte gerne wissen wie man damit arbeitet...z.B. wenn man eine TinyWebDB in das Projekt zieht steht ja da in dem eingenschaften Bereich rechts oben so ein Textfeld...was heisst das? was muss man da eingaben? also das möchte ich gerne wissen und halt generell wie man mit einer TinyWebDB umgeht!

Danke schonmal im voraus! :)

Felix

...zum Beitrag

Wie kann ich in AppInventor Textteile auslesen?

Hallo Zusammen,

ich bin gerade dabei eine App zu "basteln".

Steh aber vor folgendem Problem:

Aus einer Text Datei, die ich mit Hilfe von einem ActivityStarter und einem externen Dateiexplorer auswähle, sollen bestimmte Textteile in Textboxen eingetragen werden.

Also z.B.:

Textfile:

Übersicht

[Max Mustermann] Name

[38] Alter

Nun soll die Textbox die Werte in den beiden Klammern [] übernehmen also:

set.Name.Text=Max Mustermann

set.Alter.Text=38

Danke für eure Hilfe.

...zum Beitrag

Kann man irgendwie den Text aus dem WhatsApp-Textfeld wiederherstellen?

Ich habe ein Problem, ich habe eben einen Text per WhatsApp geschrieben ihn aber nicht abgeschickt sodass er im Textfeld stand.Dann habe ich aus Versehen die App geschlossen und der Text war ärgerlicher Weise weg. Gibt es eine Möglichkeit den Text irgendwie wiederherzustellen ?

...zum Beitrag

Wie schreibe ich das jetzt genau (VB.Net Code)?

Hi,
Ich bin noch eher unerfahren in der Programmierung und möchte Wissen wie man das jetzt so schreibt.

    If (Me.Username.Text = Text & Me.Password.Text = "") Then
      Interaction.MsgBox("Error! You didn't enter your Password", MsgBoxStyle.OkOnly, Nothing)
    End If

Und zwar da bei Me.Username.Text = Text. Wie kann ich es so schreiben, dass beispielsweise wenn einer seinen Nutzernamen eingetragen hat aber sein Passwort halt nicht, dann eine Fehlermeldung entsteht ? Ich weiß einfach nicht den richtigen Befehl dafür. Wenn einer nichts geschrieben hat, habe ich im Netz gelesen das man die 2x Gänsefüßchen oben benutzt. Aber wie sieht es jetzt aus wenn einer was in die TextBox eingetragen hat ? Wie schreibe ich es dann ? = Text hat leider nicht funktioniert und verursacht nur einen Fehler.
Danke im voraus.

...zum Beitrag

Access Code VBA?

Hey, ich habe ein Textfeld mit dem Namen: txtSuchen , welches folgendes Ereignis, bei Veränderung hat:

Private Sub txtSuchen_Change()

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If

Me.RecordsetClone.FindFirst ("[Produkt] Like '" & Me!txtSuchen.Text & "*'")

If Me.RecordsetClone.NoMatch Then

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

Exit Sub

Else

Me.Bookmark = Me.RecordsetClone.Bookmark

Me!txtSuchen.SetFocus

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

End If

End Sub

Das Suchfeld ist in einem Formular Namens Hauptmenü, soll aber die Aktion in einem Unterformular Namens InstallationskeysFormular ausführen, der Code funktioniert leider nur dann, wenn man etwas im gleichen Formular suchen möchte, kann mir jemand sagen, wie ich den Code umschreiben müsste, dass er die Aktion in dem Unterformular ausführt?

...zum Beitrag

VBS Variable in eine .txt Datei schreiben?

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zum Beitrag

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zum Beitrag

App Inventor Login und Willkommenstext?

Guten Tag,

ich arbeite zurzeit an einem Projekt mit MIT App Inventor.

Es soll so etwas wie ein "Emulator" eines neuen Handys werden, auf dem es (innerhalb der App) weitere kleinere Apps (z.B. Minispiele und Chatting Apps) geben soll. Hierbei soll sich jeder Benutzer am Anfang der App anmelden bzw. registrieren. Hierbei werden die Benutzerdaten mit FireBase gespeichert.

Ich bin neulich auf ein Problem gestoßen:

Screen 1:

Screen 2:

Beim Öffnen von Screen 2 nach einer erfolgreichen Anmeldung soll der Benutzer mit seinem Namen begrüßt werden (Label 1). Diesen Namen habe ich versucht als Start Value zu definieren mit einer Variable. Aus irgendeinem Grund wird der Text von Label 1 beim Öffnen von Screen 2 nicht geändert.

Woran liegt das? Vielen Dank schonmal im Voraus.

Erva

...zum Beitrag

Excel VBA - If Not ... Like ... Wurm drin

Irgendwie hab ich den Wurm drin...

Ich habe es mit beiden untenstehenden Codes probiert und jedes mal bringt er den MsgBox Text, der auf dir If anweisung folgt, auch wenn eingabe 1 "1" oder "5" enthält.

ElseIf Not eingabe1 Like "1" Or Not eingabe1 Like "5" And eingabe2 Like "" Then
ElseIf eingabe1 <> "1" Or eingaben1 <> "5" And eingabe2 = "" Then

...zum Beitrag

Excel VBA - Umkehrfunktion, und alle Zeilen nach Begriff durchsuchen?

Hallo,

ich habe ein Problem mit Excel VBA. Ich habe eine Arbeitstabelle, die inzwischen über 76000 Zeilen beinhaltet. Deshalb möchte ich mit VBA eine Userform erstellen, die das Suchen einer bestimmten Zeile leichter macht.

Bis jetzt läuft es ganz gut, aber ich habe 1. das Problem, dass wenn ich einen Suchbegriff in eines der Textfelder eingebe, er mir immer nur die erste Zeile markiert, in der der Begriff steht. Da aber der Begriff noch öfter vorkommt, bringt es mir ja nichts, nur die erste Zeile markiert zu bekommen.

Das 2. Problem ist, dass bis jetzt nur die gesuchte Zeile farbig markiert wird. Ich möchte es aber hinbekommen, dass alle Zeilen, bei denen der Suchbegriff nicht vorkommt, ausgeblendet werden.

Hier mein bisheriges Skript für das erste Suchkriterium:

Sub Suche_Click()

Dim x As String

Dim Z As Integer

Dim temp As Integer

Z = Sheets(1).UsedRange.Rows.Count

x = Belegnr1 [Textbox-Name]

temp = 0

For i = 2 To Z

If Cells(i, 1) = x Then

temp = 1

Exit For

End If

If temp = 1 Then

ActiveSheet.Rows(i).Interior.ColorIndex = 6

' ActiveSheet.Rows(i).Hidden = False [Hier Problem Nr.2 ! ]

' ActiveSheet.Rows.Hidden = True

Else

' ActiveSheet.Rows.Hidden = True

MsgBox "Belegnummer nicht vorhanden. Bitte prüfen Sie ihre Eingabe."

End If

End Sub

Danke im Voraus!

...zum Beitrag

Wie kann man eine If schleife mit meheren bedingungen erstellen?

Hallo user,

ich habe ein kleines problem mit einer if schleife die 2 bedingungen Prüfen soll.

If TextBox1.Text = "2" And TextBox2.Text = "2" Then CommandButton3.Visible = False Else: CommandButton3.Visible = True End If

Leider funktioniert das ganze nicht so wie ich will. Ich hoffe es kann mir jemand weiter helfen.

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen