GetKBD() simulieren

Mitch64 · 2. August 2019, 08:32

Lt. Bascomhilfe soll es möglich sein, die Funktion getKBD() zu simulieren.
Dazu muss man wohl, bevor man die Funktion ausführt, im Hardware-Simulations-Fenster (da wo auch Display und IO angezeigt werden) eine der Tasten (Ziffernblock) anklicken.

Bei mir kommt da aber immer 16, das dem nicht gedrückten Zustand entspricht.

Hat das schon mal jemand ausprobiert?
Was muss man da beim Simulieren beachten?

Hier wird das fast ganz unten beschrieben: Bascomhilfe

Galahat · 2. August 2019, 09:23

$sim im Code?

Mitch64 · 2. August 2019, 10:05

Ja, $Sim ist drin.

Im Simulator habe ich einen Haltepunkt in der Zeile mit getKBD gesetzt.
Dann klicke ich die Ziffer und dann steppe ich weiter.
Rückgabewert von getKBD = 16, egal was ich klicke.

Hier noch das Programm

BASCOM-Quellcode

$Regfile = "m16def.dat"
$HWStack = 40
$SWStack = 30
$Framesize = 40
$Crystal = 8000000
$Baud = 9600
Config SubMode = New
$Sim
Config Kbd = PortA , Cols = 3
Dim Taste as Byte
Do
Taste = getKBD()
Print Taste
Loop

Alles anzeigen

Und ich habe die Version 2.0.8.1

Pluto25 · 2. August 2019, 16:08

Da gehts dem Simulator nicht gut. Mit der Zeile 'If Taste < 16 Then Print Taste' kommt ganz selten mal ein 0,4 oder 8 herraus bei dauerhaft gedrückter Nummernfeldtaste.

. Völlig unabhängig von $sim, Submode, DDR und Port Vorgaben.

Mitch64 · 2. August 2019, 19:11

Pluto25 schrieb:

Da gehts dem Simulator nicht gut.

Heißt er hat Schnupfen? Oder ist Taub?
Also scheint es nicht zu gehen?

Scheint wohl ein Softwareprpblem zu sein vom Simulator.
Oder sehe ich das falsch?

stefanhamburg · 2. August 2019, 20:58

Kauf Dir für ein paar Euro ein Keypad - dann musst Du nichts simulieren. Macht viel mehr Spaß als zu theoretisieren/simulieren und ist näher am realen Projekt dran.

Pluto25 · 2. August 2019, 21:13

Mitch64 schrieb:

Softwareproblem zu sein vom Simulator.

Sehe ich auch so. Er tut sich generell schwer mit Pin-Operationen (pc)Int's und Ocr's gehen ja auch nicht.
Ich denke die MCSer sind damit beschäftigt die neuen AVR's zu integrieren so das Simulator nicht die höchste Priorität hat. Zumal er ansonsten recht gut funktioniert.

Mitch64 · 2. August 2019, 21:57

Vielen Dank für die Vorschläge mit einem Keypad kaufen.

Aber das geht ja am voll Ziel vorbei.

Mir gings ja nur drum, wie das funktioniert, diesen Tastenblock wie im Post #1 gezeigt auszuprobieren.

Und manchmal ist eine Simulation vielleicht doch nützlich, wenn sie denn funktionieren würde.
Und sei es nur, um etwas zu zeigen. Damit braucht der, der das auch mal testen möchte
nicht auch gleich ein Keypad zu besorgen.

Aber wenns nicht funktioniert, dann gehts eben nicht.

ftelektro · 2. August 2019, 22:08

Vor 4-5Jahren hat das mal funktioniert bei meinem Zahlenschlossprogramm.Ich hatte auch schon mal
im Forum angefragt,allerdings ohne Resultat.

Mitch64 · 2. August 2019, 22:12

im mcs-Forum?

Pluto25 · 2. August 2019, 23:12

Ich hab hier nen 44 auf m Tisch. Das :

Quellcode

$regfile = "attiny84.dat"
$crystal = 8000000
$hwstack=40
$swstack = 32
$framesize = 32
Config Base = 0
'a0=aref a1= a2= a3=
'a4=Scl a5=Mi/oc1b a6=Mo/oc1a/Sda 7=oc0b
'b0= b1= b2=oc0a/clk0 b4=/R
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2 'R/W pin muss auf Gnd liegen
Initlcd
Cursor Off Noblink
Cls
Lcd "Taste : "
Lowerline
Lcd "Loop : "
Config Kbd = Porta , Cols = 3
Dim Taste As Byte , Lauf As Word
Do
Taste = Getkbd()
If Taste < 16 Then
Ddra = $ff
Locate 1 , 7
Lcd Taste
Locate 2 , 7
Lcd Lauf
Ddra = 0
End If
Waitms 10
Incr Lauf
Loop
End

Alles anzeigen

funktioniert. (Natürlich schreddert der Kurzschluß (Tastensimulation durch Büroklammer) das LCD aber es lassen sich verschiedene Tastenwerte generieren - Nicht nur 0,4,8) In der Realität gehts also.

tschoeatsch · 2. August 2019, 23:26

Probiert halt mal das Beispiel aus der Hilfe. avrhelp.mcselec.com/config_kbd.htm
Da wird ja auch erwähnt, wie das zu simulieren ist, und dann sollte es auch gehen. Und wenn nicht, dann halt nicht. Ich bin auch mehr der hw-Typ und verwende den Simulator hauptsächlich nur um Laufzeiten zu messen und so Kleinscheixx. Also hält sich meine Kritik, wenn es nicht gehen sollte, in Grenzen.

Pluto25 · 2. August 2019, 23:32

Genau das hat er ja (#3) und stellte fest das es nicht geht a_446_12de8e52

Ich hab keinen 48er hier und den 16er anzuwerfen war mir dann doch zuviel. Aber wenn der tiny rennt werden es die anderen vermutlich auch.

Mitch64 · 3. August 2019, 08:05

tschoeatsch schrieb:

Probiert halt mal das Beispiel aus der Hilfe

Hab ich gemach. Bringt leider das gleiche Ergebnis wie mein Programm. Taste ist immer 16.
Hätte mich auch gewundert, wenn's anders sein sollte. In der HS steht ja auch nur Tste=getKBD und dann ein Print Taste.

Pluto25 schrieb:

Ich hab hier nen 44 auf m Tisch

Was ist das? Ein Sportwagen Baujahr 1944? Oder soll das der Controller sein? Mega 44? Tiny 44?
Mein Mofa hat glaube ich 44 ccm Hubraum (viele Ablagerungen und ne tote Maus im Verbrennungsraum). - Egal

Dass es in der Realität mit richtigen Tasten funktioniert, hat ja niemand angezweifelt.
Ich wollte ja nur mal die Tasten wie im Post #1 angegeben ausprobieren. Und das geht eben nicht mit realen Tasten.

An der Stelle brauchen wir auch nicht weiter zu diskutieren.
Es geht halt nicht mit der Simulation.
Kein Beinbruch, aber auch nicht toll, weil's eben in der Hilfe anders steht.

tschoeatsch · 3. August 2019, 09:24

Im Hilfebeispiel war jetzt cols auf default 4 gesetzt, das war der Unterschied zum Programm aus #3. Hätte ja sein können, dass es nur mit cols=4 funktioniert. Wenn jetzt code aus der Hilfe nicht so funktioniert, wie es da drin steht, hm, dann ist es nicht sehr hilfreich, wie @Mitch64 auch schon bemerkte.