Listar o conteúdo de pasta remota FTP

Imports System.Net.Mail
Imports System.Net
Imports System.IO

Public Function ListaFtp(ByVal Usuario As String, ByVal Senha As String) As ArrayList
     Dim sArquivos As ArrayList = New ArrayList
     Dim iContador As Integer
     Dim fwr As FtpWebRequest = FtpWebRequest.Create("ftp://xxx.xxx.xxx.xxx/")
     fwr.Credentials = New NetworkCredential(Usuario, Senha)
     fwr.Method = WebRequestMethods.Ftp.ListDirectory
     Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
     Dim str As String = sr.ReadLine()

     iContador = 0
     While Not str Is Nothing
         sArquivos.Add(str)
         str = sr.ReadLine()
     End While
     Return sArquivos
     sr.Close()
     sr = Nothing
     fwr = Nothing
End Function

Enviar e_mail com vb.net

Imports System.Net.Mail
Imports System.Net
Imports System.IO

Public Sub EnviaEmail(ByVal Destinatario As String, ByVal Conteudo As String)
     Dim Mailmsg As New System.Net.Mail.MailMessage()
     Dim mSmtpCliente As New SmtpClient("xxx.xxx.xxx.xxx", 25)
     Mailmsg.From = New MailAddress(eu@eu.com.br)
     Mailmsg.To.Add(New MailAddress(Destinatario))
     Mailmsg.IsBodyHtml = True
     Mailmsg.Subject = "Alteração de Velocidade máxima de alimentadores"
     Mailmsg.Body = Conteudo
     mSmtpCliente.Send(Mailmsg)
End Sub

Função em Excel para transformar um número em binário com até 32 bits

Public Function NumTo32Bits(Numero As String) As String
    Dim Valor As Double
    Dim Resto(31) As Double
    Dim Dividendo(31) As Long
    Dim iContador As Integer
    Dim Aux As String
   
   
    'Verifica se o número pode ser convertido
    If IsNumeric(Numero) Then
        Valor = CDbl(Numero)
    Else
        NumTo32Bits = "Valor incompatível"
        Exit Function
    End If
   
    'Efetua a conversão
    For iContador = 0 To 31
        Resto(iContador) = Valor - (Int(Valor / 2) * 2)
        Dividendo(iContador) = Fix(Valor / 2)
        Valor = Dividendo(iContador)
    Next
   
    'Pega os bits na ordem inversa e retorna
    For iContador = 31 To 0 Step -1
        Aux = Aux & Resto(iContador)
    Next iContador
   
    NumTo32Bits = Aux
   
End Function

Programa para cálculo de Resistores de 4 faixas

 Download

 

Tornar o fundo de uma imagem transparente em VB.NET

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Dim imagem As New Bitmap("c:\imagem.jpg")

     imagem.MakeTransparent(Color.White) 'Para colocar a cor branca como transparente

     picturebox1.Image = imagem          'Carrega a imagem para um PictureBox

End Sub  

Função em VBA no Process Book para escrever um valor em um tag

Fazer referência á Biblioteca: PISDK 1.3 Type Library
     Menu Tools --> References

Public Sub EscreveValor(NomeTag As String, Valor As Variant)
    Dim srv As Server
    Dim tag As PIPoint
    Dim timestamp As String
    Dim startTime As String
    Set srv = PISDK.Servers.DefaultServer
    startTime = srv.servertime
    Set tag = srv.PIPoints(NomeTag)
    Tag.Data.UpdateValue Valor, startTime, dmReplaceDuplicates
End Sub

Função em VBA no Process Book para ler o TimeStamp de um tag

Fazer referência á Biblioteca: PISDK 1.3 Type Library

     Menu Tools --> References

Function LeTimeStamp(NomeDoTag As String) As String
    Dim tag As PIPoint
    Dim srv As Server
    Dim timestamp As Variant
   
    Set srv = Servers("TADCIPI01")
   
    Set tag = srv.PIPoints(NomeDoTag)
   
    timestamp = tag.Data.Snapshot.timestamp.LocalDate
       
    LeTimeStamp = timestamp
End Function

Função em VBA no ProcessBook para ler o valor de um tag

Fazer referência á Biblioteca: PISDK 1.3 Type Library

     Menu Tools --> References

 

Function LeValor(NomeDoTag As String) As String
    Dim tag As PIPoint
    Dim srv As Server
    'Dim Valor As PIValues
    Dim Valor As Variant
    Dim timestamp As Variant
   
    Set srv = Servers("TADCIPI01")
   
    Set tag = srv.PIPoints(NomeDoTag)
   
    Valor = tag.Data.Snapshot.Value
    
    'Set Valor = Tag.Data.Snapshot.Value
   
    If Valor <> "Bad" Then
        LeDado = Valor
    Else
        LeDado = "-1"
    End If
End Function