VB6-com-port abfrage??

  • VB

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • VB6-com-port abfrage??

    Hei ihr leute,

    kann mir vielleicht einer/eine verraten, wie ich einen com-port im VB6 abfragen kann?
    Ich komm einfach nicht drauf, danke schon mal

    mfg saem
    [SIZE="1"]Signatur entsprach den Boardregeln und wurde nicht gelöscht.
    mfg saem[/size]
  • hey saem,

    Ist unter vb 6 kein problem:

    nimmst nit mscomm32.ocx als activx rein, und dann:


    PHP-Quellcode

    1. MSComm1.CommPort = 1
    2. MSComm1.PortOpen = True
    3. // zum senden
    4. MSComm1.Output = "test" & vbCr
    5. // zum empfangen (timer auf 10 gestellt)
    6. Private Sub Timer1_Timer()
    7. On Error Resume Next
    8. c = MSComm1.Input
    9. If c <> "" Then Resume
    10. Text2.Text = Text2.Text & c
    11. End Sub
    Alles anzeigen


    Hoffe dass ich helfen konnte..
    Gruss Sven
  • Hei ja das funzt, echt danke viel mal sven!

    Möglicherweise kannst du mir später mal auch noch helfen!:-D

    Danke echt viel mal nochmal!

    machs gut

    mfg saem

    (mods, kann geclozed werden um unnötiges gespamme zu vermeiden)
    [SIZE="1"]Signatur entsprach den Boardregeln und wurde nicht gelöscht.
    mfg saem[/size]
  • für andere leutz, die das ebenso hinbekommen wollen, aber net so den plan davon haben, hier mal nen auszug:

    Brainfuck-Quellcode

    1. VERSION 5.00
    2. Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
    3. Begin VB.Form COMTest
    4. Caption = "COM Test"
    5. ClientHeight = 4305
    6. ClientLeft = 60
    7. ClientTop = 345
    8. ClientWidth = 4680
    9. Icon = "COMTest.frx":0000
    10. LinkTopic = "Form1"
    11. ScaleHeight = 4305
    12. ScaleWidth = 4680
    13. StartUpPosition = 3 'Windows-Standard
    14. Begin VB.Frame Frame1
    15. Caption = "Datei"
    16. Height = 615
    17. Left = 0
    18. TabIndex = 15
    19. Top = 1920
    20. Width = 2055
    21. Begin VB.Label Label2
    22. Alignment = 2 'Zentriert
    23. Caption = "Label2"
    24. Height = 255
    25. Left = 120
    26. TabIndex = 16
    27. Top = 240
    28. Width = 1815
    29. End
    30. End
    31. Begin VB.FileListBox File1
    32. Height = 1455
    33. Left = 2280
    34. TabIndex = 14
    35. Top = 2640
    36. Width = 2295
    37. End
    38. Begin VB.DirListBox Dir1
    39. Height = 990
    40. Left = 2280
    41. TabIndex = 13
    42. Top = 1560
    43. Width = 2295
    44. End
    45. Begin VB.DriveListBox Drive1
    46. Height = 315
    47. Left = 2280
    48. TabIndex = 12
    49. Top = 1200
    50. Width = 2295
    51. End
    52. Begin VB.ComboBox Combo1
    53. Height = 315
    54. ItemData = "COMTest.frx":0742
    55. Left = 2280
    56. List = "COMTest.frx":0752
    57. TabIndex = 11
    58. Top = 600
    59. Width = 2295
    60. End
    61. Begin VB.OptionButton optRTSEnable
    62. Caption = "RTS Enable"
    63. Height = 255
    64. Left = 120
    65. TabIndex = 10
    66. Top = 1440
    67. Width = 1935
    68. End
    69. Begin VB.TextBox txtKonfig
    70. Height = 285
    71. Left = 2280
    72. TabIndex = 9
    73. Text = "9600,n,8,1"
    74. Top = 360
    75. Width = 2295
    76. End
    77. Begin VB.OptionButton optEOFEnable
    78. Caption = "EOF Enable"
    79. Height = 255
    80. Left = 120
    81. TabIndex = 8
    82. Top = 1200
    83. Width = 1935
    84. End
    85. Begin VB.OptionButton optDTREnable
    86. Caption = "DTR Enable"
    87. Height = 255
    88. Left = 120
    89. TabIndex = 7
    90. Top = 960
    91. Width = 1935
    92. End
    93. Begin VB.CommandButton cmdBeenden
    94. Caption = "&Beenden"
    95. Default = -1 'True
    96. Height = 375
    97. Left = 120
    98. TabIndex = 6
    99. Top = 3600
    100. Width = 1815
    101. End
    102. Begin VB.CommandButton cmdDatuebertragen
    103. Caption = "Datei übertragen"
    104. Height = 375
    105. Left = 120
    106. TabIndex = 5
    107. Top = 3120
    108. Width = 1815
    109. End
    110. Begin VB.CommandButton cmdUebernehmen
    111. Caption = "&Uebernehmen"
    112. Height = 375
    113. Left = 120
    114. TabIndex = 4
    115. Top = 2640
    116. Width = 1815
    117. End
    118. Begin VB.TextBox txtCOM
    119. Height = 285
    120. Left = 2280
    121. TabIndex = 0
    122. Text = "1"
    123. Top = 120
    124. Width = 2295
    125. End
    126. Begin MSCommLib.MSComm MSComm1
    127. Left = 1440
    128. Top = 1080
    129. _ExtentX = 1005
    130. _ExtentY = 1005
    131. _Version = 393216
    132. DTREnable = -1 'True
    133. Handshaking = 3
    134. End
    135. Begin VB.Line Line4
    136. X1 = 2160
    137. X2 = 2160
    138. Y1 = 1800
    139. Y2 = 4080
    140. End
    141. Begin VB.Line Line3
    142. X1 = 2160
    143. X2 = 4440
    144. Y1 = 1080
    145. Y2 = 1080
    146. End
    147. Begin VB.Line Line2
    148. X1 = 2160
    149. X2 = 2160
    150. Y1 = 1800
    151. Y2 = 1080
    152. End
    153. Begin VB.Line Line1
    154. X1 = 0
    155. X2 = 2160
    156. Y1 = 1800
    157. Y2 = 1800
    158. End
    159. Begin VB.Label Label1
    160. Caption = "COM ................................"
    161. Height = 255
    162. Index = 5
    163. Left = 120
    164. TabIndex = 3
    165. Top = 120
    166. Width = 2175
    167. End
    168. Begin VB.Label Label1
    169. Caption = "Konfiguration ..................."
    170. Height = 255
    171. Index = 4
    172. Left = 120
    173. TabIndex = 2
    174. Top = 360
    175. Width = 2175
    176. End
    177. Begin VB.Label Label1
    178. Caption = "Handshaking ..................."
    179. Height = 255
    180. Index = 2
    181. Left = 120
    182. TabIndex = 1
    183. Top = 600
    184. Width = 2175
    185. End
    186. End
    187. Attribute VB_Name = "COMTest"
    188. Attribute VB_GlobalNameSpace = False
    189. Attribute VB_Creatable = False
    190. Attribute VB_PredeclaredId = True
    191. Attribute VB_Exposed = False
    192. '
    193. Dim Datei As String 'Variable zur Dateibehandlung
    194. Dim Daten As String 'Variable für die Datenübertragung
    195. Dim Pfad As String 'Variable für den Dateipfad
    196. Private Sub cmdBeenden_Click()
    197. 'Programm beenden
    198. Unload Me
    199. End Sub
    200. Private Sub cmdDatuebertragen_Click()
    201. Pfad = Dir1.Path & "\" & Label2.Caption 'Dateipfad wird in Variable geschrieben
    202. VB.Screen.MousePointer = vbHourglass ' Mauszeiger wird zur Sanduhr
    203. Open Pfad For Input As #1 'Ausgewählte Datei wird geöffnet
    204. MSComm1.PortOpen = True ' Port wird zur Übertragung geöffnet
    205. Do While Not EOF(1) 'Solange noch Daten vorhanden sind
    206. Line Input #1, Daten 'Daten werde Zeileweise in Variable geschrieben
    207. If Daten = "" Then GoTo FehlerDatenuebertragung 'Fehlerbehandlung
    208. MSComm1.Output = Daten 'Daten werden an Schnittstelle übertragen
    209. Loop
    210. MSComm1.PortOpen = False ' COM-Port wird wieder geschlossen
    211. VB.Screen.MousePointer = vbNormal ' Mauszeiger wird wieder Normal
    212. MsgBox "Datei " & Pfad & " an COM" & MSComm1.CommPort & " übertragen!", vbOKOnly
    213. Exit Sub
    214. FehlerDatenuebertragung: 'Datenübertragungsfehler
    215. MSComm1.PortOpen = False ' COM-Port wird wieder geschlossen
    216. VB.Screen.MousePointer = vbNormal ' Mauszeiger wird wieder Normal
    217. MsgBox "Fehler in der Datenübertragung", vbOKOnly
    218. Exit Sub
    219. End Sub
    220. Public Sub cmdUebernehmen_Click() ' Aktuelle Einstellungen werden übernommen
    221. MSComm1.CommPort = txtCOM.Text
    222. MSComm1.Settings = txtKonfig.Text
    223. MSComm1.Handshaking = Combo1.ListIndex
    224. MSComm1.DTREnable = optDTREnable
    225. MSComm1.EOFEnable = optEOFEnable
    226. MSComm1.RTSEnable = optRTSEnable
    227. ' aktuelle Einstellungen werden angezeigt!
    228. MsgBox "Com" & txtCOM.Text & ", Konfig:" & txtKonfig.Text & ", Handshake:" & Combo1.Text, vbOKOnly
    229. End Sub
    230. Private Sub Dir1_Change()
    231. File1.Path = Dir1.Path ' Änderungen werden angezeigt
    232. End Sub
    233. Private Sub Drive1_Change()
    234. Dir1.Path = Drive1.Drive ' Änderungen werden angezeigt
    235. End Sub
    236. Private Sub File1_Click()
    237. Datei = File1.FileName 'Dateiname wird angezeigt
    238. Label2.Caption = Datei 'Dateiname wird in Variable geschrieben
    239. End Sub
    240. Private Sub Form_Load()
    241. Combo1.ListIndex = 1 'Standardeinst. ist XonXoff
    242. Drive1.Drive = "c:\" 'Standardlaufwerk ist C:
    243. File1.Pattern = "*.txt"
    244. End Sub
    Alles anzeigen


    ich hoffe, des reicht auch nun für die dau-user :D

    greetz KuschelBaer
    Das beliebteste Haustier der Deutschen ist und bleibt das halbe Hähnchen.