These days Santa comes home with some presents. A lot of people stay with family and share the best drinks and good dinners to celebrate.
Searching my Santa present in garage, I found an incredible surprise… my first business personal computer.
Is amazing press power On and comeback to time of CP/M systems, working again with my first Disk Basic Compiler.
Enjoy of this screenshot
Que ganas tenía de volver a poner este clásico… así que una vez más:
|
|
|
|
Existe una inquietud por parte de muchas personas desde la aparición de .NET, en tanto a como descargar archivos utilizando una aplicación de escritorio desde un servidor FTP. El propósito de este ejemplo es demostrar como descargar simultáneamente archivos de un directorio raíz en un ftp, evidentemente con algunas limitaciones como por ejemplo navegar en los directorios del mismo. Me gustara compartir esta aplicación para que la ejecutéis según os interese, intentare adaptar todas las sugerencias que me hagáis llegar y finalmente poder publicar el proyecto (o eso espero) para compartirlo con todos vosotros. Podéis descomprimir y ejecutar él ‘.exe’ en cualquier maquina con Vista o 7, si necesitáis el instalador no dudéis en solicitármelo, pero con en principio cualquier equipo con el Framework 3.5 sirve. Espero vuestros comentarios. |
You can run with no setup in windows vista or 7, please ask if you need setup for deployment. Please don’t forget run and send your suggestions.
|
Puedes descargarte el ejecutable haciendo clic en : FTPClient
Advertencia y Aclaración.
Está claro que os facilito este articulo por vuestra insistencia, esta aplicación solo utiliza dos librerías : System.Net, System.IO y no almacena ningún tipo de información introducida por nombres o credenciales intercambiadas por el usuario, debo rechazar categóricamente cualquier responsabilidad por el uso de la información así como la aplicación aquí contenida, cualquier uso de la misma o de la información de este artículo y su alcance es estrictamente responsabilidad del lector, aunque como siempre estaré encantado de recibir vuestros comentarios.
Warning: It is clear that this article is delivered for the insistence of some readers, this application uses only two libraries: System.NET, System.IO, does not store any information introduced by names or exchanged by the user credentials, I categorically reject any responsibility for the use of information as well as the application contained here, any use of it or the information in this article and its scope is strictly responsibility of the reader, although as I am always happy to receive your comments.
Algunos de vosotros estáis preguntando como es posible totalizar ciertos valores ya sea de estadística o control en una de las tablas de nuestra aplicación.
Aquí os propongo una de las formas de implementarlo :
(Aunque no olvideis que existen otras formas de realizarlo, eso si quizas no tan accesibles :-))
En el lado de SQL podéis ejecutar este ‘script’ para generar la tabla…
CREATE TABLE [dbo].[Contadores](
[Peras] [int] NOT NULL DEFAULT ((0)),
[Naranjas] [int] NOT NULL DEFAULT ((0)),
[Manzanas] [int] NOT NULL DEFAULT ((0))
) ON [PRIMARY]
Ahora solo tendréis que realizar el correspondiente ‘Update’ desde vuestra aplicación incrementando la columna que deseáis contabilizar. Esta pregunta es frecuente cuando se realizan aplicaciones tipo albaranes/facturas u otro tipo, en la que se requiere seguir o registrar una numeración aunque en ese caso no debéis olvidar bloquear el registro y más a lo sumo en aplicaciones que varios usuarios estén utilizando esa numeración.
Private cn As New SqlClient.SqlConnection( _
«Data Source=MiSrv\SQLEXPRESS;» + _
«Initial Catalog=MiBd;» + _
«Integrated Security=True»)
Private da As New SqlClient.SqlDataAdapter( _
«Select * from Contadores», cn)
Private Sub Button1_Click() Handles Button1.Click
‘En este caso simulamos incrementar el contador de Manzanas
da.UpdateCommand = New SqlClient.SqlCommand( _
«Update Contadores SET Manzanas = Manzanas + 1», cn)
cn.Open()
da.UpdateCommand.ExecuteNonQuery()
cn.Close()
End Sub
Espero que os sea útil,
Buen fin de semana.
Pep Lluis,
Fifteen or may be seventeen?, New technologies waves with NT, in any way, what’s memories, What’s memories!
In 1993 after long time installing 16Bits Operating System with floppy disk, the new era start with Compact Disk and 32Bits OS.
Probably this is my first 32Bits OS and my first Cd Support to develop 32Bits apps.
Just fifteen… Or seventeen years ago J
Menudas memorias!
En 1993 después de inacabables pilas de diskettes para instalar los sistemas operativos de 16 bits, nos llega una nueva era con Sistemas de 32Bits a caballo del novedoso soporte plástico llamado ‘Compact Disk’.
Probablemente este fue mi primer sistema de desarrollo en 32bits y casi seguro mi primer CD!
Que lo Disfrutéis!
‘Respondiendo a la pregunta :
‘ ¿Cómo puedo establecer comunicación con una bascula que tiene un RS232?
‘
‘En este ejemplo podremos ver diferentes formas de enviar una petición
‘ a una bascula, simulando que nos responde al enviar el carácter ‘P’
‘ y visualizar su respuesta en una etiqueta llamada ‘Recibidos’
Public Class Form1
‘Constructores
Private BasculaCom As New System.IO.Ports.SerialPort ‘Puerto conectado a la báscula
Private Recibidos As New Label ‘Etiqueta para visualizar la recepción
Private Peticion As New Button ‘Botón para disparar el envío
Delegate Sub MostrarRecepcion(ByVal Texto As String) ‘Delegado para asignar el valor recibido
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘ Ajustar los parámetros de comunicaciones
‘ adaptándolos a las especificaciones o configuración
‘ de la bascula en concreto.
BasculaCom.PortName = «COM1» ‘Conectaremos la bascula al puerto COM1
BasculaCom.BaudRate = 9600 ‘La velocidad de intercambio será de 9600
BasculaCom.Parity = IO.Ports.Parity.None ‘No verificaremos la paridad
BasculaCom.StopBits = 1 ‘Final de Byte con 1 bit de Stop
BasculaCom.Open() ‘Abrir las comunicaciones con la bascula
‘
‘ marco
Dim marcoDGV = New FlowLayoutPanel ‘Conformar los controles del form
marcoDGV.BorderStyle = BorderStyle.Fixed3D
marcoDGV.Width = Me.Width
marcoDGV.Height = Me.Height
‘ Añadir el marco con el Label y el Buton
Recibidos.Text = «-«
Peticion.Text = «Enviar p»
marcoDGV.Controls.AddRange(New Control() {Peticion, Recibidos})
Me.Controls.Add(marcoDGV)
‘Dirigir los eventos a las funciones para procesarlos
AddHandler Peticion.Click, AddressOf EnviarUnaP ‘Ejecución de ‘EnviarUnaP’ al pulsar el boton
AddHandler BasculaCom.DataReceived, AddressOf Recibir ‘Ejecución de ‘Recibir’ al recibir respuesta de la bascula
End Sub
‘
‘ Enviar una solicitud a la bascula
Sub EnviarUnaP()
‘enviar una p
BasculaCom.Write(«P»)
‘tambien puede ver/probar…
BasculaCom.WriteLine(«P»)
BasculaCom.Write(Chr(80))
‘… etc
End Sub
‘al recibir de la bascula los bytesToRead indicara
‘un valor superior a 0, indicando el numero de caracteres
Sub Recibir()
‘Dim NumeroDeBytesEnBuffer As Integer = BasculaCom.BytesToRead
MostrarRececibidos(BasculaCom.ReadExisting)
End Sub
‘
‘ Mostrar los bytes recibidos en el Label recibidos
Private Sub MostrarRececibidos(ByVal [texto] As String)
If Recibidos.InvokeRequired Then
Dim delegado As New MostrarRecepcion(AddressOf MostrarRececibidos)
Me.Invoke(delegado, New Object() {[texto]})
Else
Me.Recibidos.Text = [texto]
End If
End Sub
End Class
