How To Doing

2019年4月9日星期二

調色盤ColorV5

Public Class Form1
Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim A As Integer
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label1.Text = TrackBar1.Value
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, 0, 0)
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label2.Text = TrackBar2.Value
PictureBox2.BackColor = Color.FromArgb(0, TrackBar2.Value, 0)
End Sub

Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label3.Text = TrackBar3.Value
PictureBox3.BackColor = Color.FromArgb(0, 0, TrackBar3.Value)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
R = val(InputBox("請輸入紅色", "紅", 128))
G = val(InputBox("請輸入綠色", "綠", 128))
B = val(InputBox("請輸入藍色", "藍", 128))
TrackBar1.Value = R
TrackBar2.Value = G
TrackBar3.Value = B
PictureBox4.BackColor = Color.FromArgb(R, G, B)
Label1.Text = R
PictureBox1.BackColor = Color.FromArgb(R, 0, 0)
Label2.Text = G
PictureBox2.BackColor = Color.FromArgb(0, G, 0)
Label3.Text = B
PictureBox3.BackColor = Color.FromArgb(0, 0, B)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
R = Val(TextBox1.Text)
G = Val(TextBox2.Text)
B = Val(TextBox3.Text)
TrackBar1.Value = R
TrackBar2.Value = G
TrackBar3.Value = B
PictureBox4.BackColor = Color.FromArgb(R, G, B)
Label1.Text = R
PictureBox1.BackColor = Color.FromArgb(R, 0, 0)
Label2.Text = G
PictureBox2.BackColor = Color.FromArgb(0, G, 0)
Label3.Text = B
PictureBox3.BackColor = Color.FromArgb(0, 0, B)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
R = TrackBar1.Value
G = TrackBar2.Value
B = TrackBar3.Value
A = MsgBox("您的色彩有" + " 紅色=" & R & " 綠色=" & G & " 藍色=" & B, MsgBoxStyle.YesNo + MsgBoxStyle.Information, "調色盤")
End Sub
End Class

2019年4月8日星期一

調色盤ColorV4

Public Class Form1
Dim R As Integer
Dim G As Integer
Dim B As Integer
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label1.Text = TrackBar1.Value
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, 0, 0)
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label2.Text = TrackBar2.Value
PictureBox2.BackColor = Color.FromArgb(0, TrackBar2.Value, 0)
End Sub

Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label3.Text = TrackBar3.Value
PictureBox3.BackColor = Color.FromArgb(0, 0, TrackBar3.Value)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
R = val(InputBox("請輸入紅色", "紅", 128))
G = val(InputBox("請輸入綠色", "綠", 128))
B = val(InputBox("請輸入藍色", "藍", 128))
TrackBar1.Value = R
TrackBar2.Value = G
TrackBar3.Value = B
PictureBox4.BackColor = Color.FromArgb(R, G, B)
Label1.Text = R
PictureBox1.BackColor = Color.FromArgb(R, 0, 0)
Label2.Text = G
PictureBox2.BackColor = Color.FromArgb(0, G, 0)
Label3.Text = B
PictureBox3.BackColor = Color.FromArgb(0, 0, B)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
R = Val(TextBox1.Text)
G = Val(TextBox2.Text)
B = Val(TextBox3.Text)
TrackBar1.Value = R
TrackBar2.Value = G
TrackBar3.Value = B
PictureBox4.BackColor = Color.FromArgb(R, G, B)
Label1.Text = R
PictureBox1.BackColor = Color.FromArgb(R, 0, 0)
Label2.Text = G
PictureBox2.BackColor = Color.FromArgb(0, G, 0)
Label3.Text = B
PictureBox3.BackColor = Color.FromArgb(0, 0, B)
End Sub
End Class

調色盤ColorV3

調色盤ColorV2

Public Class Form1
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label1.Text = TrackBar1.Value
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, 0, 0)
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label2.Text = TrackBar2.Value
PictureBox2.BackColor = Color.FromArgb(0, TrackBar2.Value, 0)
End Sub

Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
PictureBox4.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
Label3.Text = TrackBar3.Value
PictureBox3.BackColor = Color.FromArgb(0, 0, TrackBar3.Value)
End Sub
End Class

調色盤ColorV1

Public Class Form1
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
End Sub

Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
PictureBox1.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
End Sub
End Class

2019年3月15日星期五

重點整理

國立西螺農工107學年度第2學期第1次段考科目代號：010
說明：1.選項中可能會有多個符合的答案，請選出相對比較適合的答案才給分。2.請任選50題作答，多答不扣分，共100分。
題組：資料處理
01.電子計算機。
02.資訊。
03.資料。
04.資料處理。
05.計算。

題組：請將下列數目系統轉換為二進制
06.3332(4)。
07.366(8)。
08.FF(16)。
09.222(10)。
10.202(10)。
答案：
(A).＿＿＿＿＿(2)。
(B).＿＿＿＿＿(2)。
(C).＿＿＿＿＿(2)。
(D).＿＿＿＿＿(2)。
(E).＿＿＿＿＿(2)。

題組：請將下列數目系統轉換為四進制
11.1100 0111(2)。
12.271(8)。
13.AD(16)。
14.167(10)。
15.151(10)。
答案：
(A).＿＿＿＿＿ (4)。
(B).＿＿＿＿＿ (4)。
(C).＿＿＿＿＿ (4)。
(D).＿＿＿＿＿ (4)。
(E).＿＿＿＿＿ (4)。

題組：請將下列數目系統轉換為八進制
16.1110 1110(2)。
17.3322(4)。
18.E8(16)。
19.224(10)。
20.218(10)。
答案：
(A).＿＿＿＿＿(8)。
(B).＿＿＿＿＿(8)。
(C).＿＿＿＿＿(8)。
(D).＿＿＿＿＿(8)。
(E).＿＿＿＿＿(8)。

題組：請將下列數目系統轉換為十六進制
21.1010 1111(2)。
22.3233(4)。
23.375(8)。
24.255(10)。
25.195(10)。
答案：
(A).＿＿＿＿＿(16)。
(B).＿＿＿＿＿(16)。
(C).＿＿＿＿＿(16)。
(D).＿＿＿＿＿(16)。
(E).＿＿＿＿＿(16)。

題組：請將下列數目系統轉換為十進制
26.1110 1001(2)。
27.1111 0101(2)。
28.3331(4)。
29.335(8)。
30.D5(16)。
答案：
(A).＿＿＿＿＿(10)。
(B).＿＿＿＿＿(10)。
(C).＿＿＿＿＿(10)。
(D).＿＿＿＿＿(10)。
(E).＿＿＿＿＿(10)。

題組：電腦應用
31.Augmented Reality，AR。
32.Virtual Reality，VR。
33.Digital Home。
34.Artificial Intelligence，AI。
35.Information Appliance，IA。

題組：電腦應用
36.CAI。
37.CAD。
38.CAM。
39.CAE。
40.Distance Learning。

題組：電腦應用
41.Office Automation，OA。
42.Factory Automation，FA。
43.Point of Sale，POS。
44.BarCode。
45.QR Code。

題組：電子商務Electronic Commerce，EC
46. C2C。
47. B2B。
48. G2B。
49. B2C。
50. C2B。

題組：電腦應用
51.GPS。
52.AGPS。
53.RFID。
54.GIS。
55.ETC。

題組：電腦硬體架構
56.喇叭。
57.電源供應器。
58.視訊攝影機。
59.印表機。
60.麥克風。

祝福您
歡喜、健康、幸福
平安、喜樂、感恩

2019年1月3日星期四

國立西螺農工107學年度第1學期第3次段考計算機概論重點整理科目代號：010

國立西螺農工107學年度第1學期第3次段考重點整理科目代號：010 　　科目：計算機概論。班級：__________座號：__________姓名：_________________

說明：1.選項中可能會有多個符合的答案，請選出相對比較適合的答案才給分。2.請任選50題作答，多答不扣分，共100分。

題組：資訊安全的應對策略

SSL。SET。UPS。防毒軟體。防火牆。

題組：位元、位元組、IP

8 bits。32 bits。48 bits。4 bits。128 bits。

題組：網路設備

數據機。網路卡。橋接器。路由器。交換式集線器。

題組：網路設備

閘道器。橋接器。數據機。路由器。中繼器。

題組：資訊安全

電腦病毒。電腦駭客。密碼。電腦怪客。異地備份。

題組：著作權

著作人格權-別名權。
著作人格權-具名權。　　
著作人格權-不具名權。
著作財產權-公開展示權。
著作財產權-重製權。

題組：智慧財產權

著作權。商標權。專利權。營業秘密。積體電路佈局保護法。

題組：自由軟體

自由使用。自由研究。自由修改。自由散布。GPL(General Public License)

題組：通訊協定

UDP。HTTP。IP。FTP。TCP。

題組：創用CC

姓名標示。非商業性。禁止改作。相同方式分享。

題組：軟體授權

廣告軟體。共享軟體。自由軟體。公共財軟體。商業軟體。

題組：類比、數位轉換

取樣。取樣頻率。編碼。數位化。失真。

自由軟體

1、使用的自由

2、研究的自由

3、修改的自由

4、散佈的自由

自由軟體←開放原始碼

自由軟體←有沒有版權？GPL

自由Free ≠ 免費Free

https://zh-tw.libreoffice.org/

https://www.openoffice.org/zh-tw/

　　復原 Ctrl + Z

取消復原 Ctrl + Y

　　剪下 Ctrl + X

　　複製 Ctrl + C

　　貼上 Ctrl + V

　　全選 Ctrl + A

提供演講者，預先安排演講程序

提供聽眾，瞭解演講架構、內容

1.圖片、照片

2.統計圖表

3.表格

4.文字

原則7行、11字

第1頁標題、報告人、日期……

第2頁目錄、摘要

第3頁以后，內容

……

倒數第2頁Q & A

倒數第1頁感謝聆聽、感恩、合十……

祝福您

歡喜、快樂、幸福

平安、喜樂、感恩

訂閱：文章 (Atom)

2019年4月9日 星期二