LCDInfo.com

http://www.lcdinfo.com
It is currently Fri Mar 29, 2024 15:09

All times are UTC + 2 hours




Post new topic Reply to topic  [ 13 posts ] 
Author Message
 Post subject: T6963C ohjelmointia
PostPosted: Wed Feb 19, 2003 11:20 
ADMIN EDIT: Tähän threadiin on napattu suomenkieliset viestit täältä, joten mahdolliset outoudet voi johtua siitä.

------------------------------------

Code:
void WaitDisplayReady(void)
// reads the display status byte and checks
// that the display is ready before writing

// doesn't have any check in case the status byte
// can't be read so this situation may cause a lockup

{

  int Tmp;

       Tmp = DlPortReadPortUshort(BASE + 0x402);
       Tmp = Tmp & 0x1F;
       Tmp = Tmp | 0x20;
       DlPortWritePortUshort(BASE + 0x402, Tmp);

       do{
             DlPortWritePortUshort(BASE + 2, 0x20 + 4 + 2);     //In, CD=1, CS=0, Wr=1
             DlPortWritePortUshort(BASE + 2, 0x20 + 4 + 2 + 8); //In, CD=1, CS=0, Wr=1, Rd=0
             Tmp = DlPortReadPortUshort(BASE);
             DlPortWritePortUshort(BASE + 2, 0x20 + 4 + 2);     //In, CD=1, CS=0, Wr=1

       }while ((Tmp & 3) != 3 );
       DlPortWritePortUshort(BASE + 2, 0);
   
}



Onko kukaan kääntäny tuota VB:lle?

lähinnä
Code:
while ((Tmp & 3) != 3 );
tuon jos sais käännettyä..


Top
  
 
 Post subject:
PostPosted: Wed Feb 19, 2003 16:04 
Offline

Joined: Sun May 05, 2002 22:05
Posts: 2063
Location: Lappeenranta, Finland
Has anyone translated this busy flag checking routine to VB ?

edit:
It's already translated here: http://www.skippari.net/phpBB2/viewtopic.php?p=559#559


Top
 Profile  
 
PostPosted: Wed Feb 19, 2003 16:57 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
tätäkö meinasit?

Code:
Public Sub WaitDisplayReady()
Dim lngTmp As Long
Dim lngDiff As Long

lngTmp = GetTickCount()
Do Until lngDiff > 2
    lngDiff = GetTickCount() - lngTmp
    DoEvents
Loop

End Sub


mutta eihän tuo lue näytöltä busy flagia? paitsi jos tuo GetTickCount() ei sitä tee..

Sorry finnish text...

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
 Post subject:
PostPosted: Wed Feb 19, 2003 17:27 
Offline

Joined: Sun May 05, 2002 22:05
Posts: 2063
Location: Lappeenranta, Finland
Tämmöistä pätkää tarkoitin:

Code:
Do
    Call DlPortWritePortUshort(intBase + 2, 39)    '0x20 | CDHI | WRHI | RDLO | CELO
     intTmp = DlPortReadPortUshort(intBase)
    Call DlPortWritePortUshort(intBase + 2, 32) '0x20 + CEHI
Loop While (intTmp And 3) <> 3
Call DlPortWritePortUshort(intBase + 2, 0)
End Sub


Tuosta kyllä on tainnut copy/pasten yhteydessä jäädä osa pois, mutta eiköhän sen saa sen C koodin pohjalta kursittua kasaan ?


Top
 Profile  
 
 Post subject:
PostPosted: Wed Feb 19, 2003 17:31 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
Tuommonen pätkä on näköjään menny ohi..
Eiköhän tuolla selviä.. Onhan tuo C++ kin hallussa mutta saa se jäädä tuonne sulautettuihin..

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
 Post subject:
PostPosted: Wed Feb 19, 2003 20:44 
Offline

Joined: Sun May 05, 2002 22:05
Posts: 2063
Location: Lappeenranta, Finland
Miikka was just looking for VB code for the busy flag checking routine. So there isn't anything special in the finnish text.


Top
 Profile  
 
 Post subject:
PostPosted: Thu Feb 20, 2003 11:14 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
Thanks!

wiring?

Onko sulla Henri ollu sellasta ongelmaa että pixelit ei halua piirtyä kahdelle reunimmaisille riveille, autowrite moodissa kyllä menee.
Näyttönähän oli Tietomyrskyn 240x128, koodissa varmaan vikaa..

Fontin leveys mulla on 8 pixeli eli vähän nuita joutuu muokkaamaan.

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
 Post subject:
PostPosted: Thu Feb 20, 2003 17:35 
Offline

Joined: Sun May 05, 2002 22:05
Posts: 2063
Location: Lappeenranta, Finland
Miikka wrote:
Onko sulla Henri ollu sellasta ongelmaa että pixelit ei halua piirtyä kahdelle reunimmaisille riveille, autowrite moodissa kyllä menee.

En itse tuota ole huomannut, mutta jotain tuon suuntaistahan Marc ensimmäisessä viestissä mainitsi. Ja taisi muuten olla jotain mainintaa siellä toisessa VB ja T6963C threadissakin.


Top
 Profile  
 
 Post subject: fff
PostPosted: Fri Feb 21, 2003 15:35 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
Minä en saanu edes mitään "kuvan" mukaista järkevää luettua pixtureboxista aikasemmalla sorsalla mikä oli esillä..

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
 Post subject: Re: fff
PostPosted: Fri Feb 21, 2003 15:48 
Offline

Joined: Sun May 05, 2002 22:05
Posts: 2063
Location: Lappeenranta, Finland
Miikka wrote:
Minä en saanu edes mitään "kuvan" mukaista järkevää luettua pixtureboxista aikasemmalla sorsalla mikä oli esillä..

Tiedä vaikuttaako mitä, mutta se on ilmeisesti .NETillä tehty. Itse en osaa näihin VB hommiin oikein mitään sanoa.


Top
 Profile  
 
 Post subject:
PostPosted: Fri Feb 21, 2003 18:01 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
Mitähän eroa sitten VB:llä ja .NETillä on, ei tietoa.. pientä muokkausta niin toimii VB:ssä.. PrintLCDText() Funktion stringin lenght "muuttujankaan" lukeminen ei toiminut mutta eiköhän tuohon joku korvaava löydy..

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
 Post subject: Re: fff
PostPosted: Tue Feb 25, 2003 11:05 
Henri wrote:
Miikka wrote:
Minä en saanu edes mitään "kuvan" mukaista järkevää luettua pixtureboxista aikasemmalla sorsalla mikä oli esillä..

Tiedä vaikuttaako mitä, mutta se on ilmeisesti .NETillä tehty. Itse en osaa näihin VB hommiin oikein mitään sanoa.


NET:tiä ehkä mutta vaikka miten päin yrittää niin ei toimi.. BMP.Point(x,y) kyllä löytyy VB:stäkin mutta sieltä tulee vissiin vain suurin long arvo mikä voi tulla

Code:
 

    Public Sub WaitDisplayReady()
        Dim shtTemp As Short

        shtTemp = DlPortReadPortUshort(BASE_DADES + &H402)
        shtTemp = shtTemp And &H1F
        shtTemp = shtTemp Or &H20
        DlPortWritePortUshort(BASE_DADES + &H402, shtTemp)

        Do
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2)     
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2 + 8) 
            shtTemp = DlPortReadPortUshort(BASE_DADES)
            DlPortWritePortUshort(BASE_DADES + 2, &H20 + 4 + 2)     
        Loop While ((shtTemp And 3) <> 3)
        DlPortWritePortUshort(BASE_DADES + 2, 0)
    End Sub
 


tuokin sitten vielä.. palauttaa kokoajan järjettömän suuren negatiivisen arvon, ei lähellekkkään kolmea.. Mahtaa olla kunnon floppi koko VB


Top
  
 
 Post subject:
PostPosted: Tue Feb 25, 2003 11:06 
Offline

Joined: Wed Feb 19, 2003 13:37
Posts: 16
Empä ollu sitten edes kirjautunut sisälle..

_________________
Rengas joka ei vedä, se jarruttaa - Nissan Sunny 1.6 SLX 4x4


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 13 posts ] 

All times are UTC + 2 hours


Who is online

Users browsing this forum: No registered users and 23 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group