|
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 - _vgt_
26
« en: Domingo 8 de Mayo de 2005, 09:55 »
despues de darle muxas vueltas hemos llegado a una conclusion: El codigo de barras k genera la makina por la k pasan los boletos de las apuestas devuelve un numero de serie de la apuesta y los datos se almacenan en el server de apuestas del estado... conclusion: imposible ... (de momento xDDD)
27
« en: Viernes 6 de Mayo de 2005, 19:49 »
mmmmm una idea podría ser utilizando varias tablas... me explico: - El usuario crea el puesto 1 de trabajo -> dinamicamente creo a su vez la tabla 1 de control de numeros de factura... - El usuario crea el puesto 2 de trabajo -> dinamicamente creo otra tabla de control para numeros de factura del puesto 2... no se si es eso a lo k te referias pero x lo menos espero haberte dado una idea de algo xD :-) Saludos
28
« en: Viernes 6 de Mayo de 2005, 19:44 »
vale, esta si k es dificil... Tengo un codigo de barras de la lotería primitiva por ejemplo y kiero interpretar dixo codigo para mantener un control sobre los boletos para que al final del dia yo pueda saber cuantos he vendido y cuanto he recaudado... Despues de un rato mirando boletos, mi jefe ha conseguido descifrar los 3 primeros números del codigo pero el resto no tiene ningun sentido aparente... Muxas gracias x cualkier ayuda u opinion socios/as !!!
29
« en: Miércoles 4 de Mayo de 2005, 23:36 »
hola jodijo5!!, si acabo de ver el post... i'm sorry... si te sigue viniendo bien te lo mando mañana desde el correo !!! sino y te sigue siendo cantidad de urgente prueba en la mula ;-) k esa si kno falla... te doy la descripcion entera: CIA XP suite version 2.0 esa version funciona seguro, tanto en vb6 como en visual.net probado y comprobado!! Saludos !!!
30
« en: Miércoles 4 de Mayo de 2005, 23:24 »
muxas gracias Brroz !!! mas o menos me enterado de k va el tema Muxos saludos !!!
31
« en: Miércoles 4 de Mayo de 2005, 23:17 »
joeee Brroz eres lo máximo!!!! nunca se me hubiera ocurrido eso... es un lujo saber k estas x aki !!! Saludos y me apunto eso xk desde luego es cantidad de ingenioso !!!
32
« en: Viernes 29 de Abril de 2005, 20:28 »
HolaZ!!, puedes intentar utilizar los option button del xpsuite 2.0 a ver si te dan la opcion para ponerlos transparentes pero sino estoy deacuerdo con pacegar y con Jose Arriagada... Saludos
33
« en: Jueves 28 de Abril de 2005, 23:23 »
mmmm, xk no haces un vector con x ejemplo 10 elementos y vas introduciendo lo ultimo k escriba el usuario en la caja de texto y si kiere deshacer pues vas reemplazando con lo k tengas en el vector ... cutre pero efectivo ... y funciona xk si mal no recuerdo un compi de clase lo hizo y le funcionaba de cojones :-) Saludos OtRa CoSa No pErO "PLaNeS B" ... xDDDD
34
« en: Jueves 28 de Abril de 2005, 09:15 »
holaa!!, a mi tampoco me gustaba la apariencia normal de los controles de visual y me pille el XP suite 2.0 con el k he podido cambiar la apariencia de todos los controles Pruebalo y no te arrepentiras Saludos
35
« en: Miércoles 27 de Abril de 2005, 19:34 »
HolaaaS!!, k tal?, pues eso, me gustaria k alguien me dijera como al añadir varios proyectos a un proyecto de visual puedo llamar a uno u otro ... es como si un programa principal tuviera pekeños programitas y tal... Muxas gracias x la info !!
36
« en: Sábado 2 de Abril de 2005, 12:02 »
Hola!!, yo formé parte en teleco de un proyecto en el que recogiamos los datos de un pic k tenia conectado varios sensores y se comunicaba con un ordenata por un rs232... recogiamos la informacion y la pasabamos a una bd access para gestionar los datos... (era una estacion meteorologica) Te comento xk se le da un aire a lo k pretendes hacer aunk no se... si es asi para comunicarnos con el pic utilizamos el MSCOM de visual... en el MSDN de visual viene cantidad de info y lo unico k tienes es k copiar lo k te dice y cambiar los valores... aun asi si no te aclaras te puedo ayudar xk ese tema lo tengo muy maxacado... Saludos !!
37
« en: Domingo 27 de Marzo de 2005, 21:09 »
esta es facil!!, aki te pongo la funcion k yo utilizo siempre: comprobado k funciona: 'CAMBIO DE RESOLUCION Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long Const CCDEVICENAME = 32 Const CCFORMNAME = 32 Const DM_PELSWIDTH = &H80000 Const DM_PELSHEIGHT = &H100000 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME '20 dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Dim DevM As DEVMODE Function CambiaResolucion(BitPorPixel As Integer, Ancho As Integer, Alto As Integer) As Boolean 'Parámetros : 'BitPorPixel : Nº de bits de color ' 4 - 16 colores, 8 - 256 colores ' 16 - 65.000 colores, 32 - 16 M de colores 'Ancho : Nº de pixels de ancho 'Alto : Nº de pixels de alto Dim a& a = EnumDisplaySettings(0&, 0&, DevM) DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT DevM.dmBitsPerPel = BitPorPixel DevM.dmPelsWidth = Ancho DevM.dmPelsHeight = Alto a = ChangeDisplaySettings(DevM, 0) If a = 0 Then CambiaResolucion = True Else CambiaResolucion = False End If End Function
La llamada es cantidad de facil, te la pongo Dim a& 'Llamada a la función para cambiar la resolución a = CambiaResolucion(16 - 65#, 800, 600)
y ya esta la resolucion cambiada TalegoZ gente!!
38
« en: Viernes 4 de Marzo de 2005, 16:04 »
Muxas gracias Brroz !!!!!! :rolleyes:s Saludos!!!
39
« en: Viernes 4 de Marzo de 2005, 16:02 »
Muxas gracias Brroz !!!!!! :rolleyes:s Saludos!!!
40
« en: Jueves 3 de Marzo de 2005, 01:10 »
Felicidades Brroz !!!! 1000 mensajes en el foro demuestran k como poco eres un fuera de serie Muxos saludos y muxas gracias x seguir ayudandonos !!!!
41
« en: Jueves 3 de Marzo de 2005, 01:05 »
Viendo la hora k es he optado x la solucion mas facil pero la menos correcta... para como el k yo este cansado de pelearse con las fechas y necesite un "plan B" para cubrir un parxe y dejar funcionando momentaneamente aki le dejo la solucion a la k he llegado... lo hace cojonudamente bien pero como ya digo es una solucion poco ortodoxa... busqueda1 = DateValue(txtFechaInicio.Text) busqueda2 = DateValue(txtFechaFinal.Text) RegistrosTotales = adcFacturacion.Recordset.RecordCount For i = 1 To RegistrosTotales If CDate(adcFacturacion.Recordset.Fields("FechaAlbaran")) >= CDate(busqueda1) Then If CDate(adcFacturacion.Recordset.Fields("FechaAlbaran")) <= CDate(busqueda2) Then If adcFacturacion.Recordset.Fields("Dni") = txtCIF.Text Then ' haces lo k kieras con los registros '----------------------------------------- adcFacturacion.Recordset.MoveNext Else adcFacturacion.Recordset.MoveNext End If Else adcFacturacion.Recordset.MoveNext End If Else adcFacturacion.Recordset.MoveNext End If Next i
visual basic 1 - _vgt_ 0 pero x mis cojones k el cabron este termina haciendo la consulta bien xDD y perdonad el lenguaje mal sonante pero hoy ha sido un dia demasiado largo... Saludos a todos y en cuanto tenga la solucion aki la cuelgo para disfrute de todos...
42
« en: Miércoles 2 de Marzo de 2005, 21:07 »
Holaaa!!!, ya estoy aki de nuevo xD ... tengo un problema con una consulta SQL que me da mal el resultado... a ver si vosotros podeis ayudarme, os explico un poco: kiero comparar dos fechas para que todos los albaranes k se encuentren entre esas dos fechas me los liste en otro sitio y he comprobado k los campos esten bien, k las fechas k le pido esten en la bd y aun asi me dice k no tiene nada k mostrar... aki os pongo lo k he hexo a ver si alguien puede ayudarme... Dim busqueda1 As Date, busqueda2 As Date Dim tRs As Recordset Dim db As Connection Dim a& Dim sBuscar As String sBuscar = "Select NumeroAlbaran,FechaAlbaran,Nombre,Apellidos,Telefono,Direccion,Provincia,Dni,Concepto,FechaEntrada,NumeroHoras,IVA,TotalIva,TotalDia,TotalCobrado,ImporteHora From Albaranes WHERE FechaAlbaran BETWEEN " & busqueda1 & " AND " & busqueda2 & " ORDER BY FechaAlbaran ASC"
Muxas gracias a todos!!! Saludos
43
« en: Jueves 17 de Febrero de 2005, 16:34 »
Holaaa!!, x fin estoy aki de nuevo : TasQuin yo personalmente he usado durante bastante tiempo DAO (DATA1) y cuando me pase a ADO me encantó... con ADO tienes k currar mas el codigo pero merece mas la pena... si estas empezando con DATA te aclararas mejor sino te recomiendo k te animes con ADO... Saludos!!!
44
« en: Domingo 23 de Enero de 2005, 19:35 »
Hola hecktor00!! a mi el k me ayudó muxo fue el de "Programacion para aplicaciones de internet ASP 3" de EIDOS... esta muy bien, explica todo muy clarito y con muxos ejemplos... para bajarlo en la burra (Emule) saludos !!
45
« en: Lunes 17 de Enero de 2005, 10:32 »
hola!!, al no declarar la variable si has puesto el option explicit te dara un error y sino creo k estas en lo cierto y te la crea el solo automaticamente como variant... lo de ejecutar un programa tengo un procedimiento alternativo para ejecutar programas, te la posteo la pruebas a ver si tienes suerte... Public Sub ExecuteFile(FilePath As String) Dim ret On Error GoTo error ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath), 1) Exit Sub error: MsgBox err.Description, vbExclamation, "Error" End Sub
en truco esta en pasarle en la variable FilePath la direccion completa del programa k kieres ejecutar... Espero haberte ayudado Saludos !!
46
« en: Sábado 15 de Enero de 2005, 17:41 »
hola desarrollo!!, muxas gracias x tu ayuda pero me he dado cuenta k el campo x el k estaba buscando no estaba en la base de datos : hay k ser atontao lamento haberte hexo perder el tiempo revisando algo k no tenia mas k una mierda de despiste (aun asi llevabo todo el dia dandole vueltas... ) Lo siento muxo de veras... De todas formas voy a considerar las modificaciones para k mi codigo kede muxo mejor lo siento de verdad saludos y muxisimas gracias
47
« en: Sábado 15 de Enero de 2005, 16:51 »
Holas!!, al final he optado x hacer el paso de datos desde access en una macro k ya lleva preparada y total como solo lo voy hacer una vez para k no pierdan unos datos (y como k tengo un poco de prisa) pues voy a optar x esa opcion: para los k tengan un caso como el mio atentos: Abrir el access/ macro/ nueva/ TransferirHojaCálculo ... te pilla la hoja de calculo y te la pasa enteretita y para salir de un apuro puede valer... Muxas gracias x vuestro tiempo ebolo, Brroz !!!
48
« en: Sábado 15 de Enero de 2005, 16:38 »
Holaa!!, me ha surgido un problema con una busqueda en ADO... el caso es que tengo un formulario con una lista de clientes en la k el usuario puede seleccionar a mano el k kiere y asi se ahorra el tener k escribirlos k es un coñazo... vale, hasta ahi bien, el problema viene cuando pensé en poner un textbox para k hiciera una busqueda... os pongo el codigo... Private Sub txtBusqueda_KeyPress(KeyAscii As Integer) Dim cadena_Buscada As String, criterio As String Dim sBuscar As String Dim tRs As Recordset Dim tLi As ListItem ' Comprobar si tiene caracteres "no válidos" para ADO: sBuscar = Chr(KeyAscii) sBuscar = Replace(sBuscar, "*", "%") sBuscar = Replace(sBuscar, "?", "_") ' Formo la cadena de la consulta: sBuscar = "SELECT CodCliente,Nombre,Modelo FROM Clientes WHERE Cliente LIKE '" & sBuscar & "' ORDER BY CodCliente" Set tRs = db.Execute(sBuscar) :argh: :fire: ' Comprobar que hay datos en el recordset With tRs ' Si no hay datos... If (.BOF And .EOF) Then MsgBox "No se han encontrado los datos buscados" Else ' Mostrar los datos hallados ListView1.ListItems.Clear .MoveFirst Do While Not .EOF Set tLi = ListView1.ListItems.Add(, , .Fields("CodCliente") & "") tLi.SubItems(1) = .Fields("Nombre") & "" tLi.SubItems(2) = .Fields("Modelo") & "" .MoveNext Loop End If End With End sub
el problema es k cuando va hacer la consulta en esta linea Set tRs = db.Execute(sBuscar) me dice k "no se han especificado valores para algunos de los parámetros requeridos" y como k no consigo hacer k haga la consulta... ¿podriais orientarme un poco? Muxisimas gracias a todos/as
49
« en: Jueves 13 de Enero de 2005, 22:03 »
hola jegonzalezrubio!!, si mal no recuerdo, en www.mocosoft.com hay un ocx (con su correspondiente registro ) con el que podias hacer todo tipo de operaciones con ficheros de autoCad... no se exactamente k kieres hacer (perdona mi garrulez xD) pero puede k ese ocx pueda simplificarte las cosas... Espero haberte ayudado... saludos
50
« en: Miércoles 12 de Enero de 2005, 10:09 »
hola desarrollo!!, Brroz te ha puesto un ejemplo ya y ahora mismo estoy en el curro... si necesitas mas ayuda te pongo un ejemplo en un proyecto de visual luego xk ahora estoy en el curro jejejje saludos !!
|
|
|