AJUDA COM FUNÇÃO MATEMATICA

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM FUNÇÃO MATEMATICA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484856 - 08/10/2018 17:04:08

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


galera precisando de uma ajuda

vou tentar explicar aqui oque eu to com dificuldade em fazer
meu sistema ele é para o seguimento de empresa de confecções e bordados

para a parte do bordado existem varias extenções codificado binario onde armazena as coordenadas paras as maquinas.
E para cada extenão existe uma sequincia de bastidor definida por centimetros x y limite

vamos ao exemplo 1

desenhos de extensão PES
são os bastidores
x      y
10x10
16x26
13x18
18x30

meu sistema ja obten todos os dados binarios desse arquivo, oque eu preciso e fazer uma função onde calculo o tamanho do bastidor

exemplo 2
se o desenho for menor que 10x10
então bastidor sugerido seria o
10x10

o problema maior esta aqui nos maiores pega somente os bastidores errados

















#484857 - 08/10/2018 17:10:20

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


 Anexos estao visíveis somente para usuários registrados

onde esta com a seta eu precisaria sugerir um bastidor automaticamente



#484864 - 09/10/2018 10:56:37

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


se < 10 entao 10x10
senao se >=10 E < 18 entao 13x18
senao se >=18 e < 26 entao 16x26
senao se >=26 e < 30 entao 18x30

é isso???

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#484865 - 09/10/2018 11:26:12

PERCIFILHO
MATAO [SP]
Cadast. em:Dezembro/2009


Última edição em 09/10/2018 11:28:50 por PERCIFILHO

Citação:

se < 10 entao 10x10
senao se >=10 E < 18 entao 13x18
senao se >=18 e < 26 entao 16x26
senao se >=26 e < 30 entao 18x30


Também pensei nisso...


____________________________________________________
Você sabe que alguém te ama não pelo que ele fala, mas pelo o que faz.
O amor não sobrevive de teorias.




#484878 - 10/10/2018 07:23:02

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Citação:
:
se < 10 entao 10x10
senao se >=10 E < 18 entao 13x18
senao se >=18 e < 26 entao 16x26
senao se >=26 e < 30 entao 18x30

é isso???


muito obrigado funcionou perfeitamente

Dim x As Integer
Dim y As Integer

x = CInt(Text1)
y = CInt(Text2)
  
If x < 10 Then
Text3 = "10x10"
ElseIf x >= 10 And y < 18 Then
Text3 = "13x18"
ElseIf x >= 18 And y < 26 Then
Text3 = "18x26"
ElseIf x >= 26 And y < 30 Then
Text3 = "18x30"
End If





 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário