Hallo, hast Recht mit deinem Code funktionierts und bei mir finde ich mal wieder den Fehler nicht auf Anhieb.
Ich muss jetzt aber auch erst mal in die Heia, hatte Nachtschicht.
Schönen Tag, bis später mal dann. MfG
Code:
$regfile = "m88def.dat"
$crystal = 14745600 '14745600 externer Quarz 14,7456 MHz, intern 8000000 = 8 MHz
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 9600
' AtMega 88
' +---v---+
' (RESET) PC6 |1 28| PC5 (ADC5/SCL) -> SCL
' RO <- (RXD) PD0 |2 27| PC4 (ADC4/SDA) -> SDA
' DI <- (TXD) PD1 |3 26| PC3 (ADC3) -> ADC
' DE <- (INT0) PD2 |4 25| PC2 (ADC2) -> ADC
' RE <- (INT1) PD3 |5 24| PC1 (ADC1) -> ADC
' LED1 <- (XCK/T0) PD4 |6 23| PC0 (ADC0) -> ADC
' VCC |7 22| GND
' GND |8 21| AREF
' (XTAL1/TOSC1) PB6 |9 20| AVCC
' (XTAL2/TOSC2) PB7 |10 19| PB5 (SCK) -> SCK
' S2 <- (T1) PD5 |11 18| PB4 (MISO) -> MISO
' LED3 <- (AIN0) PD6 |12 17| PB3 (MOSI/OC2) -> MOSI
' S3 <- (AIN1) PD7 |13 16| PB2 (SS/OC1 B)
' (Counter/PCINT/ICP1) PB0 |14 15| PB1 (OC1A/PCINT1/PWM)
' +-------+
'In & Outputs ==================================================================
'Analog --------------
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Test Alias Pinc.3
'Digital -------------
Config Portd.6 = Output
Flag_relais_pvpatrone Alias Portd.6
'Portd.6 = 0 ' Pullup einschalten
Config Pind.5 = Input 'Laufanzeige Pumpe3
'Portcd.5 = 1
Wasserpumpe_3 Alias Pind.5
'von Cassio----------
'Ddrd = &B_0000_0000 '1 ist Ausgang 0 ist Eingang
'Portd = &B1111_1111 'auf Hi oder Low setzen
'Ddrc = &B_00_0000 '1 ist Ausgang 0 ist Eingang
'Portc = &B00_0000 'auf Hi oder Low setzen
'Ddrb = &B_0000_0000 '1 ist Ausgang 0 ist Eingang
'Portb = &B1111_1111 'auf Hi oder Low setzen
'-------------------
'Angaben zum Display einstellen ================================================
$include "_pollin_I2C_declare.bas" 'für LCD mit PollinPCF
' PCF8574A
' +--v--+
' A0 -o|1 16|o- Vdd
' A1 -o|2 15|o- SDA
' A2 -o|3 14|o- SCL
' D4 -o|4 13|o- n.c. (INT)
' D5 -o|5 12|o- HBL (HintergrundBeLeuchtung)
' D6 -o|6 11|o- E1
' D7 -o|7 10|o- RW
' GND -o|8 9|o- RS
' +-----+
'LCD-Funktionen sind:
'Lcd_ = zum Ausgeben von Zeichen/Text (nur String)
'Lcd_cls = Clear Screen
'Lcd_init = LCD initialisieren
'Hbl (Ein/Aus) = HintergrundBeLeuchtung Ein/Aus schalten
Lcd_zeilen = 4 '4 'Anzahl der LCD-Zeilen eintragen!2x16 bis 4x20
Lcd_spalten = 16 'Anzahl der LCD-Charakter angeben
Const Pcx_pollin = &H40 'I2C-Adresse des PCx8574(A)
' I2C-Hardware-Config ==========================================================
$lib "i2c_twi.lbx"
Config Twi = 250000 'BUS-Takt 250kHz - alte Bausteine haben 100kHz - Neuere bis 400kHz
'Config Scl = Portc.5 'I2C SCL
'Config Sda = Portc.4 'I2C SDA
'Config I2cdelay = 1
I2cinit
' Inits ========================================================================
Lcd_init 'LCD initialisieren
Lcd_cls
Hbl = Ein 'Beleuchtung ein
Lcd_ 1 , 3 , "*Geraet 001*"
Lcd_ 2 , 3 , "***Master***"
Waitms 500 'Clear Screen
' Deklarierung Sub's ===========================================================
Declare Sub Dfue_pc()
Declare Sub Dfue_slaves()
Declare Sub Lcd_ausgabe()
' PROGRAMMSCHLEIFE #############################################################
Do 'Hauptschleife-Beginn
Call Lcd_ausgabe
Loop 'Hauptschleife-Ende
End 'end program
'SUB's##########################################################################
Sub Dfue_pc()
'
End Sub
'-----------------------------
Sub Dfue_slaves()
'
End Sub
'-----------------------------
Sub Lcd_ausgabe()
Hbl = Ein
Lcd_ 1 , 1 , "CassioAVR-Praxis"
Waitms 500
Text = "PORTD=" + Bin(portd) + "OK"
Lcd_ 2 , 1 , Text
Waitms 500
Dim I As Byte
For I = 0 To 255
Text = Bin(i)
Lcd_ 1 , 1 , Text
Waitms 50
Next I
For I = 0 To 255
Text = Str(i) : Text = Format(text , "000")
Lcd_ 1 , 1 , Text
Waitms 50
Next I
Lcd_ 3 , 1 , "1234567890123456"
Lcd_ 4 , 9 , "12345678"
Hbl = Aus 'Beleuchtung aus
Waitms 500
Lcd_cls 'Clear Screen
'------------------------------
End Sub
'------------------------------
$include "_pollin_I2C_subs.bas" 'für LCD mit PollinPCF
'------------------------------Ich muss jetzt aber auch erst mal in die Heia, hatte Nachtschicht.
Schönen Tag, bis später mal dann. MfG
