Letsbuyit Together EIO LCD's actie take 4

[Shift]

Jongens laat je niet gek maken

Wie heeft er nog toffe plannen voor de LCD's ?

[FragDaddy]

uhm. dedicated MP3-speler / DVD-speler / Divx-speler met IR-afstandsbediening (welke overigens al klaar is) in een 2U 19" rack met een dvd-drive en een big-focking harddisk en netwerkverbinding om ook op normale computers MP3's te kunnen draaien

racks = GOOD !

[Shift]

Great idea

[Verwijderd]

Weergave flowmeting van me h20'tje, incl. tempsensors en waterdetectie in me kast

[Shift]

Great idea

[RuNnaH]

Onafhankelijke temperatuurmeting met een Basic Stamp 2...

[Shift]

^

[Verwijderd]

<<<< Update 4 : >>>
Deze bestellingen zijn binnen,
Superluuk
Arne
Greef
Edwin
Guido
Mike
Verbree
Ricardo
MrE
Wendrich
FlippendeBits
Arntzenius
Broersma
Cheetah
Exhale
Sahin
Graver
C001JU135
R. Jansen
J de Jager
H. Schurer
Engelen
Droppers
Nieuwman
nieuwendijk
Sietse
Verwoerd
Shift
Lucas H
Kletersteeg
Tha_Butcha


Totaal 53 LCD's en aantal kabels.

[..]

Zo als ik in mijn vorige posts zei, ik kom nog terug over de betaling. Ik heb het nu voor moeten schieten meer dan 2000,-

2000 / 53 = 37,735... dusse verzent koste er bij ongeveer 5,- dus dat zal wel onder de 50,- blijven!! dus ik kan voor 25,- onderdelen halen!

edit:

ff van 5-,- een 50,- gemaakt

[Shift]

Het is meer dan 2000,- en 2000 / aantal personen kan je niet doen, want er zijn mensen die hebben meer dan 1 besteld.

De verzendkosten waren 58,65$

[Verwijderd]

Op dinsdag 03 juli 2001 09:52 schreef Shift het volgende:
Het is meer dan 2000,- en 2000 / aantal personen kan je niet doen, want er zijn mensen die hebben meer dan 1 besteld.

De verzendkosten waren 58,65$

het is ook een ruwe schatting!

[Area53]

$58,65 = fl. 151,52 (<-www.gwk.nl)
fl.151,52 /31= fl.4,89 verzendkosten/persoon

Dit zal het wel zijn denk ik.

[Verwijderd]

Op dinsdag 03 juli 2001 10:42 schreef Area53 het volgende:
$58,65 = fl. 151,52 (<-www.gwk.nl)
fl.151,52 /31= fl.4,89 verzendkosten/persoon

Dit zal het wel zijn denk ik.

ik zij toch ongeveer 5,- zerzendkosten

[Wiebbe]

hehe
ik ben bezig met een AUto-mp3 spelertje.
maar dan op een 4x40..
en btw, hoe wil je je flowmeter van je h20 meten?

[Verwijderd]

Ik heb die gasten ff gemaild. Want ik ga over 2 weken naar USA.
Dan sturen ze het naar een adres wanneer ik daar dan ebnt. En dan hoef ik alleen de spullen te betalen en geen BTW/Verzendkosten/Douane kosten.

[Ro_meo]

mooi.. leg de douane dan maar uit wat JIJ met 53 LCD'tjes gaat doen...

(is toch nog steeds 'handel' ?)

[Verwijderd]

Op dinsdag 03 juli 2001 11:17 schreef davar het volgende:
mooi.. leg de douane dan maar uit wat JIJ met 53 LCD'tjes gaat doen...

(is toch nog steeds 'handel' ?)

Je denkt toch neit dat ik 53 LCD'tjes ga halen he.
Gewoon eentje met een kabeltje. In mijn kleding stoppen. En klaar

[Ro_meo]

oke... waarom moeten wij dat dan weten ?
of is het gewoon een off-topic berichtje waar wij totaal niets aan hebben.. ?

[Vinny_B]

hmmmz als ik gister niet moest werken !!! had ik ook een LCD gehad!! DOH !!! als er nog iemand is die zegt ik hoef m niet meer, ben ik de 2e die m dan wel over wil nemen. (themazter 1e)

[Verwijderd]

Ik wou er ook 1, ik had je nog gemeeld, maar ik had nix meer gehoort

Zeker te laat?

[Shift]

Ik heb de mensen die te laat waren wel gemaild.

[Verwijderd]

kep niks gehad, e-mail: [e-mail]

[Verwijderd]

Op dinsdag 03 juli 2001 10:49 schreef Wiebbe het volgende:
en btw, hoe wil je je flowmeter van je h20 meten?

mbv een elektromagnetische pulsteller

[Verwijderd]

Op dinsdag 03 juli 2001 15:49 schreef Athoszz het volgende:

[..]

mbv een elektromagnetische pulsteller

zou je mij tzt ff het schema kunnen mailen ????

ben ook bezig met watrkoeling en wou ook zo'n 'alarm' maken

[Verwijderd]

Zodra ik die pulsteller in elkaar heb gebrouwen, post ik um tzt

[Demo]

Lama, ik wil ook wel een L2014...

[Shift]

Bij conrad kan je kant en klare flow meters kopen, leuk spul

[Verwijderd]

Welke flowmeter bedoel je dan (van Conrad)?

[Shift]

Je bedoelde toch een flow meter voor water ? of bedoelde je iets anders ?

[Shift]

Er is eentje voor 59,95,

Tech info :

Afm (lxbxh) 55x40x45 mm - 1800 impulsen per liter, drukbereik tot ca 1 bar, werktemperatuur -40 - +125.

[Verwijderd]

Idd bedoel waterpulsmeters. Maar ik kan op Conrad dat ding wat jij bedoelt niet ontdekken. Kan je ff de link posten?

[Shift]

Geen link, want hij staat in de catalogus met foto

[MGSNK]

ik krijg die lcds van eio voor weinig geld, via een USA vriend, khoef hem alleen geld over te maken. Hij stuurt het op als 'gift' en dus ook lekker geen belasting!

[Shift]

Leuk voor je

[MGSNK]

vind je?

[Shift]

Ja, anders zeg ik het toch niet

[Verwijderd]

Op woensdag 04 juli 2001 00:16 schreef Shift het volgende:
Geen link, want hij staat in de catalogus met foto

geef hem dan het bestel nr.!!!! dan typt hij dat in de search in en hij heeft hem!

[Snurp]

Shift check your mail

[Shift]

Op woensdag 04 juli 2001 01:03 schreef Snurp het volgende:
Shift check your mail

Check jij ook


Maar effe over die flowmeter, hier hebbie de artiekelnumo : 187151-24

[Verwijderd]

kickup

[Verwijderd]

Op maandag 02 juli 2001 22:54 schreef Kaj. het volgende:
sub-zero heeft een ban te pakken.

of niet

[Verwijderd]

owkee, tnx voor de info Shift

[MrE]

Als ik het allemaal goed begrijp en ik volg de tutorial van Wiebe (page 3), kan ik vervolgens welke gegevens ik wil op mijn lcd tonen (afhankelijk van de software dan)?
Er hoeven dus ook geen printjes geetst te worden?

p.s. te gekke tutorial Wiebbe alleen heb ik geen hond (7e plaatje) kan ik het dan toch in elkaar zetten

[Verwijderd]

Uppie

[Verwijderd]

omdat dit niet echt meer ergens over gaat!!
ff voor de duidlkheid! hoe sluit ik nou(als ie binnu is) een 4x20 aan(schemas heb ik zat gezien voor de 4x40 2x20 4x20 maar welke was het nou, ik wil de voeding(ook backlight) uit de pc voeding halen)? met welken onderdelen? en zijn er geen fotos van dat ding doe de conectoren zitte ofzoo(dus een closeup aan de voor/8er kant?) dan kan ik vast een printje laten etsen !!!

[Shift]

^

[Area53]

Op woensdag 04 juli 2001 16:21 schreef MrE het volgende:
Als ik het allemaal goed begrijp en ik volg de tutorial van Wiebe (page 3), kan ik vervolgens welke gegevens ik wil op mijn lcd tonen (afhankelijk van de software dan)?
Er hoeven dus ook geen printjes geetst te worden?

PAS OP!! want volgens mij heeft Wiebe een fout in zijn tutorial zitten, namelijk: "en soldeer deze snoeren dan aan de 5volt, dus de GELE molex plug.":?

Volgens klopt dat niet en moet dat de rode draad zijn.
Geel is 12 Volt.

Correct me if I am wrong.

[delyver]

Op donderdag 05 juli 2001 09:17 schreef Area53 het volgende:

[..]

PAS OP!! want volgens mij heeft Wiebe een fout in zijn tutorial zitten, namelijk: "en soldeer deze snoeren dan aan de 5volt, dus de GELE molex plug.":?

Volgens klopt dat niet en moet dat de rode draad zijn.
Geel is 12 Volt.

Correct me if I am wrong.

KLopt...

[Shift]

Jongens maak jullie geen zorgen, ik zorg voor een goede werkende tutorial met duidelijke aanwijzingen als de LCD's binnen zijn

[Verwijderd]

Op donderdag 05 juli 2001 12:16 schreef Shift het volgende:
Jongens maak jullie geen zorgen, ik zorg voor een goede werkende tutorial met duidelijke aanwijzingen als de LCD's binnen zijn

okee dan!!!! super!!! dit soort mensen moete we het wan hebbu!
zet je dit dan op GoT of stuur je het mee met de LCD(s)???

[Shift]

Ja, dat is een goed idee ik print een tutorial voor jullie uit met stap voor stap bouw aanwijzingen Dat moet dan zeker goed gaan.

Ik ben nu ook bezig om zelf een kast te ontwerpen, tegerwoordig is alles een beetje standaart geworden, alle keesmods zijn ook allemaal hetzelfde raampie, neon, ik wil iets totaal anders. Ik hou jullie wel op de hoogte.

[Shift]

Ik dacht ook aan om zelf (met z'n allen) een software te ontwikkelen voor de LCD. Met z'n allen kunnen we meer bereiken. Ik heb 6 jaar geleden heel vaak geprogrammeerd in Turbo Pascal 7.0, maar ik ben het eigenlijk al een beetje vergeten, de software is momenteel wel een probleem, de ene werk niet of werkt voor de helft, de andere werkt alleen onder 98/ME enz enz.

Ik wil deze dingen kunnen doen :

Voor een server deze statistieken met behulp van SNMP protocol.

- Dataverkeer per dag of per uur en totaal.

En deze

- Totaal hits op je web server.
- Dual processor check.
- Memory
- Disk
- Monitor resolution + freq
- Tijd en datum
- IP nummer bekijken
- Volume bar
- Natuurlijk winamp equalizer en titel-track
- ondersteuning voor 4x20 en 4x40 LCD's
- Button bediend keuze menus
- Softwarematig aan en uit schakelen van fans
en met een toetsbediening.
- Temperatuur aanduiding en fan RPM's.
- Harddisk read/write traffic.

Het is een leuk wenslijst geworden, ik heb geen zin om op smartie(s) te wachten, er zullen vast wel coders tussen ons zitten, als we dit een beetje prof aanpakken kunnen we allemaal mooi gebruik maken van ons LCD's Mischein een Gathering organiseren zodat we met z'n allen aan deze kleine project werken, gedachten uitwisselen en praten.

Het zou wel leuk zijn

[Verwijderd]

Ik ben er al mee bezig in VB (met voorbereiden), maar ik kan maar niet vinden, wat het protocol is
Het is wel een leuk id

[Verwijderd]

Ik heb het nu tot zo:

[Area53]

Op donderdag 05 juli 2001 14:53 schreef Shift het volgende:
Ik dacht ook aan om zelf (met z'n allen) een software te ontwikkelen voor de LCD. Met z'n allen kunnen we meer bereiken. Ik heb 6 jaar geleden heel vaak geprogrammeerd in Turbo Pascal 7.0, maar ik ben het eigenlijk al een beetje vergeten, de software is momenteel wel een probleem, de ene werk niet of werkt voor de helft, de andere werkt alleen onder 98/ME enz enz.
Etc. Etc.

Volgens mijn is hier iemand heel erg goed bezig

Shift nu moet je oppassen anders moet ik jou nog als mijn HELD uitroepen.

[Verwijderd]

hehe lol

[Verwijderd]

kan je niet zodraa windows gestart een welkom bootschap laten zien(als het ff kan, zo groot als het schermpje kan en is het groter dan scrolt hij)? b.v.
Welkom Bill_Gatjes
het is nu 16:03
???
dat zou wel mooi zijn!

[Shift]

Op donderdag 05 juli 2001 15:02 schreef KixAss456 het volgende:
Ik ben er al mee bezig in VB (met voorbereiden), maar ik kan maar niet vinden, wat het protocol is
Het is wel een leuk id

Wat kan je niet vinden ?

[Shift]

Op donderdag 05 juli 2001 16:09 schreef Bill_Gatjes het volgende:
kan je niet zodraa windows gestart een welkom bootschap laten zien(als het ff kan, zo groot als het schermpje kan en is het groter dan scrolt hij)? b.v.
Welkom Bill_Gatjes
het is nu 16:03
???
dat zou wel mooi zijn!

Dat is best makkelijk

[Verwijderd]

Op donderdag 05 juli 2001 16:10 schreef Shift het volgende:

[..]

Wat kan je niet vinden ?

Hoe je nou presies een letter ("A") op het lcd schermpje zet

[Verwijderd]

Op donderdag 05 juli 2001 16:09 schreef Bill_Gatjes het volgende:
kan je niet zodraa windows gestart een welkom bootschap laten zien(als het ff kan, zo groot als het schermpje kan en is het groter dan scrolt hij)? b.v.
Welkom Bill_Gatjes
het is nu 16:03
???
dat zou wel mooi zijn!

Ok, heb ik ook

[EsCo]

Zou ik nog kunnen participeren in de actie of heb je al besteld. Ik heb namelijk bij de vorige actie het verkeerde lcd-tje besteld....

[Verwijderd]

dat wou ik ook, maar ik was ook te laat

[EsCo]

Teringdetering, zit ik hier met een 2x20 zo groot als een autoradio terwijl ik gewoon een kleintje wilde..... boohooo, laten we nog een actie opstarten, kijken of er belangstelling is....

[Verwijderd]

Ik heb belangstelling!!!

waar had je hem gekocht dan?

[EsCo]

Bij eio ook met de actie van hagar. Heb je interesse dan om samen een actie op te starten?

[Verwijderd]

Ja, maar de meeste mensen hebben ze toch al besteld

[Sine]

Op donderdag 05 juli 2001 16:36 schreef Escobar het volgende:
Teringdetering, zit ik hier met een 2x20 zo groot als een autoradio terwijl ik gewoon een kleintje wilde..... boohooo, laten we nog een actie opstarten, kijken of er belangstelling is....

zo groot als een autoradio !?!?

da's wel een leuk displaytje dan
natuurlijk K@% als je hem ik je kast wil bouwen..

in een kastje boven op je monitor misschien ?

- Dataverkeer per dag of per uur en totaal.

Wat dacht je van je up/down snelheid !?
bar graph ??
of in du meter style

[Verwijderd]

Op donderdag 05 juli 2001 16:43 schreef Sine het volgende:
Wat dacht je van je up/down snelheid !?
bar graph ??
of in du meter style

Hoe tha fok.it wou je dat doen?

P.s. wat is een du meter nou presies?

[EsCo]

Op donderdag 05 juli 2001 16:43 schreef KixAss456 het volgende:
Ja, maar de meeste mensen hebben ze toch al besteld

Ik denk dat veel mensen te laat zijn. Deze actie was ook net na die van hagar gestart en heeft ook veel interesse opgewekt...

[Verwijderd]

begin maar een nieuwe topic dan

[EsCo]

Komt voor elkaar momentje...

[EsCo]

En hoppa...

[Shift]

/* LCD Module Software */
/* 17th May 1997 */
/* Copyright 1997 Craig Peacock */
/* WWW - http://www.senet.com.au/~cpeacock */
/* Email - [e-mail] */
/* */
/* Register Select must be connected to Select Printer (PIN 17) */
/* Enable must be connected to Strobe (PIN1) */
/* DATA 0:7 Connected to DATA 0:7 */

#include <dos.h>
#include <string.h>

#define PORTADDRESS 0x378 /* Enter Your Port Address Here */

#define DATA PORTADDRESS+0
#define STATUS PORTADDRESS+1
#define CONTROL PORTADDRESS+2

void main(void)
{
char string[] = {"Testing 1,2,3 "
"It' Works ! "};
char init[10];
int count;
int len;
init[0] = 0x0F; /* Init Display */
init[1] = 0x01; /* Clear Display */
init[2] = 0x38; /* Dual Line / 8 Bits */

outportb(CONTROL, inportb(CONTROL) & 0xDF); /* Reset Control Port - Make sure Forward Direction */

outportb(CONTROL, inportb(CONTROL) | 0x08); /* Set Select Printer (Register Select) */

for (count = 0; count <= 2; count++)
{
outportb(DATA, init[count]);
outportb(CONTROL,inportb(CONTROL) | 0x01); /* Set Strobe (Enable)*/
delay(20); /* Larger Delay for INIT */
outportb(CONTROL,inportb(CONTROL) & 0xFE); /* Reset Strobe (Enable)*/
delay(20); /* Larger Delay for INIT */
}

outportb(CONTROL, inportb(CONTROL) & 0xF7); /* Reset Select Printer (Register Select) */

len = strlen(string);

for (count = 0; count < len; count++)
{
outportb(DATA, string[count]);
outportb(CONTROL,inportb(CONTROL) | 0x01); /* Set Strobe */
delay(2);
outportb(CONTROL,inportb(CONTROL) & 0xFE); /* Reset Strobe */
delay(2);
}
}

[EsCo]

Voor de mensen die te laat waren en toch een display willen -> [topic=177467]

[MrE]

Wat de software betreft zou het mooi zijn als het veel functies aanstuurt vanuit een programma, daarmee bedoel ik het uitlezen van moederboard informatie, muziek display, evt. verbindingsinformatie mbt internet en misschien ook hyperlinks.
en wat dacht je van headlines van Tweakers.net of de meest actuele topics op GOT op de display

een 2x20 al zo groot als een autoradio
hoe groot is de 4x40 dan wel niet?!?
in de guide van Wiebbe (page 3) lijkt 'ie niet zo groot.

[Area53]

Ik heb een Seiko L4034 (40x4) Besteld en die is 190 X 54 X 16.3 mm groot.

[Shift]

Dat wil ik ook eigenlijk, maar er is nog geen reactie om samen te werken.

[Mart!]

In deze thread [topic=177467] is volgens mij een nieuwe actie gestart

[Verwijderd]

Ja, omdat jullie al besteld hadden, en wij waren net te laat dus...

[MrE]

het probleem is dat ik graag wil samenwerken, maar ik kan absoluut niet programeren (nou ok, een hello world applicatie red ik nog net )
Maar ik hoop dat er andere scripters bereid zijn met Shift samen te werken aan een programmaatje dat het meeste uit de lcd haalt.

[GraveR]

Ik was iig van plan om zelf software te gaan ontwikkelen voor de LCD-meuk, maar dan vooral voor Linux. Doel van mn LCD wordt het monitoren van mn server zonder monitor e.d. aan te hoeven sluiten.

Tevens ben ik bereid samen te gaan werken aan windows-projecten. Echter alleen Delphi of Borland C++. Aan VB en Visual C++ doe ik niet

[Shift]

Da's mooi, ik ben ook bezig in delphi, alleen ik kom natuurlijk uit de turbo pascal tijdperk en hoop ben ik vergeten maar ik weet hoe het allemaal moet, object georinteert voor mij nog een beetje nieuw, maar ik zag in delphi dat je nogsteeds met functions en procedures kan werken,

Begin
WriteLn('Hello world');
End;

Dit werkt niet bijvoorbeeld in delphi, hij kent write helemaal niet. Maar ja, ik ben dus weer begonnen met coden.

Ik zal eerst meer info opzoeken om de scherm te initializeren, het stelt niet zo echt veel voor, de scherm aan/uit data en clearscreen data verzenden, en de databus op 4 of 8 bits zetten dan is je scherm ge-int.

[Shift]

In dos en 98/ME is heel makkelijk om hardware direct aan te spreken, in DOS had ik ook een printer poort aansturen gemaakt voor verlichtingen, maar nu de problemo, onder win2k kan je de hardware niet direct aanspreken er moet via de een bepaalde sluis (socket API) gecomuniceerd worden.

Dus heef iemand al ervarig met API's onder delphi ?

[Verwijderd]

Ik ben er mee bezig onder VB, maar met die Equalizer van Winamp kom ik niet verder
Voor de rest wil ut wel lukken

[Area53]

Shift, ik wil helpen, maar ik heb alleen ervaring met Access.
Ik ben net begonen met VB (learing edition).
Dus als ik ergens mee moet helpen, laat maar even weten.

[Verwijderd]

als er nog wat hulp voor de real basic(ook een beetje VB) nodig is dan kan ik wel helpen!!!!
ik heb nog steeds een 386 voor het programeren in basic(doe ik ook op mijn duron, heb dual boot met WinME DOS6.2 en BeOS) en ik kan veel met basic! is er een code voor VB dat je een lcd kan bestuuren? zoja dan wil ik die gaan omzettuh naar basic! dan kan ik mijn 386 MP3 server een lcd geven(hoop dat dat lukt

[Shift]

In basic kan je heel makkelijk met OUT command de printer poort besturen.
Maar ik denk dat we meer de win2k kant opmoeten gaan, binnenkort komt ook de XP uit, en we zijn dus allemaal eindelijk van 9x kernel af. Vandaar moeten we meer gebruikte platformen ondersteunen.

[Verwijderd]

Win2k kent ook de Out, als je maar de goeie dll't aanroept, dit heb ik tot nu toe overgenomen uit de c++ dource van jou:

code:

Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Public Const Data = &H378
Public Const Status = &H378 + 1
Public Const Control = &H378 + 2


Sub SendText(Tekst, Regel As Integer, Clear As Boolean)
    If Clear Then Out Control, Inp(Control) + &HF7
    
    For Postitie = 1 To Len(Tekst)
     Out Data, Mid(Tekst, positie, 1)
     Out Control, Inp(Control) + &H1
     Sleep 2
     Out Control, Inp(Control) + &HFE
     Sleep 2
    Next positie
End Sub

Sub Init()
    Dim Init(2) As Integer
    
    Init(0) = &HF
    Init(1) = &H1
    Init(2) = &H38
    
    Out Control, Inp(Control) + &HDF
    Out Control, Inp(Control) + &H8
    
    For i = 0 To 2
      Out Data, Init(i)
      Out Control, Inp(Control) + &H1
      Sleep 20
      Out Control, Inp(Control) + &HFE
      Sleep 20
    Next i
End Sub

[Verwijderd]

das waar! Windows XP

[Shift]

er ging iets mis

[Shift]

Dit mijn pascal versie voor DOS.

Pogram LCDProggie;
Uses Dos,Crt;

CONST Data = $378;
Status = Data+1;
Control = Data+2;


Procedure Wait;
var i: integer;
Begin
for i := 1 to 10000 do
End;

Procedure LCDIns(Ins: Byte);
Begin
Port[Data] := Ins;
Wait;
Port[Control] := $0C;
Wait;
Port[Control] := $08;
End;

Procedure LChar(Ch: Char);
Begin
Port[Data] := Ord(Ch);
Wait;
Port[Control] := $04;
Wait;
Port[Control] := $00;
End;

Procedure LCDStr(Str: String);
var i: integer;
Begin
for i := 1 to length(Str) do LChar(Str[i])
End;

Procedure Init_Display;
Begin
LCDIns($30);
LCDIns($30);
LCDIns($30);
LCDIns($38);
LCDIns($08);
LCDIns($01);
LCDIns($06);
End;

Begin
Init_Display;
LCDIns($0C);
LCDStr('Hoi Tweakers');
End.

[Verwijderd]

Doet ie van jou het? En wat is die $30 enzo???

[Shift]

Op mijn ouwe lcd van 4 jaar oud, doe ie het wel
Voor de LCD's van ons moet ook gaan werken, mischein moet ik alleen de delay tijd aanpassen.

[Verwijderd]

want van die source die je gister gaf, heb ik dat bovenstaande gebrouwen, dat doet toch heel wat anders

[Shift]

Je moet wel bepaalde instellingen aanpassen. Aande hand van de SEIKO LCD tech info kan je dat doen.

[Verwijderd]

Ja, maar is een beetje lastig proberen, want ik heb mijn LCD'tje nog niet

[Verwijderd]

Op vrijdag 06 juli 2001 10:39 schreef Shift het volgende:
Dit mijn pascal versie voor DOS.

Pogram LCDProggie;
Uses Dos,Crt;

CONST Data = $378;
Status = Data+1;
Control = Data+2;


Procedure Wait;
var i: integer;
Begin
for i := 1 to 10000 do
End;

Procedure LCDIns(Ins: Byte);
Begin
Port[Data] := Ins;
Wait;
Port[Control] := $0C;
Wait;
Port[Control] := $08;
End;

Procedure LChar(Ch: Char);
Begin
Port[Data] := Ord(Ch);
Wait;
Port[Control] := $04;
Wait;
Port[Control] := $00;
End;

Procedure LCDStr(Str: String);
var i: integer;
Begin
for i := 1 to length(Str) do LChar(Str[i])
End;

Procedure Init_Display;
Begin
LCDIns($30);
LCDIns($30);
LCDIns($30);
LCDIns($38);
LCDIns($08);
LCDIns($01);
LCDIns($06);
End;

Begin
Init_Display;
LCDIns($0C);
LCDStr('Hoi Tweakers');
End.

ik ken n beetje pascal, maar dit laat ik omzettu naar een basic code(door n goeie vriend van me)

[Verwijderd]

Waarom pag je mijn code dan niet ??

[Verwijderd]

Op vrijdag 06 juli 2001 10:57 schreef KixAss456 het volgende:
Waarom pag je mijn code dan niet ??

moet je weer zoon dll hebbu! en ik gebruik DOS geen Win2K

[Shift]

Hier wat init info over ons LCDD's

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0
== === === === === === === === === ===
Clear Display 0 0 0 0 0 0 0 0 0 1

Return Home 0 0 0 0 0 0 0 0 1 *

Entry Mode Set 0 0 0 0 0 0 0 1 I/D S

Display ON/OFF 0 0 0 0 0 0 1 D C B

Cursor and Display Shift 0 0 0 0 0 1 S/C R/L * *

Function Set 0 0 0 0 1 DL N F * *

Set CG RAM address 0 0 0 1 A A A A A A

Set DD RAM address 0 0 1 A A A A A A A

Read busy flag and address 0 1 BF A A A A A A A

Write data to CG or DD RAM 1 0 D D D D D D D D

Read data from CG or DD RAM 1 1 D D D D D D D D

Notes
* means 0 or 1 have no effect

Where execution times are given as A / B


A applies for 1/8 duty or 1/11 duty (1 display line)

B applies for 1/16 duty (2 display lines)

The HD44780 automatically initialises (resets) when power is turned on using the internal reset circuit. The following instructions are executed in initialisation. The busy flag (BF) is kept in busy state until initialisation ends. The busy state (BF=1) is 10ms after Vcc rises to 4.5volts.

1. Display clear

2. Function set ..... DL = 1: 8 bit interface
N = 0: 1 line display
F = 0: 5 x 7 dot character font

3. Display ON/OFF ... D = 0: Display OFF
C = 0: Cursor OFF
B = 0: Blink OFF

4. Entry mode set .. I/D = 1: +1 (increment)
S = 0: No shift

5. Write DD RAM
When the rise time of power supply (0.2 -> 4.5) is out
of the range 0.1ms - 10ms, or when the low level width
of power OFF (less than 0.2) is less than 1ms, the
internal reset circuit will not operate normally.
In this case, initialisation will not be performed
normally. Initialise by instruction, as detailed below.

If the power supply conditions for correctly operating the internal reset circuit are not met, initialisation by instruction is required.
Initialising by instruction

When interface is 8-bits wide


[Power ON]

[ Wait more than 15ms ]
[after Vdd rises to 4.5v]

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0 Can't check BF before this instruction
0 0 0 0 1 1 * * * * Function set (8-bit interface)

[Wait more than 4.1ms]

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0 Can't check BF before this instruction
0 0 0 0 1 1 * * * * Function set (8-bit interface)

[Wait more than 100us]

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0 Can't check BF before this instruction
0 0 0 0 1 1 * * * * Function set (8-bit interface)

BF can be checked after the following
instructions. When BF is not checked,
the waiting time between instructions
is longer than the execution time.
(See Instruction set)

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0
0 0 0 0 1 1 N F * * Function set [8-bit Interface ]
[Specify display lines]
RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0 [and character font ]
0 0 0 0 0 0 1 0 0 0 Display OFF These cannot be
changed afterwards
RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0
0 0 0 0 0 0 0 0 0 1 Display ON

RS R/W DB7 DB6 DB5 DB4 DB3 DB2 DB1 DB0
0 0 0 0 0 0 0 1 I/D S entry mode set