公告版位
星落的瞬間!放棄的後悔是永遠!

目前分類:VB6 (20)

瀏覽方式: 標題列表 簡短摘要
  • 這是一篇限定好友觀看的文章,若您為好友請先登入才可閱讀

引用自:http://bbs.wefong.com/viewthread.php?tid=1954539&extra=page%3D1
看到微風的一個好文, 但沒有格式太難看了,所以我幫忙改了一下,sorry喔~
據crabmarss說有原版有兩個錯誤,
1、對於檔案或字串大小在64n+56(n為含0的整數)時會產生計算錯誤
2、對於檔案大小在64倍數時,會少計算一段64節內容

Robert M. Hubley 12/1999原創

crabmarss 2009/04/14修改

 

Option Explicit'/******************************************************************************
' * Copyright (C) 2000 by Robert Hubley. *
' * All rights reserved. *

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(1) 人氣()

遞迴解(參考W.J.S.大大的)

Dim F As Long

Private Sub Form_Load()

    Dim A() As String, I As Integer, S As String

    S = "1234"

    For I = 1 To Len(S)

        ReDim Preserve A(I) : A(I) = Mid(S, I, 1)

    Next

    F = FreeFile

    Open "C:\Test.txt" For Output As #F

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(2) 人氣()

Problem5:糊塗情報員(16%)

有一位間諜,依他所屬情報單位要求編碼的方式,將他所收集到情報全部編成數字碼。但他認為這樣還是不夠安全,

因此他再將這些數字字串,隨意切割成好幾個整數,然後將每個整數用一個數學算式來表示。這些算式只用了加、減、

乘三種運算子,而且每個運算元都是正整數。最後,他為了讓他自己更為心安,他將整個密碼分成兩本密碼簿儲存。密

碼本A 存放這些數學算式,但他將算式內的所有括號全部拿掉,然後再將這些拿掉的括號資訊記錄在密碼本B 裡面。

過了不久,這個間諜發現他把密碼本B 弄丟了,再加上他的記憶力不好,很多情報內容根本記不得,所以現在沒了

密碼本B 幾乎束手無策。在不得已的情況下,他的情報單位派了幾位心理與腦神經專家詢問他,希望能喚起他腦海內的

記憶。這些專家試了好幾天,用盡各種辦法後,終於承認他的記憶力果真很差,怎麼也問不出情報內容。倒是心理學專

家有一發現,即這位情報員在寫密碼算式時,傾向於將括號加在那些會讓算式得最大值的位置。例如5*7+2 這個算式,

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()


題目:鍵盤輸入一個自然數K(K>1),若存在自然數M和N(M>N),使得K^M 和 K^N 均大於或等於1000,且它們的末三尾數相等,則M和N是
一對”K尾相等數"。請邊一程序,輸出M+N值最小的K尾相等數。
首先以25來看
25 *25 = 625
625 * 25 = 15625 總共是三次方  由這邊看 可以知道M = 3
15625 * 25 = 390625 這邊的話可以知道 n = 4
m + n = 7
測試1:輸入 25 輸出7
測試2:輸入125 輸出 6

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(1) 人氣()

Sourse code:  http://down.gogobox.com.tw/t2329175/jq6q2
會做這個是因為我的陳以熙老師,
在幫汽車科寫電子學教材,但怕被人編輯,
所以問我看看能不能combine VB with Power Point ,
It's can try. And my VB is better than him,
So he please me to solve the problem.
That is the case's bron  reason.

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

教學影片:http://down.gogobox.com.tw/t2329175/lk3q2
因為原始檔的ppt不可以放出來,所以晚點我再做一個原始碼的檔案!
請參考下一篇:http://blog.pixnet.net/damody/post/20741599

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/oq2m2
用了一些簡單的小技巧,發現不能用公式做。


原始碼:

Dim x As Double, flag As Boolean

Private Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)
For i = 0 To 1E+18 Step 0.05

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/tq2m2
這是題目:
 

答案的圖片:

原始碼就不貼了,因為要兩個視窗,與許多物件,
貼了大家也看不懂!原始檔有詳細註解。
花了一個半小時做的,沒想到我的程度已經弱到這樣了 ><|||(汗

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()


原始碼:http://down.gogobox.com.tw/t2329175/qq2m2
用VB6做的簡易播放器,
有OLE的功能。
程式碼:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(1) 人氣()



原始碼:http://down.gogobox.com.tw/t2329175/3u2m2
這是我之前為推甄而做的專題,
參考了資料結構使用VB6(楊正宏著)
http://www.opentech.com.tw/search/bookinfo.asp?isbn=9572144480
另外程式碼太長不便放上。

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(2) 人氣()

電腦沒設定AI!


原始碼:http://down.gogobox.com.tw/t2329175/pq2m2
程式碼:

'假裝有宣告
Dim MyX As Integer, MyY As Integer, Host As Boolean, Num As Integer
Dim Game(3, 3) As Integer, MDown As Boolean

Private Sub Form_Activate()         '傳說中的主程式拜託不要看不懂!
MsgBox "玩家是O,電腦是X", 15, ""

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()


http://down.gogobox.com.tw/t2329175/m81g2
說明檔 4.7M
http://down.gogobox.com.tw/t2329175/4u2m2
原始碼
http://down.gogobox.com.tw/t2329175/u88g2
流程圖

程式碼太長不便放上。


讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()


原始碼:http://down.gogobox.com.tw/t2329175/uq2m2

Private Sub Command1_Click()
P1.Cls
P1.Visible = True
P1.Print "       計算中"
DoEvents
Dim Tmp As String
Tmp = "{}" & vbCrLf

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/sq2m2
給定N個正整數。試著利用連接字串的方式去排列這N個正整數,使其值最大。

輸入範例:

5 123 124 56 90 9
5 28 285 287 2851 2859
2 25 2523
3 89 898 899

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/rq2m2
可將需要的檔案加入資源檔(VB6增益功能),然後使用 Open 程序匯出至系統目錄。
這是輸出系統DLL的範例。
轉至 wfire 大大的文。
Ex:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
    Dim TempBinary() As Byte
    If Dir(SysDir & "IJL15.DLL") = "" Then '

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

96年全國高級中等學校工科技藝競賽電腦軟體設計第二題,
大家練習看看吧!
原始碼:http://down.gogobox.com.tw/t2329175/yq2m2

Dim Rear As Integer, Front As Integer, Ran As Integer, now As Integer, Qu(48) As Integer, i As Integer

Private Sub Cm3_Click()
End
End Sub
Private Sub Form_Activate()

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/xq2m2
'使用了Commaon Dialog Control 6.0 請設定

'CD1就是Commaon Dialog Control 6.0
Private Sub C1_Click()
CD1.FileName = ""
CD1.ShowOpen
If CD1.FileName <> "" Then
T1 = CD1.FileName
End If

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/vq2m2
Dim key As Long, Target As Long, Rear As Long, i As Long

Private Sub Bu1_Click()
Dim tmp As Long
Dim Num(20) As Long, Numx(20) As Long
La1.Caption = "" '清空結果
DoEvents '釋放控制權
Target = Val(TB1.Text)
If Target > 0 And Target <= 10000000 Then

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()

原始碼:http://down.gogobox.com.tw/t2329175/wq2m2
'質數判斷
Private Sub Form_Load()
Dim Num As Long, f As Boolean
Do
Num = Val(InputBox("請輸入一個要判斷的正整數", ""))
f = True
x = Num \ 2
For i = 2 To x
If (Num Mod i = 0) Then

讓地獄深紅的天亮 發表在 痞客邦 PIXNET 留言(0) 人氣()