長崎大學推薦

★☆★☆自動產生ISBN碼的VB程式★☆★☆







我想要製作一個可以自動產生ISBN碼的VB2008程式解說請參考鏈接程式要求規格：請點我下載檔案要求格式程式需用MicrosoftVisualBasic2008以上版本撰寫我之前已經看過內文但是小弟目前只會Comboboxchange的部分至於後面的部分小弟我完全不會..所以希望各位高手各位大大幫小弟解惑小弟是真心想要學習希望大大教小弟如何做此習題感謝不盡!!更新:冰封記憶大大GetType(地區)當我打在VB2008的程式碼裡面時出現錯誤型別'System.Type'和'System.Type'的運算子'='未定義。這個原因是因為?該如何修改呢?更新2:可以請乂冰封記憶大大用VB2008或是VB2010製作後整個方案壓縮進資料夾後給我下載嗎?因為我放入程式碼裡面有很多錯誤0.0"還有我想請教另外一點就是有比較簡單的程式碼嗎=口=?因為大大的語法太深奧看不懂QQ"有沒有類似初學者看得比較懂而且寫得出來的程式碼?我現在是高職生Orz更新3:所以我應該在哪裡補充什麼語法上去呢?更新4:因為小弟家也是有VB2010，但是學校要求是要用2008，所以小弟還是必須得用2008來建置方案。請問大大能用2008的寫一次嗎?小弟學校也還沒有上到那麼高深的語法，像是CaseGetType()SelectCaseReadOnly#Region等等許許多多都還沒有上到，有沒有比較初學者的寫法呢?麻煩大大寫一下Orz更新5:初學者的寫法就大概像是條列式，或是暴力法吧呵呵...更新6:大大我已經寫出來了用了很多很多的If構句--但是我想再往上學所以大大可以照你原本的寫給我看呢?更新7:大大我把你的程式碼貼上VB2010後..沒錯程式碼是對的不過呢..可以幫我加上判別嗎?因為會有最高上限可輸入代碼的問題(因為是13碼)如果超出可輸入的值因為沒有限制所以程式會當掉可以加上判斷可以輸入的最高上限值嗎?該怎麼加呢?該加在哪裡呢?大大可以重打一次嗎?重打時順便加上我的問題國際碼是978還有中國的地區碼是7((0.0"謝謝!!





檔案公式都給你了 你失敗在什麼地方? 2011-12-31 02:45:26 補充： Enum 地區 台灣957 = 957 台灣986 = 986 中國81 = 81 中國93 = 93 北韓 = 9946 2011-12-31 02:47:01 補充： 「碁峰為181、全華為21、松崗為22等。中國北京大學出版社為301、北京市的東方出版社為5060。」 Enum 出版社A 碁峰 = 181 全華 = 21 松崗 = 22 中國北京大學 = 301 北京市的東方 = 5060 2011-12-31 02:53:04 補充： sub 生成 dim s$ = "978" select case combo1.selectedindex case 0 s &= 地區.台灣957 case 1 . . select case combo2.selectedindex case 0 s & = 出版社A.碁峰 2011-12-31 02:56:50 補充： dim tmp$ = txt1.text 'check tmp s &= tmp dim b as boolean, sm& for each c as char in s.tochararray() if b then sm += int(c) * 3 '<~ 自行把c 換成int else sm += int(c) 'also! end if b = not b next c 2011-12-31 02:57:12 補充： s &= 10 - (sm mod 10) 2011-12-31 03:00:26 補充： 基本上如此, 地區的修改自己搞定 2012-01-01 04:31:53 補充： http://file.qooza.hk/userfile/8/0/619580/Full_Code.txt 2012-01-01 17:50:20 補充： 那用2010 做的 針對.Net framework 2.0 的話, 錯誤型別 'System.Type' 和 'System.Type' 的運算子 '=' 未定義。 1) select case obj.gettype.tostring case gettype(x).tostring case gettype(y).tostring 2) if obj.gettype is gettype(x).tostring then elseif gettype(y).tostring 2012-01-01 17:56:04 補充： 「這個原因是因為?」 因為.NET 2.0 中 內建的 namespace system calss type 裡面尚未有 shared operator =(byval x as type,byval as type) as boolean shared operator <>(byval x as type,byval as type) as boolean 2012-01-01 22:22:42 補充： Select Case <~ 就是if ... elseif ... elseif..... GetType() <~ 沒啥的, 只是靠訴complier 裡面的是一個system.type ReadOnly <~ 自用的話, 不加也沒所謂, 寫dll class 給別人用才要用到, 防止被亂改出錯誤 #Region <~ 當成是註解也可, 實際只是自用法區, 運行上沒有實際作用 #If DEBUG Then <~ 同上 2012-01-01 22:32:16 補充： Enum 的話地區還可以, 仔細看 地區不同 有不同出版社, 所以 Enum 出版社不是不可, 但變很煩很蠢 或者可以用陣列做, 也會變很煩, 用class 最方便了.. 2012-01-02 00:47:46 補充： 在COMBO2. indexchange 後 ps --> combo1的 id 長度 = 地區.地區表(combo1.selecteditem), combo2 也一樣 把txt.maxlength = 12 - combo1的 id 長度 - combo2 的 id 長度 很多東西要用if check, 只行了斷





公式可以再給一次嗎..sorOrz2011-12-3019:34:34補充：檔案我都看過了!我也很難說清楚就是除了Comboboxchange的部分其他的我都不會Orz2011-12-3122:14:04補充：請問一下冰封大大--->Enum--->sub生成是甚麼意思?還有"地區的修改"是指?2011-12-3123:11:18補充：網址：http://dl.dropbox.com/u/49008901/ISBN國際書碼產生器.rar請冰封大大看一下程式碼是否這樣子打呢?不好意思可以順便讓我看看公式嗎冰封記憶大大思考2011-12-3016:19:24補充：公式不就在檔案中？想必你連檔案都沒看過


以上文章來自奇摩知識家，如有侵犯請留言告知


https://tw.answers.yahoo.com/question/index?qid=20111228000010KK08265

6972F57E1EC16BB7