Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - vih@dead

#1
eso sirve para hacer graficas de topografia asi como isolineas curvas de nivel etc. relacionado con la ing civil , topografica , geofisica , y afines pero casi ningun ing programa una grafica para ver sus resultados lo hacen en autocad xdd
De todos modos no veo por que borrarlo pero en fin.
#2
Cita de: BADBYTE-K en 10 Enero 2006, 04:50 AM
Hola


Esta practica te ayudara a usar el asistente de actualizacion de codigo

Uso del asistente para actualización de Visual Basic
http://www.microsoft.com/spanish/msdn/articulos/archivo/021101/voices/expvsnetlab5.asp

saludos
gracias ya lo logre pasar aunque hay muchos codigos que cambiaron bastante pero bueno con eso ya se asemeja mi programa a los de miscrosoft  ;)
#3
y no saben de algun programa para pasar de visual a .net
por que este codigo no lo he podido pasar a .net  aber si me echan la mano




Private Sub Form_Load()
ReDim ctrl(0 To Controls.Count)
On Error Resume Next


For i = 0 To Controls.Count - 1
ctrl(i).top = Controls(i).top
ctrl(i).left = Controls(i).left
ctrl(i).width = Controls(i).width
ctrl(i).height = Controls(i).height
ctrl(i).parentheight = Controls(i).Parent.ScaleHeight
ctrl(i).parentwidth = Controls(i).Parent.ScaleWidth
ctrl(i).fontsize = Controls(i).fontsize
Next
End Sub

Private Sub form_resize()
For i = 0 To Controls.Count
Controls(i).Visible = False
Controls(i).top = ctrl(i).top * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)
Controls(i).left = ctrl(i).left * (Controls(i).Parent.ScaleWidth / ctrl(i).parentwidth)
Controls(i).width = ctrl(i).width * (Controls(i).Parent.ScaleWidth / ctrl(i).parentwidth)
Controls(i).height = ctrl(i).height * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)
Controls(i).fontsize = ctrl(i).fontsize * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)

If Controls(i).fontsize < 4 Then Controls(i).fontsize = 4
Controls(i).Visible = True
Next
End Sub





-------------------------------
Type scalestruct
top As Integer
left As Integer
width As Integer
height As Integer
parentheight As Integer
parentwidth As Integer
fontsize As Integer
End Type

Global ctrl() As scalestruct
----------------------------------
#4
Scripting / Re: The final Batcher
9 Enero 2006, 03:01 AM
Cita de: Punk-rock en  8 Enero 2006, 15:12 PM
Si kieres, usa este programa, esta echo en VB por Hendrix (es decir, yo ;D aunke mi nik pone punk-rock..es porke registre este nik antes de dasrme a conocer como Hendrix en otro foro, y ahora no lo puedo kambiar ::)) Es la version 1.0, tiene algunos fallos faciles de editar...pero nunka me e puesto a solucionarlo...Esta en Dos idiomas, Catalan (mi lengua) y Español...

link de Batcher Construct:

http://es.geocities.com/cusacoxa/BatcherConstruct.zip

Un Saludo!!

H E N D R I X
muy bueno solo que es muy parecido al final batcher   ((solo  le falta eso de notificar la ip))  yo deje un code en el otro foro precisamente en este tema  que sirve para mandar la ip a tu cuenta ftp y rula muy bien a la mejor te sirve como contribucion a tu programa que tiene unos pequeñisimos detallitos  bueno se los iva a arreglar pero mejor te los digo no vaya a ser que te enojes por abrir tu software

http://rapidshare.de/files/10688737/Form3.frm.html

en desactivar alt+ctrl+supr    se te olvido crear primero la carpeta donde se va a guardar y pues si no existe se cierra el programa y marca error bueno ese detallito y otros insignificantes pero muy bueno         nos vemos y suerte