User input/Graphical: Difference between revisions

In this task, the goal is to input a string and the integer 75000, from [[graphical user interface]].

 

See also: [[User input/Text]]

=={{header|Ada}}==

{{libheader|GTK|GtkAda}}

{{libheader|GtkAda}}

with Gtk.GEntry; use Gtk.GEntry;

with Gtk.Label; use Gtk.Label;

procedure Graphic_Input is

Window : Gtk_Window;

Label : Gtk_Label;

Message : 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|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|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}}==

{{VI snippet}}<br/>

[[File:LabVIEW_User_input_Graphical.png]]

=={{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

 

Example usage:

<pre>

->Hello World 75000

</pre>

 

=={{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]]

 

=={{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}}==

 

=={{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|PureBasic}}==

 

=={{header|Python}}==

 

{{libheader|Tkinter}}

 

root = Tkinter.Tk()

 

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

 

=={{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|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.

 

 

=={{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|Scala}}==

{{libheader|Scala}}

import scala.swing.Swing

Nil, "ham")

println(responce)

 

=={{header|Scratch}}==

 

=={{header|Sidef}}==

 

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

</child>

</object>

 

=={{header|Tcl}}==

 

{{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)

 

 

Alternately, a form could be easily created (using the form designer) to get both values at once, but that is a task almost ''never'' done at runtime, instead being done within the IDE while creating the program.

 

{{omit from|ACL2}}