Ir para conteúdo
Fórum Script Brasil

Justiceira

Membros
  • Total de itens

    44
  • Registro em

  • Última visita

Sobre Justiceira

  • Data de Nascimento 02/01/1986

Perfil

  • Gender
    Female
  • Location
    São Paulo

Justiceira's Achievements

0

Reputação

  1. Justiceira

    Problema em C

    Eu fiz algo meio maluco aqui pra tentar resolver este meu problema inicialmente eu pegaria as resistencias,e voltagens. #include<stdio.h> #include<math.h> int i, j, k, r[7], c[3], v[3]; int linha1, linha2, linha3, i1, i2, i3; main(){ kirchoff1(); kirchoff2(); kirchoff3(); lin1(); system("pause"); return 0; } int kirchoff1(int x[i]){ printf("Primeiro Circuito\n"); for(i=1; i<=3;i++){ printf("Informe R[%d]:",i); scanf("%d", &r[i]); } printf("V[1]:"); scanf("%d", &v[i]); } int kirchoff2(int x[i]){ printf("\nSegundo Circuito\n"); for(j=1; j<=3;j++){ printf("Informe R[%d]:",j); scanf("%d", &r[j]); } printf("V[2]:"); scanf("%d", &v[j]); } int kirchoff3(int x[i]){ printf("\nTerceiro Circuito\n"); for(k=1; k<=3;k++){ printf("Informe R[%d]:",k); scanf("%d", &r[k]); } printf("V[3]:"); scanf("%d", &v[k]); } lin1(){ linha1 = ((r[1]*i1)+((r[2]*i1)-(r[2]*i2))+((r[3]*i1)-(r[3]*i3))- v[1]); printf("Linha1: %d",linha1); return(linha1); } lin2(){ linha2 = ((r[1]*i2)+(r[2]*i2)+((r[3]*i2)-(r[3]*i3))+((r[4]*i2)-(r[4]*i1))-v[2]); return(linha2); } lin3(){ linha3 = ((r[1]*i3)+((r[2]*i3)-(r[2]*i1))+((r[3]*i3)-(r[3]*i2)) - v[3]); return(linha3); } [/codebox] So que no final eu queria que linha 1 por ex: linha1 = ((r[1]*i1)+((r[2]*i1)-(r[2]*i2))+((r[3]*i1)-(r[3]*i3))- v[1]); linha1 = ((6*i1)+((10*i1)-(10*i2))+((4*i1)-(4*i3))- 26); estivesse assim linha1 = ((20*i1)-(10*i2)-(4*i3)) =- 26; pois eu informaria de outra função o restante que é i1,i2,i3 ninguém pode me ajudar??
  2. Ola pessoal estou com um problema de logica para resolver tenho as seguintes linhas 6i1+10(i1-i2)+4(i1-i3)-26=0 5i2+5i2+5(i2-i3)+10(i2-i1)=0 => 6i1 + 10i1 - 10i2 + 4i1 -4i3 -26 = 0 => 5i2 + 5i2 + 5i2 - 5i3 + 10i2 - 10i1 = 0 em cada linha eu possuo um I1,I2 e I3 ,ficando assim depois 20i1-10i2-4i3=26 => 20*i1-10*i2-4*i3=26 -10i1+25i2-5i3=0 => -10*i1+25*i2-5*i3=0 //Ficado assim eu poderei informar os valores de i1 e i2 e i3 e resolverei os sistema => 20 * i1 -10 * i2 - 4 * i3 = 26 => -10 * i1 +25 * i2 - 5 * i3 = 0 queria saber se é possivel isso? queria uma dica
  3. Justiceira

    Problema em C

    Sim no final da execução completa do programa prtendo descobrir as correntes I1,I2 e I3. Primeiro a entrada vai ser digitada da seguinte maneira.. 6i1+10(i1-i2)+4(i1-i3)-26=0 5i2+5i2+5(i2-i3)+10(i2-i1)=0 11i3+4(i3-i1)+5(i3-i2)-7=0 porém terei que por exemplo na linha 1:Saber Quando é O Nº antes de I1 exemplo 6i1 + (10i1 - 10i2) + ( 4i1 - 4i3) - 26 = 0 e no final sei que na linha 1 terei 20i1 porque é como esse I1 fosse X1 na matematica...farei um calculo de sistema linear para encontrar I1 que multiplicara por 20 e os outros da linha pra enfim resultar alguma coisa. E quanto a outra função calcular: É porque isso eu irei retornar para outra função que já vai fazer esse calculo de sistema linear para mim. Mas de qualquer forma vou tentar fazer por aqui e posto o codigo
  4. Justiceira

    Problema em C

    Ola pessoal estou com umproblema para resolver tenho as seguintes linhas 6i1+10(i1-i2)+4(i1-i3)-26=0 5i2+5i2+5(i2-i3)+10(i2-i1)=0 11i3+4(i3-i1)+5(i3-i2)-7=0 em cada linha eu possuo um I1,I2 e I3 ,ficando assim depois 20i1-10i2-4i3=26 => 20*i1-10*i2-4*i3=26 -10i1+25i2-5i3=0 => -10*i1+25*i2-5*i3=0 -4i1-5i2+20i3=7 => -4*i1-5*i2+20*i3=7 So que isso eu resolvi a mão queria fazer em C pensei em criar um vetor de 3 posições que armazena como texto as 3 primeiras linhas. E depois diferenciar atraves da tabela ascii quem é numero e quem é texto.Pois depois disso irei informar i1,i2 e i3 para outra função calcular. alguém poderia me dar umas dicas de como posso construir com vetor ou matriz??
  5. Justiceira

    Chamar método

    Oii pessoal estou com problema para executar este programinha,alguém poderia me dar uma força?? Bom não consigo pegar os resultados e jogar para o procedimento entrar dados o que estou a errar? #define MAX 100 float x[MAX], y[MAX]; int n; void entra_dados(); void RR(); float calcula_soma(float u[MAX], float v[MAX]); void entra_dados(){ int i; printf("Informe o Numero de Pares: "); scanf("%d", &n); for(i = 1; i <= n; i++){ scanf("%f %f", &x[i], &y[i]); printf("X = %.1f Y = %.1f\n", x[i], y[i]); } RR(); } void RR(){ float somax, somax2, somaxy, somay, aux[MAX]; float alfa1, alfa2, num1, den1, soma; int i; for(i = 1; i <= n; i++){ aux[i] = 1; somax = calcula_soma(x, aux);// printf("Somax %d - %1.f\n", i,soma);//coloquei esta linha so para ver o que acontece com os results somay = calcula_soma(y, aux); somax2 = calcula_soma(x, x); somaxy = calcula_soma(x, y); num1 = somaxy - (somax * somay)/n; den1 = somax2 - (somax * somax)/n; alfa1 = num1/den1; alfa2 = (somay - alfa1 * somax)/n; } printf("Phi(x) = ", alfa1, "x + (", alfa2, ")"); } float calcula_soma(float u[MAX],float v[MAX]){ int i; float soma; soma = 0; for(i = 1; i <= n; i++){ soma = (soma + u[i] * v[i]); //printf("Soma %1.f\n", soma);//Esta linha foi colocada para verificar também. } return(soma); } main(){ entra_dados(); } [/codebox]
  6. Rsrsrs...é Kuroi é um nome legal tambem. Mas quanto ao codigo vou testar aqui o que voce sugeriu
  7. Tenho os seguintes botoes em meu formulario,NOVO,EDITAR.Quando clico em novo ele habilita os campos para que eu possa começar a preencher,salvo normalmente,porém depois disso se eu desejo editar algo ele so me retorna Você já esta no Ultimo Registro! e não sai disso. Onde estou errando? Private Sub Cmdnovo_Click() BOTAO NOVO 'habilita alguns botoes TBatividade.AddNew proximo txtcodativ.Text = txtcodativ.Text + 1 habilitarcampos'habilita os campos txtcodativ.SetFocus End Sub [/CODEBOX] [CODEBOX] Private Sub proximo() 'move para o próximo registro TBatividade.MoveLast If TBatividade.EOF = True Then TBatividade.MovePrevious End If txtcodativ.Text = TBatividade("Codatividade") End Sub Private Sub Cmdedit_Click() BOTÃO EDITAR Dim edicao As Variant Dim edita As String If TBatividade.EOF = True And TBatividade.BOF = True Then MsgBox "A Tabela está Vazia!", vbExclamation, "Aviso!" Exit Sub End If On Error GoTo Primeiro edicao = TBatividade.Bookmark TBatividade.Index = "codatividade" edita = InputBox("Informe o Código da Atividade : ", "Localiza") If edita = Empty Then Exit Sub Else TBatividade.Seek "=", edita habilitarbotao End If If Not TBatividade.NoMatch Then 'AQUI FICAM OS TEXTs Else MsgBox "Não localizado", vbExclamation, "Localiza" TBatividade.Bookmark = edicao End If Exit Sub Primeiro: If Err.Number = 3021 Then MsgBox "Você já esta no Ultimo Registro!", vbInformation, "Aviso!!" Exit Sub End If End Sub [/CODEBOX]
  8. Estou usando VB6 e DAO com access Preciso que ao preencher um formulario e for salvar na tabela TBev seja subtraido o valor de um campo de outra tabela TBat. É o seguinte no meu formulario tenho um campo(combobox)que se for escolhido sim deve ser subtraido nos campos total e vagadef e se for escolhido não vai apenas subtrair no campo total é porque no banco de dados access te preenchido alguns dados já e cada registro possui uma quantidade de pessoas q podem participar de determinado atividade exemplo cinema total=13 e vagsadef=5 se for sim ficara cinema total=12 e vagsadef=4 alguém pode me ajudar
  9. é verdade testei funcionou legal Valeu Kuroi
  10. O site é bem interessante parece ter o que eu quero,mas existe algum controle que eu adicione para que isso ocorra mesmo eu colocando o codigo,não iria faltar algum controle??
  11. Tenho o seguinte codigo que queria que me bloqueasse os usuarios sem permissão a certos forms,mas ele me retorna sempre acesso negado 'função de acesso Function VerificarUsuario(ByVal Usua As Long) As String Dim varAcesso As String Dim TBusuario As Recordset Set TBusuario = bancodedados.OpenRecordset("usuario", dbOpenTable) TBusuario.Index = "ID" TBusuario.Seek "=", (Usua) If TBusuario.EOF = False Then varAcesso = TBusuario!Padrão MsgBox varAcesso Else varAcesso = "" End If VerificarUsuario = varAcesso End Function 'Botão que chama o Form3 Private Sub Cmdpart_Click() If varAcesso = "A" Or varAcesso = "F" Then Form3.Show Else MsgBox "Acesso Negado!" End If End Sub 'Botão que chama o Form4 Private Sub Cmdativ_Click() If varAcesso = "A" Then Form4.Show Else MsgBox "Acesso Negado!" End If End Sub 'Botão que chama o Form5 Private Sub Cmdfunc_Click() If varAcesso = "A" Or varAcesso = "F" Then Form5.Show Else MsgBox "Acesso Negado!" End If End Sub 'Botão que chama FORM6 Private Sub Cmdinscri_Click() If varAcesso = "A" Then FormSUE6.Show Else MsgBox "Acesso Negado!" End If End Sub [/codebox] [codebox] Private Sub form_Load() Dim varAcesso As String varAcesso = VerificarUsuario(1) End Sub alguém pode me ajudar nisso
  12. Queria fornecer a meu usuario a possibilidade dele dar zoom no formulario andei pesquisando mas achei somente de redimencionar a tela do computador mas acredito que isso assustaria meu usuario,e ele deixaria de mexer em meu sistema. Este é um projeto que estou criando na faculdade é possivel isso?? alguém tem alguma rotina pronta pra isso com ampliar,normal e reduzir
  13. Quando eu chamo o preencher combobox Eu precisava que na hora do cadastro (um exemplo)tenho um campo forum ,um area do forum e um moderador. E quando fosse clicar na combo forum escolhesse o nome de um existente(porem existem forum que tem moderador em mais areas ou seja esse campo tem repetição no access mas não pode ter no formulario vb. Bom cliquei no primeiro e vamos supor no proximo não filtrou apareceu tudo da coluna area,então escolho hardware e depois clico no combo moderador e escolho um que nem é do forum nem é da area selecionada. Estaria tudo errado,porem disponivel pra eu fazer(ate fiz pra testar). Como posso resolver isso???
  14. Resolveu o erro. Só que continuou do mesmo jeito Eu tenho um outro formulario que cadastra atividades e areas dela entre outras coisas. E pra não ter a tabela vazia eu cadastrei tres instituições só pra não ficar em branco BRADESCO CENTRAL DE TV SBT só essas mas quando clico no comboativ que recupera ela do banco de dados access aparecem assim e as vezes não. BRADESCO BRADESCO CENTRAL DE TV CENTRAL DE TV SBT SBT Não entendo,será sujeira isso??
×
×
  • Criar Novo...