|
|
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 - fm89-10
1
« en: Martes 24 de Mayo de 2011, 04:25 »
Bueno les dejo esta pequena utilidad creada en visual. net 2008.
La aplicacion le permite eliminar los autorun y el ejecutable que apunta el autorun ademas de que detecta cuando se conecta una memoria usb y la analiza al instante que se conecta y si encuentra el autorun este muestra la direccion donde esta para poder eliminarlo.
Autor: Felix Garcia
2
« en: Jueves 25 de Noviembre de 2010, 01:08 »
muestrame algo del codigo de como usas el teclado que tienes. para poder ayudarte.
3
« en: Jueves 25 de Noviembre de 2010, 01:03 »
muy bien vamos desde cero. primero hay que descargarse el activador. una vez descargado ejectuas el registrar.bat que esta adentro.Luego abres el Visual y te vas al menu herramientas y entras donde dice Elegir elementos del cuadro de herramientas de la ventana que se te abre te vas a Componentes COM buscar el archivo que dice actskin4 y lo seleccionas con el check. si no te aparece lo puedes agregar dando click en examinar y buscas el archivo actskin4.ocx y le das en aceptar y listo. Luego para aplicar los skin pones el siguiente codigo dentro de un evento load del formulario Me.AxSkin1.LoadSkin("C:Skinswinter.skn") Me.AxSkin1.ApplySkin(Me.Handle.ToInt32)
y listo con eso te tiene que funcionar. suerte  si tienes algun problema me dices
4
« en: Miércoles 24 de Noviembre de 2010, 15:00 »
5
« en: Miércoles 24 de Noviembre de 2010, 14:56 »
lo puedes hacer de esta manera donde tienes el textbox coloca el teclado debajo y lo pones en visible=false y le agregas un evento al textbox dentro del evento haces el teclado visible=true y cuando le des en aceptar lo vuelves a ocultar;
6
« en: Martes 26 de Octubre de 2010, 04:39 »
7
« en: Viernes 15 de Octubre de 2010, 19:56 »
8
« en: Jueves 14 de Octubre de 2010, 20:57 »
los puedes hacer de dos maneras, una es poniendo un evento al form de load y dentro con una consulta traes el login y el pasword y los muestras en los textbox.la otra es usando archivos,puedes poner un checkbox diciendo de recordar usuario y contraseña y en ese evento agarrar los valores de los textbox y los guardas en el archivo pero usando un delimitador y luego solo lo cargas.aqui esta un ejemplo parecido a la segunda opcion que te digo.
10
« en: Miércoles 13 de Octubre de 2010, 17:36 »
primero que utilizas para hacer login, base de datos o archivos?, especificate para poder ayudarte.
11
« en: Miércoles 13 de Octubre de 2010, 17:33 »
te dejo este ejemplo que acabo de hacer. ya lo probe y funciona,solo ajusta el codigo para tu programa. suerte
12
« en: Viernes 2 de Julio de 2010, 02:29 »
13
« en: Jueves 6 de Mayo de 2010, 19:56 »
otra forma es utilizando crystal reports, creas un reporte y este ya trae para guardarlo como archivo de excel, para ayudarte en el reporte solo dime que visual studio usas porq el que yo utilizo es el visual studio 2008 que ya trae integrado crystal repot
14
« en: Lunes 3 de Mayo de 2010, 18:17 »
15
« en: Viernes 16 de Abril de 2010, 17:51 »
el problema que podrias tener es que usas la consulta de eliminarRegistro dos veces. una es con el da = New OleDbDataAdapter(EliminarRegistro, conexion)
y la otra es con el Dim cmd As New OleDbCommand(EliminarRegistro)
en la primera consulta te lo elimina bien, pero en la segunda lo quieres volver a eliminar y no le pasas la conexion. y ese podria ser tu error. Lanza el siguiente Error
Titulo: Conectar con la base
ERROR al conectar o recuperar los datos:
ExecuteNonQuery: la propiedad Connection no se ha inicializado te dejo esta otra forma de hacerlo a ver si te funciona Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click Try Dim cmd As New OleDbCommand(EliminarRegistro,conexion) cmd.ExecuteNonQuery() 'Crear un nuevo objeto del tipo DataAdapter da = New OleDbDataAdapter(TdatosNombre, conexion) 'Crear los comandos de insertar, actualizar y eliminar Using cb As New OleDbCommandBuilder(da) da.Fill(dt) 'Llenar la tabla con los datos indicados With dgvDatos ' alternar color de filas .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite .DefaultCellStyle.BackColor = Color.RosyBrown ' Establecer el origen de datos para el DataGridview .DataSource = dt End With End Using Catch ex As Exception MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _ ex.Message, "Conectar con la base", _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
16
« en: Lunes 12 de Abril de 2010, 22:59 »
17
« en: Miércoles 17 de Marzo de 2010, 22:21 »
18
« en: Miércoles 17 de Marzo de 2010, 02:10 »
19
« en: Lunes 15 de Marzo de 2010, 00:03 »
20
« en: Domingo 14 de Marzo de 2010, 23:30 »
hola a ver si te entendi lo que quieres es ingresar 30 temperaturas Celsius en un arreglo y pasar esas 30 que estan en el arreglo a farenheit aqui te dejo el ejemplo, y la formula que usas esta bien. import java.io.*; import javax.swing.*; public class Grados { public static void main (String[] args ) { int g[]; g=new int [30]; int valor[]; valor= new int [30]; for(int i=0;i<3;i++) { } for(int i=0;i<30;i++) { if(g[i]>30) { valor[i]=g[i]*9/5+32; } } for(int i=0;i<30;i++) { System. out. print("Los Grados Ingresados son:"+ g [i ] + "t"); System. out. println("Los Grados Farenheit son:"+valor [i ]); } } }
22
« en: Martes 16 de Febrero de 2010, 17:31 »
hola, tienes suerte que ahorita no tengo nada que hacer asi que te dejo el ejemplo como decias. Private Function esseparador(ByVal c As String) As Boolean Const Separadores As String = " ,.;:(){}[]'¡!?¿-_" & vbCrLf If InStr(1, Separadores, c, vbBinaryCompare) = 0 Then esseparador = False Else esseparador = True End If End Function Private Function giracad(ByVal palabra As String) As String giracad = "" Dim n As Integer Dim cad As String For n = Len(palabra) To 1 Step -1 cad = Mid$(palabra, n, 1) giracad = giracad + cad Next End Function Private Function girapala(ByVal cad As String) As String Dim n As Integer girapala = "" Dim s As String Dim palabra As String Dim c As String For n = 1 To Len(cad) c = Mid$(cad, n, 1) If esseparador(c) Then palabra = palabra + giracad(s) + c s = "" Else s = s + c End If Next n s = giracad(s) s = palabra + s girapala = s End Function Private Sub Command1_Click() Text1.Text = girapala(Text2.Text) End Sub
alguna duda me dices. suerte
23
« en: Martes 16 de Febrero de 2010, 06:26 »
24
« en: Martes 16 de Febrero de 2010, 06:14 »
hola tu codigo esta casi bueno solo le hice unas pequeñas modificaciones. Private Function esseparador(ByVal c As String) As Boolean Const Separadores As String = " ,.;:(){}[]'¡!?¿-_" & vbCrLf If InStr(1, Separadores, c, vbBinaryCompare) = 0 Then esseparador = False Else esseparador = True End If End Function Private Function giracad(ByVal palabra As String) As String giracad = "" Dim n As Integer For n = Len(palabra) To 1 Step -1 giracad = Mid$(palabra, n, 1) + giracad Next End Function Private Function girapala(ByVal cad As String) As String Dim n As Integer girapala = "" Dim s As String Dim palabra As String Dim c As String For n = Len(cad) To 1 Step -1 c = Mid$(cad, n, 1) If esseparador(c) Then palabra = palabra + c Else giracad (palabra) s = s + palabra s = s + c palabra = "" End If Next giracad (palabra) s = s + palabra girapala = s End Function Private Sub Command1_Click() Text1.Text = girapala(Text2.Text) End Sub
ya lo probe y funciona, alguna duda me dices. suerte
25
« en: Miércoles 30 de Diciembre de 2009, 02:06 »
hola, pues podria ser un error de framework, fijate al crear el exe en vb.net con cual es que compila si es framework 2.0 ó el 3.0 ó inferior.
te vas al explorador de soluciones, click derecho en propiedades donde esta tu proyecto, luego te vas a compilar, luego opciones de compilacion avanzada y ahi te fijas en que version de framework lo compila.
suerte
|
|
|
Mostrar Mensajes
