Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
muerzi
Tutorial Leser
Tutorial Leser

Anmeldedatum: 03.08.2009
Beiträge: 45
Wohnort: Leoben
Quick Basic Hilfe
Verfasst am: 28.10.2009, 16:04
Hallo Liebe Gemeinde

Habe von einer Firma günstigst eine elektronische Waage erstanden.
(Etwas älteres Modell ~ 1993)
Jetzt möchte ich diese auf dem Hof meines Vaters aufstellen um allerhand zu messen.
(Kühe, Pferde, Schafe)

Leider habe ich den PC dazu nicht bekommen um die Messdaten anzeigen zu können --> Aus Datenschutzgründen konnten sie mir den PC nicht geben.

Die Firma hat mir aber ein BASIC programm gegeben das die Daten über die Serielle SChnittstelle des PC's liest.
Größtenteils habe ich es schon in VB6 übersetzt, nur da wos im die "Wurst" geht komm ich einfach nicht weiter

Könnt ihr mir bitte helfen?


Code:

konfig$ = "100001101111"
 werte! = 0              'Ger„t konfigurieren und Messwerte holen
 Counter% = 0
 Do
   b% = 2048
   vout% = 0
 For I% = 12 To 1 Step -1
       OUT outadr%, (&HFE And INP(outadr%))      'DTR auf 0 setzen
       Select Case Mid$(konfig$, 13 - I%, 1)
       Case "0"
          OUT outadr%, (&HFD And INP(outadr%))   'RTS auf 0 setzen
       Case "1"
          OUT outadr%, (&H2 Or INP(outadr%))     'RTS auf 1 setzen
      End Select
  OUT outadr%, (&H1 Or INP(outadr%))             'DTR auf 1 setzen
  If (INP(inpadr%) And &H10) <> &H10 Then
      d% = 0                                     'CTS auf 1 setzen
  Else
      d% = 1                                     'CTS auf 0 setzen
  End If
  vout% = vout% + d% * b%
  b% = b% / 2
Next I%
OUT outadr%, (&HFD And INP(outadr%))             'RTS und DTR auf 0 setzen
OUT outadr%, (&H2 Or INP(outadr%))               'RTS auf 1 setzen
Select Case vout%
Case Is >= 2048
vout% = vout% - 4096
Case Else
vout% = vout%
End Select
werte! = werte! + vout%
If Counter% <= 0 Then werte! = 0        'Erste Messung wird verworfen,
Counter% = Counter% + 1                 'weil vorherige Konfiguration
Loop While Counter% <= anzahl%          'noch gltig.


Wies aussieht werden die Daten über RTS, DTR, CTS übertragen.
Wie kann ich nun die Daten per Comm-Steuerelement auslesen/empfangen?

thx schon mal!

mbg
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: serielle schnittstelle, basic, hilfe, vb6

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 1969 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 867 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 784 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 1058 22.03.2007, 21:25
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 460 28.03.2008, 02:47
 




[ Time: 0.2538s ][ Queries: 81 (0.0754s) ][ GZIP on - Debug on ]