Thema Datum  Von Nutzer Rating
Antwort
Rot USB-AD-Wandlermodul
 25.03.2011 11:24:06 marc_ampa
NotSolved
25.03.2011 12:58:30 Severus
NotSolved
25.03.2011 14:15:56 marc_ampa
NotSolved
25.03.2011 16:44:38 Severus
Solved

Ansicht des Beitrags:
Von:
marc_ampa		 Datum:
25.03.2011 11:24:06		 Views:
1866		 Rating:
     
Antwort:
  Ja
Thema:
USB-AD-Wandlermodul

Hi,

ich bin noch Neuling in diesem Thema und möchte Messwerte von einem USB-AD-Wandlermodul in eine Tabelle schreiben. Vom Hersteller gab es ein Programmbeispiel was auch gut Funktioniert. Im Unteren Teil des Programms habe ich versucht die Messwerte immer in die folgenden Zellen zu Schreiben.

Das Programm schreibt mir aber nacheinander immer den den gleichen Wert in die Tabelle und erst wenn es am Ende angekommen ist liest es den nächsten Wert aus und beginnt wieder von vorne immer den gleichen wert in die Zellen zu schreiben.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Dim T As String
 
Private Sub TextBox1_Change()
   Rem change device no
   USBADCX1.ADC_DeviceNo = Val(TextBox1.Value)
End Sub
 
Private Sub USBADCX1_OnADCRead()
'Auslesen der Kanäle 1-8  
   If Second(Now()) <> T Then
      T = Now()
      Cells(5, 8) = USBADCX1.ADC_CH0
      Cells(6, 8) = USBADCX1.ADC_CH1
      Cells(7, 8) = USBADCX1.ADC_CH2
      Cells(8, 8) = USBADCX1.ADC_CH3
      Cells(9, 8) = USBADCX1.ADC_CH4
      Cells(10, 8) = USBADCX1.ADC_CH5
      Cells(11, 8) = USBADCX1.ADC_CH6
      Cells(12, 8) = USBADCX1.ADC_CH7
    
End If
 
'Schreiben in Tabelle
Dim n As Integer
Columns("A:B").Select
Selection.ClearContents
    For n = 1 To 60
      Cells(n, 1) = USBADCX1.ADC_CH0
      Sleep 10
   Next n
    
 
End Sub

 

Ich bin für jede Hilfe Dankbar

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot USB-AD-Wandlermodul
 25.03.2011 11:24:06 marc_ampa
NotSolved
25.03.2011 12:58:30 Severus
NotSolved
25.03.2011 14:15:56 marc_ampa
NotSolved
25.03.2011 16:44:38 Severus
Solved