Điều khiển thiết bị nhà bằng máy tính

[bxngoc]

Bây giờ hệ thống đã sẵn sàng để chúng ta thưởng thức thành quả lao động. Bạn có thể view video bằng 2 cách: dùng Streaming Media Player hoặc web browser.
Bạn dùng player nếu PC để xem nằm cùng mạng LAN với Media server hoặc qua Internet nếu bạn biết địa chỉ của Media sever và bạn truy cập được vào port 5119 của Media server. Các này đòi hỏi bạn phải cài player sẵn vào PC để xem (đang đi ngoài đường hệ thống báo có trộm, nhảy vào tiệm net download và cài player xong==>chúng đã cao chạy xa bay ). Bấm vào đây để download player. Cách thứ 2 nếu bạn có cài một webserver cùng với Media server thì bạn có thể xem video thông qua trình duyệt web. Bạn click vào đây để download source của trang web về. Giải nén 2 file mycam.htm, localcam.htm và umediaplayer4.js vào thư mục C:\Inetpub\wwwroot. Mở file mycam.htm và edit các dòng sau:

//		o.UseTCP();
//		o.UseMediaServer("bxngoc.homelinux.com:5119");
//		o.UseFile("My home");

Thay bxngoc.homelinux.com thành tên địa chỉ web của bạn

		o.UseHTTP();
		o.UseMediaServer("bxngoc.homelinux.com");
		o.UseLiveAlias("My home");

Thay bxngoc.homelinux.com thành tên địa chỉ web của bạn

Nếu bạn dùng TCP để truy cập video thì bỏ ghi chú 3 dòng trên và ghi chú 3 dòng dưới. Với phương thức này thì truy cập video sẽ nhanh hơn và bớt giật hình. Tuy nhiên bạn phải config ADSL modem cho nó NATP đến port 5119.

Nếu bạn dùng HTTP để truy cập thì ghi chú 3 dòng trên và bỏ ghi chú 3 dòng dưới. Với phương thức này thì video được truy cập bằng HTTP port nên nếu bên ngoài mà đã truy cập được vào webserver của bạn thì đảm bảo là view được video với điều kiện bạn đã cài plugin UHttpProxy.msi cho IIS như nói ở trên.

Bây giờ save file mycam.htm lại và mở trình duyệt lên gõ vào địa chỉ như sau http://domain-name-of-you/mycam.htm (ví dụ: http://bxngoc.homelinux.com/mycam.htm). Bạn phải chú ý điểm này nếu bạn dùng ADSL để làm kết nối webserver thì khi bạn gõ địa chỉ như thế thì nó mở ra trang web để cấu hình của cái modem ADSL chứ không phải trang web của bạn. Vấn đề này được trình bày ở phần cấu hình Dynamic DNS mình không nói lại. Như thế bạn phải nhờ một người nào đó truy cập internet từ nơi khác nối vào thử. Còn trên tại máy tính của bạn thì thử bằng địa chỉ http://localhost/localcam.htm

Trước khi browser của bạn view được video thì nó phải cài thêm một ActiveX đối với IE, và plugin với Firefox, Mozilla. Quá trình cài này tự động và rất nhanh chỉ cần bạn cho phép browser cài.

Giả sử bạn xài Internet Explorer service pack 2 lần đầu tiên bạn view video thì màn hình nó sẽ hiện ra như sau


Bạn click vào dòng chữ màu vàng để IE download file UMediaControl4.cab về và install. Sau đó bạn bấm nút Refresh là có thể coi được video.

[ineede]

to KienVTC:
Gửi cho tớ tài liệu nhé.Email nguyenthephong05@yahoo.com

[ineede]

Chán quá sao tôi upload file mãi không được nhỉ. Tôi có source code và mạch phần cứng để điều khiển thiết bị qua internet mà không cần phải thông qua máy tính. (được xây dựng theo kiểu web server) muốn post mạch nguyên lý lên mà không post được. Ai muốn tài liệu chi tiết thì mail cho tôi. (Đủ để các bạn tự xây dựng một ứng dụng)

.
Cái này của bác hay đấy bác cho em xin email của bác để em liên lạc nhé.

[phanbobo]

toàn ý tưởng hơi cao siêu

[hieulongan03]

bạn KienVTC ơi gửi cho mình tài liệc cái ứng dụng của bạn với nhé
cảm ơn bạn nhiều

[hieulongan03]

bạn KienVTC ơi gửi cho mình tài liệc cái ứng dụng của bạn với nhé
cảm ơn bạn nhiều
email của mình là hieulongan039@gmail.com

[ZOZO]

KienVTC ơi!
Gửi cho mình một bản luôn với nhé!
email cua mình là ducchinhdl247@yahoo.com
cảm ơn bạn nhiều.

[vinhtuan]

ban gui cho ca minh voi nhe!
cam on ban nhieu
Mail: vtuan_t@yahoo.com

[vutricongbka]

Bác bxngoc viết rất tuyệt

[giaosucan]

Hi hi, bác đòi hỏi hơi cao đó! Nhưng không phải ko làm được, khả năng triển khai dk qua mạng Internet là có thật ở VN<đã có đề tài luận văn tốt nghiệp > vấn đề bảo mật mới là chuyện đau đầu! Vả lại, mức độ triển khai cũng chưa đến như bác muốn đâu!

Điều khiển qua mạng internet có việc theo giõi giám sát qua camera IP
http://www.giamsat.com/demo
user:root
pass:vietsens

Ngoài ra còn có đề tài nhà thông minh của 1 nhóm sv BKHN có điều khiển giám sát thiết bị qua Internet

[PHUC]

mình có chuong trình này co thể truyền từng byte xuống VDK nhưng chua nhận lên được,các bạn dùng thử và đóng góp ý kiến nhé
Code cua nó nè

'BackStyle=1-Opque:doi mau cho shape
Dim n As Byte

Private Sub Command1_Click()
If (n And 1) > 0 Then
    n = (n Xor 1)
    Command1.Caption = "OFF"
Else: n = n Or 1
    Command1.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command2_Click()
If (n And 2) > 0 Then
    n = (n Xor 2)
    Command2.Caption = "OFF"
Else: n = n Or 2
    Command2.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command3_Click()
If (n And 4) > 0 Then
    n = (n Xor 4)
    Command3.Caption = "OFF"
Else: n = n Or 4
    Command3.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command4_Click()
If (n And 8) > 0 Then
    n = (n Xor 8)
    Command4.Caption = "OFF"
Else: n = n Or 8
    Command4.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command5_Click()
If (n And 16) > 0 Then
    n = (n Xor 16)
    Command5.Caption = "OFF"
Else: n = n Or 16
    Command5.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command6_Click()
If (n And 32) > 0 Then
    n = (n Xor 32)
    Command6.Caption = "OFF"
Else: n = n Or 32
    Command6.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command7_Click()
If (n And 64) > 0 Then
    n = (n Xor 64)
    Command7.Caption = "OFF"
Else: n = n Or 64
    Command7.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command8_Click()
If (n And 128) > 0 Then
    n = (n Xor 128)
    Command8.Caption = "OFF"
Else: n = n Or 128
    Command8.Caption = "ON"
End If
MSComm1.Output = Chr(n)
End Sub

Private Sub Command9_Click()
n = 0
MSComm1.Output = Chr(n)
End Sub

Private Sub Command10_Click()
n = n + 1
MSComm1.Output = Chr(n)
End Sub
 
Private Sub Command11_Click()
MSComm1.InBufferCount = 0       'xoa bo dem nhan
MSComm1.PortOpen = False
End
End Sub

Private Sub Command12_Click()
    n = n - 1
    MSComm1.Output = Chr(n)
End Sub

Private Sub Form_Load()
With MSComm1
    .Settings = "9600,N,8,1"
    .RThreshold = 1
    .SThreshold = 0
    .InBufferSize = 1024
    .OutBufferSize = 1024
    .InputMode = comInputModeBinary
    .ParityReplace = ""
    .CommPort = 1 ' using com2
    If .PortOpen = False Then
        .PortOpen = True
    End If
End With
MSComm1.InputLen = 0
    n = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.InBufferCount = 0       'xoa bo dem nhan
MSComm1.PortOpen = False
End Sub


Private Sub Timer1_Timer()
'If n < 255 Then n = n + 1 Else n = 0
Text1.Text = Hex(n)
Text3.Text = n
If (n And 1) > 0 Then Shape1(1).BackColor = &HFF Else Shape1(1).BackColor = &H80FF80
If (n And 2) > 0 Then Shape1(2).BackColor = &HFF Else Shape1(2).BackColor = &H80FF80
If (n And 4) > 0 Then Shape1(3).BackColor = &HFF Else Shape1(3).BackColor = &H80FF80
If (n And 8) > 0 Then Shape1(4).BackColor = &HFF Else Shape1(4).BackColor = &H80FF80
If (n And 16) > 0 Then Shape1(5).BackColor = &HFF Else Shape1(5).BackColor = &H80FF80
If (n And 32) > 0 Then Shape1(6).BackColor = &HFF Else Shape1(6).BackColor = &H80FF80
If (n And 64) > 0 Then Shape1(7).BackColor = &HFF Else Shape1(7).BackColor = &H80FF80
If (n And 128) > 0 Then Shape1(8).BackColor = &HFF Else Shape1(8).BackColor = &H80FF80
'MSComm1.Output = Hex(n)
End Sub
	

Private Sub MSComm1_OnComm()
	Dim Buffer As String
	Buffer = MSComm1.Input
	If MSComm1.CommEvent >= comEvReceive Then
	Buffer = MSComm1.Input
	 Text2.Text = Text2.Text + "--" + MSComm1.Input
	End If
End Sub

[PHUC]

còn file .exe thì mình không biết cách tải lên ,có bạn nào rảnh thì hướng dẫn giùm

[HPECOM]

Còn phần chương trình viết dưới VĐK sao bạn không post luôn?
http://www.diendandientu.com/diendan...17?thread=9051
Cảm biến nhận biết màu: mình giao tiếp AT89C51 với máy tính, truyền nhận ngon lành.

[PHUC]

khong biet minh tai file .exe len co dung khong,cac ban giai nen va dung thu

[PHUC]

còn phần chương trình viết dưới VĐK mình sẽ tải lên sau ,bữa nay quên mang theo,nhưng mình cần là khi nối chân 2 & 3 cổng Com thì chương trình phải nhận được