Aplicaciones/Fragmentos de Código http://www.gambas-es.org/ Aquí puedes publicar código interesante o mostrar tus aplicaciones admin@gambas-es.org http://blogs.law.harvard.edu/tech/rss RSS Feed 2.2.4 esThu, 20 Jun 2013 02:22:57 GMT http://www.gambas-es.org/images/links/banner_ip.gif Aplicaciones/Fragmentos de Código http://www.gambas-es.org/ 88 31 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Mi Primer Aplicacion En Gambas, Calcular Notas (Para Principiantes)]]> http://www.gambas-es.org/viewtopic.php?p=18029#p18029 Wed, 19 Jun 2013 07:24:20 GMT http://www.gambas-es.org/viewtopic.php?p=18029#p18029 Shell
Asunto: Re: Mi Primer Aplicacion En Gambas, Calcular Notas (Para Principiantes)
Publicado: Miercoles, 19 Junio 2013, 09:24 (GMT 1)

Hola skaterleopoldo12.



Gracias por el tutorial.



Puede que el componente ValueBox si es solo valores lo que vas a utilizar te sea mas útil en este caso que un TextBox.

El editor de Gambas nos ofrece la posibilidad al usar el botón derecho del ratón sobre un componente y cambiarlo a otro tipo.

Ejemplo de un TextBox a un ValueBox.



Para no complicar el nombre del componente, Gambas lo deja como esta, pero se puede cambiar desde el menú diseño

y automáticamente se vera luego en el código que el nombre ha cambiado sin la necesidad de que el usuario vaya

cambiándolo manualmente luego en el código.



¿ Te ha funcionado directamente los cálculos con los Textbox ?. El editor es capaz de entender en este caso que son

números que vamos a operar. ( Te recuerdo que son cadenas. )



El editor tendrá o hará la conversión automáticamente. Eso es un tiempo de conversión, pequeño en este caso.

No se como te funcionara cuando uses el punto decimal. No es lo mismo la coma que es lo que solemos usar

al punto que es lo que el ordenador entiende.



Comprueba el tema de la coma y el punto para las notas, cuando realizas cálculos.



Las variables. Cuando declaras directamente al principio Public la haces que se reconozca en cualquier parte de la aplicación.

En otros módulos, formularios, etc. Cuando la declaras con Private la haces que se reconozca en cualquier parte del modulo en

la que se encuentra. Globales, las llaman.



Tienes que comprobar si necesitas declarar las variables como globales, siempre dicen que no es recomendable declarar variables

globales. Los motivos tienes que verlo con el tiempo. Imagina que tienes muchas variables gloables declaradas y por un casual

declaras una variable local con el mismo nombre, puede llevarte a confusión.



Como todo el calculo se desarrolla en el componente botón, es mejor declarar las variables como locales dentro del

procedimiento del botón. Si por un motivo el contenido de estas variables van a ser usadas en otras partes de la aplicación

puede que sea mejor declararlas como publicas o globales.



Siempre es bueno minimizar el uso de las variables publicas o globales.



Hay veces en las que en una aplicación tenemos mas de un formulario y necesitamos pasar el valor de una variable de un formulario a otro.

Lo mas simple es declararla como Publica , lo mas adecuado es usar otros métodos. La cantidad de variables en una aplicación

va aumentando según tus necedades, con el tiempo, la experiencia y la depuración minimizaras el numero de las variables.





Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=18029 <![CDATA[Aplicaciones/Fragmentos de Código :: Mi Primer Aplicacion En Gambas, Calcular Notas (Para Principiantes)]]> http://www.gambas-es.org/viewtopic.php?p=18028#p18028 Wed, 19 Jun 2013 02:19:21 GMT http://www.gambas-es.org/viewtopic.php?p=18028#p18028 skaterleopoldo12
Asunto: Mi Primer Aplicacion En Gambas, Calcular Notas (Para Principiantes)
Publicado: Miercoles, 19 Junio 2013, 04:19 (GMT 1)

Aviso es para principiantes. muy muy!



En esta Ocasión voy a enseñarles como hacer un pequeño programa para hacer Cálculo de nota y sacar el promedio, es una aplicación sencilla para los que están iniciando en esto.



Bueno Comencemos



Abrimos el Gambas, Seleccionamos Nuevo Proyecto:



captura-de-pantalla-de-2013-06-16-14-04-55





Comenzamos a diseñar nuestra aplicacion:



Vamos a Crear unos 8 Labels, y 1 ComboBox, 7 TextBox, y 1 Button, como muestra la siguiente imagen.



captura-de-pantalla-de-2013-06-16-14-20-56





Le Colocamos los Nombres a cada label y al Boton, para ello debemos ir seleccionando cada uno y nos vamos a la parte derecha en propiedades ubicamos la propiedad "Text" ahí colocamos el Nombre que deseamos que aparezca cuando se ejecute el Programa, esto se hace para cada uno de los labels y tambien para el boton.



Para colocar las Opciones en el ComboBox, lo seleccionamos y utilizamos la propiedad list, ahí vamos agregando las opciones que queremos que aparezcan:



captura-de-pantalla-de-2013-06-16-14-23-45





Podemos ejecutar el Programa y veremos algo como esto:



captura-de-pantalla-de-2013-06-16-14-24-02



Ahora solo Falta programar para que realice el calculo del promedio de las 4 notas, para esto doble clic en el botón calcular que hemos creado, agregamos el siguiente código:



Código: [Ocultar] [Seleccionar]
Public Sub Button1_Click()

A = TextBox3.Text

B = TextBox4.Text

C = TextBox5.Text

D = TextBox6.Text

P = (A + B + C + D) / 4

TextBox7.Text = P

End




Ese código es muy fácil de entender inclusive para los que están comenzando a programar (solo debemos tener un poco de lógica.





Debemos declarar las Variables que hemos utilizado (A,B,C,D,P):



Código: [Ocultar] [Seleccionar]
Public A As String

Public B As String

Public C As String

Public D As String

Public P As String




Todo Nuestro código quedara algo como muestra esta imagen:



captura-de-pantalla-de-2013-06-16-14-19-17





Listo esto ya podemos ejecutar nuestro programa para probar si funciona:



captura-de-pantalla-de-2013-06-16-14-24-34



Pueden descargar el proyecto Aqui

]]> skaterleopoldo12 Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=18028 <![CDATA[Aplicaciones/Fragmentos de Código :: Monedas,cambiar,valores]]> http://www.gambas-es.org/viewtopic.php?p=17986#p17986 Sat, 15 Jun 2013 11:46:10 GMT http://www.gambas-es.org/viewtopic.php?p=17986#p17986 Shell
Asunto: Monedas,cambiar,valores
Publicado: Sabado, 15 Junio 2013, 13:46 (GMT 1)

Hola!.



Es solo el principio de una aplicación. En este ejemplo. Se le da una cantidad y por cada fila del GridView te mostrara en cuantas

monedas y sus valores puedes repartirla.



monedas



Su código es este:



Código: [Ocultar] [Seleccionar]
Private valoresmoneda As Float[] = [2, 1, 0.5, 0.2, 0.1, 0.05, 0.02, 0.01]



Public Sub Form_Open()

Me.Center

DimensionarGrid()

End



Public Sub btnSalir_Click()

Me.Close

End



Public Sub DimensionarGrid()



Dim y As Integer

Dim x As Integer



With grdMonedas

.Rows.Count = 8

.Columns.Count = 8

.Header = 3

For y = 0 To valoresmoneda.Max

.Columns[y].Title = valoresmoneda[y] & "€"

.Columns[y].Width = 75

Next

End With



'Centramos el contenido de las filas y columnas

For x = 0 To valoresmoneda.Max

For y = 0 To valoresmoneda.Max

grdMonedas[x, y].Alignment = Align.Center

Next

Next



End



Public Sub btnDescomp_Click()



Dim salida As New Integer[8]

Dim dinero As Float

Dim resto As Float

Dim ncolum As Integer

Dim i As Integer

Dim n As Integer



dinero = vlbCantidad.Value

resto = dinero



For n = 0 To valoresmoneda.Max

Do While i <= valoresmoneda.Max And resto > 0

Do While Round(resto, -2) >= Round(valoresmoneda[i], -2)

resto -= valoresmoneda[i]

salida[i] += 1

Loop

i += 1

Loop



'Inicializamos y vamos aumentando una fila

For ncolum = 0 To valoresmoneda.Max

grdMonedas[n, ncolum].Text = salida[ncolum]

Next

salida.Fill(0, 0, 8)

i = n + 1

resto = dinero

Next



End





Y aquí tenéis el ejemplo para bajarlo. Si queréis adaptarlo, probar, etc.

Es el primer ejemplo funcional.



P.d , fijaros el efecto que hace el ValueBox a veces al introducir valores. Salen valores muy grande. Esta usando QT4



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17986 <![CDATA[Aplicaciones/Fragmentos de Código :: Ejemplo Del Uso Del Evento _move Del Objeto Mouse]]> http://www.gambas-es.org/viewtopic.php?p=17982#p17982 Sat, 15 Jun 2013 08:05:35 GMT http://www.gambas-es.org/viewtopic.php?p=17982#p17982 jsbsan
Asunto: Ejemplo Del Uso Del Evento _move Del Objeto Mouse
Publicado: Sabado, 15 Junio 2013, 10:05 (GMT 1)

Os dejo aqui un simple ejemplo de como saber las coordenadas de nuestro raton cuando salimos o entramos en un picturebox...

mouse_estudio

Código: [Ocultar] [Seleccionar]
' Gambas class file



Public Sub _new()



End



Public Sub Form_Open()



End



Public Sub PictureBox1_Leave()





Mouse_move()



End



Public Sub Mouse_move()



Print Mouse.screenX, Mouse.ScreenY



End



Public Sub PictureBox2_Leave()



Mouse_move()



End



Public Sub PictureBox1_Enter()



Mouse_move()



End



Public Sub PictureBox2_Enter()



Mouse_move()



End

===================
Web: SoloGambas

Visita el Curso de Gambas3

Invitacion a Beruby de Jsbsan

]]> jsbsan Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17982 <![CDATA[Aplicaciones/Fragmentos de Código :: Propiedades De Los Gases (Química)]]> http://www.gambas-es.org/viewtopic.php?p=17942#p17942 Mon, 10 Jun 2013 23:24:04 GMT http://www.gambas-es.org/viewtopic.php?p=17942#p17942 Santi_Phoenix
Asunto: Propiedades De Los Gases (Química)
Publicado: Martes, 11 Junio 2013, 01:24 (GMT 1)

Hola gente, aqui les dejo este programita que hice para calcular un valor incógnito de un estado final de un gas. Es bastante básico y se puede hacer manualmente pero bueno, para no tener que andar haciendo cuentas.





Imágen:

nsxu6qs





Código:

Código: [Ocultar] [Seleccionar]
' Gambas class file

PUBLIC vol11 AS Single

PUBLIC pres11 AS Single

PUBLIC temp11 AS Single

PUBLIC vol22 AS Single

PUBLIC pres22 AS Single

PUBLIC temp22 AS Single

PUBLIC boylevar1 AS Single

PUBLIC boylevar2 AS Single

PUBLIC gayluvar1 AS Single

PUBLIC gayluvar12 AS Single

PUBLIC gayluvar2 AS Single

PUBLIC gayluvar22 AS Single

PUBLIC cels AS Single

PUBLIC kelv AS Single

PUBLIC control AS Boolean





PROCEDURE boyle1()

boylevar1 = (pres11 * vol11) / pres22

Message("Aplicada la ley de Boyle ----- Volumen Final: " & boylevar1 & " Litros")

END PROCEDURE



PROCEDURE boyle2()

boylevar2 = (pres11 * vol11) / vol22

Message("Aplicada la ley de Boyle ----- Presión Final: " & boylevar2 & " Atmósferas")

END PROCEDURE



PROCEDURE gaylu1()

gayluvar1 = (vol11 / temp11) * temp22

Message("Aplicada la 1° ley de Charles Gay Lussac ----- Volumen Final: " & gayluvar1 & " Litros")

END PROCEDURE



PROCEDURE gaylu12()

gayluvar12 = (vol11 / temp11) * vol22

Message("Aplicada la 1° ley de Charles Gay Lussac ----- Temperatura Final: " & gayluvar12 & " °Kelvin")

END PROCEDURE



PROCEDURE gaylu2()

gayluvar2 = (pres11 / temp11) * temp22

Message("Aplicada la 2° ley de Charles Gay Lussac ----- Presión Final: " & gayluvar2 & " Atmósferas")

END PROCEDURE



PROCEDURE gaylu22()

gayluvar22 = (pres11 / temp11) * pres22

Message("Aplicada la 2° ley de Charles Gay Lussac ----- Temperatura Final: " & gayluvar22 & " °Kelvin")

END PROCEDURE





PUBLIC SUB Button1_Click()

vol11 = Vol1.Value

pres11 = Pres1.Value

temp11 = Temp1.Value

vol22 = Vol2.Value

pres22 = Pres2.Value

temp22 = Temp2.Value

IF vol22 = 0 AND temp11 = temp22 AND pres11 <> 0 AND vol11 <> 0 AND pres22 <> 0 THEN

boyle1

ENDIF

IF pres22 = 0 AND temp11 = temp22 AND pres11 <> 0 AND vol11 <> 0 AND vol22 <> 0 THEN

boyle2

ENDIF

IF vol22 = 0 AND pres11 = pres22 AND vol11 <> 0 AND temp11 <> 0 AND temp22 <> 0 THEN

gaylu1

ENDIF

IF temp22 = 0 AND pres11 = pres22 AND temp11 <> 0 AND vol11 <> 0 AND vol22 <> 0 THEN

gaylu12

ENDIF

IF pres22 = 0 AND vol11 = vol22 AND pres11 <> 0 AND temp11 <> 0 AND temp22 <> 0 THEN

gaylu2

ENDIF

IF temp22 = 0 AND vol11 = vol22 AND temp11 <> 0 AND pres11 <> 0 AND pres22 <> 0 THEN

gaylu22

ENDIF

IF vol22 <> 0 AND temp22 <> 0 AND pres22 <> 0 THEN

Message.Error("Ningún valor final incognito para calcular")

END IF

IF vol11 <> vol22 AND temp11 <> temp22 AND pres11 <> pres22 THEN

Message.Error("No hay valores constantes, no se puede aplicar ninguna ley")

END IF

IF vol11 = 0 OR temp11 = 0 OR pres11 = 0 THEN

Message.Error("Faltan valores iniciales para calcular")

ENDIF

IF vol22 = 0 AND temp22 = 0 OR vol22 = 0 AND pres22 = 0 OR temp22 = 0 AND pres22 = 0 OR vol22 = 0 AND temp22 = 0 AND pres22 = 0 THEN

Message.Error("Hay más de un valor incognito. Imposible aplicar alguna ley")

ENDIF

END



PUBLIC SUB Button2_Click()

Vol1.Clear

Vol2.Clear

Temp1.Clear

Temp2.Clear

Pres1.Clear

Pres2.Clear

END



PUBLIC SUB Button3_Click()

control = TRUE

IF Kelvin.Text <> "" THEN

Message.Error("Borra los valores para volver a convertir")

control = FALSE

END IF

IF control = TRUE

cels = Celcius.Value

kelv = cels + 273

Kelvin.Text = kelv

ENDIF

END



PUBLIC SUB Button4_Click()

Celcius.Clear

Kelvin.Clear

END







Aqui les dejo para descargarlo

http://www.mediafire.com/download/7...es-0.0.3.tar.gz



Saludos Gente

]]> Santi_Phoenix Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17942 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Número Mágico (programita)]]> http://www.gambas-es.org/viewtopic.php?p=17941#p17941 Mon, 10 Jun 2013 23:19:53 GMT http://www.gambas-es.org/viewtopic.php?p=17941#p17941 v3ctor
Asunto: Re: Número Mágico (programita)
Publicado: Martes, 11 Junio 2013, 01:19 (GMT 1)

Dani26 y Shell gracias por sus aportes sigo experimentando
===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible



http://postapase.blogspot.com/

]]> v3ctor Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17941 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Número Mágico (programita)]]> http://www.gambas-es.org/viewtopic.php?p=17937#p17937 Mon, 10 Jun 2013 20:56:08 GMT http://www.gambas-es.org/viewtopic.php?p=17937#p17937 Dani26
Asunto: Re: Número Mágico (programita)
Publicado: Lunes, 10 Junio 2013, 22:56 (GMT 1)

Una forma indirecta, no de limitar sino de comprobar que no lo hagan(escribir números de más de 4 dígitos), es comprobar con un if si el número escrito es mayor a 9999, en cuyo caso puedes por ejemplo, limpiar el control y darle el foco, además de mostrar un mensaje avisando que no se pueden escribir números de más de 4 dígitos. Pero creo que la idea de Shell de usasr un texbox puede ser mejor, poniendo su propiedad MaxLentgh en 4.

Saludos
===================
Migrando desde visual basic, el Gambas de Ms

Mi blog gambero

]]> Dani26 Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17937 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Bandera]]> http://www.gambas-es.org/viewtopic.php?p=17927#p17927 Mon, 10 Jun 2013 11:16:18 GMT http://www.gambas-es.org/viewtopic.php?p=17927#p17927 Shell
Asunto: Re: Bandera
Publicado: Lunes, 10 Junio 2013, 13:16 (GMT 1)

Una modificación posible.



Código: [Ocultar] [Seleccionar]
Public Sub Form_Open()



Dim cuenta As Integer

Dim x As Integer

Dim y As Integer



Me.Arrangement = Arrange.Vertical 'Para que se alineen verticalmente las barras de colores(etiquetas)

'Podiamos hacerlo horizontalmente si fuera por ejemplo la bandera de Francia, Italia,etc. :-)



'Vamos a querer siempre en este caso, que la etiqueta quede una debajo de la anterior

'Asi que la coordenada de x e y de la siguiente sera el maximo tamaño de alto y ancho de la anterior etiqueta



For cuenta = 0 To nlabels - 1 'El indice del array comienza siempre en 0

olabel = New Label(Me)

With olabel

Select Case cuenta

Case 0

.X = 0

.Y = 0

.Background = Color.RGB(1, 134, 34)

Case 1

.X += olabel.Width

.y += olabel.Height

.Background = Color.White

Case 2

.X += olabel.Width

.Y += olabel.Height

.Background = Color.RGB(1, 134, 34)

End Select



'Común

.Border = Border.Plain

.Width = Me.W / nlabels

.Height = Me.H / nlabels

End With

alabel.Add(olabel)

Next



End





El array es necesario por que tenemos que cambiar el tamaño a cada etiqueta cuando usamos el metodo Resize.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17927 <![CDATA[Aplicaciones/Fragmentos de Código :: Bandera]]> http://www.gambas-es.org/viewtopic.php?p=17926#p17926 Mon, 10 Jun 2013 10:31:00 GMT http://www.gambas-es.org/viewtopic.php?p=17926#p17926 Shell
Asunto: Bandera
Publicado: Lunes, 10 Junio 2013, 12:31 (GMT 1)

Hola!.



A veces es una de las aplicaciones mas corrientes en los ejercicios de programación.



En este ejemplo se crea una bandera, en este caso la de Andalucía. Podéis crear la que os guste.

E incluso hacer una aplicación mucho mas compleja.



- Se ha optimizado la creación de cada etiqueta para localizar cada una de ellas en una posición.

- Se ha aprovechado la propiedad Arrangement del formulario para que nos muestre los colores alineados en vertical

- Se ha añadido el método Resize del formulario para que podamos ampliar la bandera.



Posiblemente se pueda optimizar aun mas el código. Es un comienzo.



¿ Por que he usado etiquetas y no otro tipo de control ?. Ha quedado mejor con los colores y las divisiones



bandera



Este es su código fuente:



Código: [Ocultar] [Seleccionar]
Const nlabels As Integer = 3 'Número de barras de color

Private olabel As Label 'Objeto etiqueta

Private alabel As New Label[] 'Array de objetos etiqueta



Public Sub _new()



End



Public Sub Form_Open()



Dim cuenta As Integer

Dim x As Integer

Dim y As Integer



FormBandera.Arrangement = Arrange.Vertical 'Para que se alineen verticalmente las barras de colores(etiquetas)

'Podiamos hacerlo horizontalmente si fuera por ejemplo la bandera de Francia, Italia,etc. :-)



'Vamos a querer siempre en este caso, que la etiqueta quede una debajo de la anterior

'Asi que la coordenada de x e y de la siguiente sera el maximo tamaño de alto y ancho de la anterior etiqueta



For cuenta = 0 To nlabels - 1 'El indice del array comienza siempre en 0

olabel = New Label(Me)

With olabel

Select Case cuenta

Case 0

.X = 0

.Y = 0

.Background = Color.RGB(1, 134, 34)

Case 1

.X = alabel[cuenta - 1].Width

.y = alabel[cuenta - 1].Height

.Background = Color.White

Case 2

.X = alabel[cuenta - 2].Width

.Y = alabel[cuenta - 2].Height

.Background = Color.RGB(1, 134, 34)

End Select



'Común

.Border = Border.Plain

.Width = Me.W / nlabels

.Height = Me.H / nlabels

End With

alabel.Add(olabel)

Nexthttp://www.linuxmint.com/start/nadia/



End



Public Sub Form_Resize()



Dim unlabel As Label



'Usamos el evento Resize para cambiar el tamaño de la bandera dentro de nuestro formulario

'Cambiamos el ancho y alto de cada etiqueta.



For Each unlabel In alabel

With unlabel

.Width = Me.W / nlabels

.Height = Me.H / nlabelshttp://www.linuxmint.com/start/nadia/

End With

Next



End





Y aquí para que podáis descargarlo.



Ah, ahora que lo veo, mejor en el código usar Me.Arrangement, y no usar el nombre del formulario.Sabemos a cual estamos haciendo referencia.



Parece que el array puede no ser necesario, si partimos de una x e y inicial. Es una aplicación sencilla, se complica mas cuando creas los objetos

desde código, si no es por el bucle, se hubiera creado mas código sobrante. Hay que aprovechar las propiedades de alineación y la verdad es que

no es sencillo al principio, cuando te dispones a distribuir los componentes de una manera en el formulario.



Llegar a comprender y usar correctamente los contenedores de alineación puede llevar un buen tiempo.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17926 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Número Mágico (programita)]]> http://www.gambas-es.org/viewtopic.php?p=17925#p17925 Mon, 10 Jun 2013 08:10:45 GMT http://www.gambas-es.org/viewtopic.php?p=17925#p17925 Shell
Asunto: Re: Número Mágico (programita)
Publicado: Lunes, 10 Junio 2013, 10:10 (GMT 1)

Este mensaje no lo había visto.



Antes de nada, decirte es mejor decir siempre que hace la aplicación al principio.



Es que no me entero, si se trata de adivinar un número o es mas bien una cosa matemática con números,

que los hay. A estas horas no recuerdo, pero eran propiedades curiosas de los números.Cuadrados, perfectos,

la matemática es muy grande.



Es que el mensaje es grande.



Voy a verlo un poco. Mejor bajo la aplicación.



No se ahora mismo si es posible limitar el número de dígitos en un valuebox, no lo parece.

TextBox creo que es mucho mejor para hacer esto. Como es una cadena, tienes que comprobar siempre su longitud con la

función LEN .



Además, también puedes en el mismo textbox hacer que solo te acepte números.

Tienes las dos posibilidades, números y longitud. Que solo te acepte números tienes

dos posibilidades:



Código: [Ocultar] [Seleccionar]
PUBLIC SUB MyTextBox_KeyPress()

IF Instr("0123456789", Key.Text) = 0 THEN

STOP EVENT

ENDIF

END SUB





Este de arriba es muy interesante. Fíjate en la función Instr,

tienes un texto que va del 0 al 9 y al pulsar la tecla se busca en este

texto, si se encuentra lo deja escribir si no anula el evento de la tecla



O también usando el código de caracteres:



Código: [Ocultar] [Seleccionar]
PUBLIC SUB TextBox1_KeyPress()

IF key.Code >= 48 AND key.Code <= 57 THEN

ELSE IF key.Code = key.BackSpace THEN

ELSE IF key.Code = key.Delete THEN

ELSE

STOP EVENT

ENDIF

END

PUBLIC SUB Form_Open()

ME.Text = "Solo números!"

END





Este de arriba te permite borrar los números, cosa que el otro no.

Como ves TextBox para estas cosas tienes mas "magia".



Para la siguiente cuestión:

Para ordenar un ListBox tienes que usar la propiedad .Sort



Prueba la propiedad. Hay otras maneras. Que puede que te gusten mas, usando un GridView.

Te subo el ejemplo. Lo aprendí de nuestro compañero Julio.



Esta es una imagen:



tablarecord



Dale un nombre y una puntuación, agrégalo a la tabla, ve jugando con los puntos, mas o menos puntos y veras como se ordenan.

Espero haberte dado mas ideas.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17925 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Efecto Del Metodo Resize Con Un Dibujo]]> http://www.gambas-es.org/viewtopic.php?p=17919#p17919 Sun, 09 Jun 2013 18:47:06 GMT http://www.gambas-es.org/viewtopic.php?p=17919#p17919 jguardon
Asunto: Re: Efecto Del Metodo Resize Con Un Dibujo
Publicado: Domingo, 09 Junio 2013, 20:47 (GMT 1)

En Gambas también se puede configurar un sistema de coordenadas completo, al menos dentro del drawing area, trasladando el punto de origen 0,0 mediante el método Draw.Translate(x, y). De esa manera tendrás coordenadas positivas y negativas en los dos ejes. Eso sí, si lo vas a utilizar para temas relacionados con la geografía, mapas y tal, hay que invertir el eje Y, ya que en la pantalla el eje Y tiene su origen arriba y crece hacia abajo y en coordenadas geográficas es al revés.



Bueno, ya lo iré explicando en siguientes artículos del blog, jejeee



Saludos
===================
Jesús Guardón



Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

]]> jguardon Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17919 <![CDATA[Aplicaciones/Fragmentos de Código :: Número Mágico (programita)]]> http://www.gambas-es.org/viewtopic.php?p=17916#p17916 Sun, 09 Jun 2013 18:25:23 GMT http://www.gambas-es.org/viewtopic.php?p=17916#p17916 v3ctor
Asunto: Número Mágico (programita)
Publicado: Domingo, 09 Junio 2013, 20:25 (GMT 1)

adivinum



Mas vale tarde que nunca.... este es un clásico programa donde el programa elije un número y el usuario intenta descubrirlo con 10 posibilidades, el programa nos da la única pista que consiste en decir si el número que tenemos que descubrir es menor o mayor. Le agregue mas dificultad por medio de niveles el nivel 1 el programa elige entre 1 y 50, el nivel dos de 1 a 200, nivel 3 de 1 a 500, nivel 4 de 1 a 700 y el nivel mas difícil de 1 a mil.



Tiene una lista de usuarios que acertaron y los ordena de mayor a menor(bueno ese detalle todavía no lo resuelvo, espero que a ustedes se les ocurra una brillante idea y la compartan) donde los puntos se dan asi: 1000 porque juega en el nivel 5, 700 porque juega en el nivel 4 y asi sucesivamente, agregando a esas cifras el número de intentos que no se uso. Ejemplo: postapase juega en el nivel 5 y acierta en el primer intento son 10 puntos mas (1010), otro usuario juega en el nivel 3 y acierta en el 5 intento, los punto son 505 y así con lo demás. Bueno algo es algo



Fmain....



Código: [Ocultar]
  1. código
  2.  
  3. ' Gambas class file
  4.  
  5. Public espandir As Boolean = False
  6. Public offniveles As Boolean = True
  7. Public Nmagico As Float
  8. Public Ningresado As Integer
  9. Public intentos As Integer
  10.  
  11. Public puntaje As Integer
  12. Public nomJugador As String
  13. Public Const N1 As Integer = 50
  14. Public Const N2 As Integer = 200
  15. Public Const N3 As Integer = 500
  16. Public Const N4 As Integer = 700
  17. Public Const N5 As Integer = 1000
  18. Public nivelelegido As Integer
  19.  
  20.  
  21. Public Sub Form_Open()
  23.  Me.Center
  24.  Me.Width = 210
  25. ValueBox1.Enabled = False
  26. nivelelegido = N1
  27. nivel1.Checked = True
  28. intentos = 10
  29. Labintentos.Visible = False
  30. offniveles = False
  31.  End
  32.  
  33. Public Function nivelesNO(offniveles As Boolean) As Boolean
  34.  If offniveles = True Then
  35. nivel1.Enabled = False
  36. nivel2.Enabled = False
  37. nivel3.Enabled = False
  38. nivel4.Enabled = False
  39. nivel5.Enabled = False
  40.  Else
  41. nivel1.Enabled = True
  42. nivel2.Enabled = True
  43. nivel3.Enabled = True
  44. nivel4.Enabled = True
  45. nivel5.Enabled = True
  46.  Endif
  47. Return
  48. End
  49.  
  50. Public Sub btnborrar_Click()
  51. ValueBox1.Value = 0
  52. ValueBox1.SetFocus
  53. End
  54.  
  55.  
  56. Public Sub btnVer_Click()
  57.  
  58.  Dim agrandar, achicar As Integer
  59.  If espandir = True Then
  60. For achicar = 595 To 210 Step -1
  61. FMain.Width = achicar
  62. Wait 0.00049
  63. Next
  64. espandir = False
  65. btnVer.Text = "V\nE\nR\n" "\nR\nE\nC\nO\nR\nE\nS"
  66.  Else
  67. For agrandar = 210 To 595 Step 1
  68. FMain.Width = agrandar
  69. Wait 0.00049
  70. Next
  71. espandir = True
  72. btnVer.Text = "O\nC\nU\nL\nT\nA\nR"
  73.  Endif
  74. End
  75.  
  76. Public Sub btnSalir_Click()
  77.  Me.Close
  78. End
  79.  
  80. Public Sub btnComenzar_Click()
  81. Dim achicar As Integer
  82. Labinfo.Text = ""
  83. Labintentos.Text = ""
  84.  
  85.  
  86. If espandir = True Then
  87. For achicar = 595 To 210 Step -1
  88. FMain.Width = achicar
  89. Wait 0.00049
  90. Next
  91. espandir = False
  92. btnVer.Text = "V\nE\nR\n" "\nR\nE\nC\nO\nR\nE\nS"
  93. usuario.Show
  94.  Else
  95. btnVer.Enabled = False
  96. Labintentos.Caption = ""
  97. Labinfo.Caption = ""
  98. usuario.Show
  99. intentos = 10
  100.  Randomize
  101. Nmagico = Int(Rnd(1, nivelelegido))
  102. ValueBox1.SetFocus
  103. Print Nmagico
  104. Print nivelelegido
  105. Endif
  106.  
  107.  
  108. End
  109.  
  110. Public Sub btnIngresar_Click()
  111. Dim level As Integer
  112. If ValueBox1.Text = 0 Then
  113.  Message.Info("El numero mínimo es 1")
  114. ValueBox1.Value = 1
  115.  Else
  117.  
  118. If ValueBox1.Text = Null Then
  119.  Message.Info("ingrese un número para continuar")
  120. ValueBox1.Text = ""
  121. ValueBox1.SetFocus
  122.  Return
  123.  Else
  124. Labintentos.Caption = nomJugador & "\nTe quedan " & intentos & "\n restantes para adivinar\n el número Magico"
  125. Ningresado = ValueBox1.Text
  126.  
  127. If Ningresado = " " Then
  128.  Message.Info("Ingrese un numero")
  129.  Else
  130. If intentos = 1 Then
  131. Labinfo.Caption = "Has perdido"
  132. Labintentos.Caption = nomJugador & "\n suerte para\n el próximo juego" 
  133. ValueBox1.Text = 0
  135. btnborrar.Enabled = False
  136. btnIngresar.Enabled = False
  137. ValueBox1.Enabled = False
  138. btnComenzar.Enabled = True
  139. nivelesNO(False)
  141. Else
  142. If Ningresado > nivelelegido Then
  143. Select Case nivelelegido
  144. Case 50
  145. level = 1
  146. Case 200
  147. level = 2
  148. Case 500
  149. level = 3
  150. Case 700
  151. level = 4 
  152. Case 1000
  153. level = 5
  154. End Select 
  155. Message.Info("Esta jugando en nivel: " & level & "\n" & "eliga un número menor o igual a " & nivelelegido)
  156. ValueBox1.Text = ""
  157. ValueBox1.SetFocus
  158. Else
  159.  
  160. If Ningresado >= 1001 Then
  161. Message.Info("Elija un número entre 1 y 1000")
  162. Else
  164. Select Case Ningresado
  165. Case Nmagico
  166. Labintentos.Caption = "FELICITACIONES \n HAS ACERTADO!!!"
  167. Labinfo.Caption = "GANASTE!!!"
  168. puntaje = nivelelegido + intentos
  169. ListBox1.Add(puntaje & " <nomJugador> Nmagico Then
  170. Labinfo.Caption = "numero menor"
  171. Dec intentos
  172. Labintentos.Caption = nomJugador & "\nTe quedan " & intentos & "\n restantes para adivinar\n el número Magico"
  173. Else
  174. Labinfo.Caption = "numero mayor"
  175. Dec intentos
  176. Labintentos.Caption = nomJugador & "\nTe quedan " & intentos & "\n restantes para adivinar\n el número Magico"
  177. Labintentos.Refresh
  179. Endif
  180. End Select
  181. Endif
  182. Endif
  183.  Endif
  184. Endif
  185. Endif
  186. Endif
  187. Print intentos
  188. End
  189.  
  190.  
  191. Public Sub Form_KeyRelease() ' bueno al final solucione con este código, ya se que esta redesprolijo el programa pero...
  192. ' ta así nos salen las cosas a los novatos, la prolijidad de un programa viene con el tiempo y la experiencia
  193.  If ValueBox1.Text > 1000 Then
  194. ValueBox1.Text = 0
  195. Else
  196. Return
  197.  Endif
  198.  
  199. End
  200.  






usuario...

Código: [Ocultar]
  1.  
  2. ' Gambas class file
  3. Public Sub btnAceptar_Click()
  4. If Txtnombre.Text = Null Then
  5.  Message.Info("Ingrese su nombre para continuar")
  6.  Return
  7.  Else
  8. FMain.intentos = 10 ' agregue esta línea pues mostraba los intentos que restaban al jugador anterior :oops:
  9. FMain.btnborrar.Enabled = True
  10. FMain.Enabled = True
  11. FMain.nomJugador = UCase$(Txtnombre.Text)
  12. FMain.Labintentos.Visible = True
  13. FMain.Labintentos.Caption = FMain.nomJugador & "\nTe quedan " & FMain.intentos & "\n restantes para adivinar\n el número Magico"
  14. FMain.btnComenzar.Enabled = False
  15. FMain.offniveles = True
  16. FMain.nivelesNO(FMain.offniveles)
  17. Endif
  18. FMain.ValueBox1.Enabled = True
  19. FMain.ValueBox1.SetFocus
  20. FMain.btnIngresar.Enabled = True
  21. Me.Close
  22. End
  23.  
  24. Public Sub Form_Open()
  25. FMain.Enabled = False
  26.  Me.Center
  27.  Me.Title = "Ingrese su nombre"
  28. End
  29.  
  30. Public Sub btnCancelar_Click()
  31.  Me.Close
  32. FMain.Enabled = True
  33. FMain.btnVer.Enabled = False
  34. End
  35.  
  36.  




info....



Código: [Ocultar]
  1.  
  2. ' Gambas class file
  3.  
  4. Public Sub Form_Open()
  5. Me.Center
  6. End
  7.  
  8. Public Sub Form_Leave()
  9.  Me.Close
  10. End
  11.  
  12.  
  13.  








Código fuente: AdivinarNumero-0.0.1.tar.gz





Nota: tengo dos problemas

1. no se como limitar un valuebox a 4 dígitos

2. como ordenar números de mayor a menor en un listbox



estoy haciendo una tabla de record que es algo asi:

1000 si jugas en nivel 5

700 si jugas en nivel 4

500 si jugas en nivel 3

200 si jugas en nivel 2

50 si jugas en nivel 1

mas el factor intentos:

1 intentos= 10-1 (9)

2 intentos= 10-2 (8)

........

....





1010 <323> 06/09/2013

510 <MARIA> 06/09/2013

54 <CRISTINA> 06/09/2013 <----------- aquí esta mal aquí deberían ir los 60 despues los 59,58 etc... no se como ordenar aquí

56 <FABRICIO> 06/09/2013

57 <MARIANA> 06/09/2013

58 <CLAUDIA> 06/09/2013

58 <JULIANA> 06/09/2013

59 <FFF> 06/09/2013

59 <XXXXXXXXXXXXXXXX> 06/09/2013

60 <30> 06/09/2013

60 <45> 06/09/2013

60 <FFFFFFF> 06/09/2013

60 <HHHHHHHHHHHH> 06/09/2013

60 <JORGE> 06/09/2013

60 <LUCIA> 06/09/2013

60 <= ññññññññññññññññ => 06/09/2013



Le agregue una lista de los numeros ingresados,

guarda recores en un archivo *.lst

sigue con errores pero.... se lo dejo para que practiquen modificaciones o agregados



AdivinarNumero-0.0.2.tar.gz

.no se como anadir los ultimos item de un listbox a un archivo siemple de texto (ya resolví)



3.jajaja acepto sugerencias

4. saludos



AdivinarNumero-0.0.3.tar.gz
===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible



http://postapase.blogspot.com/

]]> v3ctor Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17916 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: Efecto Del Metodo Resize Con Un Dibujo]]> http://www.gambas-es.org/viewtopic.php?p=17915#p17915 Sun, 09 Jun 2013 17:08:07 GMT http://www.gambas-es.org/viewtopic.php?p=17915#p17915 Shell
Asunto: Re: Efecto Del Metodo Resize Con Un Dibujo
Publicado: Domingo, 09 Junio 2013, 19:08 (GMT 1)

A ver si explico mejor el tema en este mensaje. Siempre con vistas a Gambas.



Los formularios de VB tienen ademas de la altura y la anchura poseen cuatro propiedades mas que son:



- ScaleTop

- ScaleLeft

- ScaleWidth

- ScaleHeight



No concuerdan con la altura o anchura. Puede coincidir ScaleTop con Top y ScaleLeft con Left, pero son distintas.

Ejemplo ScaleHeight, es el número de unidades verticales de medida del interior de un objeto.



En el formulario que estoy viendo ahora mismo tiene una altura de 5340, pero su ScaleHeight es de 4830, esto en VB, claro.

Hay también una propiedad que es el modo de escala, tiene hasta 7 tipos, user, twips, pixels (como en gambas), carácter, pulgadas,milímetros,centímetros.

Cuando varias este modo, varias las 4 propiedades anteriores según el modo. Por defecto es twip.



Con estas propiedades y las relacionadas ScaleHeight y ScaleWidth, se puede configurar un sistema de coordenadas completo, con coordenadas positivas y negativas.



Este es el ejemplo en VB. Esto es lo que dice la referencia:

En este ejemplo se utilizan las propiedades ScaleHeight y ScaleWidth para cambiar las unidades de medida vertical y horizontal de un formulario.



Código: [Ocultar] [Seleccionar]
Private Sub Form_Click ()

Dim Radius As Integer ' Declara una variable.

ScaleHeight = 100 ' Establece las unidades de alto.

ScaleWidth = 100 ' Establece las unidades de ancho.

For Radius = 5 to 50 Step 5

FillStyle = 1

Circle (50, 50), Radius ' Dibuja un círculo.

Next Radius

End Sub





Pues vaya manera de cambiar el formulario. Creo que es mas complejo haciéndolo así.



En el ejemplo con Gambas lo que hice fue centrarlo según el tamaño del drawingArea que ocupaba todo el formulario cada vez que se expandía.

No tiene nada que ver.





Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17915 <![CDATA[Aplicaciones/Fragmentos de Código :: Efecto Del Metodo Resize Con Un Dibujo]]> http://www.gambas-es.org/viewtopic.php?p=17914#p17914 Sun, 09 Jun 2013 13:01:01 GMT http://www.gambas-es.org/viewtopic.php?p=17914#p17914 Shell
Asunto: Efecto Del Metodo Resize Con Un Dibujo
Publicado: Domingo, 09 Junio 2013, 15:01 (GMT 1)

Hola!.



Jugando a intentar encontrar propiedades como ScaleLeft, ScaleTop...

salio esto, que no tiene nada que ver, pero te fumas un peta y te pones a verlo y hipnotiza...



quemareo



Código: [Ocultar] [Seleccionar]
Private centrox As Integer = 50

Private centroy As Integer = 50

Private pasos As Integer = 25



Public Sub _new()



End



Public Sub Form_Open()



Dibuja

End



Public Sub Form_Resize()

drwPizarra.Clear

centrox = drwPizarra.Width / 2

centroy = drwPizarra.Height / 2

Dibuja

End



Public Sub Dibuja()

Dim radio As Integer



Draw.Begin(drwPizarra)

For radio = pasos To drwPizarra.Width Step pasos

Draw.Circle(centrox, centroy, radio)

Next

Draw.End



End





El código. En otro mensaje os subo el de VB y los motivos de este ejemplo.Se viene la hora...



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17914 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17905#p17905 Sat, 08 Jun 2013 17:44:06 GMT http://www.gambas-es.org/viewtopic.php?p=17905#p17905 Shell
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Sabado, 08 Junio 2013, 19:44 (GMT 1)

Gracias Julio.



Encontré otras para niños que las mostrare en offtopic.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17905 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17904#p17904 Sat, 08 Jun 2013 12:46:41 GMT http://www.gambas-es.org/viewtopic.php?p=17904#p17904 jsbsan
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Sabado, 08 Junio 2013, 14:46 (GMT 1)

Shell:



La versión de mininoicaros 2013 todavia no esta disponible, estan trabajando en los últimos detalles. Ya aviso cuando esté disponible....



Para descargarte miniNoPicarOS 2012 (la versión antigua, que no tiene instalado Gambas), tienes que ir a este enlace: http://minino.galpon.org/es/descargas y se descarga atraves de algun cliente Torrent



descarga-de-minino-picaros-2012
===================
Web: SoloGambas

Visita el Curso de Gambas3

Invitacion a Beruby de Jsbsan

]]> jsbsan Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17904 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17903#p17903 Sat, 08 Jun 2013 07:51:07 GMT http://www.gambas-es.org/viewtopic.php?p=17903#p17903 Shell
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Sabado, 08 Junio 2013, 09:51 (GMT 1)

Julio:



Fui a este enlace donde hablas de la distro:



http://jsbsan.blogspot.com.es/2013/...-distro-de.html



Allí encontré este enlace para la distro:



http://minino.galpon.org/



De esta enlaza con:



http://galpon.org/



Esta en Galego.No es problema.

Hay una versión live que es un cd. Pero al hacer click a la derecha de la pagina para bajarla

no funciona o no se encuentra.



Seguiré probando...



Encontré esta referencia:



http://distrowatch.com/table.php?distribution=minino



Parece mas antigua y no tanto para niños.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17903 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17902#p17902 Fri, 07 Jun 2013 20:14:40 GMT http://www.gambas-es.org/viewtopic.php?p=17902#p17902 shordi
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Viernes, 07 Junio 2013, 22:14 (GMT 1)

O de trabajo...

]]> shordi Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17902 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17901#p17901 Fri, 07 Jun 2013 18:57:30 GMT http://www.gambas-es.org/viewtopic.php?p=17901#p17901 Shell
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Viernes, 07 Junio 2013, 20:57 (GMT 1)

shordi escribió: [Ver mensaje]
Trataré de echarle un ojo, pero no puedo prometer nada, que llevo una repretera currelera que te cagas en las bragas y no paras.




Que cosas hace el trabajo....

A ver si lo que necesitas es un cambio de dieta.



Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17901 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17900#p17900 Fri, 07 Jun 2013 12:43:36 GMT http://www.gambas-es.org/viewtopic.php?p=17900#p17900 Shell
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Viernes, 07 Junio 2013, 14:43 (GMT 1)

Julio:



Cuando tenga un momento de lugar la veo. Apunto para que no se me olvide.



Así que Minimopicaros es la distro que me comentaste. Pues otra cosa mas que ver.





Saludos
===================
Gambas Básico

]]> Shell Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17900 <![CDATA[Aplicaciones/Fragmentos de Código :: Re: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17898#p17898 Fri, 07 Jun 2013 07:55:11 GMT http://www.gambas-es.org/viewtopic.php?p=17898#p17898 shordi
Asunto: Re: BetaTester: Creador De Orlas
Publicado: Viernes, 07 Junio 2013, 09:55 (GMT 1)

Trataré de echarle un ojo, pero no puedo prometer nada, que llevo una repretera currelera que te cagas en las bragas y no paras.

]]> shordi Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17898 <![CDATA[Aplicaciones/Fragmentos de Código :: BetaTester: Creador De Orlas]]> http://www.gambas-es.org/viewtopic.php?p=17896#p17896 Fri, 07 Jun 2013 07:52:31 GMT http://www.gambas-es.org/viewtopic.php?p=17896#p17896 jsbsan
Asunto: BetaTester: Creador De Orlas
Publicado: Viernes, 07 Junio 2013, 09:52 (GMT 1)

Acabo de publicar en mi blog (Enlace), un nuevo programa que ya llevo meses realizando, es una utilidad para hacer orlas de graduación. Ya publique en el foro una orla hecha con este programa Enlace





Además he creado un blog especifico para que os podais descargar/ver capturas de pantallas/ video tutoriales / pequeño foro / un control de errores (bug tracker), por si quereis ayudarme a depurarlo, "sacandole" errores (espero que no tenga muchos )





http://creadordeorlas.blogspot.com.es/



creador-de-orlas



Esta aplicación junta con otras dos más (un generador de diplomas y otra de carnets), se van a incluir en la distribución de mininoPicarOS 2013, ya evidentemente traerá gambas3.4.1. ya preinstalado , con lo cual facilitará mucho que nuevos usuarios puedan conocer y usar Gambas3.
===================
Web: SoloGambas

Visita el Curso de Gambas3

Invitacion a Beruby de Jsbsan

]]> jsbsan Aplicaciones/Fragmentos de Código http://www.gambas-es.org/posting.php?mode=quote&p=17896