2012年5月9日 星期三

【JAVA】Class String compareTo

今天簡單介紹一下JAVA裡面的String類別底下的一個方法
就是compareTo,會想介紹這個方法是因為我一開始只知道
這個方法用於比較字串,正確的話就會回傳0,但我不清楚
如果錯誤的話,回傳的值表示什麼意思。

查了一下Java SE 7的API
public int compareTo(String anotherString)
如果字串一樣的話,毫無疑問會回傳0。
但如果不一樣呢,
compareTo會逐一比較兩個字串,
當出現了第一個不一樣的 character 時,
該character位於字串的位置 k,k 也就是 index
則回傳以下結果:
this.charAt(k) - anotherString.charAt(k)

或是比較完比較短的字串仍沒有發現相異的字元時,
則會回傳以下結果:
this.length( ) - anotherString.length( )

舉例而言:
String a = "abc";
String b = "abcde";
String c = "abcF";
System.out.println(a.compareTo(b));
System.out.println(b.compareTo(a));
System.out.println(c.compareTo(a));
System.out.println(c.compareTo(b));
System.out.println(c.charAt(3)-b.charAt(3));
執行結果:









首先 a.compareTo(b) 會回傳 a.length( ) - b.length( ) 所以 3 - 5 = -2
同理可推 b.compareTo(a) 則回傳 b.length( ) - a.length( ) 回傳 2
c.compareTo(a) 則是 c.length( ) - a.length( ) 所以 4 - 3 = 1
c.compareTo(b) 因為第一個相異的字元的index為3
所以會回傳 c.charAt(3) - b.charAt(3) = -30
至於-30怎麼來的,
上網查了一下應該是轉成Unicode之後的計算結果。

2012年5月7日 星期一

【VBA】Excel亂數分配名單的演算法

接前一篇Excel隨機分配名單,這篇想講一下亂數分配名單的演算法。

這段程式碼我放在"Module1"模組裡面
第一個For迴圈把原始修課名單複製到第四張工作表
第二個For迴圈則進行亂數分配名單
演算法的部分非常簡單
使用變數 i  來記錄第幾位學生( i 會遞增)
使用變數randNum 來取得修課人數之間的一個隨機整數
然後就把第 i 位學生與第randNum位學生做交換
For   迴圈只進行三分之一修課人數的次數

Sub 亂數工作表()
  Dim TempNumber As Long
  Dim TempName As String

  For i = 1 To UserForm1.CountPeople + 1
    Sheets(4).Cells(i, 1) = Sheets(1).Cells(i, 1)
    Sheets(4).Cells(i, 2) = Sheets(1).Cells(i, 2)
  Next

  For i = 2 To UserForm1.CountPeople / 3
    Randomize randNum = Int(Rnd * (UserForm1.CountPeople)) + 2
    TempNumber = Sheets(4).Cells(i, 1)
    TempName = Sheets(4).Cells(i, 2)
    Sheets(4).Cells(i, 1) = Sheets(4).Cells(randNum, 1)
    Sheets(4).Cells(i, 2) = Sheets(4).Cells(randNum, 2)
    Sheets(4).Cells(randNum, 1) = TempNumber
    Sheets(4).Cells(randNum, 2) = TempName
  Next
End Sub

這段演算法我學習使用VBA的Rnd 方法來幫助我取隨機數
簡單介紹一下這個方法
Int ((upperbound - lowerbound + 1) * Rnd + lowerbound)
upperbound顧名思義就是範圍的上限
lowerbound 顧名思義就是範圍的下限
舉例而言
Int ((6 - 1 + 1) * Rnd + 1) 就會回傳給我們1~6之間的整數

或是也可以這樣理解
Int(Rnd * range) + InitialValue
也就是說,回傳從InitialValue值開始落在range範圍的一個數
例如:
Int(Rnd * 501) + 200那就會回傳給我們200~700之間的整數
200就是起始值,而200~700之間剛好共501個整數(包含200跟700) 

最後補充幾個VBA的基礎控制流程跟迴圈
1.If-Then
If 條件 Then
   敘述
End If

2.If-Then-Else
If 條件 Then
   敘述
ElseIf 條件
   敘述
End If

3.If-Then-ElseIf-Else
If 條件 Then
   敘述
ElseIf 條件
   敘述
ElseIf 條件
   敘述
Else
   敘述
End If

4.Do While ...Loop
Do While 條件
   敘述
Loop

5.Do  ...Loop While
Do
   敘述
Loop While 條件

6.For ... Next
For  數值變數=初始值 To 終止值 [Step增量]
   敘述
Next [數值變數]
* [Statements]表示可以省略!

7.跳離指令
Exit Do:強制離開Do Loop迴圈
Exit For:強制離開For Loop迴圈
Exit Sub:強制跳離Sub程序








2012年5月4日 星期五

【VBA】Excel隨機分配名單

主要是因為當TA的關係,
期中考的時候總是要將修課學生亂數名單分配,
還要分配座位表,實在很麻煩,
所以就想寫個小程式讓Excel自動化完成名單分配還有分配座位表。
但因為目前實際上修課126人,所以只要使用兩間教室就夠用。
因此設計的程式也是以兩間教室為準。

Excel工作表介紹
Sheets(1):一開始的修課名單,第一欄是學號,第二欄是姓名
Sheets(2):第一間教室名單 ←VBA程式自動產生
Sheets(3):第二間教室名單 ←VBA程式自動產生
Sheets(4):根據第一個工作表亂數產生的名單,接下來也用來分配座位表。

Private Sub CommandButton1_Click()
    ClassRoomOne = TextBox1.Text //第一間教室名稱
    ClassRoomTwo = TextBox2.Text //第二間教室名稱
    RoomOnePeople = TextBox3.Text //第一間教室人數
    CountPeople = TextBox4.Text //修課人數
 
    Module1.初始化巨集
    Module1.亂數工作表 //把名單先複製到新的工作表,然後亂數排序新工作表的名單
 
    //把亂數過後的名單依據第一間教室人數複製到該教室名單的工作表
    For i = 2 To RoomOnePeople + 1
    Sheets(2).Cells(i, 1) = Sheets(4).Cells(i, 1)
    Sheets(2).Cells(i, 2) = Sheets(4).Cells(i, 2)
    Next
    //把亂數的名單按照學號由小到大重新排列,若要由大至小排列則把最後的1改成2即可
    Sheets(2).Range("A2", "B" & RoomOnePeople + 1).Sort Sheets(2).Range("A1"), 1
    Sheets(2).Range("A1", "B" & RoomOnePeople + 1).Borders.LineStyle = 1 //畫上框線
 
    //把剩餘的名單複製到第二間教室名單的工作表
    For i = RoomOnePeople + 2 To CountPeople + 1
    Sheets(3).Cells(i - RoomOnePeople, 1) = Sheets(4).Cells(i, 1)
    Sheets(3).Cells(i - RoomOnePeople, 2) = Sheets(4).Cells(i, 2)
    Next
    //把亂數的名單按照學號由小到大重新排列
    Sheets(3).Range("A2", "B" & CountPeople - RoomOnePeople + 1).Sort Sheets(3).Range("A1"), 1
    Sheets(3).Range("A1", "B" & CountPeople - RoomOnePeople + 1).Borders.LineStyle = 1
End Sub

然後我建了一個UserForm以及四個TextBox來接收使用者輸入的參數
還有一個CommandButton來讓使用者按下之後開始亂數分配教室名單
程式執行完成後,就會有兩張工作表來儲存兩間亂數過後的教室名單。
至於 Module1.亂數工作表的演算法部分,我打算另寫一篇文章來介紹^_^