{"id":821,"date":"2015-01-13T12:23:05","date_gmt":"2015-01-13T11:23:05","guid":{"rendered":"http:\/\/vejr.tomas.dk\/ps\/?p=821"},"modified":"2015-01-13T12:23:05","modified_gmt":"2015-01-13T11:23:05","slug":"min-raspberry-pi-b-med-lcd","status":"publish","type":"post","link":"https:\/\/tomas.dk\/ps\/min-raspberry-pi-b-med-lcd\/","title":{"rendered":"Min Raspberry Pi B+ med lcd"},"content":{"rendered":"

I julen k\u00f8bte jeg en raspberry Pi B+. Jeg har nu rodet lidt med den og f\u00e5et den til at k\u00f8re h\u00e6derligt.<\/p>\n

\"Raspberry<\/a>
Raspberry Pi B+ med lcd<\/figcaption><\/figure>\n

Den er blevet overklokket til 1GHz og der er sat lcd display (HD44780) p\u00e5. Yderligere har jeg f\u00e5et wifi til at virke.<\/p>\n

\"Raspberry<\/a>
Raspberry pi indefra<\/figcaption><\/figure>\n

For at f\u00e5 displayet til at virke, har jeg programmeret i perl.<\/p>\n

#!\/usr\/bin\/perl\r\n\r\nuse strict;\r\nuse warnings;\r\n\r\nuse Device::BCM2835;\r\nuse Device::BCM2835::LCD;\r\nuse Sys::Hostname;\r\nuse Net::Interface;\r\nuse Socket;\r\nuse File::Touch;\r\n\r\n# Init display, specifying the GPIO pin connections \r\nmy $lcd = Device::BCM2835::LCD->new();\r\n\r\nmy $inetaddr;\r\nmy $lockfile = \"\/tmp\/lcd.locked\";\r\nmy @lock = ($lockfile);\r\nmy $dato;\r\nmy $tid;\r\nmy $host;\r\nmy @raatid;\r\nmy @linier = qw(1 2 3 4);\r\nmy $ip;\r\nmy $int;\r\nmy $lcdlin;\r\nmy $update = 0;\r\n\r\nmy %interfaces = ();\r\n\r\nsub getInterfaces {\r\n my $intRef = shift;\r\n\r\n my @int;\r\n my $ip;\r\n my $iface;\r\n\r\n @int = Net::Interface->interfaces();\r\n foreach $iface (@int) {\r\n next if ( \"$iface\" eq \"lo\" );\r\n open IP, \"\/sbin\/ip addr show $iface|\" or die \"Kunne ikke udfore \\'ip\\'\\n\";\r\n while (<IP>) {\r\n next if ( ! \/inet \/ );\r\n s\/.*inet (\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3})\\\/.*\/$1\/;\r\n $$intRef{$iface} = $1;\r\n last;\r\n }\r\n close IP;\r\n }\r\n \r\n}\r\n\r\nunlink $lockfile if ( -e $lockfile);\r\n$lcd->init (\r\n Display => 2004,\r\n pin_rs => &RPI_GPIO_P1_24,\r\n pin_e => &RPI_GPIO_P1_23,\r\n pin_d4 => &RPI_GPIO_P1_07,\r\n pin_d5 => &RPI_GPIO_P1_11,\r\n pin_d6 => &RPI_GPIO_P1_13,\r\n pin_d7 => &RPI_GPIO_P1_15,\r\n);\r\n$host = hostname;\r\nwhile ( 1 == 1) {\r\n if ( ! -e $lockfile ) {\r\n # L\u00e5s display\r\n touch(@lock);\r\n \r\n # Find tid, dato, hostnavn\r\n $host = hostname if ($host eq \"raspberry\");\r\n \r\n @raatid = localtime(time);\r\n $tid = sprintf \"%02s:%02s:%02s\", $raatid[2], $raatid[1], $raatid[0];\r\n $dato = sprintf \"%02s\/%02s\/%02s\", $raatid[3], $raatid[4]+1, $raatid[5]-100;\r\n\r\n $linier[0] = sprintf \"%-11s %8s\", $host ,$dato;\r\n $linier[1] = sprintf \" %8s\", $tid;\r\n \r\n $lcd->SetPos(1, 0);\r\n $lcd->PutMsg($linier[0]);\r\n $lcd->SetPos(2, 0);\r\n $lcd->PutMsg($linier[1]);\r\n $lcdlin = 4;\r\n if ( $update == 0 ) {\r\n %interfaces = ();\r\n getInterfaces(\\%interfaces);\r\n $lcd->SetPos(3, 0); $lcd->PutMsg(\" \");\r\n $lcd->SetPos(4, 0); $lcd->PutMsg(\" \");\r\n foreach $int ( keys %interfaces ) {\r\n $linier[$lcdlin-1] = sprintf \"%-5s%15s\", \"$int\", $interfaces{$int};\r\n print \"$linier[$lcdlin-1]\\n\";\r\n $lcd->SetPos($lcdlin, 0);\r\n $lcd->PutMsg($linier[$lcdlin-1]);\r\n $lcdlin--;\r\n }\r\n }\r\n if ( $update == 15 ) {\r\n $update = 0;\r\n } else {\r\n $update++;\r\n }\r\n \r\n unlink $lockfile if ( -e $lockfile );\r\n }\r\n sleep 1;\r\n}\r\n<\/pre>\n
Hvis der findes en fil der hedder \/tmp\/lcd.locked<\/span>, vil der ikke ske noget p\u00e5 displayet.<\/p>\n
Programmet skal udf\u00f8res som root. Enten med sudo eller logget ind som root.<\/p>\n
For at f\u00e5 displayet til at virke, skal der indstalleres flere pakker. Et c-lib og to perl-moduler:
\nlibbcm2835 fra\u00a0http:\/\/www.airspayce.com\/mikem\/bcm2835\/<\/a>
\nDevice::BCM2835 fra cpan
\nDevice::BCM2835::LCD ogs\u00e5 fra cpan<\/p>\n
I\u00a0Device::BCM2835::LCD er der et par fejl, som nemt rettes.<\/p>\n
I filen \/urs\/local\/share\/perl\/5.14.2\/Device\/LCD.pm er der et par linier der skal rettes.\r\nRPI_GPIO_P1_23 11<\/strong><\/span>\r\nRPI_GPIO_P1_24 8<\/strong><\/span>\r\n\r\n# init: set up LCD lines.\r\n# Defaults are the \"common\" GPIO pins, and 20x4 screen\r\nsub init {\r\n\u00a0 my $self = shift;\r\n\u00a0 my %defaults = qw(\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Display 2004\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_rs RPI_GPIO_P1_24\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_e RPI_GPIO_P1_23\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_d4 RPI_GPIO_P1_07\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_d5 RPI_GPIO_P1_11\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_d6 RPI_GPIO_P1_13\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 pin_d7 RPI_GPIO_P1_15\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 );\r\n\u00a0 my %args = (%defaults, %_);<\/span><\/strong>\r\n\r\nI afsnitet med initialize the device skal f\u00f8lgende rettes:\r\nDevice::BCM2835::gpio_write($e,0);\u00a0\u00a0\u00a0\u00a0\u00a0 # start with EN low\r\nnibbleToLines(3);\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # high nibble 0x03\r\n&strobe_E;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # strobe EN\r\nusleep(5000);<\/strong><\/span>\r\nnibbleToLines(3);\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # low nibble 0x03\r\n&strobe_E;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 # strobe EN\r\n\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
I julen k\u00f8bte jeg en raspberry Pi B+. Jeg har nu rodet lidt med den og f\u00e5et den til at k\u00f8re h\u00e6derligt. Den er blevet overklokket til 1GHz og der er sat lcd display (HD44780) p\u00e5. Yderligere har jeg f\u00e5et wifi til at virke. For at f\u00e5 displayet til at virke, har jeg programmeret i… L\u00e6s mere Min Raspberry Pi B+ med lcd<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[6],"tags":[],"class_list":["post-821","post","type-post","status-publish","format-standard","hentry","category-teknik","entry"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/posts\/821","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/comments?post=821"}],"version-history":[{"count":0,"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/posts\/821\/revisions"}],"wp:attachment":[{"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/media?parent=821"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/categories?post=821"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/tomas.dk\/ps\/wp-json\/wp\/v2\/tags?post=821"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}