superdullwolf请进来聊聊

[flyingworm]

superdullwolf，你好：
软件收到了，觉得还有很多待开发的功能。比如说单词的分组，浏览，如果有兴趣，可以把发声部分也做进去。至于词库嘛，算来算去只有33123条，并没有所说的5万条之多，而且除去重复记录以后，只有19085条，所以，只能给20分以资鼓励了。

[yangjinhui]

谢谢

[flyingworm]

不知道你的功夫怎么样，反正觉得是没太多的信心。tts嘛，借个控件就行了。不知道笨狼哪个学校的，再做什么工作？两个小时的工作要人开100分的贴？还是感觉高了。我的可用分一天才加10分。如果有能力，可以做更好的呀？

[flyingworm]

If allow Then
Exit Sub
If Not Rs.AbsolutePosition > Rs.RecordCount - 1 Then
Rs.MoveNext
ShowWord
If allow Then
Exit Sub
If Not Rs.AbsolutePosition < 2 Then
Rs.MovePrevious
ShowWord
MyNum = MyNum + 1
MyNum = MyNum Mod 2
If MyNum Mod 2 = 0 Then
Label3.Visible = True
Label3.Visible = False
If allow Then
Exit Sub
If Not Rs.AbsolutePosition > Rs.RecordCount - 1 Then
Rs(Read) = Rs(Read) + 1
Rs(Unknown) = 0
Rs.Update
Rs.MoveNext
ShowWord
If allow Then
Exit Sub
If Not Rs.EOF Then
Rs(Read) = Rs(Read) + 1
Rs(Unknown) = Rs(Unknown) + 1
Rs.Update
Rs.MoveNext
ShowWord
If Command6.Caption = "开始" Then
GoGoGo
NoNoNo
allow = True
Command6.Caption = "结束"
Command7.Enabled = False
If Option1.Value Then
Read = "read1"
Unknown = "Unknown1"
Read = "read2"
Unknown = "Unknown2"
Select Case Combo2.Text
Case "浏览新词"
SQL = "select * from " & Combo1.Text & " where " & Read & "<1"
MsgInfo = "这些词您全部看过了！请选别的功能"
Case "复习生词"
SQL = "select * from " & Combo1.Text & " where " & Unknown & ">0"
MsgInfo = "您还没有生词！请选别的功能"
Case "重点生词"
SQL = "select * from " & Combo1.Text & " where " & Unknown & ">3"
MsgInfo = "您还没有生词！请选别的功能"
Case "检查熟词"
SQL = "select * from " & Combo1.Text & " where " & Read & ">0 and " & Unknown & "<1"
MsgInfo = "您没有熟悉的词！请选别的功能"
Case "查看全部"
SQL = "select * from " & Combo1.Text
MsgInfo = "没有单词！请检查数据库！"
Rs.Open SQL, Conn, 3, 2
If Rs.RecordCount < 1 Then
MsgBox MsgInfo
NoNoNo
Exit Sub
Rs.MoveFirst
ShowWord
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Caption = "结束"
Label1.Visible = True
Label2.Visible = True
If MyNum Mod 2 = 0 Then
Label3.Visible = True
Label3.Visible = False
Label1.Caption = Rs("English")
Label2.Caption = Rs("type")
Label3.Caption = Rs("chinese")
allow = False
Command6.Caption = "开始"
Command7.Enabled = True
If Rs.State = 1 Then
Rs.Close
MsgInfo = MsgBox("您真的要初试化一切该用户的信息吗？", vbOKCancel, "系统提示")
If MsgInfo = vbcancle Then
Exit Sub
If Option1.Value Then
Read = "read1"
Unknown = "Unknown1"
Read = "read2"
Unknown = "Unknown2"
If Rs.State = 1 Then
Rs.Close
SQL = "select * from " & Combo1.Text
Rs.Open SQL, Conn, 3, 2
Do While Not (Rs.BOF Or Rs.EOF)
Rs(Read) = 0
Rs(Unknown) = 0
Rs.Update
Rs.MoveNext
Rs.Close
MsgBox "已经初始化完毕！"

Select Case KeyCode
Case 100 '左，已会
Command4_Click
Case 104 '上
Command2_Click
Case 102 '右，不会
Command5_Click
Case 98 '下
Command1_Click
Case 101
Command3_Click
DatabaseName = App.Path & "\dic.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dic.mdb;Persist Security Info=False"
'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DatabaseName
Conn.ConnectionString = ConnStr
Conn.Open
除了界面初始化和控制语句的代码，程序都在这里了吧？总共才2200个字符。怎么值100乘N分呀。

[超级大笨狼]

哈哈，我只用了2小时就完成了导库（从文本文件到access）和简易的排除法被单词程序，功能上当然不怎么样，因为我不喜欢用计算机背单词，再好的程序也没用，我也没仔细设计。不过以后也许会开发出连我自己都喜欢用的东东。给20无所谓鼓励，我是先发给你的，有很多人都没给分先发的，3万单词如果你都认识，那么就是牛人了，普通硕士研究生毕业也就1万多吧，我现在估计有8000多词汇量，不过大多数都是认识但是写不出。
我近来活跃！我发帖子有争议！
谁要我做的英汉三万单词词库？还有我做的排除法背单词程序附VB原代码,词库mdb格式，分大学，托福，GRE，GMAT等，请开贴！
1，在非技术区开贴注明原因，（否则斑竹会干预）告诉你的Email,至少100分，先开贴，然后发，绝不食言！压缩包共1.07兆，我发email费时间的，所以跟贴的人不发，请谅解。
2，欢迎交流用此库做的学英语相关程序！商业用途请著名：
3,注意在csdn留言给我,告诉我你新开帖子的位置，否则我不知道！！

此词库来源于csdn网友superdullwolf(超级大笨狼)
qq:28963147上班时间在线
email:[e-mail]
为感谢www.csdn.net，免费使用！
以下地址已经发放注意查收！
[e-mail]
[e-mail]
[e-mail]

我需要分数！
我计划做发声音朗读呢，不难以前做过好几种TTS朗读，中英文的，但是现在没时间，但是如果发声音就不是绿色的了，要做安装文件！
大家继续开发别的功能吧，我们搞个接力活动怎么样？让csdn，vb版的人都来参与，做一个好的背单词软件，原代码公开！
做程序员象夸父追日
但是天上太阳那么多，追一个还没追上又出来好多！！

[超级大笨狼]

20分太少了吧，我要哭了:..(

[超级大笨狼]

靠！一共20分还只给了18分！还不如免费送给你呢，2200个字符可能一文不值，但是程序不是这么收费的，首先我做了一个导库的小程序，把文本文件灌到数据库里面：加上这些应该有3000个字符了吧？那么平均167个字符换你一分！你个可恶分子，难怪英语学的这么好，其心狡诈也！！
Private Sub Command1_Click()

Dim num As Double
Dim Mystr As String
Dim DatabaseName As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim sql As String
Dim English As String
DatabaseName = App.Path & "\dic.mdb"

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dic.mdb;Persist Security Info=False"
'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & DatabaseName
Conn.ConnectionString = ConnStr
Conn.Open

CommonDialog1.ShowOpen

Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream
Set txtfile = fso.OpenTextFile(CommonDialog1.FileName)
Set fil1 = fso.GetFile(CommonDialog1.FileName)
' 读取文件的内容。
Set ts = fil1.OpenAsTextStream(ForReading)
sql = "select * from 外贸"
Rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If ts.AtEndOfLine Then
MsgBox "结尾"
Else
Do While Not ts.AtEndOfStream

Mystr = Trim(ts.ReadLine)
If Len(Mystr) > 1 Then
myArray = Split(Mystr)

If UBound(myArray) > 1 Then
Rs.AddNew
English = ""
For i = 0 To UBound(myArray) - 2
English = English & myArray(i) & " "
Next
Rs("English") = English
Rs("type") = myArray(UBound(myArray) - 1)
Rs("chinese") = myArray(UBound(myArray))
End If
End If
Loop
End If
Rs.Update

Rs.Close
MsgBox num
ts.Close


'' txtfile.Write ("这是一个测试例子。") ' 写入一行。
' ' 写入一行带有换行符的文本。
'' txtfile.WriteLine ("Testing 1, 2, 3.")
' ' 向文件中写入三个换行符。
'' txtfile.WriteBlankLines (3)
' txtfile.Close

End Sub