Avançar para o conteúdo principal

Mensagens

A mostrar mensagens de janeiro, 2012

User Controls no Mono (ou Widgets)

No MonoDevelop também podemos criar controlos definidos por nós, os programadores, os passos são semelhantes aos do VB.Net, sendo a principal diferença que no Mono (Gtk) os controlos são chamados de Widgets. Primeiro passo, criar o Widget, numa solução nova escolher biblioteca (ou Library): Depois na janela da solução escolher adicionar novo widget: Atribuimos um nome De seguida configuramos o controlo de modo que tenha o comportamento pretendido, neste exemplo vou criar um widget que utiliza um controlo calendar para permitir ao utilizador indicar uma data e através de um botão calcular os anos e dias que já passaram desde essa data, assim fica qualquer coisa como isto:   O passo seguinte é compilar, assim criamos uma DLL que devemos adicionar como referência nos projetos em que a pretendemos utilizar. Agora criamos um pequeno exemplo com este controlo, numa solução nova, adicionamos a referência  e quando vamos editar a interface podemos ver na toolbox o nosso controlo:  Agora é só a

User Control no Visual Basic 2010

O Visual Basic permite a criação de controlos por parte do programador, estes controlos podem ser, posteriormente, utilizados noutros projetos. Começamos por criar um projecto no VB: Depois adicionamos o user control: De seguida criamos o nosso user control adicionando componentes e código de acordo com o pretendido. Neste exemplo o user control vai apresentar um relógio analógico, assim adicionamos uma picturebox, definimos o dock em fill, adicionamos um timer com interval em 1000 (1 segundo) e colocamos o seguinte código no controlo: Public Class Relogio     Sub hora_analogica(ByVal x As PictureBox)         Dim meiox, meioy As Integer         Dim tamanhohx, tamanhohy, tamanhomx, tamanhomy, tamanhosx, tamanhosy As Integer         Dim hora, minuto, segundo As Integer         Dim phorax, phoray, pminutox, pminutoy, psegundox, psegundoy As Integer         Dim anguloh, angulom, angulos As Double         Dim tipo_letra As New Font("Arial", 10)         Dim corp As New Pen(Brushes.

Criar e utilizar DLL no MonoDevelop

Tal como no Visual Basic também o Mono Develop permite criar DLL's a utilizar em outras aplicações. Primeiro a DLL: Eis o código: using System; using System.Collections.Generic;  //namespace para as listas namespace class_valores { public class valores { private List<int> lista; //construtor public valores () { lista=new List<int>(); } //construtor versao 2 public valores (int x) { lista=new List<int>(); lista.Add(x); } //destrutor public void destroy() { lista.Clear(); } //inserir um elemento public void adiciona(int x) { lista.Add(x); } //delvove o numero de elementos public int n_elementos() { return lista.Count; } //calcula e devolve a media public double media() { double m; int i,t; t=0; for(i=0;i<lista.Count;i++) t=t+lista[i]; m=(double)t/(double)lista.Count; return m; } //calcula e devolve a soma total public int soma() { int t; t=0; foreach(i

Como criar e utilizar uma DLL em VB.NET

Com o Visual Basic podemos criar uma DLL com código que pretendemos reutilizar noutros projetos. Para isso devemos começar por criar um projeto do tipo Class Library Este projeto abre um módulo do tipo class Neste documento definimos o código e as propriedades da class: Public Class Valores     'class que permite gerir uma lista de valores inteiros     Private lista As List(Of Integer)     'construtor     Public Sub New()         lista = New List(Of Integer)     End Sub     'construtor versão 2     Public Sub New(ByVal x As Integer)         lista = New List(Of Integer)         lista.Add(x)     End Sub     'destrutor     Public Sub Destroy()         lista.Clear()     End Sub     'inserir um elemento     Public Sub adiciona(ByVal x As Integer)         ' Adiciona um elemento à class.         lista.Add(x)     End Sub     'devolve o numero de elementos     Public Function n_elementos() As Integer         Return lista.Count     End Function     'calcula e devo

Excepções (há delas para cada regra)

Um pequeno projecto para demonstrar o funcionamento das excepções em VB.NET (para Windows) e MonoDevelop (para Windows e Linux). A parte mais importante do código está no click do botão verificar: Versão VB.NET         Dim n As Integer         Dim nome As String         Dim cp As String         Try             n = TextBox1.Text             nome = TextBox2.Text             cp = TextBox3.Text             If nome.Length < 3 Then                 Throw New ArgumentException("Erro no preenchimento dos dados! O campo nome tem de ter pelo menos 3 caracteres.")             End If             'caso o código postal não tenha 4 caracteres iniciar uma excepção             If cp.Length <> 4 Then                 Throw New ArgumentException("Erro no preenchimento dos dados! O campo código postal tem de ter 4 caracteres.")             End If         Catch ex As Exception             MessageBox.Show("Erro! " & ex.Message)         End Try Versão C# int n;

Hash codes em C# no MonoDevelop

O mesmo projeto agora em C# e com o MonoDevelop, apesar de ainda não o ter testado em Linux deve corre r de igual modo que no Windows. Projecto em MonoDevelop

Hash codes e outros

Neste pequeno primeiro projeto apresento o código que permite verificar se um formulário está aberto, como se pode ver a seguir basta utilizar a propriedade visible do formulário:         If Form2.Visible = True Then             MessageBox.Show("Aberto")         Else             MessageBox.Show("Fechado")         End If Os hash codes devem ser utilizados para armazenar palavras passes dos utilizadores na base de dados, assim ninguém consegue saber qual a palavra escolhida. A seguir apresento o código que exemplifica:         Dim texto As String         texto = "password"         If Me.TextBox2.Text = Hex(texto.GetHashCode().ToString()) Then             MessageBox.Show("Hash válido")         Else             MessageBox.Show("Hash inválido")         End If Para começar é só, já agora vale a pena dar uma vista de olhos no click do linklabel. Download do projecto