|
|
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 - korsakof
1
« en: Miércoles 28 de Mayo de 2014, 16:30 »
Hola,
tengo un problemilla con este objeto. Tengo dos funciones una en el load del formulario y otra a la que llama cuando se produce un evento del webbrowser.
Lo que no se es como detectar que la pagina ha sido correctamente cargada(vamos que se ve en el control) y despues de esta asignar unos valores a unos cuadros de texto dentro de la pagina web.
Esto es lo que hay en el load.
AddHandler browser.DocumentCompleted, AddressOf pageLoaded
browser.Navigate("Web Address")
Y esto es lo que hay en lo que maneja el evento.
Private Sub pageLoaded(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles browser.DocumentCompleted
Dim autoHotkey As New Process()
browser.Document.GetElementById("j_username").InnerText = "USER"
browser.Document.GetElementById("j_password").InnerText = "PASS"
browser.Document.GetElementById("loginbutton").InvokeMember("Click")
System.Threading.Thread.Sleep(5000)
MsgBox(My.Application.Info.DirectoryPath & "\aceptarAlerta.exe")
autoHotkey.StartInfo.FileName = My.Application.Info.DirectoryPath & "\aceptarAlerta.exe"
autoHotkey.Start()
autoHotkey.Close()
autoHotkey.Dispose()
End Sub
Lo estoy desarrollando en visual studio 2010.NET.
Gracias por la ayuda.
2
« en: Domingo 16 de Febrero de 2014, 15:27 »
Hola,
Tengo un problema y no se como resolverlo:
La empresa tiene una plataforma en javascript(La plataforma al ser una gran empresa no se puede tocar) donde una parte de esa plataforma, se encarga de abrir incidencias cuando una maquina se les estropea. La incidencia se envia al equipo de mantenimiento, hasta ahi bien.El problema les surge cuando una persona de mantenimiento tiene que estar todo el dia mirando la pantalla para ver si entran incidencias.
Lo que se pretende hacer es enviar un sms al tecnico para que este no tenga que estar mirando la pantalla.
La entrada de datos se hace por medio de teclado y una pistola(lector codigo de barras) que van directamente a la plataforma de la empresa, a la pagina web.
El programa debe capturar esos datos a traves de algun sistema para luego poder usarlos a la hora de enviar el sms al tecnico de mantenimiento.
Habia pensado en un estilo keylogger, lo que pasa es que esto no se si funcionaria a la hora de capturar los datos por entrada de teclado, sin tener el foco del programa ya que este correria en background.
Un Saludo. Muchas Gracias.
3
« en: Jueves 7 de Abril de 2011, 15:11 »
Esta es la linea------->oDataadapter.InsertCommand.Parameters("@fecha").Value = CDate(Format$(dtpFecha.Value.Date, "yyyy-MM-dd")).ToShortDateString() ' Esto solo te da la fecha sin hora
No funciona!!!, Gracias por la respuesta.
4
« en: Lunes 4 de Abril de 2011, 20:11 »
Dim resp As Boolean resp = comprobarCampos() If resp = True Then REM meto consulta numalum Dim oDataadapter As New SqlDataAdapter ' Dim oComando As New SqlCommand(sSQL, CONN) Dim iResultado As Integer Dim oComando As New SqlCommand("INSERT INTO Frutas (idCursoFruta,idAlumnoFruta,fecha,nFrutas) VALUES(@idCursoFruta,@idAlumnoFruta,@fecha,@nFrutas)", CONN) oDataadapter.InsertCommand = oComando oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idCursoFruta", SqlDbType.Int)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@idAlumnoFruta", SqlDbType.Int)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@fecha", SqlDbType.DateTime)) oDataadapter.InsertCommand.Parameters.Add(New SqlParameter("@nFrutas", SqlDbType.Bit)) oDataadapter.InsertCommand.Parameters("@idCursoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbCurso.Text, 2)))) oDataadapter.InsertCommand.Parameters("@idAlumnoFruta").Value = LTrim(RTrim(Val(Microsoft.VisualBasic.Left(cbbNumAlum.Text, 2)))) Esta es la linea------->oDataadapter.InsertCommand.Parameters("@fecha").Value = CDate(Format$(dtpFecha.Value.Date, "yyyy-MM-dd")) oDataadapter.InsertCommand.Parameters("@nFrutas").Value = chkFruta.CheckState CONN.Open() ' ejecutar comando de inserción del adaptador iResultado = oDataadapter.InsertCommand.ExecuteNonQuery() ' cerrar conexión CONN.Close() MsgBox("Se añadio el registro con exito", MsgBoxStyle.OkOnly) botones(2) carganumAlum() Else MsgBox("Algun dato introducido es incorrecto", MsgBoxStyle.OkOnly) End If
Tengo un problema al introducir la fecha, ya que no me añade solo la fecha sino tambien la hora. en la base de datos el campo esta declarado como datetime. Gracias. 
5
« en: Sábado 26 de Marzo de 2011, 11:33 »
Tienes que importar la siguiente libreria:
Imports System.Data.SqlClient
Dim _Conex As New SqlConnection("Data Source=TU-SERVIDOR[b]SQLEXPRESS[/b];Initial Catalog=TuBaseDatos;User Id=Usuario;Password=TuPassword;") 'DESPUÉS DEL NOMBRE DE DE TU SERVIDOR AGREGAS [b]SQLEXPRESS[/b]
Ya tu variable _Conex tiene la cadena de conexión, me imagino que ese era tu problema.. cualquier cosa solo pregunta.. saludos!  Gracias. 
6
« en: Viernes 25 de Marzo de 2011, 10:52 »
Hola,
Estoy creando una pqueña aplicacion para un familiar. Yo previamente use visual basic 6 con access y DAO. Esta vez estoy usando visual studio y sql server(el que viene integrado con visual studio) creo que es el express y llevo varias dias buscando como conectarme a la base de datos.
Tambien las he usado en java.
Gracias por su tiempo.
7
« en: Jueves 16 de Diciembre de 2010, 01:17 »
Hola,
Estoy usando Eclipse y JUnit y quiero probar un metodo y un constructor que no devuelven un valor y no se como hacerlo.
Muchas Gracias.
8
« en: Martes 30 de Noviembre de 2010, 20:06 »
Gracias.
9
« en: Sábado 20 de Noviembre de 2010, 17:53 »
Solucionado.
La solucion es que hay que crear un perfil den modo debug de eclipse y poner puntos de parada en el codigo. Despues vamos a la parte superior derecha y entramos en la pantalla debug.Ejecutamos el programa con la configuracion debug y en la parte derecha veremos la pantalla variables donde apareceran los datos.
10
« en: Sábado 20 de Noviembre de 2010, 12:28 »
Que entiendes por arrastrar?? es que no se como hacerlo.
Estoy usando Eclipse en linux.
11
« en: Viernes 19 de Noviembre de 2010, 20:02 »
Hola amigos,
Estoy haciendo un proyecto sencillo en java y me gustaria saber como se pueden conocer el valor de las variables mientras ejecuto el programa. Estoy usando eclipse para programarlo.
En visual mientras lo estas ejecutando puedes saber los valores poniendo puntos de parada y poniendote encima de la variable. como puedo hacer eso en eclipse?
Gracias.
12
« en: Martes 3 de Agosto de 2010, 17:24 »
Lo que quiero hacer es:
tengo un vector o array de cadenas y me gustaria pasar los datos a unas tablas de sql.
13
« en: Lunes 26 de Julio de 2010, 17:23 »
Hola forer@s,
Es que tengo un par de dudas que no soy capaz de resolver:
1.- Quiero crear una pantalla de salida que indica si realmente quieres salir(es que la tengo personalizada) me gustaria saber como puedo cerrar cualquier form desde esta ventana ya que quiero que sirva para todos.
2.- Tengo un conjunto de vectores que cotienen datos y me gustaria crear una base de datos de sql y acceder a ellos. Pero no encontre un manual.Alguien que me lo pueda explicar?
La teoria del modelo relacional y todo eso ya me lo se pero no consigo hacerlo en vb.net.
Gracias y perdonen las molestias.
14
« en: Jueves 3 de Septiembre de 2009, 13:01 »
1. Dim Dato,Archivo as Long 2. 3. Archivo =FreeFile 4. 5. Open "C:Archivo.txt" For Input As #Archivo 6. Do While Not EOF(Archivo) or cont >5 7. Line Input #Archivo , Dato 8. 'MsgBox Dato 9. debug.print Dato ' Cojo el valor string, lo transformo y compruebo k esta comprendido entre los numeros 1 y 15 if val(dato) >= 1 and val(dato)<=15 then ' Haces la operacion que desees con los numeros comprendidos entre el uno al 15 end if 'Puedes hacer un contador con el numero de veces que lees y compruebas cont=cont+1 10. Loop 11. Close #Archivo
15
« en: Viernes 19 de Junio de 2009, 14:12 »
Gracias.
16
« en: Jueves 18 de Junio de 2009, 12:56 »
Respecto a lo del 2003, Yo creo que proyectos del 2008 en el 2003 no funcionarian.
Pero si los del 2003 en el 2008 aunque en algun caso puede dar error por librerias.
17
« en: Miércoles 17 de Junio de 2009, 09:38 »
Hola aqui tienes un codigo. procedimiento esnumero--> devuelve si es numero. SI-->Le da formato al numero segun la configuracion regional NO-->Se le dice al usuario que no es correcto por msgbox procedimiento calcular--> Es el procedimientoque nos realiza los calculos. Lo hago asi para tenerlo mas ordenado. Ademas si corriges un procedimiento te vale para todos la modificacion. Imports System.Windows.Forms.TextBox Public Class Form1 ' ################################################################################################# ' Procedimiento esnumero ' Comprueba el textbox que desees si es numero o no y pone formato ' ################################################################################################# Private Sub esnumero(ByRef ncaja As TextBox) If ncaja.text = "" Then MsgBox("No has escrito nada") Else If Microsoft.VisualBasic.IsNumeric(ncaja.text) = False Then MsgBox("No es un numero") ncaja.Focus() Else ncaja.Text = FormatNumber(Val(ncaja.Text), -1) End If End If End Sub ' ################################################################################################# ' Procedimiento Calcular ' Aqui realizas los calculos oportunos ' ################################################################################################# Private Sub calcular() ' Realizar calculos ' Esto no lo hice porque no entiendo lo que quieres hacer pero defines variable a las que solo asignas valor y no las usas posteriormente. Eso no tiene sentido. ' Otra cosa, aunque visual te convierta tipo automaticamente es recomendable que uuses la funcion "val" para recoger el numero de la caja de texto. ' Ej: suma=val(cajadetexto.text)+2 End Sub ' ################################################################################################ ' Evento LostFocus de la caja de texto. ' ################################################################################################ Private Sub txtdiametro_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtdiametro.LostFocus Call esnumero(sender) 'Llamo al procedimiento que me comprueba que es numero y pone formato ' Necesitas un evento lost focus para cada caja de texto End Sub End Sub
18
« en: Martes 16 de Junio de 2009, 15:28 »
Buenas Tardes,
Me gustaria leer mi biblioteca del ipod en visual basic y poder reconocerlo.
Sabeis de alguna dll o algun codigo para hacerlo.
Gracias.
20
« en: Viernes 22 de Mayo de 2009, 17:51 »
Buenas de nuevo. siento robaros vuestro tiempo.
Con el control openfiledialog me gustaria filtrar las carpetas y que este recogiese la ruta pero es que no se usarlo y no lo veo porninguna parte dentro del msdn.
Gracias.
21
« en: Viernes 22 de Mayo de 2009, 17:25 »
Hola,
Buenas, necesito un poco de ayudita. En el trabajo me mandaron leer un archivo con extension .bif y cuando lo abro aparece esto.
Necesito leer una de las lineas. Me podrian decir.
Gracias.
DeviceVersionHW=Windows CE 5.2
DeviceSerialNumber=6902357549000050BF3F517301083539
UserPatchDatVersion=102
CompressedPatchVersion=150
MapServerPatchDatVersion=104
DeletedPoiDatVersion=200
ServerLineIndexDatVersion=102
ServerNameIndexDatVersion=102
22
« en: Sábado 14 de Marzo de 2009, 17:24 »
Hola amig@s:
No encuentro la soludion a este error.
Yo tengo un formulario de pacientes que trabaja con la tabla pacientes.
Tb tengo otro formulario del historial de los pacientes que hace referencia al historial de los pacientes.
y por ultimo otro formulario que maneja las visitas.
Las tablas estan relacionadas entre si en el propio access
Pacientes Hª de pacientes Visitas
codpaciente -*->codphistorial------>codpvisitas
codcorrehistoria-->codhistori
fecha de la consulta
*Las relaciones son de 1 a varios.
A la hora de hacer una modificacion en formulario de pacientes me da este error:
Error 3396 No se puede efectuar la operacion en cascada. Puesto que existen registros relacionados en la tabla "visitas",se infringirian las reglas de integridad referencial.
Gracias por su ayuda.
23
« en: Viernes 13 de Marzo de 2009, 11:39 »
Hola de nuevo
Tengo un problemilla. He combinado vb6 y activeskin y a la hora de cargar un skin me desaparecen todas las label o etiquetas.
Gracias.
24
« en: Sábado 28 de Febrero de 2009, 18:35 »
El problema que tengo es el siguiente: Yo hago una consulata de access linkeada a vb 6 y cargo los numeros correlativos en el combo box num corre. Tras cargalo en la propiedad click de cbbnumcorre(o numero de "visitas o enfermedades"), necesito poder cambiarlo. Para que muestre la informacion correcta. Dim criterio As String Dim v, x As Integer If Not registrohispacientes.EOF Then v = Val(txtcodpaciente.Text) If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then criterio = "codpHIS = " & Val(txtcodpaciente.Text) & "AND codhHIS = " & Val(cbbnumcorre.Text) registrohispacientes.FindFirst criterio If registrohispacientes.NoMatch Then txtcodpaciente.Text = registrohispacientes.Fields("codpHIS") 'txtnumcorre.Text = registrohispacientes.Fields("cohHIS") cbbenfermedades.Text = registrohispacientes.Fields("codeHIS") cbbmedicos.Text = registrohispacientes.Fields("codmHIS") cbbtratamientos.Text = registrohispacientes.Fields("codtHIS") txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS") txtnotashistorial.Text = registrohispacientes.Fields("notaHIS") tbarhispacientes.Buttons(1).Enabled = False tbarhispacientes.Buttons(2).Enabled = True tbarhispacientes.Buttons(3).Enabled = True Else tbarhispacientes.Buttons(1).Enabled = True tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False End If End If Else x = MsgBox("No existe ningun registro", vbOKOnly, "Clinica") tbarhispacientes.Buttons(1).Enabled = True tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False End If
Gracias
25
« en: Sábado 28 de Febrero de 2009, 18:30 »
Ya encontre el error. Al final era que como copie el codigo que hice en el primero los borraba.
Gracias.
|
|
|
Mostrar Mensajes
