Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Autor: Carlos Andres Delgado <carlos.andres.delgado@correounivalle.edu.co>
- # Descripción: Primera interfaz gráfica.
- # Fecha: 24 de Septiembre de 2017
- #Nota importante: No se puede trabajar con tildes ni ñ debido a problemas de codificación de la librería
- require 'Qt'
- class QtApp < Qt::MainWindow
- #Declaramos los conectores
- slots 'accionBotonPresioname()'
- def initialize
- super
- setWindowTitle "Venta prueba"
- interfaz
- resize 250, 450
- move 300, 300
- show
- end
- def interfaz
- #Creamos el boton
- botonQuitar = Qt::PushButton.new 'Salir', self
- #Le damos un tamaño
- botonQuitar.resize 80, 30
- #Lo colocamos en la interfaz (pixeles)
- botonQuitar.move 50, 50
- #Lo conectamos a alguna función quit() ya existe por defecto y ciera la ventana
- connect botonQuitar, SIGNAL('clicked()'), $qApp, SLOT('quit()')
- botonPresioname = Qt::PushButton.new "Presioname", self
- botonPresioname.resize 80, 30
- botonPresioname.move 150, 50
- connect botonPresioname, SIGNAL('clicked()'), SLOT('accionBotonPresioname()')
- #Creamos un mensaje
- $mensajeHola = Qt::Label.new "Soy un mensaje", self
- $mensajeHola.move 50, 100
- $campoTexto = Qt::TextEdit.new self
- #Esto es para no editarlo
- $campoTexto.setEnabled false
- $campoTexto.resize 200, 150
- $campoTexto.move 28, 200
- end
- def accionBotonPresioname()
- mensaje = $campoTexto.plainText
- $campoTexto.plainText=mensaje+"\nTexto de prueba"
- end
- end
- app = Qt::Application.new ARGV
- QtApp.new
- app.exec
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement