Español
Foro

Radiobutton abfragen

 

Erasmus.Herold
Hallöchen ...

Kann me alguien a una pequeño Ejemplo (con z.B. 3 Radiobutton) erklären,
Yo abfragen kann, welcher el drei Button ausgewählt wurde?

Aus el Doku para "GetCheck" erschließt se No el Zuweisung a
el 3 Buttons uno Gruppe a el auszulesenden Valor.

Gracias para el Unterstützung y el winzige Ejemplo.

Saludo
Erasmus
 
11.06.2019  
 




H.Brill

Declarar Largo Radio1, Radio2, Radio3, exit,  ende
ende = 0
Ventana 600, 400
Crear("GroupBox", %HWnd, "Meine Auswahl", 10, 10, 120, 140)
Radio1 = Crear("Radio Button", %HWnd, "Auswahl 1", 20, 40,  100, 25)
Radio2 = Crear("Radio Button", %HWnd, "Auswahl 2", 20, 80,  100, 25)
Radio3 = Crear("Radio Button", %HWnd, "Auswahl 3", 20, 120, 100, 25)
exit = Crear("Button", %HWnd, "EXIT", 20, 180, 60, 25)

Sinestar encargado ende

    Waitinput

    If GetCheck(Radio1)

        DrawText 150, 50, "Radiobutton 1 gewählt !"

    ElseIf GetCheck(Radio2)

        DrawText 150, 50, "Radiobutton 2 gewählt !"

    ElseIf GetCheck(Radio3)

        DrawText 150, 50, "Radiobutton 3 gewählt !"

    EndIf

    If Clicked(exit)

        ende = 1

    EndIf

EndWhile

End

El GroupBox dient sí sólo a Übersichtlichkeit. Como braucht lo auch
no necesariamente una Handle dafür. Wichtig es, daß uno GetCheck no
con otro Check-Características (z.B. Clicked) vermischt. Como reagiert
el Button no mehr en él, por qué De todos modos. Darum el extra
If Clicked().

PS: GetCheck son sólo True oder False (1 oder 0) zurück.
Was passieren se, si uno en una dieser Radiobuttons
drückt, restos dir überlassen. Se puede z.B. una variable con
una cierto Valor füllen. Wird vielfach verwendet, en
una Formular auszufüllen z.B. Herr/Frau wo entonces el String
s = "Herr" oder s = "Frau" gesetzt se.
 
Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.
11.06.2019  
 




Erasmus.Herold
Gracias!

Perfekt erklärt. Funktioniert.
 
11.06.2019  
 




Jörg
Sellmeyer
El Groupbox dient de paso no a a grafischen Aufhübschung pero sortiert el Radiobuttons auch en ihrer Función.
Darum es sinnvoller, el Groupbox después de el Buttons a redactar. El Buttons oberhalb el Groupboxzeile reagieren entonces como separate Auswahlmöglichkeiten. Un zweite Gruppe (oder weitere) puede entonces extra abgefragt/markiert voluntad.
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
12.06.2019  
 




Erasmus.Herold
Gracias para el Zusatzinfo.
 
12.06.2019  
 




Georg
Teles
Jörg war más rápido

Der Gruppen-Rahmen se a optischen Gruppierung innerhalb de Dialogboxen eingesetzt, aber auch para Gruppieren el Radiobuttons.


aquí como Ejemplo
Declarar Largo Radio1, Radio2, Radio3, Radio4, Radio5, Radio6, exit,  ende
ende = 0
Ventana 600, 400
Radio1 = Crear("Radio Button", %HWnd, "Auswahl 1", 20, 40,  100, 25)
Radio2 = Crear("Radio Button", %HWnd, "Auswahl 2", 20, 80,  100, 25)
Radio3 = Crear("Radio Button", %HWnd, "Auswahl 3", 20, 120, 100, 25)
Crear("GroupBox", %HWnd, "Meine Auswahl", 10, 10, 120, 140)
exit = Crear("Button", %HWnd, "EXIT", 20, 180, 60, 25)
Radio4 = Crear("Radio Button", %HWnd, "Auswahl 4", 150, 40,  100, 25)
Radio5 = Crear("Radio Button", %HWnd, "Auswahl 5", 150, 80,  100, 25)
Radio6 = Crear("Radio Button", %HWnd, "Auswahl 6", 150, 120, 100, 25)
Crear("GroupBox", %HWnd, "Meine Auswahl 2", 140, 10, 120, 140)

Sinestar encargado ende

    Waitinput

    If GetCheck(Radio1)

        DrawText 300, 50, "Radiobutton 1 gewählt !"

    ElseIf GetCheck(Radio2)

        DrawText 300, 50, "Radiobutton 2 gewählt !"

    ElseIf GetCheck(Radio3)

        DrawText 300, 50, "Radiobutton 3 gewählt !"

    EndIf

    If GetCheck(Radio4)

        DrawText 300, 70, "Radiobutton 4 gewählt !"

    ElseIf GetCheck(Radio5)

        DrawText 300, 70, "Radiobutton 5 gewählt !"

    ElseIf GetCheck(Radio6)

        DrawText 300, 70, "Radiobutton 6 gewählt !"

    EndIf

    If Clicked(exit)

        ende = 1

    EndIf

EndWhile

End

Grüße
 
XProfan X2
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

14.06.2019  
 




Erasmus.Herold
danke
 
15.06.2019  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

4.522 Views

Untitledvor 0 min.
Thomas Freier11.02.2021
N.Art18.11.2020
iF24.09.2020
Micha1233426.12.2019
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie