[Delphi]Een Hex getal naar compoort zenden

[CRiMiNaL]

Ok hier een klein vraagje aan jullie programming god's
Ik wil het Hexadecimale getal 19 naar een compoort zenden

ik heb dit nu geregelt door : VaComm1.WriteChar(#25)
dus eerst omrekenen naar decimaal, alleen hier heb ik dus absoluut geen zin in om alles om te gaan rekenen voor de aansturing van m'n display.
Daarbij schijnt het ook nog niet te werken,

Mijn doel is om zelf een programma'tje te schrijven voor de aansturing van m'n VFD, controller : ACS1375

plzz help me

[Verwijderd]

Mijn doel is om zelf een programma'tje te schrijven voor de aansturing van m'n VFD, controller : ACS1375

ACS1375 is het artiekel nummer bij bgmirco.com van de documentatie

dus eerst omrekenen naar decimaal, alleen hier heb ik dus absoluut geen zin in om alles om te gaan rekenen voor de aansturing van m'n display.

delphi is alweer 'n tijdje geleden maar volgens mij kon je met de $ prefix hex getallen meegeven VaComm1.WriteChar($19)

[CRiMiNaL]

Verwijderd schreef op 25 augustus 2002 @ 17:04:
[...]
ACS1375 is het artiekel nummer bij bgmirco.com van de documentatie

[...]

delphi is alweer 'n tijdje geleden maar volgens mij kon je met de $ prefix hex getallen meegeven VaComm1.WriteChar($19)

LOL Yarvieh ik had de documentatie al ... maar dat $ had ik nodig ... ga kijken of het werkt ..

[Verwijderd]

LOL Yarvieh ik had de documentatie al

Ik weet dat je de documentatie al had maar ACS1375 is niet je controller dat bedoelde ik

[CRiMiNaL]

Snif .. werkt niet ... nog andere ideeen ...

[LordLarry]

$19 is het decimale getal 25
#25 is de char met het decimale getal 25
#$19 is de char met het decimale getal 25

[CRiMiNaL]

procedure TForm1.Button1Click(Sender: TObject);

var
t : string;

begin
VaComm1.Databits := TVaDatabits(8);
VaComm1.Baudrate := TVabaudrate(9600);
VaComm1.Stopbits := TVaStopbits(2);
VaComm1.PortNum := 1;
VaComm1.Open;
VaComm1.WriteChar(#$19);
VaComm1.WriteChar(#$3E);

end;

end.

dat maakt me code achter m'n TEST knop zo ... toch krijg ik nog een "Error writing dcb (87)" als ik op m'n knop druk

[Verwijderd]

In VB moet je een MSComm object aanmaken. Dan de properties invullen. Dan de properties in je configuratiescherm(van Windows) hetzelfde invullen en klaar!

[Verwijderd]

Je seriele settings kloppen van geen kant , uit de specs:

Baud Rate Selectable—1200, 9600 or 19200. Maximum available baud rate depends on execution times. (See Table 3–5)
Data Word 10 Bits. Eight Data Bits with start bit and 1 stop bit.
Parity None

[CRiMiNaL]

alleen de stop bit klopt niet ... toch ..

Verwijderd schreef op 25 augustus 2002 @ 17:26:
In VB moet je een MSComm object aanmaken. Dan de properties invullen. Dan de properties in je configuratiescherm(van Windows) hetzelfde invullen en klaar!

als je leest programeer ik met Delphi en niet met VB dus fijn voor jou maar heb ik nix aan ...

bTW bij databit's staat 8 maar dankzij onze Parse werd het

[Verwijderd]

alleen de stop bit klopt niet ... toch ..

Parity zie ik je ook niet zetten? als mede flow control?

[CRiMiNaL]

jah maar als je Delphi kent staan die instellingen in de ObjectInspector en daar staan ze al in ingesteld overbodig om het hier dan ook nog is te doen.

again ... toch ..

ben niet zo'n doorgewinterde programeur, dus mischien kun je me in een paar basis stappen utleggen wat ik moet controleren op fouten

[ Voor 0% gewijzigd door CRiMiNaL op 25-08-2002 17:46 . Reden: Toevoeging ]

[Verwijderd]

heb je flow contol uit?

[CRiMiNaL]

jah alles staat uit

[Belgar]

de DCB is de comport settings group. Writing error DCB betekend dat je je comm info niet kunt sturen naar je compoort. Moet je 'm niet eerst openen voordat je die settings applied ??

[CRiMiNaL]

de debugger blijft hangen bij het regeltje :

VaComm1.WriteChar(#$19);

dus hij kan idd niet sturen naar m'n compoort .. maar why .. ??

[Belgar]

probeer eens te beginnen met .Open

Het blijft vreemd. In C moet je de poort in ieder geval eerst openen voor je wat kunt sturen.

[Creepy]

#$19 is dubbel op... $19 is al voldoende..
Hij blijft hangen op die write char??? Heb je error handling, handshaking allemaal UIT staan?? Waarschijnlijk blijft het compoort onbject op antwoord van het LCD wachten (wat niet komt)

[CRiMiNaL]

VaComm1.WriteChar($19);
pikt ie niet bij compilen ... heb alles uit jah ...

[LordLarry]

Creepy schreef op 27 augustus 2002 @ 14:02:
#$19 is dubbel op... $19 is al voldoende..

is niet waar

[Creepy]

LordLarry: Voor dat VFD wel.... bij mij werkt dat prima, en dat VFD draait hier als een trein!

Criminal: Ik heb ook ff moeten zoeken voordat ik een COM-poort object had waarbij je nagenoeg alles uit kan zetten. Ik kan je dat ding wel geven, heb namelijk geen idee waar ik hem vandaan heb gehaald. Is freeware en inclusief complete source.

met een # is het in een string te gebruiken, als je bytes gaat zenden, en geen strings dan is een 0 hetzelfde als een #0.

[LordLarry]

Creepy schreef op 27 augustus 2002 @ 15:45:
LordLarry: Voor dat VFD wel.... bij mij werkt dat prima, en dat VFD draait hier als een trein!

Niet met de WriteChar functie als het goed is.

var Test: Char;
begin
Test := $19; // compiled niet
end;

[Creepy]

Hehehe... was een sendbytes functie

$19 is een integer type, en dat past niet in een char. Een Test:=chr($19) werkt weer wel.
Vandaar dat ik zei dat er geen verschil is tussen #$19 en $19. # wil gewoon zeggen pak de karakter met de aangegeven ascii waarde. Maar aangezien dat LCD/VFD al voor je doet als je hem een reeks bytes zend...

[LordLarry]

Ik weet het, dat zei ik namelijk al eerder maar ik ben blij dat we nu elkaar begrijpen

[CRiMiNaL]

LordLarry & Creepy thanxx alot .. het was me inmiddels al gelukt ....maare bedankt voor de hulp

[Creepy]

Graag gedaan joh!