Ir para conteúdo
Fórum Script Brasil

Angus Musashi

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Posts postados por Angus Musashi

  1. Boa tarde

    Pesquisando na internet, achei um curso de SQL Server na CompuClass. alguém conhece os cursos deles? São bons? Quais são as melhores escolas para quem quer aprender SQL?

    Abraço a todos

    Sai fora dessa. CompuClass não se aprende quase nada. Meu chefe pagou um curso pra mim de sql lá e jogou dinheiro no lixo. As aulas são muito rápidas. Não dá tempo nem de você pensar no conteúdo aprendido e já estão passando mais conteúdo.

    Paguei o curso na Green, aí sim aprendi o negócio.

    Caia fora da CompuClass, é um AVISO!

  2. Olá, Senhores(as).

    Peço a gentileza que me tirem uma dúvida. Estou em dúvida entre 2 cursos e não sei qual deles fazer.

    O 1º é Análise e Desenvolvimento de Sistemas

    e

    o 2º é Web Design.

    Haja vista que trabalho atualmente como "faz-tudo", ou seja, sou webmaster e programador .Net(ganhando menos que catador de latinha), estou em dúvida séria sobre qual faculdade fazer.

    Será que alguém pode me dar "uma luz"?

  3. Olá a todos.

    Por favor, tenho uma dúvida interessante.

    Haja vista que sempre programei somente executáveis e poucas vezes precisei fazer bancos, tenho cá minhas dúvidas sobre isto.

    A questão é: - Se eu fizer um programa -em casa- com banco de dados mysql/acces/outro , eu preciso instalar o mysql no computador do cliente também? Porque notei que se o cliente tem acces instalado, basta levar o arquivo .mdb e colocá-lo no diretório correspondente que funciona. Mas e no caso de o banco ser feito em mysql/MS SQL, como fazer? Tenho que instanciar o SQL primeiro, adicionar o banco e - só depois disto - instalar o programa que eu criei?

  4. Olá, senhores!

    Por favor, alguém, pelamor...

    Seguinte, tenho 2 caixas de texto (txt1 & txt2).

    Quando coloco o nº 4 na primeira e o nº 3 na segunda e dou no botão subtrair, o resultado é 1.

    Já se faço o mesmo procedimento , mas clico no botão somar, ele concatena...e o resultado fica 43.

    meu código tá assim:

    ' botão somar_click()
    soma = txt1.text + txt2.text
    msgbox soma
    
    '-------------------
    'Botão subtrair_click()
    subtrair = txt1.text - txt2.text
    msgbox subtrair

    Pra ser sincero eu nunca tinha feito conta com VB, foi a primeira vez que peguei pra fazer um programinha assim. To olhando centenas de outros programas, mas parece que ninguém usa soma até hoje nos programas. O resto dos operadores funciona normalmente.Só dá "pau" com a soma, que está concatenando. Pode tentar aí no seu, vai ver que não estou mentindo.

    Já tentei formatar o textbox, tentei usar função, tentei usar classe...mas até agora, continua concatenando.

  5. Senhores, olá.

    Por favor, alguém poderia de dar uma luz , doar um pingo de informação, uma simples dica ou uma magia sinistra ou um esquema-ninja sobre um probleminha X. Por favor, aceito inclusive gambiarras.

    O probleminha é o seguinte:

    - Quero calcular a média de alguns números. A quantidade de números, é definida na hora da execução. Tenho então, um textbox(txtqtos.text) pro cliente entrar a quantidade de números. Feito isto, é gerado no form(em tempo de execução), um sobre o outro(partindo do ponto top 0 esquerda ,superior do form) , a quantidade de textbox pra que sejam inseridos os números para se calcular a média(numa progressão geométrica de espaços).

    Haja vista que sou ALTAMENTE NOOOBASSO (NOOB MESMO), implementei o seguinte código:

    Private Sub Command4_Click()
        Dim i As Integer
        'Dim TextControl As TextBox
        '    Set TextControl = Me.Controls.Add("VB.Textbox", "TXTNovo" & i)
        For i = 0 To txtqtos.Text
            'Print "TXTNovo" & i
            Me.Controls.Add "VB.TextBox", "TXTNovo" & i
            Me.Controls("TXTNovo" & i).Visible = True
            Me.Controls("TXTNovo" & i).Left = 0
            Dim novo, posicaum As Variant
            novo = (Me.Controls("TXTNovo" & i).Top = i + 480)
            'posicaum = (position.Top + 480)
            
            If Me.Controls("TXTNovo" & i).Top = 0 Then
                
                Me.Controls("TXTNovo" & i).Top = (Me.Controls("TXTNovo" & i).Top) + (Me.Controls("TXTNovo" & i).Top = 480)               ' precisa incrementar este valor
            
            End If
            Me.Controls("TXTNovo" & i).Height = 285
            Me.Controls("TXTNovo" & i).Width = 1215
                
                
            
                
        Next i
    End Sub

    Ou seja, está gerando apenas a primeira textbox e para por aí, não gera outra abaixo dela. Não sei mais o que fazer.

    Se alguém- por favor- tiver uma solução, posso trocar por informações de outras aplicações que fiz, ou ajudar no que eu puder quando necessitar, ou até sair pra jantar(mas sem dar beijo na boca).

×
×
  • Criar Novo...