Hace tiempo no escribia, aveces por falta de tiempo y otras porque simplemente me daba un poco de lata 
pero bueno vamos a lo interesante.
Para saber el nombre de tu equipo puedes hacerlo llamando a My.Computer.Name.ToString
por ejemplo si quieres mostrarlo en un label quedaria algo como
VB.NET:
-
label1.Text = My.Computer.Name.ToString
para mostrar tu IP seria algo como
VB.NET:
-
Dim ip As System.Net.IPHostEntry
-
ip = System.Net.Dns.GetHostEntry(My.Computer.Name)
-
Label1.Text = ip.AddressList(0).ToString
y para mostrar la MAC vamos a crear una funcion que se va a llamar ObtenerMac():
VB.NET:
-
Public Function ObtenerMac() As String
-
-
Dim str As String
-
-
Dim p As New Process
-
-
-
-
p.StartInfo.UseShellExecute = False
-
-
p.StartInfo.RedirectStandardOutput = True
-
-
p.StartInfo.FileName = "GetMac.exe"
-
-
p.StartInfo.Arguments = "/fo list"
-
-
p.Start()
-
-
'StandardOutput Obtiene una secuencia que se utiliza
-
-
str = p.StandardOutput.ReadLine
-
-
str = p.StandardOutput.ReadLine
-
-
p.WaitForExit()
-
-
Return str.Substring(23)
-
-
End Function
ahora solo lo llamamos en el Evento Load de nuestro form, y para mostrarlo en un label podria ser
VB.NET:
-
label1.text = ObtenerMac().toString
saludos
Bueno hace bastante tiempo ya que no escribo por estos lados, la razon?? he estado ocupado ultimamente en el proyecto de titulo, el cual ya esta ok, pero justamente por esto es que me he decidido a escribir hoy, una forma que puede servir mucho al momento de programar aplicaciones donde necesitamos interactuar via mail con el cliente.
De esta forma vamos a ver como podemos enviar correos usando el protocolo SMTP desde ASP.NET.
correo.vb
VB.NET:
-
Imports Microsoft.VisualBasic
-
Imports System.Web.Mail
-
Imports System.Net.Mail
-
-
Public Class correo
-
-
-
Sub enviar_nueva_reserva(ByVal mail As String, ByVal rut_paciente As String, ByVal nombres_paciente As String, ByVal dia As String, ByVal hora As String, ByVal medico As String, ByVal especialidad As String, ByVal tipo_reserva As String, ByVal tipo_pago As String)
-
Dim correo As New System.Net.Mail.MailMessage
-
'Aqui seleccionamos desde que correo enviaremos el mensaje
-
correo.From = New System.Net.Mail.MailAddress("sadr.bioarrayanes@gmail.com")
-
'hacia que mail sera enviado
-
correo.To.Add(mail)
-
'titulo del correo
-
correo.Subject = "Confirmacion de Reserva Clinica Bioarrayanes"
-
'cuerpo del mensaje
-
correo.Body = "Estimado Sr./Sra. <b> " + nombres_paciente + ": </b> <br><br><br> " _
-
+ "Se ha realizado con exito su reserva para el dia : <b> " + dia _
-
+ "</b> a las <b> " + hora + " horas. </b> <br> La cual sera atendida por el <b> Dr. " + medico + " - " + especialidad + "" _
-
+ "</b><br><br><br> " _
-
+ "<b> Datos de Reserva : <br><br> " _
-
+ "Nombre Paciente : </b>" + nombres_paciente + _
-
"<br><b>Nombre Profesional : </b>" + medico _
-
+ "<br><b> Especialidad : </b>" + especialidad _
-
+ "<br><b>Fecha Reserva : </b>" + dia _
-
+ "<br><b> Hora : </b>" + hora _
-
+ "<br><br><b> Tipo de Consulta : </b>" + tipo_reserva _
-
+ "<br><b>Tipo de Pago : </b>" + tipo_pago _
-
+ "<br><hr><br><i> Centro de Estudios Médicos. Enfermedades Gastroenterológicas<br> Fono: 56-41-2790857 - Caupolican 321, Local 6.<br> http://www.bioarrayanes.cl/ </i> "
-
-
-
-
'si utilizara html en el cuerpo del mensaje
-
correo.IsBodyHtml = True
-
-
'la prioridad del correo, la cual puede ser normal, bajo o alto
-
correo.Priority = System.Net.Mail.MailPriority.Normal
-
-
-
Dim smtp As New System.Net.Mail.SmtpClient
-
'habilitamos SSL
-
smtp.EnableSsl = True
-
'el puerto que utiliza smtp, google utiliza el 587
-
smtp.Port = 587
-
smtp.UseDefaultCredentials = False
-
smtp.DeliveryMethod = SmtpDeliveryMethod.Network
-
'escribimos el host del servidor smtp.
-
smtp.Host = "smtp.gmail.com"
-
'ponemos los datos del mail que utilizaremos para enviar los mensajes
-
smtp.Credentials = New System.Net.NetworkCredential("sadr.bioarrayanes@gmail.com", "CLAVE_CORREO")
-
-
-
Try
-
smtp.Send(correo)
-
' MsgBox("Mensaje enviado satisfactoriamente")
-
Catch ex As Exception
-
MsgBox("ERROR: " & ex.Message)
-
End Try
-
End Sub
-
End Class
Bueno, yo utilice el ejemplo del sw que he estado desarrollando en proyecto de titulo, en el cual la funcion se le pasan parametros tales como mail, rut paciente, rut medico, fecha, etc. lo cual es absolutamente opcional, y pueden cambiarlos adecuandolo al cuerpo del correo que ustedes vayan a desarrollar.
Utilizando la clase correo.vb
VB.NET:
-
dim cor as correo = new correo()
-
-
cor.enviar_nueva_reserva(label1.text ,label2.text, label3.text, label5.text, label6.text, label7.text,label8.text,label9.text,label10.text)
de esta forma capturamos los datos de "label's" y llamamos a la funcion, esto es completamente opcional y se puede utilizar de muchas formas donde se le puede sacar un provecho mayor, como por ejemplo capturando los datos de una base de datos con un datatable, usar la consulta WHERE para capturar un correo especifico, etc.
bueno si todo resulta bien el mensaje que deveriamos recibir seria algo como esto:
saludos
R-Project es un lenguaje y entorno de programacion muy usado por estadisticos, matematicos, ingenieros, etc. Ademas de ser un software completamente libre posee muchas caracteristicas envidiables para otros entornos de desarrollo que no son gratuitos, algunas de sus principales caracteristicas son:
-Integracion con Bases de Datos
-Increible capacidad para graficar
-Integracion con lenguajes como Python y Perl (Librerias)
-etc.
Pueden descargarlo
AQUI:
-------------------------------------------
Algunas funciones utiles.
-----------------------
getwd() #Ver directorio de trabajo
setwd("c:/data1") # cambiar el directorio de trabajo
search() # Ver librerias cargadas
library() #ver librerias disponibles
ls() #lista todo
objects() # lista los objetos
data() #muestra todas las bases de datos cargas en R
rm(list=ls(all=TRUE)) #borra todo
x<-1 #declara el entero 1 similarmente se puede #x=1
print(x) #desplegar el valor del objeto x
x=1;#no desplega el valor de x
rm(x) #borra el objeto x
x<-1:3 #genera un vector del 1 al 3
save(x,file="x.RData") #guardar un objeto(vector) .RData
rm(x)# borra x
load("x.RData")# carga nuevamente el objeto x
Aqui les dejo 3 funciones que pueden ser de utilidad:
Sumatoria de numeros negativos en un Vector
C:
-
sumarNegativos <- function(Objeto)
-
{
-
suma = 0
-
for (elem in Objeto)
-
{
-
if (elem <0)
-
{
-
suma = suma + elem
-
}
-
}
-
suma
-
}
-
-
Objeto<-c(-40,-500,3)
-
sumarNegativos(Objeto)
Multiplicacion de numeros positivos en un Vector
C:
-
multposit = function(Objeto)
-
{mul = 1
-
for (elem in Objeto) /* Iteramos sobre toda la coleccion */
-
{if (elem> 0){
-
mul = mul * elem
-
}
-
}
-
mul
-
}
-
Objeto<-c(-40,-500,3,5)
-
multposit(Objeto)
Utilizando la funcion sum() para contar
C:
-
x <- c(-30, 50, 20, 0, -20)
-
sum(x> 0)
Saludos
Bueno hoy he estado bastante ocioso asi que me puse a programar un pequeno modulo que consiste en la multiplicacion de numeros secuenciales, por ejemplo si ingresas 123456789
el modulo te multiplicara
1*2=2
2*3=6
6*4=24
etc..
es un modulo bastante sencillo, pero se puede utilizar para cosas mas complejas aun, les dejo el codigo:
VB.NET:
-
Module Module1
-
-
Sub Main()
-
-
-
-
-
Dim suma As Double = 1
-
Dim a As Double = 0
-
Console.WriteLine("Ingrese el numero")
-
Dim i As Integer = 0
-
Dim num As String = Console.ReadLine()
-
-
Console.WriteLine("")
-
If num.Length> 0 Then
-
-
-
For i = 0 To num.Length - 1
-
-
suma = suma * Double.Parse(num(i))
-
-
If i <num.Length - 1 And a = 0 Then
-
-
-
-
-
Console.WriteLine("Numero : " & num(i) & "*" & num(i + 1) & "=" & _
-
Double.Parse(num(i)) * Double.Parse(num(i + 1)))
-
-
a = Double.Parse(num(i)) * Double.Parse(num(i + 1))
-
-
-
ElseIf i <num.Length - 1 And a> 0 Then
-
-
-
Console.WriteLine("Numero : " & a & "*" & num(i + 1) & "=" & _
-
a * Double.Parse(num(i + 1)))
-
-
a *= Double.Parse(num(i + 1))
-
-
End If
-
-
-
Next
-
Console.WriteLine()
-
Console.WriteLine("Resultado Total : " & suma)
-
Else
-
Console.WriteLine("Error")
-
End If
-
-
Console.ReadKey()
-
-
End Sub
-
-
End Module
saludos
