Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > Code ถามหน่อย ค่ะ VB6 มันติดน่ะค่ะ เขียนติดต่อกับ Port 25 คือแบบต่อ port 25 น่ะค่ะ



 

Code ถามหน่อย ค่ะ VB6 มันติดน่ะค่ะ เขียนติดต่อกับ Port 25 คือแบบต่อ port 25 น่ะค่ะ

 



Topic : 032089



โพสกระทู้ ( 116 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
Option Explicit
Pubilc Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
pubilc Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Pubilc Declare Function Portin lib "io.dll" (ByVal Port As Integer) As Byte

Option Explicit
Dim bin As Variant
Dim StopFlag As Boolean

Private Sub cmdAllOff_Click()
PortOut &H378, &H0
End Sub
Private Sub cmdAllOn_Click()
PortOut &H378, &HFF
End Sub

Private Sub cmdD0_Click()
PortOut &H378, &H1
End Sub

Private Sub cmdD1_Click()
PortOut &H378, &H2
End Sub

Private Sub cmdD2_Click()
PortOut &H378, &H4
End Sub

Private Sub cmdD3_Click()
PortOut &H378, &H8
End Sub

Private Sub cmdD4_Click()
PortOut &H378, &H10
End Sub

Private Sub cmdD5_Click()
PortOut &H378, &H20
End Sub

Private Sub cmdD6_Click()
PortOut &H378, &H40
End Sub

Private Sub cmdD7_Click()
PortOut &H378, &H80
End Sub

Private Sub cmdFlash_Click()
Dim N As Integer
StopFlag = False
For N = 0 To 255
PortOut &H378, N
txtFlash = Hex(N)
Sleep 100 ' milliseconds
DoEvents  'Allows text box to be updated
If StopFlag = True Then
    Exit Sub
End If
Next N
End Sub

Private Sub cmdStopFlash_Click()
StopFlag = True
End Sub



Private Sub Form_Load()
StopFlag = False
PortOut &H378, &H0
End Sub

Private Sub Timer1_Timer()
Dim Status As Integer
Dim Data As Integer
Data = PortIn(&H378)
Status = PortIn(&H379)

If Status = &H7F Then
 Image1.Picture = LoadPicture(App.Path & "/flote1.jpg")
Else
  Image1.Picture = LoadPicture(App.Path & "/toGround1.jpg")
End If
'DATA

If Data And &H1 Then
    ShapLED0.BackColor = vbGreen
Else
    ShapLED0.BackColor = vbWhite
End If

If Data And &H2 Then
    ShapLED1.BackColor = vbGreen
Else
    ShapLED1.BackColor = vbWhite
End If

If Data And &H4 Then
    ShapLED2.BackColor = vbGreen
Else
    ShapLED2.BackColor = vbWhite
End If

If Data And &H8 Then
    ShapLED3.BackColor = vbGreen
Else
    ShapLED3.BackColor = vbWhite
End If

If Data And &H10 Then
    ShapLED4.BackColor = vbGreen
Else
    ShapLED4.BackColor = vbWhite
End If

If Data And &H20 Then
    ShapLED5.BackColor = vbGreen
Else
    ShapLED5.BackColor = vbWhite
End If

If Data And &H40 Then
    ShapLED6.BackColor = vbGreen
Else
    ShapLED6.BackColor = vbWhite
End If

If Data And &H80 Then
    ShapLED7.BackColor = vbGreen
Else
    ShapLED7.BackColor = vbWhite
End If


'STATUS
If Status And &H8 Then
    CheckStatus3 = 1
Else
    CheckStatus3 = 0
End If
If Status And &H10 Then
    CheckStatus4 = 1
Else
    CheckStatus4 = 0
End If
If Status And &H20 Then
    CheckStatus5 = 1
Else
    CheckStatus5 = 0
End If
If Status And &H40 Then
    CheckStatus6 = 1
Else
    CheckStatus6 = 0
End If
If Status And &H80 Then
    CheckStatus7 = 1
Else
    CheckStatus7 = 0
End If
End Sub



คือแบบต่อ port 25 น่ะค่ะ



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-09-23 12:35:28 By : krataiss View : 1476 Reply : 3
 

 

No. 1



โพสกระทู้ ( 116 )
บทความ ( 0 )



สถานะออฟไลน์


ส่วนของโมดุลค่ะ

Option Explicit
Pubilc Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
pubilc Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Pubilc Declare Function Portin lib "io.dll" (ByVal Port As Integer) As Byte
อะนเดียวกับด้านบนนะค่ะ






Date : 2009-09-23 12:47:19 By : krataiss
 


 

No. 2



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


ออกวงจรหลอดไฟหรอครับเนี่ย มันติดว่ารัยอะครับ ไม่เคยทำหรอกแต่เคยอ่านพราๆเผื่อช่วยกันหาได้ครับ
Date : 2009-09-23 13:57:52 By : Sek-Artdrinker
 

 

No. 3



โพสกระทู้ ( 1,528 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


นี่ครับ ที่เคยโพสไว้เฝื่อช่วยได้

https://www.thaicreate.com/dotnet/forum/030306.html
Date : 2009-09-23 14:38:33 By : Sek-Artdrinker
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : Code ถามหน่อย ค่ะ VB6 มันติดน่ะค่ะ เขียนติดต่อกับ Port 25 คือแบบต่อ port 25 น่ะค่ะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่