User input/Graphical: Difference between revisions

=={{header|AArch64 Assembly}}==

{{works with|as|Raspberry Pi 3B version Buster 64 bits}}

/* ARM assembly AARCH64 Raspberry PI 3B */

/* program inputWin64.s */

.struct XWCH_stack_mode + 4

XWCH_fin:

 

=={{header|Ada}}==

{{libheader|GTK|GtkAda}}

{{libheader|GtkAda}}

with Gtk.GEntry; use Gtk.GEntry;

with Gtk.Label; use Gtk.Label;

Gtk.Main.Main;

 

=={{header|AppleScript}}==

 

=={{header|AutoHotkey}}==

===InputBox===

InputBox, Int, Input, Enter an int:

===Gui Edit===

Gui, Add, Text,, Int:

Gui, Add, Button, gGo, Go!

Msgbox, You entered "%String%" and "%Int%"

ExitApp

 

=={{header|BaCon}}==

Requires BaCon version 4.0.1 or higher, using GTK3.

PRAGMA GUI gtk3

 

 

CALL GUIGET(gui, "spin", "value", &data)

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

INSTALL @lib$+"WINLIB5"

ES_NUMBER = 8192

PRINT "String = """ $$buffer% """"

PRINT "Number = " ; number%

 

=={{header|C}}==

{{libheader|GTK}}

 

void ok_hit(GtkButton *o, GtkWidget **w)

 

return 0;

 

=={{header|C++}}==

task.h

</pre>

#define TASK_H

 

} ;

 

<pre>

task.cpp

</pre>

#include <QLabel>

#include <QHBoxLayout>

entryLayout->addLayout( lowerpart ) ;

setLayout( entryLayout ) ;

<pre>

main.cpp

</pre>

#include "task.h"

 

theWidget.show( ) ;

return app.exec( ) ;

 

=={{header|Clojure}}==

Pretty much a straight port of the code for Java.

 

(let [number (-> "Enter an Integer"

JOptionPane/showInputDialog

Integer/parseInt)

string (JOptionPane/showInputDialog "Enter a String")]

 

=={{header|Common Lisp}}==

Prompt for a string:

 

 

Repeatedly prompt for an integer until either the user presses 'Cancel' (instead of 'OK') or the integer is 75,000.

 

((or (not okp) (= 75000 number)))

(multiple-value-setq (number okp)

 

Alternatively, display a prompt where the 'OK' button will not be enabled until the input is 75,000:

 

 

And a version which displays one prompt with an area for a string and an area for an integer, and only enables the 'OK' button when the integer is 75,000.

 

First, define an interface with the text-areas:

(:panes

(string-pane

(main

capi:column-layout

 

Then a function to extract the string and integer:

(with-slots (string-pane integer-pane) pane

(let* ((string (capi:text-input-pane-text string-pane))

(integer (when (every 'digit-char-p integer-string)

(parse-integer integer-string :junk-allowed t))))

 

Finally, display a prompt using the defined function to extract a value, and an 'ok-check' to ensure that the integer value is 75,000.

(capi:popup-confirmer

(make-instance 'string/integer-prompt)

"Enter some values:"

:value-function 'string/integer-prompt-value

 

=={{header|Dart}}==

Displays two text fields, a button and an output label, copy paste it into dartpad for viewing! - https://dartpad.github.io

 

 

main() => runApp( OutputLabel() );

}

}

 

=={{header|Delphi}}==

 

{$APPTYPE CONSOLE}

ShowMessage('Invalid entry: ' + s);

until lIntegerValue = 75000;

 

=={{header|Frink}}==

Note that the code for getting user input is the same in graphical mode as in text mode. If Frink is running in a graphical mode, it will produce graphical inputs. If running in text mode, it will take input from stdin.

s = input["Enter a string: "]

i = parseInt[input["Enter an integer: "]]

 

Frink can also produce multiple-field input GUIs. The following works in text mode and in graphical mode, and produces a multi-field input dialog (in Swing, AWT, and Android):

 

[s,i] = input["Dialog title", ["Enter a string", "Enter an integer"]]

i = parseInt[i]

More information about [http://futureboy.us/frinkdocs/index.html#MultiInput Frink's multi-input], including specifying default values.

 

=={{header|Gambas}}==

hValueBox As ValueBox

hLabel As Label

TextBox1_Change

 

'''[http://cogier.com/gambas/User_input-Graphical.png Click here for a picture of the running program]'''

=={{header|Go}}==

{{libheader|gotk3}}

 

import (

window.ShowAll()

gtk.Main()

 

=={{header|Groovy}}==

 

Solution:

 

def number = JOptionPane.showInputDialog ("Enter an Integer") as Integer

 

assert number instanceof Integer

 

=={{header|Haskell}}==

Using {{libheader|gtk}} from [http://hackage.haskell.org/packages/hackage.html HackageDB]

import Control.Monad

 

let mesg = "You entered \"" ++ txt ++ "\""

msgid <- statusbarPush stk id mesg

Run in GHCi:

 

=={{header|HicEst}}==

 

DLG(Edit=string, Edit=num_value, Button='&OK', TItle='Enter 75000 for num_value')

 

=={{header|Icon}} and {{header|Unicon}}==

Unicon can open a window directly with ''open''.

 

WOpen("size=800,800") | stop("Unable to open window")

WWrite("Enter a string:")

end

 

 

{{libheader|Icon Programming Library}}

=={{header|J}}==

'''J 8.x'''

pc simpleGui;

cc IntegerLabel static;cn "Enter the integer 75000";

)

 

 

'''J 6.x'''

A revision of the script posted at the [[Simple Windowed Application#J|Simple Windowed Application]]

 

pc simpleGui;

xywh 136 39 44 12;cc accept button;cn "Accept";

 

simpleGui_run''

 

The program stores the values entered as the variables <code>simpleGui_text</code> and <code>simpleGui_integer</code>.

=={{header|Java}}==

{{libheader|Swing}}

 

public class GetInputSwing {

String string = JOptionPane.showInputDialog ("Enter a String");

}

 

=={{header|JavaScript}}==

{{works with|FireFox}} or any JavaScript-enabled browser

var value = 0;

while (value != 75000) {

value = parseInt( prompt("Enter the number 75000") );

 

=={{header|Julia}}==

 

function twoentrywindow()

 

twoentrywindow()

 

=={{header|Kotlin}}==

 

import javax.swing.JOptionPane

val number = JOptionPane.showInputDialog("Enter 75000").toInt()

} while (number != 75000)

 

=={{header|LabVIEW}}==

 

=={{header|Liberty BASIC}}==

 

' Typical LB graphical input/output example.This shows how LB takes user input.

[quit]

close #w

 

=={{header|M2000 Interpreter}}==

===Simple InputBox===

 

Module CheckIt {

Def aName$="No Name", Num$

CheckIt "Thank You"

 

 

===Gui User Form and TextBoxes===

Form Form1 open modal, so we can close it clicking a square in title bar, or using Alt+d2F4

 

Module Checkit {

Declare Form1 Form

}

Checkit

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Example usage:

<pre>

 

=={{header|Nanoquery}}==

 

// a function to handle the main window closing

 

// display the window

 

=={{header|NetRexx}}==

{{trans|Java}}

options replace format comments java crossref symbols nobinary

import javax.swing.JOptionPane

 

return

 

=={{header|NewLISP}}==

; url: http://rosettacode.org/wiki/User_input/Graphical

; author: oofoe 2012-02-02

 

; No (exit) needed -- guiserver kills program on window close.

 

[[file:newlisp-input-gui.png]]

{{libheader|gintro}}

To input the integer, we use a Gtk SpinBox as is done in the C version.

import gintro/[glib, gobject, gtk, gio]

 

let app = newApplication(Application, "Rosetta.UserInput")

discard app.connect("activate", activate)

 

=={{header|Oz}}==

Does not allow to close the dialog until 75000 was entered.

Note: "td" is short for "topdown", "lr" for "leftright".

import

Application

{System.showInfo "You entered; "#Text#", "#Number}

{Application.exit 0}

 

=={{header|Perl}}==

 

package MyApp;

package main;

 

 

=={{header|Phix}}==

{{libheader|Phix/basics}}

{{libheader|Phix/pGUI}}

<span style="color: #000080;font-style:italic;">-- demo\rosetta\User_Input_Graphical.exw</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

 

=={{header|PicoLisp}}==

(call 'sh "-c"

(pack

(tmp "dlg") ) )

(split (in (tmp "dlg") (line)) "^I")

Output:

<pre>-> ("Hello world" . 12345)</pre>

=={{header|PowerBASIC}}==

 

result$ = INPUTBOX$("Enter a string.")

MSGBOX result$

END IF

LOOP

 

=={{header|PowerShell}}==

[[File:UserInputGraphical.png]]

 

[Void][Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

 

$f = $Form1.ShowDialog()

if ( $f -eq [System.Windows.Forms.DialogResult]::Cancel ) { "User selected Cancel" }

 

=={{header|Processing}}==

{{libheader|Swing}}

 

 

int number = int(JOptionPane.showInputDialog ("Enter an Integer"));

String string = JOptionPane.showInputDialog ("Enter a String");

 

==={{header|Processing Python mode}}===

{{libheader|Swing}}

 

 

def to_int(n, default=0):

 

a_string = JOptionPane.showInputDialog ("Enter a String")

 

=={{header|PureBasic}}==

 

=={{header|Python}}==

 

{{libheader|Tkinter}}

 

root = Tkinter.Tk()

number = tkSimpleDialog.askinteger("Integer", "Enter a Number")

string = tkSimpleDialog.askstring("String", "Enter a String")

 

{{works with|Python|3.7}}

 

{{libheader|Tkinter}}

import tkinter.simpledialog as tks

 

tkinter.messagebox.showinfo("Results", f"Your input:\n {number} {string}")

 

=={{header|Quackery}}==

{{trans|Python}}

import tkinter

import tkinter.simpledialog as tks

\ python

 

=={{header|R}}==

library(gWidgets)

options(guiToolkit="RGtk2") ## using gWidgtsRGtk2

gmessage("You failed this simple task", parent=w)

})

 

=={{header|Racket}}==

 

#lang racket

(require racket/gui)

(message-box "Hi" (format "You entered: ~a"

(or (string->number n) "bogus text")))

 

=={{header|Raku}}==

(formerly Perl 6)

{{libheader|GTK}}

use GTK::Simple::App;

 

}

 

 

=={{header|Rascal}}==

import vis::Figure;

 

text(str(){return " <integer == "75000" ? "Correct" : "Wrong">";})];

render(grid([row1, row2]));

 

Output:

[[File:Useringui_rebol.png]]

 

Title: "Graphical User Input"

URL: http://rosettacode.org/wiki/User_Input_-_graphical

show [si ni] ; Repainting multiple objects at once.

]

 

=={{header|REXX}}==

In addition, it checks for errors such as no string entered (or it is blanks or null), and

it verifies that the correct number has been entered.

#= 75000 /*the number that must be entered. */

x=

say

say 'The string entered is:' x /*echo the values (string and number. */

 

=={{header|Ring}}==

Load "guilib.ring"

 

num2 = number(temp2)

if num2 = 75000 label2{settext("OK")} else label2{settext("NOT OK")} ok

Output:

 

 

{{libheader|Ruby/Tk}}

 

def main

end

 

 

{{libheader|Shoes}}

string = ask('Enter a string:')

begin

end while number.to_i != 75000

para %Q{you entered the string "#{string}" and the number #{number}}

 

=={{header|Run BASIC}}==

<TR><TD colspan=2>Please input a string and a number</TD></TR>

 

 

[ex]

 

=={{header|Scala}}==

{{libheader|Scala}}

import scala.swing.Swing

Nil, "ham")

println(responce)

 

=={{header|Scratch}}==

 

=={{header|Sidef}}==

 

var gui = %s'Gtk2::Builder'.new;

</child>

</object>

 

=={{header|Standard ML}}==

Works with PolyML

open Motif ;

 

end ;

 

enter text, press enter, delete, enter 75000, press enter, result:

!store ;

 

{{libheader|Tk}}

pack [entry .e1]

 

# read its content:

 

Alternatively, the content of the widget can be tied to a variable:

 

# show the content at any time by

The <tt>-validate</tt> option can be used to test the contents/edits of the widget at any time against any parameters (including testing <tt>string is integer</tt> when the user hits <Return> or such)

 

This program leaves the requested values in the global variables ''s'' and ''n''.

 

Dialog

Title "Rosetta Code"

EndDlog

74999 + n → n

 

=={{header|VBScript}}==

{{works with|Windows Script Host}}

 

=={{header|Vedit macro language}}==

The value from 2nd field is then converted into numeric value. (Accepts integers or integer expressions.)

 

`??Enter a string `,

#2 = Num_Eval_Reg(2)

 

 

In the case of the number, it keeps requesting input until 75000 is entered and then quits.

import "input" for Keyboard, Clipboard

import "dome" for Window, Process

}

 

 

{{out}}