Tweet this!

CD Os Manos

0 comentários
Ae pessoal Essa é pra vocês que tem Web Radio 

Tweet this!

SAM Broadcaster 4.9.1 + Crack

0 comentários
Nome: Sam Broadcaster 4.2.2
Ano: 2009
Fabricante: Spacial Audio Solutions, LLC
Sistema Operacional: Windows 98/Me/2000/XP/Vista
Estilo: Internet Radio Station
Tamanho: 12 Mb
Formato: Rar
Interface: 10
Facilidade de Uso: 7
Idioma: Inglês
Sinopse:
SAM Broadcaster é um programa profissional e com recursos avançados para a automação de transmissões de áudio na Internet. Oferece todas as ferramentas que um bom DJ necessita, incluindo streaming de áudio no formato MP3, WMA, suporte a rotação lógica de playlists, microfone, decks dual layer entre outros.

O programa irá trazer a tela do computador, todos os recursos encontrados em um aparelho para DJs, com a vantagem de transmitimos o som pela Internet. Além disto, oferece estatísticas em tempo real dos ouvintes.
Configuração Mínima:
Processador acima de 500Mhz
512 Mhz de Memória RAM
40 Mb espaço em HD



Tweet this!

Classe De Conexão com Banco SqLServer

0 comentários
Esta aula Demonstra uma Classe de Conexão com BANCO DE DADOS... Tanto Para ASP.NET Quanto para VB.NET...


'-------------------------Classe----------------------------


Imports System.Data.SqlClient
Imports System.data


Public Class CldBanco
    Dim StringConexao As String = "Server=Local Onde se encontra o Banco;Database=Nome Do Banco;user id=Usuario Do Banco;pwd=Senha Do Banco"
    Private Function AbreBanco() As SqlConnection

        Dim Conn As New SqlConnection
        With Conn
            .ConnectionString = StringConexao
            .Open()
        End With
        Return Conn
    End Function

    Public Sub ExecutaComando(ByVal strQuery As String)
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
                .ExecuteNonQuery()
            End With

        Catch ex As Exception
            Throw ex
        Finally

            FechaBanco(Conn)
        End Try
    End Sub

    Private Sub FechaBanco(ByVal Conn As SqlConnection)
        If Conn.State = ConnectionState.Open Then
            Conn.Close()
        End If
    End Sub

    Public Function RetornaDataReader(ByVal strQuery As String) As SqlDataReader
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With
            Return cmdComando.ExecuteReader
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function RetornaDataSet(ByVal strQuery As String) As DataSet

        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With

            Dim daAdaptador As New SqlDataAdapter
            Dim dsDataSet As New DataSet
            daAdaptador.SelectCommand = cmdComando
            daAdaptador.Fill(dsDataSet)
            Return dsDataSet
        Catch ex As Exception

            Throw New Exception("Erro na Camada 1: " & ex.Message)
        Finally
            FechaBanco(Conn)
        End Try
    End Function
End Class
Assinar: Postagens