Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Komunikace UART ATmega8

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
jirkasi



Založen: Apr 27, 2008
Příspěvky: 49

PříspěvekZaslal: ne prosinec 25 2011, 19:04    Předmět: Komunikace UART ATmega8 Citovat

Zdravím začal jsem se sériovým portem na atmega8 a pokouším zatím posílat jen znaky jako echo, mám to propojené přes max232, funguje to, ale chová se to divně, hlavně to vrací úplně jiné znaky než tam tomu pošlu a někdy to nevrátí nic. ten program je takhle: Navíc se mi zdá že ty znaky zůstávají na portu

#include <avr/io.h>

#include <avr/signal.h>
#include <avr/interrupt.h>
#define UART_BAUD_RATE 2400

#define F_CPU 1000000
#define UART_BAUD_CALC(UART_BAUD_RATE,F_CPU) ((F_CPU)/((UART_BAUD_RATE)*16l)-1)

#define RBUFFLEN 40 //Pufferlänge für seriellen Empfang

volatile unsigned char rbuff[RBUFFLEN]; // Ringpuffer
volatile uint8_t rbuffpos, // Position, die als nächstes gelesen werden muß im Ringpuffer
rbuffcnt, // Anzahl zu lesender Zeichen im Puffer
udr_data; // Daten aus dem UART (volatile, damit nicht wegoptimiert wird vom Präprozessor)

// Interruptroutine, die Zeichen aus dem UART sofort ausliest, wenn empfangen
SIGNAL (SIG_UART_RECV)
{
udr_data= UDR; //Byte auf jeden Fall abholen, sonst Endlosinterrupt

if(rbuffcnt < RBUFFLEN) // keinen Zeichen in einem vollen Ringpuffer überschreiben
rbuff[(rbuffpos+rbuffcnt++) % RBUFFLEN] = udr_data; // welche Position? Gelesene Zeichenpos + Anzahl Zeichen MODULO Pufferlänge
// (von 0 wieder anfangen, wenn Ende erreicht)
}

// Nächstes zu lesendes Zeichen aus Ringpuffer zurückgeben
unsigned char ser_getc (void)
{
unsigned char c;

while(!rbuffcnt); // Warte bis ein Zeichen vorhanden ist

cli(); // Interruptbehandlung kurz aussetzen. Ab jetzt muß es schnell gehen (wenig Befehle), damit Zeichen, die
// ab jetzt eintreffen nicht verloren gehen.
rbuffcnt--; // anschl. ein Zeichen weniger zum ausgeben
c = rbuff [rbuffpos++]; // Zeichen holen, was nach dem bereits gelesenen liegt
if (rbuffpos >= RBUFFLEN) rbuffpos = 0; // wenn hinterstes Zeichen (rechts im Puffer) gelesen wurde, dann wieder vorne anfangen

sei(); // Interruptbehandlung wieder aktivieren

return (c); // Zeichen zurückgeben
}

void uart_putc(unsigned char c)
{
while(!(UCSRA & (1 << UDRE))); // warte, bis UDR bereit

UDR = c; // sende Zeichen
}

void uart_puts (char *s)
{
while (*s)
{ // so lange *s != NULL
uart_putc(*s);
s++;
}
}

void uart_ini ()
{
sei(); // Interruptbehandlung aktivieren

UCSRB |= (1 << TXEN); // UART TX (senden) einschalten
UCSRB |= (1 << RXEN ); // UART RX (empfangen) einschalten
UCSRB |= (1 << RXCIE); // Interruptauslösung für eingehende Daten aktivieren
UCSRC |= (1<<URSEL)|(3<<UCSZ0); // Asynchron, 8N1
UBRRH=(uint8_t)(UART_BAUD_CALC(UART_BAUD_RATE,F_CPU)>>Cool; // tady je 8
UBRRL=(uint8_t)UART_BAUD_CALC(UART_BAUD_RATE,F_CPU);
}




void main()
{
unsigned char zeichen;
DDRC=0x02;
uart_ini();
//lcd_ini();
int g;
unsigned int h;
while (1)
{
zeichen = ser_getc();
h=atoi(zeichen);

uart_putc (zeichen);
PORTC = 0X02;
for(g=0;g<2000;g++);
PORTC=0x00;}

}
}

nevíte někdo co s tím? Díky
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: út prosinec 27 2011, 9:50    Předmět: Citovat

citace:
zeichen = ser_getc();
h=atoi(zeichen);
uart_putc (zeichen);

Použití atoi() je tu úplně nelogické.
Funce atoi() konvertuje string na číslo, např "1234" na 1234.

Proč nezačít s jednoduchým kódem, např. z datašítu:
kód:
// vrací znak přijatý z terminálu
#include <avr/io.h>

//------------------------------------------------------------
void USART_Init( unsigned int baud )
{
      /* Set baud rate */
      baud = (F_CPU / (16UL * baud)) - 1;
      UBRRH = (unsigned char)(baud>>8);
      UBRRL = (unsigned char)baud;
      /* Enable receiver and transmitter */
      UCSRB = (1<<RXEN)|(1<<TXEN);
}

//------------------------------------------------------------
void USART_Transmit( unsigned char data )
{
      /* Wait for empty transmit buffer */
      while ( !( UCSRA & (1<<UDRE)) )
      ;
      /* Put data into buffer, sends the data */
      UDR = data;
}

//------------------------------------------------------------
unsigned char USART_Receive( void )
{
      /* Wait for data to be received */
      while ( !(UCSRA & (1<<RXC)) )
      ;
      /* Get and return received data from buffer */
      return UDR;
}


//------------------------------------------------------------
//------------------------------------------------------------
int main()
{
unsigned char bajt;

   USART_Init(9600);   // baud = 9600

   while(1)
   {
      bajt = USART_Receive();
      USART_Transmit(bajt);
   }
}


Když posíláš kód, tak ho dej mezi tagy (code) a (/code), závorky jsou hranaté. [/code]

Edit:
Ještě jsem si všimnul, že máš oscilátor 1 MHz, zřejmě interní.
S ním bude max. baud 4800.
V datašítu je tabulka použitelných baudových rychlostí pro různé kmitočty oscilátoru.

A pro zařízení, které má spolehlivě chodit, se používá krystalový oscilátor.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirkasi



Založen: Apr 27, 2008
Příspěvky: 49

PříspěvekZaslal: út prosinec 27 2011, 21:08    Předmět: Citovat

díky moc, ale prostě to nefunguje, sice to něco pošle zpět, ale jednou dvakrát to pošle zpět správný znak a pak to pošle nějaký nesmyslný znak a ten mikrokontrolér ten správný znak pokud mu to pošlu tak ho ani nerozpozná, zkoušel jsem to jako 'X', nebo jako přímo int tj jestli hodnota char =88, nepozná to stejně, pak se mi zdá že to zůstává i v bufferu sériového portu, že když tam těch znaků natlačím třeba 5 tak najednou začnou lézt správné znaky a pak se to zase zahltí nějakým šumem. Tady je ten program co na to používám, dělám to v devc++, ale asi je to asi nesmyslná cesta, asi se na to vykašlu a zkusím koupit něco hotovýho, dík
kód:

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
HANDLE hport;
DWORD status;
DWORD znaku;
 char prijmuto[6];
 char bd[200];
  unsigned int *k;
  char *l;
int p1,p2,p3;
 char d[2];
  HWND hwnd,hwnda,hwndb,hwndc,hwndd,hwnde,hwndf,hwndg;
/*  Declare Windows procedure  */
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);




char ReadABuffer()
{
OVERLAPPED *Overlapped = ( OVERLAPPED *)LocalAlloc(LMEM_ZEROINIT, sizeof(OVERLAPPED));
DWORD dwCommEvent;
DWORD dwRead;
char  chRead;
ZeroMemory(&bd,200*sizeof(char));
if (!SetCommMask(hport, EV_RXCHAR))
{
   printf("Error setting communications event mask!!! \n");
   return 0;
}
for ( ;; )
{
 
   if (WaitCommEvent(hport, &dwCommEvent, NULL)) {
      do {
         if (ReadFile(hport, &chRead, 1, &dwRead, Overlapped))
            {
 
                           sprintf(bd,"%s%c",bd,chRead);
                             SetWindowText(hwnd,bd);//tady to píšu na lištu
                             return(chRead);
                           
                             }
           
         else
            {
           
            break;
            }
      } while (dwRead);
   }
   else
      // Error in WaitCommEvent
      return 0;
      //break;
}
}
BOOL WriteABuffer(char * lpBuf, DWORD dwToWrite)
{
   OVERLAPPED osWrite = {0};
   DWORD dwWritten;
   DWORD dwRes;
   BOOL fRes;

   osWrite.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
   if (osWrite.hEvent == NULL) return FALSE;

   if (!WriteFile(hport, lpBuf, dwToWrite, &dwWritten, &osWrite))
   {
      if (GetLastError() != ERROR_IO_PENDING)
      {
        fRes = FALSE;
      }
      else
      {
         dwRes = WaitForSingleObject(osWrite.hEvent, INFINITE);
         switch(dwRes)
         {
            case WAIT_OBJECT_0:
                 if (!GetOverlappedResult(hport, &osWrite, &dwWritten, FALSE))
                 {
                     fRes = FALSE;
                 }
                 else
                 {
                    fRes = TRUE;
                 }
                 break;
           
            default:
                fRes = FALSE;
                break;
         }
      }
   }
   else
   {
      fRes = TRUE;
   }
   CloseHandle(osWrite.hEvent);
   return (fRes);
}

/*  Make the class name into a global variable  */
char szClassName[ ] = "WindowsApp";

int WINAPI WinMain (HINSTANCE hThisInstance,
                    HINSTANCE hPrevInstance,
                    LPSTR lpszArgument,
                    int nFunsterStil)

{
                /* This is the handle for our window */
    MSG messages;            /* Here messages to the application are saved */
    WNDCLASSEX wincl;        /* Data structure for the windowclass */
ZeroMemory(&bd,200*sizeof(char));
    /* The Window structure */
    wincl.hInstance = hThisInstance;
    wincl.lpszClassName = szClassName;
    wincl.lpfnWndProc = WindowProcedure;      /* This function is called by windows */
    wincl.style = CS_DBLCLKS;                 /* Catch double-clicks */
    wincl.cbSize = sizeof (WNDCLASSEX);

    /* Use default icon and mouse-pointer */
    wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
    wincl.lpszMenuName = NULL;                 /* No menu */
    wincl.cbClsExtra = 0;                      /* No extra bytes after the window class */
    wincl.cbWndExtra = 0;                      /* structure or the window instance */
    /* Use Windows's default color as the background of the window */
    wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND;

    /* Register the window class, and if it fails quit the program */
    if (!RegisterClassEx (&wincl))
        return 0;

    /* The class is registered, let's create the program*/
    hwnd = CreateWindowEx (
           0,                   /* Extended possibilites for variation */
           szClassName,         /* Classname */
           "Windows App",       /* Title Text */
           WS_OVERLAPPEDWINDOW, /* default window */
           CW_USEDEFAULT,       /* Windows decides the position */
           CW_USEDEFAULT,       /* where the window ends up on the screen */
           544,                 /* The programs width */
           375,                 /* and height in pixels */
           HWND_DESKTOP,        /* The window is a child-window to desktop */
           NULL,                /* No menu */
           hThisInstance,       /* Program Instance handler */
           NULL                 /* No Window Creation data */
           );

    /* Make the window visible on the screen */
    ShowWindow (hwnd, nFunsterStil);
hwnda=CreateWindowEx(WS_EX_CLIENTEDGE,"BUTTON","otevri",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON ,10,20,70,25,hwnd,0,hThisInstance,NULL);
hwndb=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","",WS_CHILD | WS_VISIBLE  ,10,50,70,25,hwnd,0,hThisInstance,NULL);
hwndc=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","",WS_CHILD | WS_VISIBLE  ,110,50,70,25,hwnd,0,hThisInstance,NULL);
hwndd=CreateWindowEx(WS_EX_CLIENTEDGE,"BUTTON","posli",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON ,110,20,70,25,hwnd,0,hThisInstance,NULL);

    /* Run the message loop. It will run until GetMessage() returns 0 */
    while (GetMessage (&messages, NULL, 0, 0))
    {
        /* Translate virtual-key messages into character messages */
        TranslateMessage(&messages);
        /* Send message to WindowProcedure */
        DispatchMessage(&messages);
    }

    /* The program return-value is 0 - The value that PostQuitMessage() gave */
    return messages.wParam;
}


/*  This function is called by the Windows function DispatchMessage()  */

LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    switch (message)                  /* handle the messages */
    {
      case WM_COMMAND:
           {
       
           if(lParam==(LPARAM)hwnda)
           {
           int a=GetWindowTextLength(hwndb);
           char b[a++];
           GetWindowText(hwndb,b,a);
         //tady se do okna napíše COM1
              hport=CreateFile(b,GENERIC_READ | GENERIC_WRITE ,0,NULL ,OPEN_EXISTING ,0,NULL); //otevře port
if (hport==INVALID_HANDLE_VALUE)MessageBox(hwnd,"nepodarilo se otevrit port","chyba",MB_YESNO);
  else
  SetWindowText(hwnd,b);
           }
            if(lParam==(LPARAM)hwndd)//tady to posílá do comu data a získané se zobrazí na liště
           {
           int a=GetWindowTextLength(hwndc);
           char b[a++];
           char kl[2];
           GetWindowText(hwndc,b,a);
        unsigned int c=atoi(b);
       char tre=(char)c;
        l=&tre;//zkoušel jsem i posílat pointery, je to furt to samý nefunguje to
         k=&c;
         sprintf(kl,"%c",*l);SetWindowText(hwndf,kl);
          ZeroMemory(&d,2*sizeof(char));
          sprintf(d,"%c",c);
          SetWindowText(hwndd,d);
          WriteABuffer(d,2);
     ReadABuffer();
 
           }
           }
           break; 
        case WM_DESTROY:
            {CloseHandle(hport);
                        PostQuitMessage (0); }      /* send a WM_QUIT to the message queue */
            break;
        default:                      /* for messages that we don't deal with */
            return DefWindowProc (hwnd, message, wParam, lParam);
    }

    return 0;
}


Naposledy upravil jirkasi dne st prosinec 28 2011, 9:55, celkově upraveno 1 krát.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirkasi



Založen: Apr 27, 2008
Příspěvky: 49

PříspěvekZaslal: út prosinec 27 2011, 21:09    Předmět: Citovat

sorry zapomněl jsem na ty značky, používám nastavení portu na 2400 Baud
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mtajovsky



Založen: Sep 19, 2007
Příspěvky: 3698
Bydliště: Praha

PříspěvekZaslal: út prosinec 27 2011, 22:37    Předmět: Citovat

1) je třeba zjistit, jestli atmega přijme správná data a jen odešle špatná nebo už přijme špatně

2) pokud k tomu není zvláštní důvod, proč máte na straně PC pro rozchození komunikace ovelapped funkce. To je na uchození daleko složitější a předpokládá to, že na úrovni HW to funguje bezchybně. To je součást nečeho většího? Pro rozchození komunikace po RS232 bych použil úplně nejjednodušší synchronní způsob - CreateFile, SetupComm, BuildCommDCB + SetCommState, SetCommTimeouts, a pak už rovnou WriteFile a ReadFile, případně ClearCommError.

To nakonfigurování RS232 ve vašem kódu nějak nevidím, je třeba si dát pozor na nastavení RtsControl a DtrControl.

Tohle je vyzkoušený úryvek kódu pro otevření portu a jeho nastavení. cfgdt jsou externí konfigurační data, musíte si doplnit proměnné, které jsou definovány jinde:

kód:

// ------------------------ OPEN COMM ----------------------
// Funkce pro otevreni serioveho kanalu na zarizeni.

void open_comm(void)
{
char t[50];
DCB comm_blok;
COMMTIMEOUTS comm_to;
HANDLE comm_device;

   strcpy(t, "\\\\.\\");
   strcat(t, cfgdt.port);
   comm_device = CreateFile(t, GENERIC_READ|GENERIC_WRITE,
                            0, NULL, OPEN_EXISTING,
                            NULL, NULL);
   if(comm_device == INVALID_HANDLE_VALUE) // otevri port
   {
       MessageBox(MainWindowHandle, STR(ID_S_OpenCommErr), "KTA",
           MB_OK|MB_ICONEXCLAMATION);
       return;                                              // navrat pri chybe
   }

   SetupComm(comm_device, 7000L, 7000L); // nastav I/O fronty

   strstream(t, sizeof(t), ios::out) << cfgdt.port   <<
             ":9600,n,8," << cfgdt.stopbits << ends; // sestav retezec parametru
   if(!BuildCommDCB(t, &comm_blok))       // sestav ridici blok spojeni
   {
       MessageBox(MainWindowHandle, STR(ID_S_OpenCommErr), "KTA",
           MB_OK|MB_ICONEXCLAMATION);
       CloseHandle(comm_device);               // navrat pri chybe
       comm_device = INVALID_HANDLE_VALUE;
       return;
   }

   comm_blok.fBinary = 1;                         // binarni prenos
   comm_blok.fOutxCtsFlow = 0;                // nastav pouziti signalu
   comm_blok.fOutxDsrFlow = 0;
   comm_blok.fRtsControl = RTS_CONTROL_ENABLE;// rizeni RTS
   comm_blok.fDtrControl = DTR_CONTROL_ENABLE;// rizeni DTR
   comm_blok.fDsrSensitivity = false;
   comm_blok.EvtChar = '\xff';                   // nastav markant

   if(!SetCommState(comm_device, &comm_blok))
   {
       MessageBox(MainWindowHandle, STR(ID_S_OpenCommErr), "KTA",
           MB_OK|MB_ICONEXCLAMATION);
       CloseHandle(comm_device);
       comm_device = INVALID_HANDLE_VALUE;
       return;
   }

   if(!SetCommTimeouts(comm_device, &comm_to))
   {
      MessageBox(MainWindowHandle, STR(ID_S_OpenCommErr), "KTA",
        MB_OK|MB_ICONEXCLAMATION);
      CloseHandle(comm_device);
      comm_device = INVALID_HANDLE_VALUE;
      return;
   }

. . .

atd.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: st prosinec 28 2011, 6:39    Předmět: Citovat

citace:
sorry zapomněl jsem na ty značky

Klikni na "Upravit" v tvém příspěvku a dopiš je tam.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: st prosinec 28 2011, 7:25    Předmět: Citovat

1. Zkusil jsem přeložit tvůj kód pro Avr.
Výsledek je na obrázku. Hromada chyb a varování.
Takže nerozumím jak jsi s tím mohl něco zkoušet.

2. Po odstranění chyb a kompilaci jsem kód zkoušel na mé desce
s Atmega8 a krystalovým oscilátorem.
Funguje spolehlivě s terminálem v PC.

3. Doporučuji nejdřív zkoušet kód s terminálem a pak teprve s vlastním programem.
Pokud testuješ nevyzkoušený kód v mproc s nevyzkoušeným PC programem, tak je těžké najít kde je chyba.

4. Problém může být i v nepřesném interním oscilátoru.
To jde také zjistit pomocí terminálu a jednoduchého programu v mproc.
Oscilátor se dá doladit změnou registru OSCCAL.



build.gif
 Komentář:

Stáhnout
 Soubor:  build.gif
 Velikost:  24.91 kB
 Staženo:  173 krát

Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirkasi



Založen: Apr 27, 2008
Příspěvky: 49

PříspěvekZaslal: st prosinec 28 2011, 9:58    Předmět: Citovat

nevím, mě to žádné takové chyby nenapsalo, používám avr studio 5. Zkusím někde sehnat nějaký krystal jestli to bude fungovat díky
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: st prosinec 28 2011, 11:42    Předmět: Citovat

citace:
mě to žádné takové chyby nenapsalo

Tak nad tím je třeba se zamyslet.
Posílat kód který jsi opravdu použil.
A přenést ho přes Cntrl-C Cntrl-V bez úprav.
Jinak tady bádáme nad něčím co není pravda.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jirkasi



Založen: Apr 27, 2008
Příspěvky: 49

PříspěvekZaslal: st prosinec 28 2011, 15:35    Předmět: Citovat

zdravím, tak jsem to předělal, no pořád si to posílá zpátky nesmysly, navíc to pošle jeden znak dva znaky a pak se to nějak zasekne a už to nepošle nic, zkoušel jsem to na 3 portech a pokaždý se to chová stejně
kód:

#include <windows.h>
#include <cstdio>
using namespace std;
/*  Declare Windows procedure  */
LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM);
HWND hwnd,hwnda,hwndb,hwndc,hwndd,hwnde;
HANDLE hComm;
DCB m_dcb;
BOOL m_bPortReady;
DWORD iBytesWritten;
 char br[10];
          BYTE res;
          unsigned int c;
COMMTIMEOUTS m_CommTimeouts;

char szClassName[ ] = "WindowsApp";
BOOL OpenPort(int number)
{
char portname[9];
ZeroMemory(&portname,9*sizeof(char));
sprintf(portname,"//./COM%d",number);

hComm = CreateFile(portname,
                      GENERIC_READ | GENERIC_WRITE,
                      0,
                      0,
                      OPEN_EXISTING,
                      0,
                      0);
if(hComm==INVALID_HANDLE_VALUE){
   return false;}
   else
   return true;

}


BOOL ConfigurePort(DWORD BaudRate, BYTE ByteSize,
                               DWORD fParity, BYTE Parity, BYTE StopBits)
{
   
   
    if((m_bPortReady = GetCommState(hComm, &m_dcb))==0)
   {
      MessageBox(hwnd,"GetCommState Error","Error",MB_OK+MB_ICONERROR);
      CloseHandle(hComm);
       return false;
   }
   
    m_dcb.BaudRate =BaudRate;
    m_dcb.ByteSize = ByteSize;
    m_dcb.Parity =Parity ;
    m_dcb.StopBits =StopBits;
    m_dcb.fBinary=TRUE;
    m_dcb.fDsrSensitivity=false;
    m_dcb.fParity=fParity;
    m_dcb.fOutX=false;
    m_dcb.fInX=false;
    m_dcb.fNull=false;
    m_dcb.fAbortOnError=TRUE;
    m_dcb.fOutxCtsFlow=FALSE;
    m_dcb.fOutxDsrFlow=false;
    m_dcb.fDtrControl=DTR_CONTROL_DISABLE;
    m_dcb.fDsrSensitivity=false;
    m_dcb.fRtsControl=RTS_CONTROL_DISABLE;
    m_dcb.fOutxCtsFlow=false;
    m_dcb.fOutxCtsFlow=false;

    m_bPortReady = SetCommState(hComm, &m_dcb);
    if(m_bPortReady ==0)
    {
      MessageBox(hwnd,"SetCommState Error","Error",MB_OK+MB_ICONERROR);
      CloseHandle(hComm);
      return false;
   }
    return true;
}

BOOL WriteByte(BYTE bybyte)
{
    iBytesWritten=0;
    if(WriteFile(hComm,&bybyte,1,&iBytesWritten,NULL)==0)
        return false;
    else
        return true;
}

BOOL ReadByte(BYTE &resp)
{
    BYTE rx;
    resp=0;

    DWORD dwBytesTransferred=0;

    if (ReadFile (hComm, &rx, 1, &dwBytesTransferred, 0))
    {
        if (dwBytesTransferred == 1)
        {
            resp=rx;
           return true;
        }
   }
   return false;
}

void ClosePort()
{
CloseHandle(hComm);
return;
}

BOOL SetCommunicationTimeouts(DWORD ReadIntervalTimeout,
                                          DWORD ReadTotalTimeoutMultiplier,
                                          DWORD ReadTotalTimeoutConstant,
                                          DWORD WriteTotalTimeoutMultiplier,
                                          DWORD WriteTotalTimeoutConstant)
{
    if((m_bPortReady = GetCommTimeouts (hComm, &m_CommTimeouts))==0)
        return false;
    m_CommTimeouts.ReadIntervalTimeout =ReadIntervalTimeout;
    m_CommTimeouts.ReadTotalTimeoutConstant =ReadTotalTimeoutConstant;
    m_CommTimeouts.ReadTotalTimeoutMultiplier =ReadTotalTimeoutMultiplier;
    m_CommTimeouts.WriteTotalTimeoutConstant = WriteTotalTimeoutConstant;
    m_CommTimeouts.WriteTotalTimeoutMultiplier =WriteTotalTimeoutMultiplier;
   m_bPortReady = SetCommTimeouts (hComm, &m_CommTimeouts);
   
   if(m_bPortReady ==0)
   {
        MessageBox(hwnd,"StCommTimeouts function failed",
                   "Com Port Error",MB_OK+MB_ICONERROR);
      CloseHandle(hComm);
      return false;
   }
   return true;
}


int WINAPI WinMain (HINSTANCE hThisInstance,
                    HINSTANCE hPrevInstance,
                    LPSTR lpszArgument,
                    int nFunsterStil)

{
                  /* This is the handle for our window */
    MSG messages;            /* Here messages to the application are saved */
    WNDCLASSEX wincl;        /* Data structure for the windowclass */

    /* The Window structure */
    wincl.hInstance = hThisInstance;
    wincl.lpszClassName = szClassName;
    wincl.lpfnWndProc = WindowProcedure;      /* This function is called by windows */
    wincl.style = CS_DBLCLKS;                 /* Catch double-clicks */
    wincl.cbSize = sizeof (WNDCLASSEX);

    /* Use default icon and mouse-pointer */
    wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION);
    wincl.hCursor = LoadCursor (NULL, IDC_ARROW);
    wincl.lpszMenuName = NULL;                 /* No menu */
    wincl.cbClsExtra = 0;                      /* No extra bytes after the window class */
    wincl.cbWndExtra = 0;                      /* structure or the window instance */
    /* Use Windows's default color as the background of the window */
    wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND;

    /* Register the window class, and if it fails quit the program */
    if (!RegisterClassEx (&wincl))
        return 0;

    /* The class is registered, let's create the program*/
    hwnd = CreateWindowEx (
           0,                   /* Extended possibilites for variation */
           szClassName,         /* Classname */
           "Windows App",       /* Title Text */
           WS_OVERLAPPEDWINDOW, /* default window */
           CW_USEDEFAULT,       /* Windows decides the position */
           CW_USEDEFAULT,       /* where the window ends up on the screen */
           544,                 /* The programs width */
           375,                 /* and height in pixels */
           HWND_DESKTOP,        /* The window is a child-window to desktop */
           NULL,                /* No menu */
           hThisInstance,       /* Program Instance handler */
           NULL                 /* No Window Creation data */
           );

    /* Make the window visible on the screen */
    ShowWindow (hwnd, nFunsterStil);
hwnda=CreateWindowEx(WS_EX_CLIENTEDGE,"BUTTON","otevri",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON ,10,20,100,25,hwnd,0,hThisInstance,NULL);
hwndb=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","4",WS_CHILD | WS_VISIBLE | ES_NUMBER  ,10,50,70,25,hwnd,0,hThisInstance,NULL);
hwndc=CreateWindowEx(WS_EX_CLIENTEDGE,"BUTTON","posli",WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON ,150,20,100,25,hwnd,0,hThisInstance,NULL);
hwndd=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","",WS_CHILD | WS_VISIBLE | ES_NUMBER  ,150,50,70,25,hwnd,0,hThisInstance,NULL);
hwnde=CreateWindowEx(WS_EX_CLIENTEDGE,"EDIT","",WS_CHILD | WS_VISIBLE | ES_NUMBER  ,150,80,70,25,hwnd,0,hThisInstance,NULL);

    /* Run the message loop. It will run until GetMessage() returns 0 */
    while (GetMessage (&messages, NULL, 0, 0))
    {
        /* Translate virtual-key messages into character messages */
        TranslateMessage(&messages);
        /* Send message to WindowProcedure */
        DispatchMessage(&messages);
    }

    /* The program return-value is 0 - The value that PostQuitMessage() gave */
    return messages.wParam;
}


/*  This function is called by the Windows function DispatchMessage()  */

LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    switch (message)                  /* handle the messages */
    {
       case WM_COMMAND:
            {
           if(lParam==(LPARAM)hwndc)
           {
           int a=GetWindowTextLength(hwndd);
           char b[a++];
        ZeroMemory(&br,10*sizeof(char)); 
           GetWindowText(hwndd,b,a);
        BYTE c=atoi(b);
        if((WriteByte(c))==true)
        {
        if((ReadByte(res))==true)
        {
        sprintf(br,"%c %d",res,res);
        SetWindowText(hwnde,br);
        }
        else
        MessageBox(hwnd,"něco se pokazilo","time out",MB_YESNO);
        }
        else
       { MessageBox(hwnd,"něco se pokazilo","chyba4",MB_YESNO);
     
       
       
      }
        }
         
           if(lParam==(LPARAM)hwnda)
           {
           int a=GetWindowTextLength(hwndb);
           char b[a++];
         
           GetWindowText(hwndb,b,a);
         c=atoi(b);
        if((OpenPort(c))==true)
        {
     if((ConfigurePort(CBR_2400, 8, true, EVENPARITY , ONESTOPBIT ))==true)
  {
if((SetCommunicationTimeouts(0,1500,0,0,0))==true)
SetWindowText(hwnda,"Com otevren");
else
  MessageBox(hwnd,"něco se pokazilo","chyba3",MB_YESNO);                                   
}
else     
  MessageBox(hwnd,"něco se pokazilo","chyba2",MB_YESNO);     
        }
        else
        MessageBox(hwnd,"něco se pokazilo","chyba1",MB_YESNO); 
           }
            }
            break;
        case WM_DESTROY:
           {ClosePort(); PostQuitMessage (0);}       /* send a WM_QUIT to the message queue */
            break;
        default:                      /* for messages that we don't deal with */
            return DefWindowProc (hwnd, message, wParam, lParam);
    }

    return 0;
}

chtěl jsem s tím řídit krokáč, no ale četl jsem nakonec že je lepší koupit hotový driver, tak to asi udělám, díky za snahu Idea [/code]
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.33 sekund