AJUDA APLICATIVO TIJOLOS
Boa noite, presiso da ajuda da turma pra analizar um aplicativo que estou desenvollvendo para construção civil, mando apenas um [Ô]teste bem simples[Ô] por favor analizem ai e me ajudem, não consigo que o calculo seje executado de forma correta segui uma dica de um dos colegas mas mesmo assim o erro persistia. faço a calculo de um tijolo de base=0,9 centimetros por 0,9 centimentros. grato! segue o arquivo.
bom luiz você quer calcular oque, a quantidade de tijolos em uma determinada área?
Private Sub Command1_Click()
Dim c As Double
[ô] converte centimetros quadrados em mt quadrados.
c = txttamanho.Text
txtm2.Text = (c) / 300
End Sub
Private Sub Command2_Click()
Dim a As Double, b As Double
[ô]calcua area do tijolo
[ô] obs. lembrar que meu tijolo é de base 0,9 por 0,9 centimetros
a = txtbase.Text
b = txtaltura.Text
txttamanho.Text = (a * b)
End Sub
Private Sub Command3_Click()
[ô] calcula tijolos a utilizar
a = txtm2.Text
b = txtquantidade.Text
txtutilizar.Text = (a * b)
End Sub
Dim c As Double
[ô] converte centimetros quadrados em mt quadrados.
c = txttamanho.Text
txtm2.Text = (c) / 300
End Sub
Private Sub Command2_Click()
Dim a As Double, b As Double
[ô]calcua area do tijolo
[ô] obs. lembrar que meu tijolo é de base 0,9 por 0,9 centimetros
a = txtbase.Text
b = txtaltura.Text
txttamanho.Text = (a * b)
End Sub
Private Sub Command3_Click()
[ô] calcula tijolos a utilizar
a = txtm2.Text
b = txtquantidade.Text
txtutilizar.Text = (a * b)
End Sub
tentei mandar o arquivo zipado mas ia nem a pal mandei o fonte mesmo gratos.
Luiz vou perguntar de novo, vcê deseja descobrir quantos tijolos cabem em uma determinada area?
outra coisa é 0,9 centimetros mesmo? pois isso é menos que 1 centimentro.
outra coisa é 0,9 centimetros mesmo? pois isso é menos que 1 centimentro.
ok
MARCELO-TREZE obrigado pela atenção, seguinte 9 centimetros de base por 9 centimetros segue o seguinte poblema: 1 calcular area do tijolo 2 converter em metros quadrados 3 multiplicar pela area da parede 4 obter quantidade de tijolos a utilizar. esse algoritimo ta certo,
mas não consigo fazer o calculo bater com a metragem que eu mesmo fiz nos tijolos aqui em casa. basicamente seria isso. obrigado pela atenção!
MARCELO-TREZE obrigado pela atenção, seguinte 9 centimetros de base por 9 centimetros segue o seguinte poblema: 1 calcular area do tijolo 2 converter em metros quadrados 3 multiplicar pela area da parede 4 obter quantidade de tijolos a utilizar. esse algoritimo ta certo,
mas não consigo fazer o calculo bater com a metragem que eu mesmo fiz nos tijolos aqui em casa. basicamente seria isso. obrigado pela atenção!
Cáculo sem juntas.
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
A = 1 [ô]Constante
B = [Ô]0,09[Ô] [ô] Comprimento
C = [Ô]0,09[Ô] [ô] Altura
D = B * C [ô]Ãrea tijolo
E = A / D [ô]Cálculo número de tijolos
Text1.Text = Format(E, [Ô]#,#0.00[Ô])
End Sub
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
A = 1 [ô]Constante
B = [Ô]0,09[Ô] [ô] Comprimento
C = [Ô]0,09[Ô] [ô] Altura
D = B * C [ô]Ãrea tijolo
E = A / D [ô]Cálculo número de tijolos
Text1.Text = Format(E, [Ô]#,#0.00[Ô])
End Sub
OMAR2011 o calculo pode estar errado, aqui em casa coloquei 6 tijolos na orizontal e 6 tijolos na vertical até chegar um 1 metro
e multiplicando base X altura deu o total de 36 tijolos por metro quadrado numero incompativel com sua marcação!!!!
vamos gente cade os matemáticos de plantão, Valendo um milhão !!!
e multiplicando base X altura deu o total de 36 tijolos por metro quadrado numero incompativel com sua marcação!!!!
vamos gente cade os matemáticos de plantão, Valendo um milhão !!!
E o tamanho do seu tijolo?
Aqui na minha cidade usa muito tijolo de 20 x 20 e 25 x 20
O tamanho do seu tijolo é 0,168.
Tem que medir comprimento e altura,você mediu.
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
A = 1 [ô]Constante
B = [Ô]0,168[Ô] [ô] Comprimento
C = [Ô]0,168[Ô] [ô] Altura
D = B * C [ô]Ãrea tijolo
E = A / D [ô]Cálculo número de tijolos
Text2.Text = Format(E, [Ô]#,#0.00[Ô])
End Sub
Faça o cáculo com tamanho 20 x20 e 25 x 20.
Resultado 20 x 20 = 25 tijolos
Resultado 25 x 20 = 20 tijolos
Aqui na minha cidade usa muito tijolo de 20 x 20 e 25 x 20
O tamanho do seu tijolo é 0,168.
Tem que medir comprimento e altura,você mediu.
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
Dim E As Double
A = 1 [ô]Constante
B = [Ô]0,168[Ô] [ô] Comprimento
C = [Ô]0,168[Ô] [ô] Altura
D = B * C [ô]Ãrea tijolo
E = A / D [ô]Cálculo número de tijolos
Text2.Text = Format(E, [Ô]#,#0.00[Ô])
End Sub
Faça o cáculo com tamanho 20 x20 e 25 x 20.
Resultado 20 x 20 = 25 tijolos
Resultado 25 x 20 = 20 tijolos
eu to achando estranho a medida do seu tijolo, você diz que o tijolo tem 9 cm por 9 cm e com esta medida dentro de um metro caberiam 11 tijolos na largura por 11 tijolos na altura o que dariam o total de 121 tijolos em um metro quadrado, ou seja o calculo acima ainda não levou em consideração o 1 cm de cada lada que sobram.
agora vc diz que em 1 m cabem apenas 6 tijolos, o que me leva a crer que seu tijolo tenha pelo menos 17 cm x 17 cm
a matemática é uma só, levando em consideração que o metro possua 100 cm a formula seria esta
veja
1 / ( altura * largura ) = total de tijolos por metro quadrado
então
1 / ( 0,09 * 0,09) = 123 tijolos por metro quadrado
e
1 / ( 0,17 * 0,17) = 35 tijolos por metro quadrado
entendeu reveja ai suas medidas
agora vc diz que em 1 m cabem apenas 6 tijolos, o que me leva a crer que seu tijolo tenha pelo menos 17 cm x 17 cm
a matemática é uma só, levando em consideração que o metro possua 100 cm a formula seria esta
veja
1 / ( altura * largura ) = total de tijolos por metro quadrado
então
1 / ( 0,09 * 0,09) = 123 tijolos por metro quadrado
e
1 / ( 0,17 * 0,17) = 35 tijolos por metro quadrado
entendeu reveja ai suas medidas
ok MARCELO-TREZE eu estava revendo as medidas na verdade era de 19X19
fiz algumas adaptaçoes no codigo do colega OMAR2011 e consegui pelo menos por enquanto resolver a questão. coloquei alguns tijolos novamente e Deu certo. vou testar no aplicativo de fato e reativo o topico se presisar Grato aos Dois MARCELO-TREZE e OMAR2011 pela atenção já tinha encerrado o tópico reabrir para dar este esclarecimento.
eu estava revendo as medidas na verdade era de 19X19 fiz algumas adaptaçoes no codigo do colega OMAR2011 e consegui pelo menos por enquanto resolver a questão. coloquei alguns tijolos novamente e Deu certo. vou testar no aplicativo de fato e reativo o topico se presisar Grato aos Dois MARCELO-TREZE e OMAR2011 pela atenção já tinha encerrado o tópico reabrir para dar este esclarecimento.
Tópico encerrado , respostas não são mais permitidas