Hi,
ich habe da ein paar Ungereimtheiten, die ich nicht lösen kann.
Warum hält das Proramm an der Stelle 53 nicht an?
Der Import ist der gleiche get_Value.bas aus der LIB ohne die LCD Befehle und allen Zeilen in denen Digit vorkommt.
kann mir jemad helfen?
1.
1 import "G:\CControl\PCF8574\get_Zahl.bas"
2 import "C:\programme\basicpp\lib\Get_Key.bas"
3 define LIGHT port[16]
4 define SDA port[9]
5 define SCL port[10]
6 define DRIVE byteport[10]
7 define PCFDATA as byte
8 define ADDR as byte
9 define COUNTER as byte
10 define KEYCode as byte
11 define Schritte as Word
12 define UdM as byte
13 goto INIT
14
15 FUNCTION UPSTEP_H(steps as word,speed as byte)
16 define COUNT as word
17 define DELAY as byte
18 define SEQUENCER as byte
19 define Wert as byte
20
21 FOR COUNT=0 TO STEPS
22 SEQUENCER=(SEQUENCER+1)and 7h
23 for DELAY=0 to speed ' Zeitschleife
24 next DELAY
25 looktab SEQUENCE_H,sequencer,DRIVE
26 next COUNT
27 END FUNCTION
28
29 #INIT
30 LIGHT=off
31 LCD.INIT
32 LCD.OFF
33 SDA=on
34 SCL=on
35 Pause 2
36 LCD.INIT
37 LCD.Pos 1,1
38 LCD.PRINT " Schrittmotor"
39 LCD.pos 2,1
40 LCD.print " mit PCF8574"
41 pause 10
42 LCD.CLR
43 LCD.OFF
44 #MAIN
45 LCD.Init
46 LCD.pos 1,1
47 LCD.Print " Anzahl Steps?"
48 Schritte=GET_Value()
49 LCD.POS 1,1
50 LCD.PRINT "Steps = " & Schritte & " "
51 LCD.POS 2,1
52 LCD.Print " Geschwindigkeit?"
53 UdM=Get_Value() <-
54 LCD.Pos 2,1
55 LCD.print "Speed = " & UdM & " "
56 UPSTEP_H(Schritte, UdM)
57 Drive=00h 'Motor stromlos
58 pause 50
59 goto main
60 '-------------------------------------------
61 Table Sequence_H
62 09h 01h 05h 04h 06h 02h 0Ah 08h
63 End Table
64 End