论坛化学式书写工具【又更新】【源码】
novakon2009/06/24软件综合 IP:广东
【已更新3次,请移步28楼】


界面
a.png
点击

attachment icon KemiWind.rar 3.18KB RAR 35次下载
下载

效果:
Cu(NO3)2 + NaN3 = Cu(N3)2 + NaNO3
+1000  科创币    小光telnet    2009/06/24 赞扬
来自:计算机科学 / 软件综合
38
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
novakon 作者
14年11个月前 IP:未同步
113718
用[3]表示下标,{3}上标
2H+ + CO32- = H2O + CO2
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
14年11个月前 IP:未同步
113722
好东西,自己给自己加KCB吧。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113757
自己顶一下吧
C + 2CuO ==== 2Cu + CO2
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113759

CO2 =2000℃,MnO2,H+= C + O2
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
kangyuhelf2
14年11个月前 IP:未同步
113903
反应那个==那里上面有条件的话。==就不见了。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113904
引用第6楼kangyuhelf2于09-06-24 18:17发表的  :
反应那个==那里上面有条件的话。==就不见了。

废话,那是上标,除非你能写双行
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
yy+sy
14年11个月前 IP:未同步
113928
这有什么。。。
attachment icon 工程1.rar 3.26KB RAR 24次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113950
新版本
a.jpg

KMnO4 =400℃= K2MnO4 + MnO2 + O2

增加上下箭头,摄氏度符号,具体见软件Help
attachment icon KemiWind.rar 3.79KB RAR 27次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
yy+sy
14年11个月前 IP:未同步
113968
大汉。。。
attachment icon 工程1.rar 3.32KB RAR 24次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
yy+sy
14年11个月前 IP:未同步
113969
VB编的程序就是比较大。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113977
引用第11楼yy+sy于09-06-24 19:06发表的  :
VB编的程序就是比较大。。。

我不知道你怎么想的,我觉得你很无聊
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
warmonkey
14年11个月前 IP:未同步
113980
11L思维貌似不太对头……大几十kb无所谓,好用才是关键
希望lz增加一个功能,勾上一个复选框后,自动把前不是+号或=的数字全部当做下标。
例如
O2+2H2==点燃==2H2O
识别为O2+2H2==点燃==2H2O
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
113983
引用第13楼warmonkey于09-06-24 19:24发表的  :
11L思维貌似不太对头……大几十kb无所谓,好用才是关键
希望lz增加一个功能,勾上一个复选框后,自动把前不是+号或=的数字全部当做下标。
例如
O2+2H2==点燃==2H2O
识别为O2+2H2==点燃==2H2O

我开始也是这样想的(跟你的一摸一样)。i ll try it...
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
fw。
14年11个月前 IP:未同步
113986
可能需要:
1. 括号匹配检查
2. 自动复制到剪贴板
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
14年11个月前 IP:未同步
113998
建议:
汉化!
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
kangyuhelf2
14年11个月前 IP:未同步
114006
哈哈哈。。LS。。支持你
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114010
新版本
a.jpg

CaCO3 + 2HCl = CaCl2 + H2O + CO2
增加了自动加下标功能。
attachment icon KemiWind.rar 5.05KB RAR 18次下载
+50
科创币
warmonkey
2009-06-24
好用
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
warmonkey
14年11个月前 IP:未同步
114011
好的,我收下了,写的不错,我缺钱,所以只能加一点分了。
最好再有自动复制,而且要是不要点那个按钮也不错。
可以考虑用焦点不在窗口上作为触发转换和复制的条件
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
14年11个月前 IP:未同步
114031
汉化就免了
玩野无罪
attachment icon KemiWind.rar 4.79KB RAR 12次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114037
近乎弱智的代码
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
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
14年11个月前 IP:未同步
114040
。。。
居然放源码 我还开winhex = =
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
fw。
14年11个月前 IP:未同步
114071
原来 93 用 winHex 逆向...
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
supercat
14年11个月前 IP:未同步
114080
....丢一个Java版的上来...........

attachment icon ChemicalExpConv.zip 3.61KB ZIP 24次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114088
LS有EXE么……几辈子没碰爪哇语了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
supercat
14年11个月前 IP:未同步
114091
EXE生成不能(我是在Linux下写的.........)............
不过有了Java Jre的话.....什么系统下都可以用....(本程序在Debian和Windows Server 2003下测试通过)
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114245
大家好,有bug,又要再来一次
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114247
再再次更新
a.jpg


更改了一些键,修复了一些bug
C + O2 = CO2, Fe + O2 → Fe2O3,
H+ + HCO3- = H2O + CO2
attachment icon KemiWind.rar 5.05KB RAR 23次下载
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114253
希望论坛能增加PHPWind数学与化学标签,解决这些棘手问题。
2AgN3 = 2Ag + 3N2>

2AgN3 = 2Ag + 3N2
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
14年11个月前 IP:未同步
114254
如果增加了数学标签
就可以以这样的方式
[math]\\line,arrow...(something like \\sqrt(5)){something like CaCO3}[/math]
输入数学公式、化学方程式,这对论坛学术方面的发展是很有好处的
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
yy+sy
14年11个月前 IP:未同步
114256
嗯,要是能整合在KC里更好。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
warmonkey
14年11个月前 IP:未同步
114924
java的就能整合到kc里了,希望虎哥重视
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon作者
11年8个月前 IP:未同步
447310
挖个坟。这工具怎么能没有
+1
科创币
celeron533
2012-08-31
直接整合进发帖工具(就像插入图片按钮那样)
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
acmilan
11年8个月前 IP:未同步
447463
回 32楼(novakon) 的帖子
我已经写好了,见签名
+1
科创币
phpskycn
2012-09-01
大神的签名一片空白啊
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
acmilan
11年8个月前 IP:未同步
448230
回 32楼(novakon) 的帖子
见论坛顶部=>工具=>化学式转换
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
kesshei
11年5个月前 IP:未同步
476132
我也想做一个    忽忽   等我发布吧。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
回忆
11年5个月前 IP:未同步
476220
CO2 =2000℃,MnO2,H+= C + O2
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
kesshei
11年5个月前 IP:未同步
476572
CO2 =2000℃,MnO2,H+= C + O2
好吧 在看下这是什么编码模式
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

所属专业
上级专业
同级专业
novakon
学者 机友 笔友
文章
1256
回复
8385
学术分
16
2008/03/29注册,2年2个月前活动

已走,勿送

主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}