用[3]表示下标,{3}上标
2H⁺ + CO₃^2- = H₂O + CO₂

C + 2CuO ==^△== 2Cu + CO₂

CO₂ =^{2000℃,MnO2,H+}= C + O₂

引用第6楼kangyuhelf2于09-06-24 18:17发表的  :
反应那个==那里上面有条件的话。==就不见了。

废话,那是上标,除非你能写双行

KMnO₄ =^400℃= K₂MnO₄ + MnO₂ + O₂↑

增加上下箭头,摄氏度符号,具体见软件Help
KemiWind.rar 3.79KB RAR 27次下载

引用第11楼yy+sy于09-06-24 19:06发表的  :
VB编的程序就是比较大。。。

我不知道你怎么想的,我觉得你很无聊

引用第13楼warmonkey于09-06-24 19:24发表的  :
11L思维貌似不太对头……大几十kb无所谓，好用才是关键
希望lz增加一个功能，勾上一个复选框后，自动把前不是+号或=的数字全部当做下标。
例如
O2+2H2==点燃==2H2O
识别为O₂+2H₂==点燃==2H₂O

我开始也是这样想的(跟你的一摸一样)。i ll try it...

CaCO₃ + 2HCl = CaCl₂ + H₂O + CO₂↑
增加了自动加下标功能。
KemiWind.rar 5.05KB RAR 18次下载

Private Sub Command1_Click()
Text2.Text = Text1.Text

Text2.Text = Replace(Text2.Text, "<", "↓")
Text2.Text = Replace(Text2.Text, ">", "↑")
Text2.Text = Replace(Text2.Text, "-", "→")
Text2.Text = Replace(Text2.Text, "deg", "℃")

Dim str As String
str = ""
'-------------
If XXXXXXXXXlue = 1 Then
For i = 1 To Len(Text2.Text)
    b = Asc(Mid(Text2.Text, i, 1))
    If i = 1 Then

        str = str + Chr(b)
    Else
        
        c = Asc(Mid(Text2.Text, i - 1, 1))
        If b >= 48 And b <= 57 And ((c > 97 And c < 122) Or (c > 65 And c < 90)) Then
            str = str + "[" + Chr(b) + "]"
        Else

            str = str + Chr(b)
        End If
    End If
Next

Text2.Text = str

End If


'-------------
Text2.Text = Replace(Text2.Text, "[", "_{")
Text2.Text = Replace(Text2.Text, "]", "}")
Text2.Text = Replace(Text2.Text, "{", "^{")
Text2.Text = Replace(Text2.Text, "}", "}")

Text2.Text = Replace(Text2.Text, "<", "[")
Text2.Text = Replace(Text2.Text, ">", "]")


XXXXXXXXtFocus
End Sub

Private Sub Command2_Click()
XXXXXXXXow
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Private Sub Text2_gotfocus()
XXXXXXXXlStart = 0
XXXXXXXXlLength = Len(Text2.Text)
End Sub

LS有EXE么……几辈子没碰爪哇语了

大家好,有bug,又要再来一次

更改了一些键,修复了一些bug
C + O₂ = CO₂, Fe + O₂ → Fe₂O₃,
H⁺ + HCO₃^- = H₂O + CO₂
KemiWind.rar 5.05KB RAR 23次下载

希望论坛能增加PHPWind数学与化学标签,解决这些棘手问题。
2AgN3 = 2Ag + 3N2>

2AgN₃ = 2Ag + 3N₂↑

就可以以这样的方式
[math]\\line,arrow...(something like \\sqrt(5)){something like CaCO₃}[/math]
输入数学公式、化学方程式,这对论坛学术方面的发展是很有好处的

挖个坟。这工具怎么能没有