print mit 6 Stellen

[RobbyNB]

Hmmm,

und warum packste den Long-Wert nicht einfach in ne Single-Variable???
Also so hier:

dim U_ADC as Long 'ADC0
dim U_Temp as Single 'Hilfsvariabel in der der ADC0-Wert gespeichert wird
dim U as Single 'Zur Berechnung
dim strUtemp as string*6 'Temp-String
dim strU as String *6 'Der String zur Ausgabe

'_____________________

U_ADC = Getadc(0) 'Wert aus Analogeingang laden
U_Temp=U_ADC 'Umwandlung von Long zu Single
U=U_Temp* 5.43499511241447
strUtemp=STR(U)
strU = Format(strUtemp , "00000")
Print strU


Geht das denn etwa nicht????

[TobiasBlome]

nee das passt auchnicht mit dem Analog wert:

Print U_ADC -> habe mal ein Poti angeklemmt 0-5V / 0-1023bit -> die 1023 sind ein "bisschen" da je weiter ich runter drehe, werden die werte "schwammiger":

<\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\r><\n ><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\r><\ n><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\r>< \n><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\r> <\n><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\r ><\n><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023<\ r><\n><\0>þ1023<\r><\n><\0>þ1023<\r><\n><\0>þ1023< \r><\n><\0>þ1013<\r><\n><\0>þ995<\r><\n><\0>þ978<\ r><\n><\0>þ961<\r><\n><\0>933<\r><\n><\0>þ929<\r>< \n><\0>þ903<\r><\n><\0><\0><\0>885<\r><\n><\0>p<\0 ><\0><\0><\0><\0><\0>€8xu<\r><\n><\0>þ867<\r><\n>< \0><\0><\0>xvw<\r><\n><\0>þ850<\r><\n><\0><\0><\0> 850<\r><\n><\0>þ824<\r><\n><1><\0><\0><\0><\0><\0> <\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\ 0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0> <\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\ 0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0> <\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\ 0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0> <\0><\0><\0>ø802<\r><\n><\0><\0><\0>774<\r><\n><\0 >wwt<\r><\n><\0>þ755<\r><\n><\0>7uu<\r><\n><\0>þ73 8<\r><\n><\0><\0><\0>w38<\r><\n><\0>þ722<\r><\n><\ 0>722<\r><\n><\0>705<\r><\n><\0><\0><\0>705<\r><\n ><\0>689<\r><\n><\0><3><\0><\0><\0><\0><\0><\0><\0 ><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0>< \0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0 ><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0>< \0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0 ><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0>< \0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0 ><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0><\0>< \0><\0><\0><\0><\0><\0><\0>

[RobbyNB]

Ich sehe grad das GETADC sowieso nur nen WORD-Wert zurück liefert, von daher brauch U_ADC nicht Long sein....Spielt ja aber erstmal keine Rolle.

Wie schwammiger??
Was meinst du genau?
Was hast du vor?

[TobiasBlome]

na guck doch mal wie das oben aussieht...

es sollte eigendlich:
1023\r\n
1023\r\n
1023\r\n
1023\r\n
1023\r\n
1023\r\n
1023\r\n

und wenn ich am Poti drehe muss der Wert kleiner werden

1023\r\n
1022\r\n
1021\r\n
1020\r\n

[oiermann]

Sicher, dass du das poti als Spannungsteiler angeklemmt hast? Sonst begrenzt du nur den Strom, an der Spannung ändert sich nichts.

+ -> Poti linker Stift
ADC -> Poti Mitte
- -> Poti rechter Stift

[TobiasBlome]

ja, logo

Ich hab´s jetzt erstmal ohne die Kommastellen programmiert -> also Komma verschoben und dann durch 1000 gerechnet das geht, ist aber ein Rechenschritt mehr ;-(


Dim Uuuuu_in0 As Long 'Analogeingang ADC0
Dim Uuuuu_in1 As Long
Dim Uuuuu_in11 As Long
Dim Uuuuu_in2 As String * 5
Dim Uuuuu As String * 5 '5)Spannung in mV


_____________________

Uuuuu_in0 = Getadc(0) 'Wert aus Analogeingang laden
Uuuuu_in1 = Uuuuu_in0 * 5474
Uuuuu_in11 = Uuuuu_in1 / 1000
Uuuuu_in2 = Str(uuuuu_in11)
Uuuuu = Format(uuuuu_in2 , "00000")
'Print Uuuuu


Tobias

[RobbyNB]

Hmmm,

verstehe dann nicht wirklich dein Problem. Denn bei mir funktioniert es tadellos, auch mit der Single-Variable....

Und was stört dich an einer Rechenoperation mehr?
Dann mach es so wie ich und dann hast du eine Rechenoperation, aber dafür halt eine Single-Variable anstatt Long....


Gruß

Robby

[zerush]

diese operartion mehr ist bestimmt immer noch günstiger als mit ner floating point variable rechnen zu müssen (zumindest wenn eh nur was ganzzahliges ausgegeben werden soll)