|
|
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 2 [3] 4 5 ... 15
51
« en: Martes 3 de Noviembre de 2009, 17:48 »
Avira Antivir (Free Edition)
http://www.free-av.com/
Update Offline
http://www.avira.com/es/support/vdf_update.html
Muchos antivirus ofrecen esta opcion, en mi opinion este es muy bueno y gratis (en esta version)
Saludos Excelente F_Tanori, eso era lo que buscaba.... voy a probarlo y luego les cuento. Saludos.
52
« en: Martes 3 de Noviembre de 2009, 17:25 »
Si no tienes internet, es bastante difícil que te entre un virus.
Además, hay muchos antivirus que no necesitas conexión a internet para actualizarlo.
Para actualizarlos puedes ir de vez en cuando a un ordenador que tenga conexión a internet y te bajas la actualización en formato instalable, y cuando llegas a casa ejecutas la actualización y ya. Por ejemplo????....
53
« en: Jueves 29 de Octubre de 2009, 23:40 »
mmmmm que raro, y el que instalaste es una version desatendida de Windows....
Si, asi es. Es para practicar Visual en mi casa... en el trabajo tengo XP original... pero bueno... lo malo esque si lo que queres es comercializar tu app tendras que ver bien bien la conf de la PC antes de instalar.
Como asi??.. explicate mejor... (Aveces hago aplicaciones "pequeñas" para venderselas a estudiantes de universidad)...
54
« en: Jueves 29 de Octubre de 2009, 23:07 »
Trata de instalarlo en otra PC.. a ver si te sale el mismo error.
 Intente eso que me dices, y nada. Lo intente instalar en el PC de mi novia que tiene el mismo S.O. que el mio (el mismo CD de instalacion de windows XP UE V 9.5 del año 2007) y no, no me funciono. Lo que hice fue reinstalar windows xp (una version diferente) y si funciono.
Un windows XP Titan Ultimate de Marzo del 2009 y alli si funcionó... pero no se que fue lo que pasó...
55
« en: Viernes 16 de Octubre de 2009, 17:07 »
Hola a toda la comunidad de solocodigo...
El problema es el siguiete:
Al momento de instalar Visual Studio 2005, me sale que el componente de SQL server x86 no lo puedo instalar, mi pregunta es si es un error de mi windows XP o es el CD de instlacion de VS2005 que esta rayado ....
Resultado final de dicha instalacion:
Visual Studio parece iniciar correctamente, abre las soluciones de los proyectos correctamente pero al momento de iniciar depuracion me sale un error, por ejemplo, si mi aplicacion se llama Aplicacion, el error que se muestra es: Error Aplicacion.exe, y cuando le doy la opcion "Generar" del menu "Generar" me sale un error en la ventanita de la lista de errores, que dice "Error en el manifiesto, no se puede generar"....
¿Alguna sugerencia para corregir este error?
56
« en: Jueves 15 de Octubre de 2009, 16:42 »
Y si estoy en un PC que no tiene acceso a internet, ¿Cual antivirus recomiendan?, eso si, que sea de uso gratuito....
57
« en: Miércoles 7 de Octubre de 2009, 00:10 »
Conocen algun Antivirus de descarga Libre (Gratis)?. 
58
« en: Viernes 2 de Octubre de 2009, 18:13 »
Si, correcto... ssencillo cierto??:...  Grcias...
59
« en: Viernes 2 de Octubre de 2009, 00:29 »
Hola a todos los de visual basic, ya creo que me conocen  En esta ocasion tengo un problema, se que debe ser facil pero aqui se los coloco: Tengo un proceso que no hice yo, es el siguiente: For i = 1250 To 3540 Y1 = Int(150# * Cos(amplitud) * Sin((i - 1250#) * 8# * PI / 2290#) + 2650# + j) Y2 = Int(520 / 600 * (i - 1250) + 3280) Y3 = Int(-520 / 600 * (i - 3540) + 3280) If Y1 > Y2 Then Y1 = Y2 ElseIf Y1 > Y3 Then Y1 = Y3 ElseIf Y1 > 3750 Then Y1 = 3750 End If PSet (i, Y1), RGB(red2, Green2, blue2) Next
y lo quiero aislar a un SUb y lo coloco de la siguiente manera: Private Sub Water_Waves(Min As Integer, Max As Integer, Nro_Seccion As Integer) Dim i As Integer 'water waves For i = Min To Max Y1 = Int(150# * Cos(amplitud) * Sin((i -Min#) * 8# * PI / 2290#) + 2650# + j) Y2 = Int(520 / 600 * (i - Min) + 3280) Y3 = Int(-520 / 600 * (i - Max) + 3280) If Y1 > Y2 Then Y1 = Y2 ElseIf Y1 > Y3 Then Y1 = Y3 ElseIf Y1 > 3750 Then Y1 = 3750 End If PSet (i, Y1), RGB(Vector_Seccion(Nro_Seccion).Red, Vector_Seccion(Nro_Seccion).Green, Vector_Seccion(Nro_Seccion).Blue) Next End Sub
El error me dice que esta en el Min# de la linea 5... La pregunta es: ¿Como debe colocarse para que el codigo sea correcto?saludos y gracias a todos...
60
« en: Viernes 2 de Octubre de 2009, 00:17 »
61
« en: Viernes 2 de Octubre de 2009, 00:01 »
El problema es el siguiente necesito que la cadena tenga un largo fijo (80) y el valor que trae es variable, como puedo hacer para que la cadena siempre tenga el largo que necesito. Una opcion es rellenar la cadena con espacios en caso de que sea una cadena mas corta... por ejemplo: Dim Cadena As String Dim Nro_Caract As Integer cadena = "Buenos dias" Nro_Caract = Len(cadena) 'El valor de Nro_Caracter = 11 If Nro_Caract < 80 Then Cadena = Cadena & Space(80 - Len(Cadena)) End If MsgBox(Cadena & vbCrLf & Len(Cadena))
algo asi.....
62
« en: Martes 15 de Septiembre de 2009, 22:21 »
Mi amigo Nebire siempre ayudandome.... No sabes cuan agradecido estoy contigo... Me sirvió bastante esa explicación.... Gracias. 
63
« en: Lunes 14 de Septiembre de 2009, 18:54 »
Porque se origina este error... En mi codigo no veo ningun error y los OCX que utilizo parecen estar bien... Me gustaria estudiar este error... Alguien me ayuda.  Saludos.
64
« en: Jueves 3 de Septiembre de 2009, 21:26 »
Porque sera que piensan que las preguntas sobre el Inno Setup deben ir en la seccion de Visual Basic 6.0???  Saludos.
65
« en: Jueves 20 de Agosto de 2009, 16:11 »
Excelente explicación amigo Nebire...Mi error era el 480, pero tu explicación me sirvió para estudiar algunos errores adicionales... 
66
« en: Miércoles 12 de Agosto de 2009, 21:19 »
Hace mucho que no trabajo con lineas en VB6.0, he hecho un procedimiento en el mismo formulario donde lo voy a usar, el code es el siguiente: Private Sub Etapas(PictureKe As PictureBox) 'Organizando pictureke With PictureKe .AutoRedraw = True .BackColor = vbBlack .Top = 0 .Left = 0 .Width = Me.Width .Height = Me.Height .ScaleMode = 6 End With 'dibujando lineas With PictureKe PictureKe.Line (0, 0)-(10, 10), vbWhite End With End Sub
¿Donde esta el error?... saludos y gracias por contestar.
67
« en: Martes 4 de Agosto de 2009, 18:53 »
Lo de changos, es una forma de decir "Me lleva...." o "Que cosas...",
Yo tambien habia mal entendido esa palabra, evita escribir palabras que no esten en el diccionario a menos que le des su respectiva explicación asi nos podremos entender mas facilmente. En la costa colombiana la palabra "Chango" ( o su plural "Changos") si es una palabra despectiva. Saludos.
68
« en: Viernes 31 de Julio de 2009, 18:04 »
Hola a todos, quiero empezar a crear firmas... pero cual me recomiendan que aprenda...
Corel Draw o PhotoShop?
saludos.
69
« en: Jueves 23 de Julio de 2009, 18:29 »
pues yo lo ise con un while dentro de un if para cada billete asi =
if cantidad >= 50000 then
while not cantidad < 50000
cantidad = cantidad - 50000
variable50000 = variable50000 + 1
wend
end if
y me funciono perfectamente. La idea es practicar algunos comandos que esten al nivel del que solicito la duda (fijate que no entiende las matrices por eso la respuesta de nuestro buen amigo Nebire que fue la mejor para practicar codigo, no la entendió, asi que yo le reduje un poco la dificultad con el fin de que la entendiera).... Si te fijas bien, en tu respuesta no hay mucho que aprender... Saludos y gracias por el aporte.
70
« en: Lunes 13 de Julio de 2009, 23:16 »
71
« en: Viernes 3 de Julio de 2009, 20:44 »
Si quieres desconectarte por un momento del trabajo, mira este juego, lo recomiendo: http://co.kingsage.com/?kid=1-02033-02033-0906-10320144Este juego empezo el 10 de Junio del 2009, aun muchos son principiantes. Esta plataforma es la de Colombia. Espero que te guste, saludos.
72
« en: Viernes 3 de Julio de 2009, 19:11 »
El comando para cerrar word es:
Eso ya lo habia pensado... Pues porque habrás hecho el Quit antes de salvar... ... El error estaba en que no declare el objeto Word.Document, de esta forma: Set Doc = Word_.Documents.Add Doc.Activate
Sino que lo agregue como : 'AGREGA DOCUMENTO Word.Documents.Add
Esto ocasiona que al momento de cerrar, solo se cierra la aplicacion Word.apllication y no la Documents dando por resultado que la aplicacion Winword.exe quede abierta. Conclusión: Al momento de crear una instancia de Word siempre usar un objeto para word.application y otro para el Documents. Aqui les dejo mi code ya corregido: MODULO: Public Word_ As Word.Application 'Objeto Word Sub AgregarWord(Texto_A_Escribir As String, Nombre_ArchivoTXT As String) If Nombre_ArchivoTXT = "" Then Exit Sub Dim Texto As String Dim Nombre_Archivo As String 'este es el nombre del archivo sin la extensión. Texto = Texto_A_Escribir Dim Doc As Word.Document 'Iniciar word Set Word_ = New Word.Application Word_.Visible = True 'Iniciar documento Set Doc = Word_.Documents.Add Doc.Activate 'AGREGA TEXTO Word_.Selection.Font.Color = wdColorBlack Word_.Selection.Font.Name = "Courier new" Word_.Selection.TypeText Texto 'AGREGA PARRAFO Word_.Selection.TypeParagraph 'Quitando seleccion Word_.Selection.EndOf 'SELECCIONA TEXTO On Error GoTo Adelante Word.Selection.WholeStory Word.Selection.Font.Size = 10 Word_.Selection.EndOf Adelante1: Nombre_Archivo = Left(Nombre_ArchivoTXT, Len(Nombre_ArchivoTXT) - 4) Doc.SaveAs App.Path & "" & Nombre_Archivo & ".doc" Word_.Quit True Set Word_ = Nothing Adelante: If Err.Number = 462 Then Resume Adelante1 End If End Sub Public Function LeerTexto(ArchivoTXT As String) As String If ArchivoTXT = "" Then Exit Function Dim NroLibre As Integer Dim Ruta As String Dim Linea As String Dim Texto As String Ruta = App.Path & "" & ArchivoTXT NroLibre = FreeFile Open Ruta For Input As #NroLibre While Not EOF(1) Line Input #NroLibre, Linea Texto = Texto & Linea & vbCrLf Wend Close #NroLibre LeerTexto = Texto End Function
Private Sub Command1_Click() Dim Archivo As String Dim Texto As String List1.ListIndex = 0 Archivo = List1.Text Do Archivo = List1.Text Texto = LeerTexto(Archivo) Text1.Text = Texto Call AgregarWord(Texto, Archivo) If List1.ListIndex + 1 >= List1.ListCount Then Exit Sub List1.ListIndex = List1.ListIndex + 1 Loop Until List1.ListIndex = List1.ListCount MsgBox ("Finalizado") End Sub Private Sub Form_Load() Dim Archivo As String Archivo = Dir(App.Path & "*.txt") While Archivo <> "" List1.AddItem Archivo Archivo = Dir Wend End Sub
Saludos. Nota: Coloquen un listbox y un textbox multiline = true, scrollbars = vertical
73
« en: Jueves 2 de Julio de 2009, 23:27 »
Normal. Con Set Word = Nothing no cierras la aplicación, simplemente desreferencias el objeto. Tienes que hacer Word.Quit antes. Si hago eso, me aparece el siguiente error:  señalando la siguiente linea: ActiveDocument.SaveAs FileName:=App.Path & "" & Nombre_Archivo & ".doc"
74
« en: Jueves 2 de Julio de 2009, 23:10 »
Hola a toda la comunidad de solocodigo... Mi problema es el siguiente: Estoy intentado copiar el contenido de unos archivos de texto (.txt) en unos documentos de word, los documentos son creados con el mismo nombre que los archivos de texto (solo cambian la extension a .doc)... Por ejemplo... Si el archivo se llama Archivo.txt, se debe crear un documento de word con el mismo nombre pero de extensión .doc, es decir, debe crearse Archivo.doc con el contenido de Archivo.txt. Para esto he creado una funcion y un subproceso (en un modulo), aqui se los coloco: Esto es para leer el contenido de los archivos de texto:Public Function LeerTexto(ArchivoTXT As String) As String If ArchivoTXT = "" Then Exit Function Dim NroLibre As Integer Dim Ruta As String Dim Linea As String Dim Texto As String Ruta = App.Path & "" & ArchivoTXT NroLibre = FreeFile Open Ruta For Input As #NroLibre While Not EOF(1) Line Input #NroLibre, Linea Texto = Texto & Linea & vbCrLf Wend Close #NroLibre LeerTexto = Texto End Function
Sub AgregarWord(Texto_A_Escribir As String, Nombre_ArchivoTXT As String) If Nombre_ArchivoTXT = "" Then Exit Sub Dim Texto As String Dim Nombre_Archivo As String 'este es el nombre del archivo sin la extensión. Texto = Texto_A_Escribir Dim Word As New Word.Application 'AGREGA DOCUMENTO Word.Documents.Add 'AGREGA TEXTO Word.Selection.Font.Color = wdColorBlack Word.Selection.Font.Name = "Courier new" Word.Selection.TypeText Texto 'AGREGA PARRAFO Word.Selection.TypeParagraph 'SELECCIONA TEXTO Word.Selection.WholeStory Word.Selection.Font.Size = 10 Nombre_Archivo = Left(Nombre_ArchivoTXT, Len(Nombre_ArchivoTXT) - 4) ActiveDocument.SaveAs FileName:=App.Path & "" & Nombre_Archivo & ".doc" Set Word = Nothing End Sub
Y en un boton command1 del formulario coloco lo siguiente: Private Sub Command1_Click() Dim Archivo As String Dim Texto As String Archivo = Dir(App.Path & "*.txt") While Archivo <> "" Texto = LeerTexto(Archivo) Call AgregarWord(Texto, Archivo) Archivo = Dir Wend MsgBox ("Finalizado") End Sub
El problema es que los archivos de Word creados no cierran del todo... me doy cuenta cuando abro el administrador ( CTRL + Alt + Sup) y encuentro en la lista la aplicacion de word (y esta abierta!!!)... Miren la siguiente imagen y dense cuenta de los WINWORD que aun estan abiertos (en este ejemplo, solo cree tres documentos de word, por lo que solo aparecen 3 Winword en la imagen) 
¿Como hago para que despues de ejecutar mi code esta aplicacion no este abierta?, que le falta a mi codigo?...
Saludos.
75
« en: Jueves 2 de Julio de 2009, 17:12 »
Hola a toda la comunidad de solocodigo...
Mi pregunta es la siguiente:
Como puedo crear un documento de Microsoft Word desde VBA EXCEL?, es decir, con un boton en Excel deseo hacer un docuemnto de word.
Saludos.
Páginas: 1 2 [3] 4 5 ... 15
|
|
|
Mostrar Mensajes
....... 
