quarta-feira, maio 31, 2006
terça-feira, maio 30, 2006
Vida de Estudante
Agora algo mais inteligente :
Imports System.data
Imports System.Data.Odbc
Public Class Vivendas
Inherits Imoveis
Protected _assoalhadas As Integer
Protected _lugaresgaragem As Integer
Protected _areaexterior As Double
Private orow As DataSet
Public Property Assoalhadas() As Integer
Get
Return _assoalhadas
End Get
Set(ByVal Valor As Integer)
_assoalhadas = Valor
End Set
End Property
Public Property Lugaresgaragem() As Integer
Get
Return _lugaresgaragem
End Get
Set(ByVal Valor As Integer)
_lugaresgaragem = Valor
End Set
End Property
Public Property areaexterior() As Double
Get
Return _areaexterior
End Get
Set(ByVal Valor As Double)
_areaexterior = Valor
End Set
End Property
Public Sub New(ByVal assoalhadas As Integer, ByVal lugaresgaragem As Integer, ByVal areaexterior As Integer)
_assoalhadas = assoalhadas
_lugaresgaragem = lugaresgaragem
_areaexterior = areaexterior
End Sub
Public Overridable Function areahabitada() As Double
Return (_area - _areaexterior)
End Function
Public Sub New(ByVal nometabela As String, ByVal dsn As String)
MyBase.new(nometabela, dsn)
Me.InitComandos()
End Sub
Private Sub InitComandos()
Dim sSql As String
Dim oComando As Odbc.OdbcCommand
'Comando para seleccionar todos os registos
sSql = "SELECT ID, Proprietario, PrecoPublicitado, PrecoMinimoVenda, AreaTotal, " & _
"Localizacao, AreaExterior,LugaresGaragem, Assoalhadas FROM Vivenda Order By id"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
ComandoSeleccionar(oComando)
'Comando para inserir registos
sSql = "INSERT INTO Vivenda (Proprietario, PrecoPublicitado, PrecoMinimoVenda, AreaTotal, " & _
"Localizacao, AreaExterior, LugaresGaragem, Assoalhadas) VALUES " & _
"(?, ?, ?, ?, ?, ?, ?, ?)"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@proprietario", OdbcType.Text, 50, "Proprietario")
oComando.Parameters.Add("@precop", OdbcType.Numeric, 10, "PrecoPublicitado")
oComando.Parameters.Add("@precomin", OdbcType.Numeric, 10, "PrecoMinimoVenda")
oComando.Parameters.Add("@areat", OdbcType.Numeric, 10, "AreaTotal")
oComando.Parameters.Add("@local", OdbcType.Text, 10, "Localizacao")
oComando.Parameters.Add("@areaE", OdbcType.Numeric, 10, "AreaExterior")
oComando.Parameters.Add("@lugares", OdbcType.Numeric, 10, "LugaresGaragem")
oComando.Parameters.Add("@assoalhadas", OdbcType.Numeric, 10, "Assoalhadas")
ComandoInserir(oComando)
'Comando para actualizar registos
sSql = "UPDATE Vivenda SET Proprietario = ?, PrecoPublicitado = ?, PrecoMinimoVenda = ?, " & _
"AreaTotal = ?, Localizacao = ?, AreaExterior = ?, LugaresGaragem = ?, " & _
"Assoalhadas = ? WHERE ID = ?"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@proprietario", OdbcType.Text, 50, "Proprietario")
oComando.Parameters.Add("@precop", OdbcType.Numeric, 10, "PrecoPublicitado")
oComando.Parameters.Add("@precomin", OdbcType.Numeric, 10, "PrecoMinimoVenda")
oComando.Parameters.Add("@areat", OdbcType.Numeric, 10, "AreaTotal")
oComando.Parameters.Add("@local", OdbcType.Text, 10, "Localizacao")
oComando.Parameters.Add("@areaE", OdbcType.Numeric, 10, "AreaExterior")
oComando.Parameters.Add("@lugares", OdbcType.Numeric, 10, "LugaresGaragem")
oComando.Parameters.Add("@assoalhadas", OdbcType.Numeric, 10, "Assoalhadas")
oComando.Parameters.Add("@IDImovel", OdbcType.Numeric, 5, "ID")
ComandoActualizar(oComando)
'Comando para apagar registos
sSql = "DELETE FROM Vivenda WHERE ID = ?"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@IDImovel", OdbcType.Numeric, 5, "ID")
ComandoApagar(oComando)
End Sub
Public Sub LerRegistoBD(ByVal posicao As Integer)
Dim orow As DataRow
orow = ObterLinhaPosicao(posicao)
_assoalhadas = orow("assoalhadas")
_lugaresgaragem = orow("lugares_garagem")
_areaexterior = orow("area_exterior")
End Sub
End Class
segunda-feira, maio 29, 2006
Um Bocadinho de Cultura...
Está quase ai...

Tenham medo....muito medo...
quinta-feira, maio 25, 2006
E depois de Xutos veio Quim Barreiros

Ora pois ter na nossa semana académica Xutos e Pontapés é muito bom, um espetáculo autentico, pois uma banda como aquela não se faz em 1dia, ou num programa de televisão. Não...xutos e pontapés são só a melhor banda de rock portuguesa, que já conta com mais de 25 anos e ainda hoje consegue contagiar o publico com a sua música, um puro rock cheio de reefs e solos de guitarra, uma bateria excelente um baixo e um saxo animador...e claro a voz do TIM. Sem duvida uma banda que faz soltar muita poeira, mas o que era mesmo a nossa semana académica sem o Grande QUIM BARREIROS, isso sim que homem electrizante... e ainda dizem que PIMBA é mau, concerteza que com o Quim torna-se no melhor que há.Aquilo é que é dançar, ao som do fabulástioc acordeao e das letras viciantes e que ficam no ouvido. Sim sr. foi uma noite de pura ramboia...ora pois bem e quem é que não gostava de mamar nos peitos da cabritinha, han????
quarta-feira, maio 24, 2006
O Mundo Ao Contrário (Banda Sonora de Sorte Nula) - Xutos e Pontapés

onde vais?
perguntas tu ainda meio a dormir
não sei bem
respondo eu sem saber o que vestir
porque sais?
ainda é cedo e tu não sabes mentir
nem eu sei
só sei que fica tarde e tenho de ir
bem depois
de estar na rua instalou-se uma dor
por nós dois
talvez sair tivesse sido melhor
se assim foi
porque me sinto eu a morrer de amor?
tenho a noite a atravessar
doi-me não ir
mas não me deixas voltar
se gosto de ti
se gostas de mim
se isto não chega tens o mundo ao contrario
se gosto de ti
se gostas de mim
se isto não chega tens o mundo ao contrario
o mundo ao contrario
tenho a noite a atravessar
doi-me não ir
mas não me deixas voltar
se gosto de ti
se gostas de mim
se isto não chega tens o mundo ao contrario
se gosto de ti
se gostas de mim
se isto não chega tens o mundo ao contrario
se gosto de ti
(o mundo ao contrario)
(o mundo ao contrario)
se gostas de mim
(o mundo ao contrario)
(o mundo ao contrario)
se gosto de ti
se gostas de mim
se isto não chega tens o mundo ao contrario
o mundo ao contrario
o mundo ao contrario
segunda-feira, maio 22, 2006
sexta-feira, maio 19, 2006
segunda-feira, maio 15, 2006
Tainted Love
Run away I've got to
Get away
From the pain you drive in the heart of me
The love we share
Seems to go nowhere
And I've lost my light
For I toss and turn I can't sleep at night
Once I ran to you (I ran)
Now I run from you
This tainted love you've given
I give you all a boy could give you
Take my tears and that's not nearly all
Tainted love... oh
Tainted love
Now I know I've got to
Run away I've got to
Get away
You don't really want any more from me
To make things right
Need someone to hold you tight
And you'll think love is to pray
But I'm sorry I don't pray that way
Once I ran to you (I ran)
Now I run from you
This tainted love you've given
I give you all a boy could give you
Take my tears and that's not nearly all
Tainted love... oh
Tainted love
Don't touch me please
I cannot stand the way you Tease
I love you though you hurt me so
Now I'm going to pack my things and go
Touch me baby, tainted love (x4)
Once I ran to you (I ran)
Now I run from you
This tainted love you've given
I give you all a boy could give you
Take my tears and that's not nearly all
Tainted love... oh
Tainted love
Tainted love(x4)
domingo, maio 14, 2006
sexta-feira, maio 12, 2006
quinta-feira, maio 11, 2006
Do principio....

PS: TSB esta imagem é em tua honra...
Presenting: The Stallion

Bem meus amigos, aqui me encontram outra vez, desta feita para vos dar a conhecer outra das Mais Belas Maravilhas do Mundo: o famoso ‘Stallion’.
Pois bem… mas desenganem-se porque não me refiro ao conhecido ‘Black Stallion’ de Walter Farley, ou ao não menos conhecido ‘Spirit: Stallion of the Cimarron’ da DreamWorks. Nada disso…!!!
Devo informar-vos que aqui perto de nós, sim… aqui no nosso querido Distrito de Setúbal há um Stallion ou como é mais conhecido entre os amigos ‘Garanhão’.
Estejam atentos/as a frases tão célebres como “…É pra ficar com Saudades!...”, “…Eu dou tudo a todas!...”, “Nada disso… Eu sou um gajo de gajas, mas uma de cada vez!...”, e sempre que as ouvirem já sabem, ele anda por perto!!!
P.S.- A pedido de muitas famílias e respeitando o Segredo de Justiça, a verdadeira identidade do dito cujo foi preservada e mantida em absoluto sigilo.
Oooolha a Patroooa!!
Hmmm... do mm, ehehe!! Bem, tou com os nervos em franja, este patronato tem mm de ser posto na linha... ai caraças, que se da uma revolução!! Fica assinalado, dia 11 de Maio o verdadeiro teste à capacidade controladora da 542. Mas de parabens está mm o Tiago, pois n so se aguentou n saltar pra cima da mesa e soltar a mulher peixeira q ha dentro dele, como ainda comeu iscas da EST, como uma verdadeira prova de amizade e ainda...!! ;) Isto n falando que anda uns mãos largas... Oh Tiago tb podias ter comprado um pirilampo, coitado do miudo!!
Isto td pra dizer, que eu sou uma vendida mas mto arrependida, ouviu menina Marta!! Epa não ha como a 542 :) Beijinhos grandes!! Alex vai para onde quiseres q guarda costas n te faltam :) mas vê la, agr n te aproveites!!
Um por todos e todos por um
quarta-feira, maio 10, 2006
Quem sou eu...
-" Eu sou um gajo de gajas..."
-" Eu fumo...bebo..mas não..."
-" Eu sou um granda maluk..."
-" Eu sou o pior de todos..."
-" Eu sou...", AFINAL QUEM SOU EU!!???
segunda-feira, maio 08, 2006
Nova música
Não deixem o nosso blog morrer....!
terça-feira, maio 02, 2006
Vira o disco e toca o mesmo....
Vir no comboio sem as piadas do TSB, ou sem as bocas do Puto radical da bola, não é a mesma coisa.....