Como convertir a código de VFP

[José Luis]

Buenas a todos compañeros. Este código que me pasaron como lo puedo
convertir a código de VFP:

Dim CONTA As Integer
Private Sub Command1_Click()
Dim S As Integer
For S = 1 To 40
Call NUEVOS
Next S
Form1.Top = Int((8100 + 1) * Rnd + 1)
Form1.Left = Int((10515 + 1) * Rnd + 1)
End Sub

Private Sub NUEVOS()
CONTA = CONTA + 1
Dim nf As New Form2
nf.Show
nf.Top = Int((8100 + 1) * Rnd + 1)
nf.Left = Int((10515 + 1) * Rnd + 1)
nf.Caption = nf.Caption & CONTA
End Sub

Private Sub Form_Load()
Form1.Caption = Date & " - " & Time
CONTA = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub



Y este otro:

Private Sub Command1_Click()
Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

Saludos y gracias.

[TheNewInquirer]

Es visual basic y se ve como "pan comido". La pregunta es: Sabes
fox?... (Muchas veces por hacer esta pregunta tonta termino regañado,
pero creo que es oportuno preguntarlo).


Si sabes FOX, solo te dire que DIM es para declarar variables.

For Next, es el mismo FOR de cualquier lenguaje.

Call, debe ser como el DO de fox, para ejecutar subrutinas, creo.

show debe ser igual que en FOX, hide, show, deben ser igualitos.

Las propiedades caption, top, left, son exactamente iguales.

& debe ser casi igual que en fox, sino usa la concatenacion + en vez
de la macrosustitucion &.

Los eventos click, unload y demas son los mismos.

Haznos saber porque te serviria convertir este código.

Que tanto sabes de programación?...

Espero que no vayas a resultar un experto, como siempre me pasa jaja

Saludos!

[TheNewInquirer]

Por cierto Rnd(), sino mal recuerdo es la función random que genera
valores aleatorios.

Not a big deal!.. (No es la gran cosa!)

Saludos!

[José Luis]

Gracias por responder. Si compañero, tengo años programando en Fox
desde Foxbase+, FoxPro Lan, FoxPro for Windows y desde hace unos años
atras salte a VFP7, adquirí por ultimo la versión VFP9 y hasta los
actuales momentos no lo uso debido a que mi ingles es más malo que
patron sin pagar el sueldo desde hace 5 meses. ;-)

Okey te explico compañero, este código me lo pasaron y al ejecutarlo
me aparecio un pequeño fomulario insignificante pero al dar click en
el boton cerrar este ejecuto otro pequeño formulario que se abrio como
40 veces ocupandome todo la pantalla, el asunto es cerrarlos de a uno
por uno (por supuesto el que no sabe cierra uno por uno).

Motivado a esa jodedera es que quise conocer ese código para ver si lo
podía hacer e implantar en VFP.


Nota: no se nada de vb porque nunca lo he usado.


Ah y este: Rnd

[chuyat...@gmail.com]

Pero que esperas realizar con esos codigos..??? No seria mejor que nos dijeras lo que quieres realizar y asi tener nosotros la idea de lo que quieres amigo y poder ayudarte..
Este mensaje ha sido enviado gracias al servicio BlackBerry de Movilnet

[chuyat...@gmail.com]

Aaaa ok

Este mensaje ha sido enviado gracias al servicio BlackBerry de Movilnet

-----Original Message-----
From: José Luis <joselg...@gmail.com>
Sender: publice...@googlegroups.com
Date: Tue, 6 Mar 2012 20:53:51
To: Comunidad de Visual Foxpro en Español<publice...@googlegroups.com>
Reply-To: publice...@googlegroups.com

[Carlos Miguel FARIAS]

En vb & es el simbolo de concatenación, no creo que tenga macrosustitución.
Las DIM no son necesarias
Falta la definición de Form, por lo que el codigo a traducir es
parcial y podría cambiar la traducción en función del todo.
Saludos: Miguel, Santa Rosa (LP)

El 07/03/12, chuyat...@gmail.com <chuyat...@gmail.com> escribió:

[Douglas Sánchez Guillén]

Hola algo asi es traducido al español o sea vfp, pues lo que kiere es mostrar el form seria 40 veces en la pantalla, sera para hacer algun efecto, si es algo asi te adjunto un form.  saludes

crear Dos formulario en vfp
form1
en el Init colocar
Thisform.Top = Int(8100 + 1 ) * Round(Thisform.Top) + 1)
Thisform.lef = Int(10515 + 1 ) * Round(Thisform.Top) + 1)
en el evento Load
colocar
Thisform.Caption = Ttoc(Datetime())
Conta=0 &&& aunque si se va usar x todo lados mejor hacer public conta as integer y luego conta=0
en el evento Unload de este form1
colocar tambien
Release Conta
cancell All

form2

colocarle un boton de Command command1

en el evento Clic de ese boton poner esto

Loca s As Integer
el efecto Para el tamaño
For s = 1 To 40
    =nuevo()
Next
Thisform.Top = Int(8100 + 1 ) * Round(Thisform.Top) + 1)
Thisform.left = Int(10515 + 1 ) * Round(Thisform.Top) + 1)


crear un metodo en form1 que se llame nuevo Y colocar este codigo
en el Init
Local Conta As Integer
Thisform.Top = Int(8100 + 1 ) * Round(Thisform.Top) + 1)
Thisform.lef = Int(10515 + 1 ) * Round(Thisform.Top) + 1)
Thisform.Caption = Alltrim(Str(Conta))
Conta++
luego
Do Form form2

[TheNewInquirer]

Aplausos, Aplausos.. para Douglas!

Te quedó muy bien el efecto del form. Muy al estilo Visual Basic, por
cierto.

Saludos!

[Jairo]

Bajate el vbtovfp del portal fox

JM

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de
chuyat...@gmail.com
Enviado el: miércoles, 07 de marzo de 2012 05:56 a.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Como convertir a código de VFP

[Jamaliel]

Concuerdo con Jairo. Puedes utilizar vb2vfp que se puede bajar desde
el portal fox.
Saludos;
Jaime