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 - fede_cp

#291
tenia la misma duda hace un mes atras, y con el tiempo despues de investigar encontre entenderlo y hacerlo funcionar http://foro.elhacker.net/programacion_vb/codigo_sobre_mi_duda_anterior_crear_server_desde_exe-t260455.0.html

todo se trata de abrir archivos con la sentencia "Open" leerlo, leer su longitud (LOF) ir al final del archivo (EOF) y escribir en el, luego cerrarlo (como estructura básica) igualmente puede ir variando con sentencias como seek, etc.

para buscar en google: escribir archivos binarios visual basic 6.

saludos
#292
porque no ves lo que te dije mas arriba?????????

esta el ejemplo perfecto man

saludos
#293
buscabas un poco y te encontrabas con lo que querias ...

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/79.htm

saludos
#294
bueno, como te podras fijar en el ejemplo 2, la verison mejorada, ya no reemplaza la x, ya que podira ser cualquier letra como Y, E, etc.lo que hace es muy facil  :xD

con len, toma la longitud de la cadena:ejemplo:x+11(text1.text) ahi estaria tomando 4 caracteres(x+11)=4 entonces se hace:right(text1.text, len(text1.text) - 2)

en palabras:toma de la derecha desde el text1.text, la cantidad de caracteres del text1.text - 2, el menos dos significa el X= o el X+.
PD:lee bien el segundo code mejorado porque no teira error ;D
saludos
#295
midificado, se pueden sumar numeros de mas decimales
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Len(Text3.Text)
b = Len(Text1.Text)
Text2.Text = Int(Left(Text1.Text, b - 2)) + Int(Right(Text3.Text, a - 2))
End Sub

:tambien son 3 text box

lo unico para que funciona tiene que ser:

en el text1 : numero+x
y en el text 3 : x=numero

saludos
saludos
#296
hola, aca hice un mini-code con una idea que se me ocurrio, buscar el caracter x, y reemplazarlo aca va..

Código (vb) [Seleccionar]
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, "x", Right(Text3.Text, 1))
Text2.Text = Int(Left(Text1.Text, 1)) + Int(Right(Text3.Text, 1))
End Sub


simplemente 3 textbox y 1 command button.

PD:en un rato posteeo uno mejorado para poner un numero de mayor cifra

saludos

#297
muchas gracias, igual el uniko problema respecto a la funcionabilidad, es la de los comeentarios

saludos
#298
por problemas de la plantilla, que está mal hecha, va a ser cambiada, en cuanto termine aviso

saludos
#299
lo mismo pregunte antes de ayer, unos posts abajo y te lo encontrabas

http://foro.elhacker.net/diseno_grafico/tipo_de_fuente_elhackernet_logo-t261904.0.html

saludos
#300
gracias por la buena onda, karcrack el logo que te habia mostrado(enseñado), los de diseño me hicieron recomendaciones, lo que me llevo como conclusión a ahcer el logo todo de nuevo (hasta las letras)...ah y el que sepa un poco como funcionan los comentarios pero que no estan en la web aparte de blogger, sino incrustado en la web, nose porque no me deja hacer comentarios.


saludos