Trabalho de Computação Aplicada 2

Prévia do material em texto

Universidade Federal de Pernambuco
Centro de Tecnologia e Geociência
Departamento de Engenharia Química
Curso: Química Industrial
Disciplina: Computação Aplicada
Data: 2014.1
Autor: Marcos Venicius Batista de Souza Castro 
Relatório do Segundo Trabalho Individual
Macro.
Sub marcos()
Const caracts = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÇ(.)"
comp = ActiveCell.Value
form = "="
H2O = "("
i = 0
n = Len(comp)
NEle = ""
sinal = "("
While i < n
i = i + 1
carac = Mid(comp, i, 1)
nn = InStr(caracts, carac)
Select Case nn
Case 1 To 10
form = form & NEle & carac
If H2O = "(" Then
H2O = "*("
Else: NEle = ""
End If
If sinal = "(" Then
sinal = "*("
Else
If sinal <> "*(" Then
sinal = "+"
End If
End If
Case 11 To 37
form = form & sinal & carac
H2O = "+"
NEle = "*"
sinal = "+"
Case 38
form = form & H2O & carac
H2O = ""
NEle = ""
sinal = ""
Case 39
form = form & ")" & sinal
H2O = "*("
NEle = ""
sinal = "("
Case Else
form = form & carac
H2O = "+"
NEle = "*"
sinal = "+"
End Select
Wend
form = form & ")"
ActiveCell.Offset(0, 1).Value = form
ActiveCell.Offset(0, 2).Value = " " & form
ActiveCell.Offset(1, 0).Activate
End Sub
Tabela dos elementos químicos, com a respectiva massa molar.
	Elementos
	Massa Molar (g/mol)
	H
	1,01
	B
	10,81
	Ç
	12,01
	N
	14,01
	O
	16,00
	Na
	23,00
	Mg
	24,31
	Al
	26,98
	Si
	28,09
	P
	30,97
	S
	32,06
	Cl
	35,45
	Ca
	40,08
	Fe
	55,85
Compostos com a massa molar calculada e o conteúdo da expressão.
	Compostos
	Massa Molar (g/mol)
	Conteúdo da expressão
	NH4Fe(SO4)2.10H2O
	446,22
	=(N+H*4+Fe+(S+O*4)*2)+10*(H*2+O)
	Mg(OH)2
	58,33
	 =(Mg+(O+H)*2)
	Na2S2O3.12H2O
	374,36
	 =(Na*2+S*2+O*3)+12*(H*2+O)
	Na2B4O7.10H2O
	381,44
	 =(Na*2+B*4+O*7)+10*(H*2+O)
	Ç10H14N2O8Na2
	336,26
	 =(Ç*10+H*14+N*2+O*8+Na*2)
	AlCl3
	133,33
	 =(Al+Cl*3)
	SiO2
	60,09
	 =(Si+O*2)
	P2O5
	141,94
	 =(P*2+O*5)
	Ca(NO3)2
	164,1
	 =(Ca+(N+O*3)*2)