lunes, julio 09, 2012

Actualización del kit de desarrollo de software para Windows Phone 7.1.1

La actualización del kit de desarrollo de software para Windows Phone 7.1.1 ofrece a los desarrolladores herramientas y opciones para ayudarles a desarrollar y probar aplicaciones para dispositivos Windows Phone de 256 MB.

image

Link ==> http://www.microsoft.com/es-es/download/details.aspx?id=29233

Saludos.

Windows Phone SDK 7.1

El Kit de desarrollo de software Windows Phone SDK 7.1 le ofrece todas las herramientas que necesita para desarrollar aplicaciones y juegos para dispositivos con Windows Phone 7.0 y Windows Phone 7.5.

image

Link ==> http://www.microsoft.com/es-es/download/details.aspx?id=27570

Saludos.

Descargar Visual Studio 2012 Release Candidate

image

Link ==> http://www.microsoft.com/visualstudio/11/es-es/downloads

Saludos.

jueves, junio 28, 2012

Evade el tránsito pesado con Mapas de Windows Phone

Hay días que el tráfico está en verdad terrible. Por fortuna, con la característica de tráfico de Windows Phone, podemos estar preparados. Como el gerente de programación (y por mucho tiempo geek de los mapas) responsable de la construcción de la aplicación Mapas, pensé en dar una rápida introducción a la opción de tráfico y resaltar algunas nuevas mejoras que se han hecho en las pasadas semanas.

Si aún no han probado revisar las más recientes condiciones de tráfico en su teléfono, abran Mapas, expandan el menú y toquen en ‘Mostrar Tráfico’.

image

Visita ==> http://windowsteamblog.com/international/b/latam/archive/2012/06/27/evade-el-tr-225-nsito-pesado-con-mapas-de-windows-phone.aspx

miércoles, junio 27, 2012

Accediendo a la información del usuario en Windows 7 desde cualquier PC mediante Virtualización del estado de usuario

Aprenda como las tecnologías de Visualización del estado de usuario de Microsoft (USV) pueden ayudar a las organizaciones a remplazar fácilmente entornos de PC alojados en el servidor y físicos, permitiendo por la agilidad del usuario final y continuidad de los negocios.

Visita ==> https://msevents.microsoft.com/CUI/EventDetail.aspx?culture=es-AR&EventID=1032514100

Implementando aplicaciones fácil, rápido y efectivo con Application Virtualization y RemoteApp bajo Windows 7

Aprenda cómo implementar las aplicaciones de forma eficiente y a la vez inmediata en Windows 7, sin importar el escenario de migración nuevo o realizado a este nuevo sistema operativo. Abordaremos las formas de implementar aplicaciones con App-V y Remote App.

Visita ==> https://msevents.microsoft.com/CUI/EventDetail.aspx?culture=es-AR&EventID=1032514098

Herramientas de administración remota del servidor para Windows 8 Release Preview

Las Herramientas de administración remota del servidor para Windows 8 Release Preview permiten a los administradores de TI administrar roles y características instaladas en equipos que ejecutan Windows Server 2012 desde un equipo remoto que ejecute Windows 8 Release Preview.

Visita ==> http://www.microsoft.com/es-es/download/details.aspx?id=28972

Imágenes ISO de Windows 8 Release Preview

Los archivos ISO (.iso) de Windows 8 Release Preview se proporcionan como una alternativa al programa de instalación de Windows 8 Release Preview. Si trabajas en un equipo con Windows y quieres instalar la versión preliminar en otra partición, otro equipo o en una máquina virtual, te recomendamos que descargues el programa de instalación de Windows 8 Release Preview y uses las herramientas integradas para convertir una imagen ISO en un medio de instalación, como un DVD o una unidad flash USB de arranque. Encontrarás información adicional, incluida una lista de las actualizaciones admitidas, en la Ayuda.

Visita ==> http://windows.microsoft.com/es-XL/windows-8/iso?WT.mc_id=nlc-n-latam-ddp-DSK-Q4-SKI)

Introducción a System Center Configuration Manager 2012

Esta carrera incluye los conceptos escenciales y funcionalidades básicas del producto de System Center Configuration Manager 2012.
Conocerán las características técnicas del producto y la forma por la cual se implementan las distintas funcionalidades que trae esta herramienta como por ejemplo toma de inventario de software, hardware, licenciamiento, instalación de software y updates, medición de uso de software concurrente, implementación de sistemas opertivos, manejo de aplicaciones y parches virtuales; entre otros.
Además, brindaremos la posibilidad de practicar mediante laboratorios virtules muchos de los temas expuestos.

Visita ==> https://www.microsoftvirtualacademy.com/tracks/introduccion-a-system-center-configuration-manager-2012?&ocid=eml-c-latam-jtc-DPU-MVA--Q4-SKI

Descargue Windows Server 2012 Release Candidate (RC)

La próxima versión de Windows Server, Windows Server 2012, ofrecerá a las empresas y a los proveedores de hospedaje una infraestructura optimizada para la nube, escalable, dinámica y multiempresa. Se conecta de manera segura en las instalaciones y ayuda a los profesionales de TI a responder a necesidades de negocio de manera más rápida y eficaz.

Windows Server 2012 Release Candidate (RC):

  • Lo lleva más allá de la virtualización
  • Entrega la eficacia de muchos servidores con la simplicidad de uno
  • Abre la puerta para cada aplicación en cualquier nube
  • Permite el estilo de trabajo moderno

Visita ==> http://technet.microsoft.com/es-ES/evalcenter/hh670538?ocid=soc-n-latam-jtc-DPU-Q4-SKI

lunes, junio 04, 2012

Windows 8 Release Preview

image

Windows 8 Release Preview

Windows reimaginado y renovado a partir de las solidas características de velocidad y seguridad de Windows 7. Disfruta de una interfaz táctil completamente nueva. Un nuevo Windows para nuevos dispositivos. Ahora tienes la oportunidad de ser uno de los primeros en probarlo.

Pruébalo ahora


Visita ==> http://windows.microsoft.com/es-XL/windows-8/release-preview

lunes, mayo 28, 2012

Compra de un equipo con Software Microsoft Original

Compra de un equipo

 

¿Desea comprar un equipo nuevo o usado? Sepa lo que debe tener en cuenta antes de realizar la compra.

A la hora de comprar un equipo nuevo o usado, hay varios aspectos que se pueden comprobar rápidamente para asegurarse de que obtiene aquello por lo que paga:

Certificado de autenticidad (COA)

Más información Visita ==> http://www.microsoft.com/es-xl/howtotell/Hardware.aspx#PCPurchase

Saludos.

miércoles, mayo 16, 2012

Windows Phone SDK 7.1

Buen Día amigos les dejo el link para que descargen el Windows Phone SDK 7.1 e inicien sus practicas en el desarrollo para Windows Phone.

Link ==> http://www.microsoft.com/downloads/es-es/details.aspx?FamilyID=0A373422-6680-46A7-89E1-E9A468A14259

Saludos

Alex Taya
Microsoft Influencer

martes, mayo 15, 2012

domingo, mayo 06, 2012

Tabla de Códigos ASCII

image

Saludos.

Complemento de Internet Explorer

Si estás navegando por internet y encuentras algo que te gusta y deseas compartirlo entonces esto te gustará, es un complemento de Internet Explorer que te permitirá realizar la acción de compartir en Facebook.

Share on Facebook

Visita ==> http://www.iegallery.com/en-US/Addons/Details/204

Saludos.

viernes, abril 27, 2012

martes, abril 24, 2012

SkyDrive en tu Computadora

Hola amigos a continuación les presento una serie de pasos para poder instalar la aplicación de SkyDrive en su Computadora y así tener sincronizados sus datos.

sk3sk4sk5sk6sk7sk8sk9sk10sk1sk2

Saludos.

jueves, diciembre 29, 2011

Office 365: Actualizaciones de servicio y nuevas funcionalidades - Noviembre 2011

Jordi Fernández

2011-nov-29 12:18

|

Hace unos días que tenía pendiente escribir sobre una serie de novedades muy interesantes sobre los servicios Office 365.

Aquí encontrareis más detalle sobre todas ellas, pero me gustaría destacar las siguientes:

- Auto-servicio para el reseteo de contraseña del administrador - Plan P , Plan E

- Asistente para solucionar problemas - Do-It-Yourself (DIY) Troubleshooting support tool

- Posibilidad de desactivar y reactivar la sincronización de Active Directory (DirSync) - Plan E

- Soporte para Directory Synchronization tool 64-bit support - Plan E

- Acceso a usuarios externos vía Windows Live ID ( @live.com, @Hotmail.com, @msn.com y derivados de región)

- Sharepoint Business Connectivity Services (BCS)

- Mejora en la posibilidad de recuperación de colecciones de sitios de SharePoint Online

- Mejoras en el asistente para Agregar dominios

- Lync para Mac 2011 disponible para clientes Lync Online

- Página unificada de descargas para Mac - Plan P , Plan E

- Añadido soporte para navegadores (IE9 y Chrome) y OSX Lion

- ...

Además cabe recalcar que Office 365 se expande y está disponible para suscripción en 22 nuevos países !!!

Descargue Microsoft SQL Server 2012 Release Candidate (RC)

SQL Server 2012 Release Candidate (RC) se extenderá más allá de las capacidades de base de datos tradicionales con una plataforma de información libre que proporciona confianza fundamental para sus objetivos, permite alcanzar un claro e innovador entendimiento y una nube constituida según sus propios términos.

SQL Server 2012 proporcionará confianza fundamental para sus objetivos con disponibilidad AlwaysOn, para obtener una conmutación por error más rápida, mayor utilización de hardware y ColumnStore en memoria para conseguir 10 veces el rendimiento de almacenamiento de datos. SQL Server 2012 también permite alcanzar un claro e innovador entendimiento con soluciones de inteligencia empresarial, tales como las asombrosas visualizaciones de datos interactivas de Power View y las mejoras para PowerPivot. Por último, SQL Server 2012 brindará una compatibilidad única a entornos de TI híbridos con administración común y herramientas de desarrollo, escalación elástica y extensión de aplicaciones directamente a la nube mediante SQL Azure.

Para obtener más información acerca de estas mejoras, consulte la página de detalles de producto.

Regístrese para descargar y obtener una evaluación guiada

Regístrese para obtener acceso a recursos de productos técnicos, como foros, aceleradores de soluciones, notas del producto y difusiones por web, en la página de recursos de SQL Server 2012.

Wählen Sie ein Produkt aus.
Revise los requisitos de sistema de Microsoft SQL Server 2012 RC

Wählen Sie ein Produkt aus.
Regístrese para la evaluación

Wählen Sie ein Produkt aus.
Descargue e instale el software completo por un período de evaluación de 180 días

Wählen Sie ein Produkt aus.
Reciba un correo electrónico de seguimiento con recursos que lo orienten

Wählen Sie ein Produkt aus.
Use los blogs y los foros para compartir sugerencias

Información adicional:

  • Disponible en las siguientes ediciones: 32 bits y 64 bits
  • Disponible en los siguientes idiomas: Alemán, chino (simplificado), chino (tradicional), coreano, español, francés, inglés, italiano, japonés, portugués (Brasil), ruso

domingo, septiembre 18, 2011

Microsoft Licenciamiento para empresas

¿Es usted una micro, pequeña, mediana o gran empresa? O forma parte
del sector público o educativo?
Sin importar cuál sea su perfil; encuentre fácilmente todas las formas de adquirir licenciamiento Microsoft, que se adapten a sus necesidades.

Visita ==> http://www.microsoft.com/latam/licenciamiento2011/default.aspx?page=videos

Windows Intune FAQs

Preguntas y Respuestas sobre Windows Intune

Visita ==> http://www.microsoft.com/windows/windowsintune/windowsintune-faq.aspx

Windows Intune Disponibilidad Inmediata

Visita ==> http://technet.microsoft.com/es-PE/windows/ff472080?ocid=otc-n-latam-loc

Diez cosas que los profesionales de TI deben saber acerca de Windows 7

Visita ==> http://technet.microsoft.com/es-pe/library/dd350196.aspx

Usando App-V y Microsoft Enterprise Desktop Virtualization (MED-V) para mejorar su implementación de Windows 7

Visita ==> http://technet.microsoft.com/es-ar/library/ee872305(en-us).aspx

Optimizando la implementación de Windows 7 con MDOP

Visita ==> http://technet.microsoft.com/es-ar/library/ee871997(en-us).aspx

Top 7 de puntos de dolor para los IT Pro simplificandolos con MDOP

Visita ==> http://technet.microsoft.com/es-ar/library/ee617160(en-us).aspx

Cinco formas ecológicas de llevar sus soluciones IT

Visita ==> http://www.comunidadesmicrosoft.org/blogs/guille/cinco-formas-ecol-gicas-de-llevar-sus-soluciones-it

Windows Developer Preview downloads

Descargate el Windows Developer Preview versión pre-beta de Windows 8 para desarrolladores.

Link ==> http://msdn.microsoft.com/es-PE/windows/apps/br229516/

viernes, agosto 19, 2011

Como acceder al modo "Dios" en Windows 7 y Windows 2008

Como acceder al modo "Dios" en Windows 7 y Windows 2008
Para acceder al modo "Dios” que comentó Iván Martínez en
su blog Truco en Windows 7 para
Administrat rapido y eficiente. Se deben seguir los siguientes
pasos:

1.Creen una nueva
carpeta (folder) en el desktop (póngale cualquier nombre).
2.Renómbrenla
exactamente como sigue ModoDios.{ED7BA470-8E54-465E-825C-99712043E01C}
3.Háganle click a la recien renombrada carpeta y
tendrán una linda pantallita con todos los comandos de Windows 7 (Windows 2008
Server r2) a su disposición.

Nokia alerta fabricantes con Android del pacto Google-Motorola

Nokia alerta fabricantes con Android del pacto Google-Motorola

Los encantos de Kinect en feria Gamescom

Los encantos de Kinect en feria Gamescom

Windows Live Essentials 2011

Avanzado y simple
Saca el máximo partido a tu PC con Windows y programas gratuitos de Microsoft para fotos, películas, mensajería instantánea, correo electrónico, redes sociales y muchas cosas más. Esta nueva versión de Windows Live Essentials requiere Windows 7 o Windows Vista.

http://explore.live.com/windows-live-essentials

miércoles, agosto 17, 2011

Internet Explorer 9, el navegador más seguro del mundo

Según un análisis independiente hecho por la empresa de seguridad NSS Labs [PDF], IE9 es capaz de filtrar casi todo el malware y sitios maliciosos a los que se enfrenta, con una tasa de éxito de 99,2%.
Más ==> http://www.comunidadesmicrosoft.org/internet-explorer-9-el-navegador-m-s-seguro-del-mundo

domingo, agosto 07, 2011

Empezar a trabajar con Internet Explorer 9

Visita: http://windows.microsoft.com/es-XL/internet-explorer/products/ie/home

Comience a desarrollar aplicaciones para Windows Phone

Visita ===> http://msdn.microsoft.com/es-PE/ff728583

Microsoft Advertising SDK for Windows Phone

Visita ===> http://www.microsoft.com/download/en/details.aspx?id=8729

Microsoft® Windows® Malicious Software Removal Tool

Visita ===> http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=16

Una vulnerabilidad en la pila Bluetooth podría permitir la ejecución remota de código (2566220)

Visita ===> http://www.microsoft.com/latam/technet/seguridad/boletines/2011/MS11-053.mspx

Microsoft desaconseja presionar "F1" debido a vulnerabilidad

Visita ===> http://www.microsoft.com/technet/security/advisory/981169.mspx

lunes, mayo 16, 2011

Convertir Número a Letras en VB.Net

Más de uno nos hemos roto en algún momento de nuestra vida la cabeza por querer desarrollar una rutina que nos permita convertir números a letras, es por ello que decidí compartir con todos uds. el presente artículo.
Consiste en una aplicación desarrollada en VB.Net apoyada con un módulo que recibe como parametro el valor ingresado y lo convierte en letras dependiendo si es positivo o negativo.

A continuación lo detallo en forma más específica:



Public Class FrmNumeroaletra
Inherits System.Windows.Forms.Form
'****************************************
'Desarrollado por: Pedro Alex Taya Yactayo
'Email: alextaya@hotmail.com
'Web: http://www.guiasyclasificados.com
' http://mugcanete.groups.live.com
'****************************************

#Region " Código generado por el Diseñador de Windows Forms "

Public Sub New()
MyBase.New()

'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()

End Sub

'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents CmdConvertir As System.Windows.Forms.Button
Friend WithEvents TxtNumero As System.Windows.Forms.TextBox
Friend WithEvents TxtLetra As System.Windows.Forms.TextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents credito As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmNumeroaletra))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.CmdConvertir = New System.Windows.Forms.Button
Me.TxtNumero = New System.Windows.Forms.TextBox
Me.TxtLetra = New System.Windows.Forms.TextBox
Me.credito = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Navy
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 18)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Valor"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(64, Byte), CType(0, Byte), CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(8, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(66, 18)
Me.Label2.TabIndex = 4
Me.Label2.Text = "En Letras"
'
'CmdConvertir
'
Me.CmdConvertir.BackColor = System.Drawing.Color.Navy
Me.CmdConvertir.Cursor = System.Windows.Forms.Cursors.Hand
Me.CmdConvertir.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdConvertir.ForeColor = System.Drawing.Color.White
Me.CmdConvertir.Location = New System.Drawing.Point(232, 8)
Me.CmdConvertir.Name = "CmdConvertir"
Me.CmdConvertir.TabIndex = 1
Me.CmdConvertir.Text = "&Convertir"
'
'TxtNumero
'
Me.TxtNumero.Location = New System.Drawing.Point(88, 8)
Me.TxtNumero.Name = "TxtNumero"
Me.TxtNumero.Size = New System.Drawing.Size(128, 20)
Me.TxtNumero.TabIndex = 0
Me.TxtNumero.Text = ""
'
'TxtLetra
'
Me.TxtLetra.Location = New System.Drawing.Point(88, 40)
Me.TxtLetra.Name = "TxtLetra"
Me.TxtLetra.ReadOnly = True
Me.TxtLetra.Size = New System.Drawing.Size(456, 20)
Me.TxtLetra.TabIndex = 2
Me.TxtLetra.Text = ""
'
'credito
'
Me.credito.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.credito.ForeColor = System.Drawing.Color.Green
Me.credito.Location = New System.Drawing.Point(312, 64)
Me.credito.Name = "credito"
Me.credito.Size = New System.Drawing.Size(232, 40)
Me.credito.TabIndex = 5
Me.credito.Text = "Desarrollado por: Pedro Alex Taya Yactayo alextaya@hotmail.com http:"//es.geociti" & _
"es.com/wiseman_alextaya"
Me.credito.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 500
'
'FrmNumeroaletra
'
Me.AcceptButton = Me.CmdConvertir
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(550, 100)
Me.Controls.Add(Me.credito)
Me.Controls.Add(Me.TxtLetra)
Me.Controls.Add(Me.TxtNumero)
Me.Controls.Add(Me.CmdConvertir)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "FrmNumeroaletra"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Convertir Número a Letra"
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub CmdConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdConvertir.Click
TxtLetra.Text = ""
If IsNumeric(TxtNumero.Text) Then
TxtLetra.Text = Letras(TxtNumero.Text)
Else
MessageBox.Show("Ingrese por favor números", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
TxtNumero.Focus()
TxtNumero.SelectionStart = 0
TxtNumero.SelectionLength = TxtNumero.ToString.Length
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static cColor As String
If cColor = "" Then
credito.ForeColor = System.Drawing.Color.Blue
cColor = "a"
Else
credito.ForeColor = System.Drawing.Color.Green
cColor = ""
End If
End Sub
End Class

Luego tenemos que crear el siguiente Módulo:

Module aletras
'****************************************
'Desarrollado por: Pedro Alex Taya Yactayo
'Email: alextaya@hotmail.com
'Web: http://es.geocities.com/wiseman_alextaya
' http://groups.msn.com/mugcanete
'****************************************

Public Function Letras(ByVal numero As String) As String
'********Declara variables de tipo cadena************
Dim palabras, entero, dec, flag As String

'********Declara variables de tipo entero***********
Dim num, x, y As Integer

flag = "N"

'**********Número Negativo***********
If Mid(numero, 1, 1) = "-" Then
numero = Mid(numero, 2, numero.ToString.Length - 1).ToString
palabras = "menos "
End If

'**********Si tiene ceros a la izquierda*************
For x = 1 To numero.ToString.Length
If Mid(numero, 1, 1) = "0" Then
numero = Trim(Mid(numero, 2, numero.ToString.Length).ToString)
If Trim(numero.ToString.Length) = 0 Then palabras = ""
Else
Exit For
End If
Next

'*********Dividir parte entera y decimal************
For y = 1 To Len(numero)
If Mid(numero, y, 1) = "." Then
flag = "S"
Else
If flag = "N" Then
entero = entero + Mid(numero, y, 1)
Else
dec = dec + Mid(numero, y, 1)
End If
End If
Next y

If Len(dec) = 1 Then dec = dec & "0"

'**********proceso de conversión***********
flag = "N"

If Val(numero) <= 999999999 Then
For y = Len(entero) To 1 Step -1
num = Len(entero) - (y - 1)
Select Case y
Case 3, 6, 9
'**********Asigna las palabras para las centenas***********
Select Case Mid(entero, num, 1)
Case "1"
If Mid(entero, num + 1, 1) = "0" And Mid(entero, num + 2, 1) = "0" Then
palabras = palabras & "cien "
Else
palabras = palabras & "ciento "
End If
Case "2"
palabras = palabras & "doscientos "
Case "3"
palabras = palabras & "trescientos "
Case "4"
palabras = palabras & "cuatrocientos "
Case "5"
palabras = palabras & "quinientos "
Case "6"
palabras = palabras & "seiscientos "
Case "7"
palabras = palabras & "setecientos "
Case "8"
palabras = palabras & "ochocientos "
Case "9"
palabras = palabras & "novecientos "
End Select
Case 2, 5, 8
'*********Asigna las palabras para las decenas************
Select Case Mid(entero, num, 1)
Case "1"
If Mid(entero, num + 1, 1) = "0" Then
flag = "S"
palabras = palabras & "diez "
End If
If Mid(entero, num + 1, 1) = "1" Then
flag = "S"
palabras = palabras & "once "
End If
If Mid(entero, num + 1, 1) = "2" Then
flag = "S"
palabras = palabras & "doce "
End If
If Mid(entero, num + 1, 1) = "3" Then
flag = "S"
palabras = palabras & "trece "
End If
If Mid(entero, num + 1, 1) = "4" Then
flag = "S"
palabras = palabras & "catorce "
End If
If Mid(entero, num + 1, 1) = "5" Then
flag = "S"
palabras = palabras & "quince "
End If
If Mid(entero, num + 1, 1) > "5" Then
flag = "N"
palabras = palabras & "dieci"
End If
Case "2"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "veinte "
flag = "S"
Else
palabras = palabras & "veinti"
flag = "N"
End If
Case "3"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "treinta "
flag = "S"
Else
palabras = palabras & "treinta y "
flag = "N"
End If
Case "4"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "cuarenta "
flag = "S"
Else
palabras = palabras & "cuarenta y "
flag = "N"
End If
Case "5"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "cincuenta "
flag = "S"
Else
palabras = palabras & "cincuenta y "
flag = "N"
End If
Case "6"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "sesenta "
flag = "S"
Else
palabras = palabras & "sesenta y "
flag = "N"
End If
Case "7"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "setenta "
flag = "S"
Else
palabras = palabras & "setenta y "
flag = "N"
End If
Case "8"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "ochenta "
flag = "S"
Else
palabras = palabras & "ochenta y "
flag = "N"
End If
Case "9"
If Mid(entero, num + 1, 1) = "0" Then
palabras = palabras & "noventa "
flag = "S"
Else
palabras = palabras & "noventa y "
flag = "N"
End If
End Select
Case 1, 4, 7
'*********Asigna las palabras para las unidades*********
Select Case Mid(entero, num, 1)
Case "1"
If flag = "N" Then
If y = 1 Then
palabras = palabras & "uno "
Else
palabras = palabras & "un "
End If
End If
Case "2"
If flag = "N" Then palabras = palabras & "dos "
Case "3"
If flag = "N" Then palabras = palabras & "tres "
Case "4"
If flag = "N" Then palabras = palabras & "cuatro "
Case "5"
If flag = "N" Then palabras = palabras & "cinco "
Case "6"
If flag = "N" Then palabras = palabras & "seis "
Case "7"
If flag = "N" Then palabras = palabras & "siete "
Case "8"
If flag = "N" Then palabras = palabras & "ocho "
Case "9"
If flag = "N" Then palabras = palabras & "nueve "
End Select
End Select

'***********Asigna la palabra mil***************
If y = 4 Then
If Mid(entero, 6, 1) <> "0" Or Mid(entero, 5, 1) <> "0" Or Mid(entero, 4, 1) <> "0" Or _
(Mid(entero, 6, 1) = "0" And Mid(entero, 5, 1) = "0" And Mid(entero, 4, 1) = "0" And _
Len(entero) <= 6) Then palabras = palabras & "mil "
End If

'**********Asigna la palabra millón*************
If y = 7 Then
If Len(entero) = 7 And Mid(entero, 1, 1) = "1" Then
palabras = palabras & "millón "
Else
palabras = palabras & "millones "
End If
End If
Next y

'**********Une la parte entera y la parte decimal*************
If dec <> "" Then
Letras = palabras & "con " & dec
Else
Letras = palabras
End If
Else
Letras = ""
End If
End Function
End Module


Espero les sirva de algo esta rutina.



Hasta la próxima oportunidad.....:=)

Intervalo de Tiempo Intervalo de Tiempo Desarrollado en Visual Basic.Net

Introducción

Casi siempre tenemos problemas cuando queremos trabajar ya sea con fechas u horas, creo yo que más de uno, nos hemos roto la cabeza tratando de solucionar este tipo de inconveniente, por ello he tratado de desarrollar este pequeño pero ilustrativo artículo donde muestro como podemos trabajar con estos tipos de datos en Visual Basic .Net.

Primero vamos recordar que dentro de SYSTEM (Espacio de Nombres) podemos localizar una serie de miembros que pueden ser Clases, Interfaces, Estructuras, Delegados y Enumeraciones que nos permiten realizar una serie de tareas, pero de quien nos vamos a centrar en este artículo es TIMESPAN (Estructura).

TimeSpan (Estructura)

Nos permite representar un intervalo de tiempo tomando como base una Fecha/Hora Inicial y una Fecha/Hora Final, devuelve la cantidad de Días, Horas, Minutos, Segundos, etc., transcurridos entre este intervalo de tiempo.

Hay que recordar la siguiente jerarquía.

System

System.Object

System.ValueType

System.TimeSpan

Estos son los requisitos para poder utilizarlo:

Espacio de Nombres: System
Plataformas: Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional Edition, Familia de Windows Server 2003, .NET Compact Framework - Windows CE .NET

Ensamblado: Mscorlib (en Mscorlib.dll)

....Bueno ahora vamos ha realizar lo que más nos agrada, que es un ejemplo de como hallar el intervalo de tiempo transcurrido entre dos fechas/horas:

Primero; realizamos lo que conocemos como Tiempo de Diseño:

Interfaz: Debemos de crear un formulario con los siguientes controles.

....Ahora vamos a ver como debe de quedar el Explorador de Soluciones:

Segundo; ahora vamos a tratar de describir lo que llamamos el Tiempo de Ejecución:

Public Class FrmInterDateTime
Inherits System.Windows.Forms.Form
Public flagestado As Boolean = False

#Region " Código generado por el Diseñador de Windows Forms "

Public Sub New()
MyBase.New()

'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()

End Sub

'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents TxtDTInicio As System.Windows.Forms.TextBox
Friend WithEvents TxtDtFinal As System.Windows.Forms.TextBox
Friend WithEvents TxtDia As System.Windows.Forms.TextBox
Friend WithEvents TxtHra As System.Windows.Forms.TextBox
Friend WithEvents TxtMin As System.Windows.Forms.TextBox
Friend WithEvents TxtSeg As System.Windows.Forms.TextBox
Friend WithEvents TimerTitulo As System.Windows.Forms.Timer
Friend WithEvents TimerOpacity As System.Windows.Forms.Timer
Friend WithEvents TimerOpacity2 As System.Windows.Forms.Timer
Friend WithEvents CmdIntervalo As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmInterDateTime))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.TxtDTInicio = New System.Windows.Forms.TextBox
Me.TxtDtFinal = New System.Windows.Forms.TextBox
Me.CmdIntervalo = New System.Windows.Forms.Button
Me.TxtDia = New System.Windows.Forms.TextBox
Me.TxtHra = New System.Windows.Forms.TextBox
Me.TxtMin = New System.Windows.Forms.TextBox
Me.TxtSeg = New System.Windows.Forms.TextBox
Me.TimerTitulo = New System.Windows.Forms.Timer(Me.components)
Me.TimerOpacity = New System.Windows.Forms.Timer(Me.components)
Me.TimerOpacity2 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.RoyalBlue
Me.Label1.Location = New System.Drawing.Point(63, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(210, 28)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Intervalo de Tiempo"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.Crimson
Me.Label2.Location = New System.Drawing.Point(16, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(96, 16)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Fecha/Hora Inicial"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.Crimson
Me.Label3.Location = New System.Drawing.Point(176, 48)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(91, 16)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Fecha/Hora Final"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Teal
Me.Label4.Location = New System.Drawing.Point(61, 96)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(31, 16)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Días:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Teal
Me.Label5.Location = New System.Drawing.Point(53, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 16)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Horas:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.Teal
Me.Label6.Location = New System.Drawing.Point(43, 144)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 16)
Me.Label6.TabIndex = 5
Me.Label6.Text = "Minutos:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Teal
Me.Label7.Location = New System.Drawing.Point(32, 168)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(60, 16)
Me.Label7.TabIndex = 6
Me.Label7.Text = "Segundos:"
'
'TxtDTInicio
'
Me.TxtDTInicio.Location = New System.Drawing.Point(16, 64)
Me.TxtDTInicio.Name = "TxtDTInicio"
Me.TxtDTInicio.Size = New System.Drawing.Size(144, 20)
Me.TxtDTInicio.TabIndex = 1
Me.TxtDTInicio.Text = "08/07/2004 08:00:00 a.m."
'
'TxtDtFinal
'
Me.TxtDtFinal.Location = New System.Drawing.Point(176, 64)
Me.TxtDtFinal.Name = "TxtDtFinal"
Me.TxtDtFinal.Size = New System.Drawing.Size(144, 20)
Me.TxtDtFinal.TabIndex = 2
Me.TxtDtFinal.Text = ""
'
'CmdIntervalo
'
Me.CmdIntervalo.ForeColor = System.Drawing.Color.Navy
Me.CmdIntervalo.Image = CType(resources.GetObject("CmdIntervalo.Image"), System.Drawing.Image)
Me.CmdIntervalo.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.CmdIntervalo.Location = New System.Drawing.Point(208, 112)
Me.CmdIntervalo.Name = "CmdIntervalo"
Me.CmdIntervalo.Size = New System.Drawing.Size(72, 56)
Me.CmdIntervalo.TabIndex = 0
Me.CmdIntervalo.Text = "&Hallar Intervalo"
Me.CmdIntervalo.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
'TxtDia
'
Me.TxtDia.Location = New System.Drawing.Point(96, 96)
Me.TxtDia.Name = "TxtDia"
Me.TxtDia.ReadOnly = True
Me.TxtDia.Size = New System.Drawing.Size(60, 20)
Me.TxtDia.TabIndex = 9
Me.TxtDia.Text = ""
Me.TxtDia.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TxtHra
'
Me.TxtHra.Location = New System.Drawing.Point(96, 120)
Me.TxtHra.Name = "TxtHra"
Me.TxtHra.ReadOnly = True
Me.TxtHra.Size = New System.Drawing.Size(60, 20)
Me.TxtHra.TabIndex = 10
Me.TxtHra.Text = ""
Me.TxtHra.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TxtMin
'
Me.TxtMin.Location = New System.Drawing.Point(96, 144)
Me.TxtMin.Name = "TxtMin"
Me.TxtMin.ReadOnly = True
Me.TxtMin.Size = New System.Drawing.Size(60, 20)
Me.TxtMin.TabIndex = 11
Me.TxtMin.Text = ""
Me.TxtMin.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TxtSeg
'
Me.TxtSeg.Location = New System.Drawing.Point(96, 168)
Me.TxtSeg.Name = "TxtSeg"
Me.TxtSeg.ReadOnly = True
Me.TxtSeg.Size = New System.Drawing.Size(60, 20)
Me.TxtSeg.TabIndex = 12
Me.TxtSeg.Text = ""
Me.TxtSeg.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TimerTitulo
'
Me.TimerTitulo.Enabled = True
Me.TimerTitulo.Interval = 300
'
'TimerOpacity
'
'
'TimerOpacity2
'
Me.TimerOpacity2.Enabled = True
'
'FrmInterDateTime
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(336, 200)
Me.Controls.Add(Me.TxtSeg)
Me.Controls.Add(Me.TxtMin)
Me.Controls.Add(Me.TxtHra)
Me.Controls.Add(Me.TxtDia)
Me.Controls.Add(Me.CmdIntervalo)
Me.Controls.Add(Me.TxtDtFinal)
Me.Controls.Add(Me.TxtDTInicio)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "FrmInterDateTime"
Me.Opacity = 0
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Intervalo de Tiempo - alextaya@hotmail.com "
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub FrmInterDateTime_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TxtDtFinal.Text = Now
End Sub

Private Sub VerInterDateTime(ByVal TSpan As TimeSpan)
TxtDia.Text = TSpan.Days.ToString
TxtHra.Text = TSpan.Hours.ToString
TxtMin.Text = TSpan.Minutes.ToString
TxtSeg.Text = TSpan.Seconds.ToString
End Sub

Private Sub TimerTitulo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTitulo.Tick
Me.Text = Microsoft.VisualBasic.Right(Me.Text, (Len(Me.Text) - 1)) + Microsoft.VisualBasic.Left(Me.Text, 1)
End Sub

Private Sub TimerOpacity_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerOpacity.Tick
Me.Opacity -= 0.05
If Me.Opacity = 0 Then
flagestado = True
Me.Close()
End If
End Sub

Private Sub FrmInterDateTime_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If flagestado = False Then
e.Cancel = True
Me.TimerOpacity.Enabled = True
End If
End Sub

Private Sub TimerOpacity2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerOpacity2.Tick
Me.Opacity += 0.05
If Me.Opacity = 1 Then
Me.TimerOpacity2.Enabled = False
End If
End Sub

Private Sub CmdIntervalo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIntervalo.Click
Dim TSpan As TimeSpan
Dim DTInicio As DateTime
Dim DtFinal As DateTime

DTInicio = DateTime.Parse(TxtDTInicio.Text)
DtFinal = DateTime.Parse(TxtDtFinal.Text)

TSpan = DtFinal.Subtract(DTInicio).Duration
VerInterDateTime(TSpan)
End Sub
End Class

Ahora simplemente nos queda ejecutar la solución para ver que todo este bien, espero que funcione
sin ningún problema jeje ;).



Espero poder publicar un artículo similar pero utilizando C# en los próximos días.



Me despido esperando haber contribuido con un granito de arena en este fascinante mundo .Net. Nos vemos líneas de código más adelante.

Sepa cómo eliminar falso "Botón no me gusta" de Facebook

La supuesta nueva aplicación para instalar el "Botón no me gusta" en Facebook en realidad no existe y se trata de una falsa aplicación que envía spam a sus contactos y puede acceder a la información privada de su cuenta.

¿Cómo desactivar la aplicación?

Si fue demasiado tarde y usted cayó en la tentación de instalarlo, a continuación le explicamos cómo desactivar esta falsa y molesta aplicación que genera spam.

- En la esquina superior derecha, ir al menú “Cuenta” y dar clic en “Configuración de privacidad”.

- En esta última sección, fijarse en la opción “Aplicaciones y sitios web” y dar clic en “Editar tu configuración”.

- Lo anterior dirigirá a “Aplicaciones, juegos y sitios web”. Ahí, dar clic en donde dice “Eliminar aplicaciones que no quieres tener o que envían correo no deseado”.

- Finalmente, en la lista de aplicaciones, buscar la que se desea eliminar –en este caso “Botón no me gusta”. Dar clic en la “X”, confirmar la eliminación y así la aplicación quedará borrada.

Fuente: peru.com

Saludos.

martes, marzo 15, 2011

Training Courses (WP7, Azure, Silverlight, Visual Studio 2010, W7, Office 2010 for Dev, SharePoint 2010 dor Dev, Lync, Ident...

Training Courses

These courses contain free technical training on emerging Microsoft products and technologies. Each course includes a set of videos, hands-on labs, and source code samples to get you up-to-speed quickly. Watch the videos to get an overview of the technology, then download the source code and follow along in a lab to get your hands on the technology.

Link: http://www.facebook.com/note.php?note_id=10150110122164756

Esta información lo publicó nuestro buen amigo Fernando García Loera.

Saludos.

martes, febrero 22, 2011

lunes, febrero 14, 2011

Facebook en el Messenger.

Para usar la función de chat de Facebook vía Messenger es necesario tener instalada la versión más reciente de Windows Live Messenger y usar Windows 7 o Vista.

martes, septiembre 07, 2010

Microsoft Security Essentials

Obtén ahora una sencilla protección de alta calidad para proteger tu PC doméstica contra virus, spyware y malware.

Microsoft Security Essentials

Link: http://www.microsoft.com/security_essentials/default.aspx

‘KINECT para Xbox 360’ es el nombre oficial del dispositivo de juego sin controles de mando de Microsoft

Antes conocido como “Proyecto Natal”, KINECT se presentó el domingo en la noche durante un espectáculo de Cirque du Soleil en la Expo Electronic Entertainment en Los Ángeles.

LOS ANGELES – 14 de junio de 2010 – Microsoft presentó KINECT para Xbox 360, un dispositivo de juego sin controles de mando que Microsoft está posicionando como una manera totalmente nueva de experimentar el entretenimiento en la sala de estar.

Antes conocido con el nombre código “Proyecto Natal”, KINECT se presentó antes de la inauguración de la Expo Electronic Entertainment en Los Ángeles (E3) como parte de un espectáculo de Cirque du Soleil inspirado en la tecnología de KINECT.

El delgado sensor negro KINECT se conecta directamente a cualquier consola Xbox 360. A pesar de su pequeño tamaño, el dispositivo incorpora cámara, sensores de audio y tecnología de detección de movimiento que identifica 48 puntos de movimiento en el cuerpo humano. Asimismo, tiene la capacidad de reconocer rostros y voces.

Con KINECT, los jugadores ya no tienen que memorizar los diferentes comandos de un control de mando manual. “Tú eres el control de mando”, dijo Mike Delman, vicepresidente corporativo de Mercadotecnia Global de la División de Entretenimiento Interactivo. “Simplemente te colocas frente al sensor y KINECT detecta tus movimientos, escucha tu voz y reconoce tu rostro”.

El día de ayer, el espectáculo de Cirque du Soleil en el Galan Center de Los Ángeles se enfocó en las nuevas experiencias que KINECT generará. Hoy durante la conferencia de prensa que inauguró la expo E3, el evento anual de la industria de videojuegos, Microsoft compartió más detalles, como algunas de las ofertas iniciales de juegos y entretenimiento de KINECT.

Marc Whitten, vicepresidente corporativo de Xbox LIVE, afirmó que el 2010 podría ser el año más grande para Xbox en su historia. “Es un año asombroso cuando te das cuenta de las cosas que la gente está esperando”, dijo. “Pero también nos entusiasma anunciar las maneras nuevas en que la gente podrá disfrutar de nuestros productos. La gente que se siente intimidada por un control de mando por fin podrá gozar de las experiencias que se generan en la sala de estar, ya sea que se trate o no de juegos”.

Microsoft sorprendió a todos en E3 hace un año con un video breve sobre KINECT y con la presentación del concepto de juegos y entretenimiento sin controles de mando en Xbox 360. Ese video fue muy popular y las demostraciones siguientes de la tecnología llevaron a jugadores a decir que KINECT podría transformar la gigantesca industria del videojuego (más de $10,000 millones de dólares en Estados Unidos).

Por ejemplo, el pasado enero, Josh Lowensohn de CNET escribió que el dispositivo entonces llamado “Proyecto Natal” sería una “fuerte inyección de adrenalina al corazón del Xbox 360”. Después de probarlo por sí mismo el año pasado, Matt Buchanan de Gizmodo comentó sobre el “impresionante sentido de control” e “inmersión”. Y la edición británica de IGN Entertainment opinó que la “detección de movimiento [de KINECT] es asombrosa, y lo es aún más su reconocimiento de detalles”.

Algo que intrigó a los expertos de la industria fue que KINECT puede detectar el movimiento del cuerpo humano a 30 cuadros por segundo. No se ve afectado por la ropa que lleva el usuario ni por el tipo de mobiliario en el lugar. Además, reconoce voces y rostros.

KINECT era un secreto sumamente confidencial hasta que se presentó el video durante la expo E3 del año pasado. Después de la conferencia, regresó a su estatus de “caja negra”, incluso dentro de los muros de Microsoft, conforme el equipo de Xbox trabajaba para convertirlo de prototipo en producto.

Con el fin de mantenerlo en secreto, sólo se han realizado dos anuncios sobre KINECT desde la expo E3 el año pasado —y uno de ellos fue el anuncio del nombre KINECT el domingo en la noche—. El otro se realizó a principios de este año en el Consumer Electronics Show en Las Vegas, cuando Microsoft anunció que KINECT estaría disponible en tiendas esta temporada vacacional.

Se esperan muchas más noticias el lunes, dijo Delman, quien considera que KINECT ayudará a Xbox a cumplir su objetivo de convertirse en la única consola de juegos y entretenimiento en todas las salas de estar. Pero aunque los jugadores expertos son y seguirán siendo la piedra angular de Xbox y Xbox LIVE, Microsoft desea utilizar KINECT para llegar a una nueva y más amplia audiencia.

Existen más de 40 millones de consolas Xbox 360 en el mercado. KINECT podría incrementar esa cifra de manera importante porque resulta atractiva para aquellos que no son jugadores tradicionales, tales como niños, madres y abuelos.

El espectáculo de Cirque du Soleil el domingo por la noche ilustró este concepto con la historia de un niño y su Xbox 360. El espectáculo inicia con el niño jugando Xbox solo con un control de mando tradicional, pero cuando él y su familia conocen KINECT, todos juntos disfrutan de juegos y entretenimiento.

“A ciertas personas no les gustan los controles de mando”, dijo Delman. “Y KINECT hace que la experiencia de juego y entretenimiento sea más orgánica y fluida, sin las barreras que a veces impiden que la gente participe”.

Más adelante esta semana, el video del espectáculo de Cirque Du Soleil se podrá ver en www.xbox.com.

Material e información adicional:
www.newsinfusion.com/xboxe32010
www.xbox.com/press
www.xbox.com/Kinect

Fuente: http://www.microsoft.com/latam/prensa/2010/junio/KINECT.aspx

¿Qué es un Algoritmo?

Más información ==>  https://m.facebook.com/story.php?story_fbid=779713015547334&id=332220556963251