Adam
20.11.2004, 18:24
Hallo,
kann mir jemand helfen und diese eine Funtion in Basic (BASCOM) umschreiben? Es ist in C geschrieben, aber ich würde es gerne mit Bascom verwenden.
Es gibt noch mehr Funktionen (ganze Lib) aber wenn mir das jmd. an einem bsp. vormacht, dann schaff ich den Rest selber, danke !! :)
void lcgout(int where, int value)
{
lcgwait(); 'die funtkion habe ich bereits ...
outportb(PORTB,LCGCMD|LCGWR|LCGDIS);
outportb(PORTB,LCGCMD|LCGWR|LCGEN);
outportb(PORTA,where);
delay(EDELY);
outportb(PORTB,LCGCMD|LCGWR|LCGDIS);
lcgwait();
outportb(PORTB,LCGDATA|LCGWR|LCGDIS);
outportb(PORTB,LCGDATA|LCGWR|LCGEN);
outportb(PORTA,value);
delay(EDELY);
outportb(PORTB,LCGDATA|LCGWR|LCGDIS);
}
die Funtkion habe ich schon bereits deklariert:
Declare Function Lcgout(where As Integer , Value As Integer)
so richtig, oder ?
die großgeschriebenen Konstanten habe ich bereits portiert, das ist ja auch einfach :P
Danke nochmal!
Adam
kann mir jemand helfen und diese eine Funtion in Basic (BASCOM) umschreiben? Es ist in C geschrieben, aber ich würde es gerne mit Bascom verwenden.
Es gibt noch mehr Funktionen (ganze Lib) aber wenn mir das jmd. an einem bsp. vormacht, dann schaff ich den Rest selber, danke !! :)
void lcgout(int where, int value)
{
lcgwait(); 'die funtkion habe ich bereits ...
outportb(PORTB,LCGCMD|LCGWR|LCGDIS);
outportb(PORTB,LCGCMD|LCGWR|LCGEN);
outportb(PORTA,where);
delay(EDELY);
outportb(PORTB,LCGCMD|LCGWR|LCGDIS);
lcgwait();
outportb(PORTB,LCGDATA|LCGWR|LCGDIS);
outportb(PORTB,LCGDATA|LCGWR|LCGEN);
outportb(PORTA,value);
delay(EDELY);
outportb(PORTB,LCGDATA|LCGWR|LCGDIS);
}
die Funtkion habe ich schon bereits deklariert:
Declare Function Lcgout(where As Integer , Value As Integer)
so richtig, oder ?
die großgeschriebenen Konstanten habe ich bereits portiert, das ist ja auch einfach :P
Danke nochmal!
Adam