Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: NT Service mit GUI
Autor: fr_lampe
Datum: 14.11.03 13:49
Hallo Ich habe eine Class erstellt die ohne ein Formular auskommt programmiert habe ich mit SharpDevelop in VB.Net Nur habe ich immer noch ein Problem wenn ich das Programm auf einen anderen Rechner laufen lasse, läuft das Programm nicht weil mir eine gültige Lizenz fehlt ' 'NetM232Class diese Datei wird zu einer dll Bibliothekassembly erstellt 'mit vbc NetM232.vb /t:library 'es muss im ProjektmappenExlorer eine Referrenz zu 'MSCOMM32.OCX hergestellt werden Imports System Imports Microsoft.VisualBasic Imports System.Threading Imports MSCommLib Namespace NetM232 Public Class NewNetM232Lib Public Function M232(ByVal Com As String, ByVal A As String)As String Dim myComport As MSCommLib.MSCommClass myComport = New MSCommLib.MSCommClass() With myComport ' COM einsetzen. .CommPort = Com ' 24000 Baud, keine Parität, 8 Datenbits und 0 Stopbit .Settings = "2400,n,8" ' Steuerelement anweisen, daß es den gesamten ' Pufferinhalt lesen soll, wenn die Input-Eigenschaft ' verwendet wird. .InputLen = 0 ' _Anschluß öffnen. .PortOpen = True End With ' '---------ab hier steht der eigene Code ------ 'Variable A zum CommPort myComport.Output = A 'ComPort lesen M232 = myComport.Input '--------- bis hier -------------------------- ' 'Anschluß schließen myComport.PortOpen = False End Function End Class End Namespace '---------------------------------------------------------------- 'NetM232Test.vb 'von hier wird die dll NetM232Class aufgerufen 'es muss im ProjektmappenExlorer eine Referrenz zu 'Interop.MSCOMM32.dll und NetM232.dll hergestellt werden Imports System Imports NetM232 Module Main Sub Main() Console.WriteLine("Hello World!") Dim myWert = New NewNetM232Lib myWert = New NewNetM232Lib() Dim Wert As String Wert = myWert.M232("1", "M1") 'manuelle Wandlung Wert = myWert.M232("1", "a0") 'Wandlerwert von a0 abholen Console.WriteLine(Wert) Wert = myWert.M232("1", "D10") 'auf Datenleitung 1 eine 1 schreiben Wert = myWert.M232("1", "d1") 'Wandlerwert von d1 abholen Console.WriteLine(Wert) Wert = myWert.M232("1", "Z1") 'auf Datenleitung 1 eine 1 schreiben Wert = myWert.M232("1", "z") 'Wandlerwert von d1 abholen Console.WriteLine(Wert) End Sub End Module

NT Service mit GUI	5.040	max.vb	29.10.03 09:52
Re: NT Service mit GUI	3.257	WaldiMaywood	29.10.03 10:06
Re: NT Service mit GUI	3.290	max.vb	29.10.03 10:14
Re: NT Service mit GUI	3.226	WaldiMaywood	29.10.03 10:33
Re: NT Service mit GUI	3.233	WaldiMaywood	29.10.03 11:03
Re: NT Service mit GUI	3.220	max.vb	29.10.03 11:08
Re: NT Service mit GUI	3.254	WaldiMaywood	29.10.03 11:17
Re: NT Service mit GUI	3.295	Nic	29.10.03 11:35
Re: NT Service mit GUI	3.156	max.vb	29.10.03 11:54
Re: NT Service mit GUI	3.204	Nic	29.10.03 19:29
Re: NT Service mit GUI	3.258	max.vb	30.10.03 09:36
Re: NT Service mit GUI	3.225	Nic	30.10.03 09:43
Re: NT Service mit GUI	3.186	max.vb	30.10.03 09:55
Re: NT Service mit GUI	3.156	Nic	30.10.03 10:05
Re: NT Service mit GUI	3.228	kaiwachter	02.11.03 15:00
Re: NT Service mit GUI	3.334	fr_lampe	14.11.03 13:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen