Der bastler
19.09.2016, 21:53
Hallo Forum und Bastler
Folgene Proplem, wie man es sonst nennen würde.
Habe ein Pollin Evaluationboard Ver.2.01 habe auf den board den ATmega8 und soll folgenes machen
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9200
'**************************************
'********* LCD-Konfiguration **********
'**************************************
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , _
Db7 = Portb.5 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Terminal verb."
Print " terminal verbunden"
Locate 2 , 1
Lcd "atmega8"
Print "ATmega8"
Cls
'**************************************
'********* LCD-Konfiguration **********
'**************************************
Dim Ein As Byte
Dim I As Byte
Config Portd = Output
Portd.5 = 0 : Portd.6 = 0
Do
Input "eingang 5 oder 44 einschalteh>" , Ein
If Ein = 5 Then Toggle Portd.5
Print "Eingang 5 Gesch."
Cls
Locate 1 , 1
Lcd "eingang5 an"
Input "ausgang5 an"
If Ein = 44 Then Toggle Portd.6
Cls
Locate 1 , 1
Lcd "eingang 44"
Loop
so der ATmega8 ist in PonyProg2000 auf 8Mhz eingestellt
und will es auf Bascom in Terminal fenster ausgeben was muss ich da einstellen das es Funktioniert?
32063
Könnte mir jemand Helfen steh auf den schlauch, Vielen Dank
Mit Freundtlichen Grüßen
Thorsten Sch.
Folgene Proplem, wie man es sonst nennen würde.
Habe ein Pollin Evaluationboard Ver.2.01 habe auf den board den ATmega8 und soll folgenes machen
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9200
'**************************************
'********* LCD-Konfiguration **********
'**************************************
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , _
Db7 = Portb.5 , E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "Terminal verb."
Print " terminal verbunden"
Locate 2 , 1
Lcd "atmega8"
Print "ATmega8"
Cls
'**************************************
'********* LCD-Konfiguration **********
'**************************************
Dim Ein As Byte
Dim I As Byte
Config Portd = Output
Portd.5 = 0 : Portd.6 = 0
Do
Input "eingang 5 oder 44 einschalteh>" , Ein
If Ein = 5 Then Toggle Portd.5
Print "Eingang 5 Gesch."
Cls
Locate 1 , 1
Lcd "eingang5 an"
Input "ausgang5 an"
If Ein = 44 Then Toggle Portd.6
Cls
Locate 1 , 1
Lcd "eingang 44"
Loop
so der ATmega8 ist in PonyProg2000 auf 8Mhz eingestellt
und will es auf Bascom in Terminal fenster ausgeben was muss ich da einstellen das es Funktioniert?
32063
Könnte mir jemand Helfen steh auf den schlauch, Vielen Dank
Mit Freundtlichen Grüßen
Thorsten Sch.