Hi,
Zitat von BoomBoomMagic im Beitrag #3
...Es stellt sich ja jetzt vielmehr die Frage :
Läuft es denn jetzt endlich ??...
nachdem ich erkannt habe das Display ist defekt konnte ich endlich anfangen zu experimentieren, also ja das andere Display funktioniert.
Dann sind noch 2 8x8 Matrix-Teile, 1 20x4 Display, weiter Kabel, eine 2 Spannungsversorgung... gebastelt worden, die zweite Spannungsversorgung ist für Servos, Displays... gedacht weil der AVR mit 3,6V betrieben wird.
Ein paar Atmega8, Atmega 328p, ATtiny44 sind auch noch angekommen, den Atmega8 kann man im Programm sehen ;-).
Nix Weltbewegendes ist das erste 16x2 Testprogramm geworden, aber es funktioniert:
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
' Compiler: Bascom-Demo 2.0.7.5
' Dateiname: Laufschrift 16x2.avr
' Funktion: Mit dem Disply in Zeile 1 einen Titel und in Zeile 2 eine Laufschrift anzeigen.
' Datum: Start 09.01.2020, Stand 11.01.2020
' Von: Naubaddi
' --- Mikrocontroler Daten... ----------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 80
$swstack = 80
$framesize = 80
' &HFF, &HE1, &HD9, &HFF ' 1MHz
$PROG &HFF, &HE4, &HD9, &HFF ' 8MHz
' --- Deklarationen... -----------------------------------------------------------------------------------------
config lcdpin = pin , DB4 = portc.0 , DB5 = portc.1 , DB6 = portc.2 , DB7 = portc.3 , RS = portc.4 , E = portc.5
config lcd = 16 * 2
config portc = output
' --- Variablen... ---------------------------------------------------------------------------------------------
dim Titel as string * 16
dim Zeile as string * 85
dim von as byte
dim bis as byte
dim i as byte
' --- Vorbelegung der Variablen... -----------------------------------------------------------------------------
' 123456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789|
' 10 20 30 40 50 60 70 80 90 100
Titel = "Hallo Picaxianer"
Zeile = " eine Laufschrift die ist lustig, eine Laufschrift die ist schoen... "
von = 1
bis = 16
i = 1
cursor Off
cls
' --- Programm Anfang ------------------------------------------------------------------------------------------
do
locate 1,1
lcd Titel
i = 1
for i = von to len( Zeile )
locate 2,1
lcd mid( Zeile , i , bis )
waitms 600
next i
loop
' --- Programm Ende --------------------------------------------------------------------------------------------
end
' --- Prozeduren, Funktionen... --------------------------------------------------------------------------------
' --- Data Reihen... -------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------