MSWlogo 程式設計

今天要跟各位介紹的是一套常見於程式設計初學的軟體MSWlogo

不要小看它簡單的介面，它可以畫出來的圖形可是一點都不簡單

以下是軟體載點 MSWlogo

英文版

MSWlogo基本指令

FD 步數

BK 步數

RT 角度

LT 角度

PU

PD

HOME

CLEAN

活動一: 用小海龜畫出一個邊長1oo的正三角形

活動二: 用小海龜畫出一個邊長1oo的正方形

活動三: 畫出一個佛教符號吧

重複結構

重複x次

REPEAT x[ ]

Visual Basic 6 (VB 6) 代數互換

在程式設計中

我們常常遇到的一個情況是需要將兩個代數的值交換

假設我們有一個代數為a,另一個代數為b

要怎麼將他們交換呢

試著寫一隻程式將其交換吧

樣板:

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

Print a

Print b

End Sub

問題解完之後， 輕鬆一下

玩玩這題中提到的倒水杯遊戲吧

solution:

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

Print a

Print b

c = a

a = b

b = c

Print a

Print b

End Sub

PhotoCap 第二講

學會了PhotoCap的基礎運用後

我們可以試著往更多的功能前進

1. 照片濾鏡

使用照片濾淨的功能

我們可以很輕易的做出照片色調的改變(例如黑白照片)

以及一些預設的風格變化

2.修片工具

2-1銳化照片

2-2去除黑班疤痕

3. 大頭照功能

4. 合成

Visual Basic 6 (VB 6) 例題:求因數

1.因數的定義？

2.電腦如何找因數

3.找出某數的所有因數

4.程式偵錯

樣板:

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

N = Val(InputBox("請輸入一個正整數："))

End sub

問題一:

判斷某數是不是五的倍數？

概念: 運用if條件判斷

solution:

Private Sub Form_Activate()

Caption = "求某數是否為5的因數"

N = Val(InputBox("請輸入一個正整數："))

If N Mod 5 = 0 Then

Print "Yes"

Else

Print "NO"

End If

End Sub

問題二:

列出任意數所有的因數

概念: 加入For 迴圈

簡單的For迴圈例子如下:

Private Sub Form_Activate()

Caption = "以for迴圈印出1~n"

n = Val(InputBox("請輸入一個正整數："))

For i = 1 To n

Print i

Next

End Sub

問題三:

列出任意輸入數的所有因數 並顯示因數總合(加上除錯機制)

Private Sub Form_Activate()

Caption = "求因數與所有因數之和"

Do

N = Val(InputBox("請輸入一個正整數："))

If N <= 0 Or N <> Int(N) Then MsgBox "你輸入的不是正整數，請重新輸入！"

Loop Until N > 0 And N = Int(N)

Print "正整數 "; N; " 的因數有："

For i = 1 To N

If N Mod i = 0 Then

Print i; '顯示因數

S = S + i '加總因數

End If

Next

Print '換行用

Print "所有因數之和為 "; S

End Sub

運用概念: 迴圈，條件判斷

Visual Basic 6 (VB 6) 運算符號

VB的運算符號

整理如下

運算符	數學函数	例子
^	指數	2^4=16
*	乘法	4*3=12
/	除法	12/4=3
Mod	整數除除的餘数	15 Mod 4=3
\	整數除法(小數點被去掉）	19\4=4
+ or &	字串串連	"Visual"&"Basic"="Visual Basic"

Visual Basic 6 (VB 6) 條件式與邏輯表示

在程式語言中，邏輯以及條件的表示方式是非常重要的

其中條件式有：

條件式運算子	功能
=	等於
>	大於
<	小於
>=	大於或等於
<=	小於或等於
<>	不等於

可以看出來，除了不等於(<>)之外，其餘的條件式表示法皆與C語言相同

而VB的邏輯運算則有

邏輯運算符	說明
And	兩邊都对
or	只有一邊对
Xor	一邊必須對，但不能兩邊都對
Not	兩邊都不對

Visual Basic 6 (VB 6) For 迴圈

在程式語言中

最常使用的迴圈控制方式非for 迴圈莫屬了

那for迴圈的語法為何呢?

For迴圈的結構如下

For counter=起始值 to 终止值(Step 間隔值)
一或多行的指令行
Next
　

範例

(a) For counter=1 to 10

display.Text=counter

Next

(b) For counter=1 to 1000 step 10

counter=counter+1

Next

(c) For counter=1000 to 5 step -5

counter=counter-10

Next

Visual Basic 6 (VB 6) 例題:放射元素剩餘量

1.    銫-137（英語：Caesium-137，簡稱Cs-137；日語：セシウム137）是元素銫的放射性同位素。主要是經由核分裂生成的核裂產物。銫-137的半衰期約30.17年，就長遠來看，它對人體健康威脅最大。約翰·埃姆斯利（John Emsley）曾在個人著作《大自然的積木（Nature's Building Blocks）》（2001年牛津版）中指出，以銫-137的分解速度，必須100年才能降低至過去1%的水平。

請問若有G公克之同位素銫-137（Cs137）（假設半衰期為30年），

　　(1) 請列印出經過N年後，剩餘的重量為何？（剩餘量＝初始重量G * C^(N/H)

　　　 ，H表放射性同位素之半衰期。C為e^-0.693，e=2.71828）

　　(2) 輸入剩餘重量與初始重量G，求出所要經過的時間？

Visual Basic 6 (VB 6) 第一課

建立一個VB應用程序有三個基本步驟，如下：
第一步：設計界面
第二步：設定物件的屬性
第三步：編寫程式

開啟VB 6之後

第一步必須要開啟一個新的專案

此時就會有一個基本的程式介面 Form1

點擊進去 就會出現編寫程式的介面，顯示如：

Private Sub Form_Load()

End Sub

此時 就可以在上面做設計以及操作

在學習程式語言的時候 通常第一隻程式就是hello world

這樣一支向世界發聲的程式

現在我們就來試試

Private Sub Form_Load()

Form1.Show

Print "Hello world!"

End Sub

執行後的結果

PhotoCap 第一講

在PhotoCap第一堂課裡面，要向大家介紹的是：

1.照片存取

2.照片尺寸調整

3.照片剪裁

當我們拍攝出一張照片的時候，往往會有尺寸上的問題，特別是在要發布到網站上或者貼到文件上的時候，照片尺寸就是一個相當棘手的問題。

那麼在PhotoCap中，我們要如何處理照片的尺寸

在上方的功能選單中，選取"影像" 中的 "影像大小"

輸入你想要的尺寸，就可以依你的要求改變影像的大小

如果你不想改變相片的長寬比例，記得勾選 "強制等比例" 如此一來

相片才會依照等比例調整大小而不至於變型

剪裁的部分呢，我們使用的是 "影像" 中的 "裁切"

要注意一點就是，再裁切之前， 我們應該要先選取一個範圍的影像

才進行裁切的動作。

PhotoCap可以做什麼呢

大家一定會問，那麼這套免費軟體可以作什麼事呢

其實，這套免費軟體的功能比大家想像的都還要厲害
修照片的能力不說，最厲害的事他有很多現成的工具以及模板
輕輕鬆鬆就能夠讓你做出讓人稱羨的作品呢！

以下，就讓我們先看看PhotoCap能夠做到哪些

About PhotoCap

PhotoCap是由國人Johnson Wang自行開發的影像處理軟體，它是一套功能強大、操作容易的免費軟體（可以自由的下載、安裝、使用的軟體）

介面

PhotoCap論壇(內有載點)

避免主站掛掉 這裡另外有軟體載點1 軟體載點2