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

好东西，自己给自己加KCB吧。

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

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

反应那个==那里上面有条件的话。==就不见了。

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

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

这有什么。。。
工程1.rar 3.26KB RAR 26次下载

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

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

大汉。。。
工程1.rar 3.32KB RAR 27次下载

VB编的程序就是比较大。。。

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

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

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

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

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

可能需要：
1. 括号匹配检查
2. 自动复制到剪贴板

建议：
汉化！

哈哈哈。。LS。。支持你

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

好的，我收下了，写的不错，我缺钱，所以只能加一点分了。
最好再有自动复制，而且要是不要点那个按钮也不错。
可以考虑用焦点不在窗口上作为触发转换和复制的条件

玩野无罪
KemiWind.rar 4.79KB RAR 16次下载

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 Check1.Value = 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, ">", "]")


Text2.SetFocus
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

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

Private Sub Text2_gotfocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub

。。。
居然放源码 我还开winhex = =

原来 93 用 winHex 逆向...

....丢一个Java版的上来...........

ChemicalExpConv.zip 3.61KB ZIP 24次下载

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

EXE生成不能(我是在Linux下写的.........)............
不过有了Java Jre的话.....什么系统下都可以用....(本程序在Debian和Windows Server 2003下测试通过)

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

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

2AgN₃ = 2Ag + 3N₂↑

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

嗯，要是能整合在KC里更好。。。

java的就能整合到kc里了，希望虎哥重视

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

我已经写好了，见签名

见论坛顶部=>工具=>化学式转换

我也想做一个    忽忽   等我发布吧。。。

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

CO₂ =^{2000℃,MnO2,H+}= C + O₂
好吧 在看下这是什么编码模式