Skip to content

Instantly share code, notes, and snippets.

View rafalw's full-sized avatar
💭
I may be slow to respond.

Rafał Wileczek rafalw

💭
I may be slow to respond.
View GitHub Profile
@rafalw
rafalw / main.cpp
Created January 29, 2016 22:03
NUCLEO-L152RE Wyświetlanie tablicy kodów ASCII (moduł sterownika alfanumerycznego LCD z dostępem przez port szeregowy) + obsługa przycisku użytkownika (USER_BUTTON).
/*
ASCII table
- przykład bazujący na programie dla Arduino, tutaj jednak dane wyswietlane są za pomoca modułu Serial LCD
(http://wileczeknet.blogspot.com/2013/01/programowanie-avr-cz-7-mikroprocesorowy.html oraz
http://wileczeknet.blogspot.com/2013/06/programowanie-avr-cz-10-modyfikacja.html)
- wyświetlanie tablicy kodów ASCII po naciśnięciu niebieskiego przycisku.
*/
#include "mbed.h"
#define byte unsigned char
@rafalw
rafalw / main.cpp
Created January 29, 2016 21:34
NUCLEO-L152RE Kolejna wersja "latającej małpy" – demo obsługi wyświetlacza (moduł sterownika alfanumerycznego LCD z dostępem przez port szeregowy).
/*
Latająca małpa ;-)
Klasyka...
(http://wileczeknet.blogspot.com/2012/04/programowanie-mikrokontrolerow-avr-cz-1.html)
Wersja dla płytki prototypowej NUCLEO-L152RE (ARM®32-bit Cortex®-M3 CPU)
Programik do testowania modułu wyświetlacza szeregowego 16*2.
Dodatkowy sprzęt:
@rafalw
rafalw / main.cpp
Created January 29, 2016 21:32
NUCLEO-L152RE Wyświetlanie tablicy kodów ASCII (moduł sterownika alfanumerycznego LCD z dostępem przez port szeregowy).
/*
ASCII table
- przykład bazujący na programie dla Arduino, tutaj jednak dane wyswietlane są za pomoca modułu Serial LCD
(http://wileczeknet.blogspot.com/2013/01/programowanie-avr-cz-7-mikroprocesorowy.html oraz
http://wileczeknet.blogspot.com/2013/06/programowanie-avr-cz-10-modyfikacja.html)
*/
#include "mbed.h"
#define byte unsigned char
// Stałe komend sterownika wyświetlacza
@rafalw
rafalw / miernik_1.bas
Created January 21, 2016 07:55
Miernik częstotliwości wersja 1
$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Const Podstawa_licznika = 65536
Config Timer1 = Counter , Edge = Rising
On Timer1 Licznik
@rafalw
rafalw / termometrpc.bas
Created December 21, 2015 22:10
Prosty moduł pomiaru temperatury wewnątrz obudowy PC. Projekt dla celów prywatnych :-)
' Prosty moduł pomiaru temperatury wewnątrz obudowy PC
' - ATmega48P @ 8MHz intern.
' - LM35 (0-100 st. C)
' - LCD HD44780 16*1a (16 znaków, 1 wiersz dzielony logicznie na pół)
' - zasilanie z PC
' - pobór prądu przy 5V i włączonym podświetleniu LCD (z rezystorem 33Ohm):
' max 40mA
$regfile = "m48pdef.dat"
$crystal = 8000000
@rafalw
rafalw / LED_v003.bas
Created December 16, 2015 14:02
Zegar czasu rzeczywistego z nastawianiem minut i godzin. Wersja nieco zoptymalizowana.
' Zegar czasu rzeczywistego z wyświetlaczem LED 7-segm.
' - wersja odrobinę zoptymalizowana
$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
'Config Timer1 = Timer , Prescale = 1
@rafalw
rafalw / LED_v002.bas
Created December 15, 2015 14:29
Zegar z regulacją czasu. Do poprawy - podprogramy obsługi przerwań (za długie, zbyt skomplikowane).
' Zegar czasu rzeczywistego z wyświetlaczem LED 7-segm.
' - wersja prymitywna
$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
'Config Timer1 = Timer , Prescale = 1
@rafalw
rafalw / LED_v001.bas
Last active December 10, 2015 12:50
Przykład do zajęć - zegar na wyswietlaczu LED wersja uproszczona (konieczność poprawnej implementacji nastawiania zegara). Link do schematu zestawu: http://1drv.ms/1TCZHoL
' Zegar czasu rzeczywistego z wyświetlaczem LED 7-segm.
' - wersja prymitywna
$regfile = "attiny2313.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize=32
'Config Timer1 = Timer , Prescale = 1
$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Dim Sekundy As Byte
Dim Minuty As Byte
Dim Godziny As Byte
@rafalw
rafalw / zegar_ver001.bas
Last active December 9, 2015 13:16
Do lekcji - wersja pierwsza zegara
$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Dim Sekundy As Byte
Dim Minuty As Byte
Dim Godziny As Byte