vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
BIN-Datei über RS232 ausgeben 
Autor: JMüller
Datum: 15.07.04 17:51

hallo,
Ich habe mir einen Epromsimulator gebaut.
Um nun die Daten vom PC zum Simulator zubekommen
benötige ich noch ein Programm welches eine Datei
öffnet und dann über die RS232-Schnittstelle ausgibt.
Größe der Datei Variabel bis max 64Kbyte und möglichst
mit 115200 Baud.
Meine eigenen Programieversuche funzen nicht so ganz
es werden weniger Byte ausgegeben als die Datei groß ist
vielleich könnt Ihr ja mal einen Blick drauf werfen.

danke schon mal !
 
Private Sub Command2_Click()
Shape1.BackColor = &HFF00&
Label1.Caption = Val(lang)
Label1.Refresh
Shape1.BackColor = &HFF&
Shape1.Refresh
FileNum = FreeFile
Open "C:\ELEKTRONIK\AKTUELL.BIN" For Binary As #FileNum
lang = LOF(FileNum) - 1
ReDim Preserve Daten(lang) As Byte
For i = 0 To lang
Get #FileNum, , wert
Daten(i) = wert
Next i
Close #FileNum
Label1.Caption = Val(lang)
Label1.Refresh
MSComm1.CommPort = 2
MSComm1.PortOpen = True
MSComm1.Output = Daten() ' Daten Senden
Do

Loop Until MSComm1.OutBufferCount = 0

MSComm1.PortOpen = False
Shape1.BackColor = &HFFFFFF
Shape1.Refresh
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
BIN-Datei über RS232 ausgeben1.419JMüller15.07.04 17:51
Re: BIN-Datei über RS232 ausgeben833T.i.m.15.07.04 20:45
Re: BIN-Datei über RS232 ausgeben762JMüller15.07.04 21:19
Re: BIN-Datei über RS232 ausgeben790JMüller19.07.04 19:59
Re: BIN-Datei über RS232 ausgeben853T.i.m.19.07.04 20:06

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel