昀淡風青: 學校&上課

顯示具有 學校&上課 標籤的文章。顯示所有文章

2017年3月13日星期一

2016年6月8日星期三

UCINET 社會網路分析工具 / 教學 / 使用

最近上課有上到UCINET 所以有時間的時候把它練習一下且做了筆記

軟體下載處 https://sites.google.com/site/ucinetsoftware/downloads

一、匯入EXCEL檔案成 ##h

使用上大多都會用EXCEL輸入資料,但是UCINET有專門的檔案形式所以要把檔案存成 ##h

2015年1月13日星期二

資料庫Access上課複習題目

1. 新增一個巨集,可以預覽列印客戶資料表.

2. 新增一個查詢,可以輸入產品名稱查詢產品資料.
準則：Like "*" & [請輸入產品名稱] & "*"

3. 新增一個個人表單,加入喜愛的圖片當背景,並新增二個按鈕,分別可以開啟第 1、2 題答案.

4. 在此個人表單中,新增關閉表單按鈕.

5. 新增一個客戶資料報表,及一個產品資料報表.

檢查:

詳解:

2014年11月8日星期六

資料庫應用上課複習題目

1. 利用Access建立一個”客戶資料表”,包含以下欄位:

§客戶編號(文字,10)(主索引鍵)

§客戶名稱(文字,200)

§客戶電話(文字,12)

§客戶地址(備忘)

將excel裡的客戶資料匯入客戶資料表

說明=空白資料庫 >檢視 >檔名客戶資料表 > 識別碼右鍵刪除列 >

打入欄位 >建立主索引 >儲存

Microsoft Excel 2010 = Microsoft Excel 2013

文字簡短文字

備忘長文字

2.新增一查詢,查詢姓孫的客戶名稱所有資料

說明=反白孫 >選取項目開始於孫>進階篩選>點全部欄位>儲存

3.利用表單精靈新增一表格式表單,包含客戶資料表所有欄位

說明=建立 >表單精靈 >所有欄位 >表格式

4.利用報表精靈新增一單欄式報表,包含客戶編號.客戶名稱,客戶電話三個欄位

說明=報表精靈 >客戶編號.客戶名稱,客戶電話三個欄位 >有無排序都可題目沒要求>單欄式

5. 再新增一”客戶訂單資料表”, 包含以下欄位:

§訂單編號(文字,10)(主索引鍵)

§客戶編號(文字,10)

§訂單數量(數字)

§訂單金額(數字)

說明=建立 >資料表 > 下步驟同第一題(略)

6.建立客戶及客戶訂單二資料表的資料庫關聯圖.

§以客戶編號

§勾選強迫參考完整性

說明=資料庫工具 >資料表關聯圖 >顯示資料表>CTRL 點選兩個 >客戶編號拉到客戶編號

> 勾強迫參考完整性 >建立

2014年10月30日星期四

103電腦硬體裝修術科_程式

繼上次的 103電腦硬體裝修術科_元件配置 http://jktt5230qq.blogspot.tw/2014/10/103.html

以下為程式部份

1.對Form1,Button1,Button2,Button3,Timer 點兩下就可以寫程式,上面部分就不用打,自己會產生

2.打入程式後 USBHID 下面會出現毛毛蟲代表尚未把 USBHID.dll加入參考

3.加入步驟= 專案 >加入參考 >com >USBHID

4.加入後就沒有毛毛蟲了

4.最後按下 開始偵錯 就可以插入板子開始測了

程式如下

Imports Microsoft.VisualBasic.PowerPacks
Imports USBHID

Public Class Form1
Dim usbHID As New HID
Dim send(8) As Byte
Dim A, B(99), c
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
B(0) = 1
B(1) = 2
B(2) = 4
B(3) = 8
B(4) = 16
B(5) = 32
B(6) = 64
B(7) = 128

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
A = 1
c = 0

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
A = 2
c = 0
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
A = 3

End Sub

Private Sub display(ByVal no)
For i = 0 To 7
If no Mod 2 = 1 And A = 1 Then GLED(i).FillColor = Color.LightGreen
If no Mod 2 = 1 And A = 2 Then RLED(i).FillColor = Color.Red
no = no \ 2
Next i
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = "Current Time:" & TimeOfDay()
For i = 0 To 7
GLED(i).FillColor = Color.White
RLED(i).FillColor = Color.White
Next
If usbHID.OpenHIDDevice(&H1234, &H6789) Then
For i = 0 To 7
GLED(i).FillColor = Color.DarkGreen
RLED(i).FillColor = Color.DarkRed

Next i
send(0) = 0
send(1) = 0
usbHID.HIDSetReport(send)
send(0) = 0
send(1) = 16
usbHID.HIDSetReport(send)
If A = 2 And c <= 7 Then
send(0) = 2 ^ c
send(1) = 32
usbHID.HIDSetReport(send)
send(0) = 2 ^ c
send(1) = 48
usbHID.HIDSetReport(send)
display(2 ^ c)
Else
display(0)

End If
If A = 1 Then
send(0) = B(c)
send(1) = 0
usbHID.HIDSetReport(send)
display(B(c))
End If
End If
If A = 3 Then usbHID.CloseHIDDevice() : End
If c > 15 Then c = 15 Else c = c + 1
End Sub

End Class

2014年10月24日星期五

103電腦硬體裝修術科_工具配置

上課時老師步驟講的有點快所以很多同學來不及記上步驟

關於軟體除了老師給的也可以參考這篇

學校有的軟體資源 http://jktt5230qq.blogspot.tw/2014/06/blog-post_15.html

需要用到的元件跟要改的屬性

需要用到的元件: 1.TextBox 2.Button 3.Timer 4.OvalShape

需要改的屬性:

(一) From1的

Text :電腦硬體裝修乙級第N題

(二) OvalShap的

FillStyle: soid

(三)TextBox1

TextAlign: Center

(四)Timer

Enabled: Ture

Interval: 1000

(五) Button

Button1

Text: 綠燈

Button2

Text: 紅燈

Button3

Text: 離開

1.一開始要先cmd C槽下的 USBHID.dll檔

教室試放在C槽電腦硬體裝修資料夾內所以

開始 >搜尋打上 cmd >右鍵 以系統管理員身分執行

再打上

cd C:\電腦硬體裝修 (或打 cd c:\電 Tab) 打Tab會自動選字

regsvr32 USBHID.dll

2.開啟Microsoft Visual Studio 2010 >新增 >專案 >windows Form

3.加入模組 WindowsApplication1右鍵 > 加入 >新增項目 >模組

Imports Microsoft.VisualBasic.PowerPacks

Module Module1

Public Function GLED(ByVal i As Integer) As OvalShape

GLED = Form1.ShapeContainer1.Shapes(i + 8)

End Function

Public Function RLED(ByVal i As Integer) As OvalShape

RLED = Form1.ShapeContainer1.Shapes(i)

End Function

End Module

繼續程式部份請參考此篇 103電腦硬體裝修術科_程式 http://jktt5230qq.blogspot.tw/2014/10/103_29.html

2014年3月17日星期一

ASP.NET 亂數 Random

亂數 Random

------------------------------------------------------------------------------------------------------------

protected void Button1_Click(object sender, EventArgs e)

{

Random a = new Random(); //產生新的隨機a

int x; //定義一個變數讓產生的亂數可以放進去

x = a.Next(1, 11); //亂數範圍是1~10

Label1.Text = Convert.ToString(x); //轉換型別為字串

//Label1.Text=x.ToString(); //或用這個方法傳換型別

}

------------------------------------------------------------------------------------------------------------

ASP.NET .Focus() 焦點

寫在 Page_Load 網頁一開始就會執行

------------------------------------------------------------------------------------------------------------

protected void Page_Load(object sender, EventArgs e)

{

TextBox1.Focus(); //網頁一執行鼠標就會在TextBox1

}

------------------------------------------------------------------------------------------------------------

2014年3月13日星期四

ASP.NET 留言板顯示多行

在練習課本上留言版的那篇例題遇到了一些需要注意的地方

1.如果沒有改成 MultLine 就沒有辦法顯示多行

2.一開始覺得"&nbsp；"的逗號在括號裡面所以不加應該也無所謂,

所以就把逗號刪掉執行一次,然後一樣有空白,

可是當後來空白一多時就會出問題

雖然不加他還是會讓你執行,不過還是要加上去

------------------------------------------------------------------------------------------------------------
protected void Button1_Click(object sender, EventArgs e)
{
string a;
a = TextBox1.Text; //先把a設成TextBox1.Text之後就可以直接用a
a = a.Replace(" ", " ");//如果 沒有加逗號其他空白他會無法識別
a = a.Replace("\n", "<br>");//剛剛有設成TextBox1.Text所以可以直接用a
a = "[" + DateTime.Now.ToString() + "]<br>" + a;
//Label1.Text = "<hr>" + a + Label1.Text; //這樣寫的話就是新的留言在上面
Label1.Text = Label1.Text+a+"<hr>";//新的留言在下面
TextBox1.Text = ""; //清空留言
}

------------------------------------------------------------------------------------------------------------