|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Jimbenit
Páginas: 1 ... 9 10 [11] 12 13 ... 15
251
« en: Jueves 23 de Octubre de 2008, 17:46 »
Te regalare dos de mis "super funciones"
Me parece loable tu actitud, pero muy poco didáctica. Así sólo enseñas a usar copiar-pegar y no a programar. Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas. Y pon todas las declaraciones juntas, sino no hay quien lea eso.
Moskito, ¿Hablas español?, pues en la frase que dijiste que marque de color rojo antes del punto(.) te dirigias a mi, luego , despues del punto gramatical te diriges a "bobo" ??.. pues es un español muy pobre e induce a entender mal. Cuando en un mismo parrafo te diriges a dos personas diferentes utiliza el nombre de la persona seguido por una coma o si no, puedes utilizar un punto-y-coma ( pero no uses el punto segido(.).Nota: El punto-y-coma ( se utiliza para cambiar de sujeto (persona o cosa a la cual te refieres) y el punto seguido a la misma cosa o persona pero para dar una nueva percepcion o hacer un nuevo comentario, o decir un nuevo adjetivo, o dar un nuevo conocimiento sobre la MISMA cosa Saludos. Nota 2: me da igual si te caigo bien o no, esa no es la cuestión. Y discutir es algo sano y natural. No pasa nada.   Nota 3:
Este es mi ultimo mensaje sobre algo diferente al hilo inicial del tema, lo hago por respeto a las enseñanzas de mi querida TophNota 4:Yo quiero mucho a Toph
252
« en: Jueves 23 de Octubre de 2008, 16:47 »
Os aconsejo que si copiáis funciones, por lo menos os toméis el tiemp de entenderlas Las funciones que publico son creadas por mi, pero ya se por que lo dices, lo dices por que a tu pregunta sobre el archivo .INI no respondi tu pregunta, cierto??...
(aun que no todas las funciones que publico son creaciones mias, pero si todas estan, por lo menos personalizadas por mi, de tal manera que solo sea necesario copiar y pegar, (recuerda que estamos en un foro de Visual Basic para principiantes y lo mas seguro es que las personas que preguntan saben muy poco de viasual basic)Hey, Moskito, me caes bien,... please, no discutamos ... la finalidad es ayudar a una persona...  Lo hicimos, o no???.... ya terminó......  ...Nota: Yo quiero mucho a Toph
253
« en: Jueves 23 de Octubre de 2008, 16:07 »
Buenas, ncesito guaradar info de un list a un txt como lo hago.- Expliquenlo como para mi "bobo"
gracias Bueno yo te entiendo que tienes unos datos en un ListBox (Cuadro de lista) y los quieres guardar en un bloc de Notas (archivo con extension *.txt). Te regalare dos de mis "super funciones"  , estas funciones colocalas en un Modulo Estandar:, Te serviran para cualquier proyecto que hagasFunction LeerDatoMATRIZ(Colum As Long, Fila As Long, RutaArchivo As String) As Variant 'Lee datos de una cadena separada por comas.. ejemplo: ' xxxxx, xxxxx, xxxxx , xxxxx, etc... Dim NumLine As Long Dim Cadena1 As String Dim Cadena As String Dim Dato As Variant If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, " " Close #1 End If Open RutaArchivo For Input As #1 'Copia la fila completa en la variable cadena While Not EOF(1) Line Input #1, Cadena1 NumLine = NumLine + 1 If NumLine = Fila Then Cadena = Cadena1 End If Wend Close #1 Dim NumLet As Long Dim Cont As Long Dim Letr As String Dim PosComas() As Long Dim NumCarac As Long NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then Exit Function 'Columna vacia ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i If Colum = UBound(PosComas()) + 1 Then 'Escribe el dato buscado en la variable dato Dato = Mid(Cadena, PosComas(Colum - 1) + 1) Else Dato = Mid(Cadena, PosComas(Colum - 1) + 1, PosComas(Colum) - 1 - PosComas(Colum - 1)) End If 'El siguiente bloque de código elimina las comillas 'del principio y final de la variable Dato. NumLet = Len(Dato) If Left(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 2) End If NumLet = Len(Dato) If Right(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 1, NumLet - 1) End If LeerDatoMATRIZ = Dato End Function Sub EscribirDatoMATRIZ(Colum As Long, Fila As Long, Dato As Variant, RutaArchivo As String) 'Guarda datos en un bloc notas en forma de comas... utiliza el bloc 'como una matriz ordenada por filas y columnas... [Mayo 5 / 2008] Dim Contador As Double Dim Vector() As Variant Dim Caracter As String Dim Max As Double Dim Linea As Long Dim Cadena As String Dim NumLet As Long Dim Letr As String Dim Cont As Long Dim PosComas() As Long Dim Pedazo1 As String Dim Pedazo2 As String Dim Comas_Add As Long If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, " " Close #1 End If Linea = Fila For j = 1 To 2 'Introduce todas las lineas del Bloc notas en un Vector llamado Vector() Open RutaArchivo For Input As #1 While Not EOF(1) 'Cuenta las lineas del Bloc Notas Line Input #1, Caracter i = i + 1 If j = 1 Then Contador = i ElseIf j = 2 Then 'Si j = 2 , se escriben las lineas dentro del vector Vector(i) = Caracter End If Wend Close #1 If j = 1 Then If Linea > Contador Then 'Define el tamaño del vector ReDim Vector(1 To Linea) Max = Linea Else ReDim Vector(1 To Contador) Max = Contador End If i = 0 End If Next j For i = 1 To Max 'Obtiene la fila en string separada por comas If i = Fila Then Cadena = Vector(i) End If Next i 'Obtención de las posiciones de las comas '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then 'Columna vacia Comas_Add = Colum - (Cont + 1) For i = 1 To Comas_Add Cadena = Cadena & ", " Next i Cont = Colum - 1 End If NumLet = Len(Cadena) ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 'Añadiendo el dato a la cadena [Elimina el dato anterior en esa posición] If Cont = 0 Then Cadena = Dato ElseIf Colum = 1 Then 'Coloca el dato al principio Cadena = Dato & Mid(Cadena, PosComas(1)) ElseIf Colum = UBound(PosComas()) + 1 Then 'Coloca el dato al final Cadena = Mid(Cadena, 1, PosComas(Colum - 1)) & Dato Else Pedazo1 = Mid(Cadena, 1, PosComas(Colum - 1)) Pedazo2 = Mid(Cadena, PosComas(Colum)) Cadena = Pedazo1 & Dato & Pedazo2 End If 'Escribiendo en el Bloc Notas Open RutaArchivo For Output As #1 For i = 1 To Max If i = Linea Then Vector(i) = Cadena Print #1, Vector(i) Else Print #1, Vector(i) End If Next i Close #1 End Sub
Private Sub Command1_Click() Dim i As Long Dim Ruta As String Ruta = "C:MiTexto.txt" 'Dale una direccion valida de ruta 'Este "For" lee los elementos de tu Lista y los escribe en un bloc de notas For i = 0 To List1.ListCount Call EscribirDatoMATRIZ(1, i + 1, List1.List(i), Ruta) Next i 'Analiza esta funcion, que es capaz de leer datos de un bloc 'de notas que este ordenado por filas y columnas separadas por comas 'Comentario: NO UTILIZAR ESTE PROCEDIMIENTO CUANDO EL ARCHIVO DE LECTURA DEL BLOC DE NOTAS 'CONTENGAN MUCHAS FILAS O MUCHAS COLUMNAS SEPARADAS POR COMAS (mas de 10 mil filas y/o columnas) 'pero para aplicaciones sencillas, como guardar una configuracion de un formulario, 'alamcenar algunos datos de un cuadro de lista, o cosas similares es excelente End Sub
254
« en: Jueves 23 de Octubre de 2008, 15:26 »
Nota:
Pido al moderador eliminar esta respuesta ( No el post, este Post esta excelente), fue un error de pulsar mal el boton.
Gracias
255
« en: Jueves 23 de Octubre de 2008, 15:25 »
busca en este foro cómo hacerlo Podrias pasarme del enlace de ese Post?, o por lo menos dime el titulo del post para buscarlo, o la persona que lo escribio...Nota: Shadow_Rev gracias por toda la ayuda que me has dado.
256
« en: Miércoles 22 de Octubre de 2008, 21:59 »
"Si quieres hacer EXEs normales, mejor usa C++ " Lo anterior significa que se puede usar Java, pero que es mas dificil que hacerlo con C++ o sencillamente no se puede usar java con el JCreator para hacer EXE con entorno MS-DOS??  Bueno, pero me gustaria usar el JCreator para ese fin, se puede?, no me gustaria hacerlo con C++ ya que la finalidad es practicar el lenguaje JAVA
257
« en: Miércoles 22 de Octubre de 2008, 19:41 »
El aporte ha sido excelente, si esa es la palabra para calificar lo que han hecho hasta ahora por mi, estoy practicando JAVA con el JCreator pero me surge una nueva duda.Como le hago para compilar mi aplicación ( no me refiero al run del JCreator que se activa con la tecla F5), es decir, lo que quiero es publicar mi aplicacion de Java, que esta aplicación corra en ventana DOS como una aplicacion .exe, que sea un programa mas (como lo hago con el JCreator?? , estoy usando la version 4.50)No se si me hice entenderNota: El IDE del JCreator 4.50 es excelente, se parece mucho a mi favorito VB2005, gracias.
258
« en: Miércoles 22 de Octubre de 2008, 16:00 »
Buen dia a todos los que leen este POSTEn este post quiero agradecer a todos los moderadores, administradores, y a todos los foreros por sus MUY utiles intervenciones para resolver dudas, charlar de temas, religión, politica y demas, por compartir un poquito de su cultura y conocimiento, por compartir cosas que no son necesariamente de sexo o conversaciones con personas de SOLO del sexo opesto, sino por su manera muy desintersada a ayudar y aclarar cosas de Novatos, de Aprendices (como yo). Para aquellos que muestran su ánimo de que uno aprenda, de aquellos que animan a seguir estudiando, yo quiero decirles : MUCHAS GRACIASSaludos a todos Sigamos con el foro...Nota: Toph, Te quiero mucho.
260
« en: Lunes 20 de Octubre de 2008, 21:48 »
Ric_Monje , buen aportePero hay un paso cuando estoy instalando el netbeans, donde me pide especificar la carpeta del JDK. Como obtengo ese folder, ya he instalado el JDK 6 en archivos de programa, que mas se hace?Nota:Disculpen mi ignorancia.
261
« en: Lunes 20 de Octubre de 2008, 21:06 »
Bien, ya baje el JDK 6 y el netbeans para el J2SE, tambien el Jcreator, y un editor de C++ de NetBeans
Me gustaria instalar primeramente el netbeans para JAVA (J2SE) pero al momento de instalar hay un paso que me solicita el JDK. Me gustaria saber el orden de instalacion y como se halla el componente que me pide el IDE de netbeans.
Saludos.
262
« en: Lunes 20 de Octubre de 2008, 20:33 »
Soy de un pequeño municipio de Colombia en el departamento de Bolivar: Magangue
Pero actualmente estoy viviendo en la segunda ciudad de Colombia de mujeres Hermosas: CARTAGENA (la primera ciudad de Colombia de mujeres hermosas es Medellin)
Nota:
Hace algunos post atras, Toph me enseño algo (no que me lo dijo en palabras textuales, sino que me lo dio a entender) y es esto: No nos desviemos del tema por que sino el resultado mas seguro es que nos encontremos en un caos unos discutiendo con otro, cosas que no corresponden al hilo inicial del tema
Saludos.
263
« en: Lunes 20 de Octubre de 2008, 19:55 »
264
« en: Lunes 20 de Octubre de 2008, 18:43 »
Eclipse es un IDE de Java...es bueno y sencillo??... tiene algun manual en español?
265
« en: Lunes 20 de Octubre de 2008, 15:17 »
Seria mucho pedir que me pasases el link donde bajarlo?, Jcreator?... bien ... y cual es su ultima version? Nota: Encontre este link para bajar el jcreator, me gustaria leer sus comentarioshttp://es.brothersoft.com/JCreator-download-126860.html
266
« en: Viernes 17 de Octubre de 2008, 16:09 »
Alguien podria decirme para que sirve el "JAVA APPLICATION PLATAFORM SDK ", solo quiero estar seguro de lo que estoy pensando que es. No me gustaria perder el tiempo instalar y luego desintalar. Lo bajé y pesa 218 MB, ¿Este es el codigo (o lenguaje) de JAVA? ¿ O debo bajar otro componente mas a parte del NetBeans?
Por cierto: el NetBeans que estoy bajando (aun no lo termino de bajar) pesa lo mismo (218 MB) estoy pensando que estoy bajando el mismo archivo. (solo tiene nombres diferentes)
267
« en: Viernes 17 de Octubre de 2008, 15:42 »
Utilizas un Office legal?? No se me ocurre ninguna solucion, lo unico que pienso es que si usas ese codigo en un Office Legal y el problema sigue igual (sin formatear unidad), entonces si es un misterio  .
268
« en: Jueves 16 de Octubre de 2008, 18:33 »
Hola a todos ustedes, me gustaria iniciar programación con JAVA, pues programo en VB2005 (plataformas windows como ya todos ustedes saben) y quiero introducirme en la programacion bajo S.O. diferente (como Linux), ¿de donde bajo el lenguaje de JAVA mas reciente y el IDE (es decir, el entorno donde contiene los controles, me gustaria el NeatBeans, bueno me gustaria que me ayudaran con esto. En el internet veo que hay muchas versiones del lenguaje pero cual es la ultima?, no se.) Saludos. P.D. : Disculpen mi SUPER ignorancia con este lenguaje. Pero estoy decidido a iniciar.
269
« en: Miércoles 15 de Octubre de 2008, 20:12 »
270
« en: Miércoles 15 de Octubre de 2008, 18:19 »
Bueno y alguien me podria decir como agrego elementos por medio de codigo a una columna de un DataGridView que esta configurada a DataGridViewComboBoxColumn , lo que quiero saber es como le ingreso las opciones que dispondrá el usuario en el combobox de esa columna cuando mi aplicacion este en ejecución
Agradezco mucho a Nebire por su colaboración
272
« en: Miércoles 15 de Octubre de 2008, 16:17 »
Los controles ActiveSkin, y el otro que mencionas VBSkiner son gratis o hay que pagar para utilizarlos??. El control activeSkin me muestra en algunos computadores algo asi: "Version Trial"
273
« en: Martes 14 de Octubre de 2008, 20:31 »
Bonita
274
« en: Martes 14 de Octubre de 2008, 20:24 »
CARLA GIRALDO No se olviden de las lesbianas hermosas:Carla Giraldo, no pedir fotos desnudas pues no puedo hacerlo Mas bella que esta es dificil encontrarla...EDIT TOPH: Ni fotos ni enlaces, si alguno esta interesado en los enlaces que te los pida por mensaje privado
Páginas: 1 ... 9 10 [11] 12 13 ... 15
|
|
|
Mostrar Mensajes
(de alguna manera crei haber terminado su instalacion)
.jpg)
