Wewa's Blog

Momentan interessiere ich mich für Haus-Automations-Systeme auf OpenSource Basis. Und da bin ich auf ein wirklich interessantes und gut durchdachtes Projekt gestoßen.
Das HAP-Projekt.
Dieses Projekt setzt ATmega32 Controller ein, denen die Kommunikation über CAN-Bus aber auch über z.B. Funk ermöglicht wird. Was mir an dem Projekt besonders gut gefällt ist, dass die einzelnen Geräte von einem zentralen Rechner (mit Ubuntu oder Debian), welcher am Bus hängt, konfiguriert (dh. mit neuer Firmware geflasht) werden können. Es ist wirklich professionell durchgeführt und schon ziemlich weit gediegen, darum ist die Software für Neueinsteiger nicht leicht zu durchblicken.
Aber trotzdem ein Blick auf dieses Projekt lohnt sich allemal.

Tags: ATmega32, Automatisierung, Bus, CAN, Control Area Network, HAP, Home Automation, Home Automation Project

Da ich mich in letzter Zeit etwas näher mit Ubuntu beschäftigt habe, bin ich auch auf Pidgin gestoßen. Es ist eine wirkliche Erleichterung alle Chats (von AIM bis Yahoo!) mit einem Programm zu verwalten. Darum benutze ich dieses Programm nun auch auf Windows.
Einziges Manko an Pidgin, es wird derzeit standardmäßig keine Webcam unterstützt. Aber das soll sich mit kommenden Versionen ändern.
Ich kann euch dieses Programm nur empfehlen..
Und für alle die Facebook benutzen, gibt es für Pidgin ein Plugin, mit dem auch der Facebook-Chat über Pidgin läuft.

Tags: Chat, Facebook, ICQ, IM, MSN, MySpace, Pidgin

Dieser Blog ist nun auch über http://wewa.kilu.at erreichbar.

Tags: URL, wewa.kilu.at

Nun habe ich schon länger (ewig) nichts mehr veröffentlich. Doch nun bin ich beim Surfen auf eine interessante Seite gestoßen. linuxfocus. Auf dieser Seite wird beschrieben wie man selbst ein mehr oder weniger einfaches Labornetzteil bauen kann. Wer sich für so etwas interessiert kann dort ja einmal vorbeischauen.
Ich habe dies hier vermerkt, da ich die Seite sonst vielleicht nicht wieder finde. Und das wäre womöglich schade.

[Nachtrag]
Mir haben im Archiv mit den Projektdaten (“digitaldcpower-0.2.3.tar.gz”) einige Symbole für gEDA-gschem gefehlt und musste diese darum suchen bzw. selbst erstellen. Alle die diese Symbole (ATMEGA-8DIP_ph.sym, diode-3.sym, NPN-1.sym, resistor-4.sym, vccarrow-1.sym) ebenfalls benötigen, können diese unten gezippt downloaden.

Tags: Eigenbau, Elektronik, Labornetzteil, Netzteil

Vorsicht ist geboten, wenn man mit der Telekom Austria Verträge abschließt. Denn es ist nicht immer alles so einfach wie man denkt, denn besonders in den AGB ist noch viel Unerwartetes versteckt.
Falls jemand ein Produkt von der Telekom Austria bezieht oder gedenkt sich solch eines anzuschaffen, dann sollte die betreffende AGB erst einmal nach “Mindestvertragsdauer” oder “Verlängerungsbindung” durchsucht werden.
Denn bei vielen Produkten der TA (besonders in der Business-Palette) ist eine Verlängerungsbindung in den AGB inkludiert. Das heißt, dass nach Ablauf der Mindestvertragsdauer die Bindung an den Vertrag nicht erlischt, sondern die Vertragsbindung immer wieder um 6 Monate oder 1 Jahr verlängert wird. Wünscht man dies nicht, muss man sich erst schriftlich an die TA wenden und erklären, dass man mit dieser Verlängerungsbindung nicht einverstanden ist. Aber aufpassen, auch hier besteht eine Kündigungsfrist.

Hier geht’s zu den Telekom AGBs.

Tags: AGB, Mindestvertragsdauer, Telekom Austria, Verlängerungsbindung

Da zumindest Visual Basic 6 keine Funktion zum Auslesen von einzelnen Zeilen eines Textfeldes (Textbox) hat, muss man solch eine Funktion selbst realisieren.

'Funktion zum Auslesen einzelner Zeilen
'Aufruf: z.B. strNeu = SelectLine(txtText1, 2)
'Die Nummerierung beginnt bei 1 (oberste Zeile -> 1). Ist die
'gewünschte Zeile nicht vorhanden, so wird ein leerer String
'zurückgegeben.

Function SelectLine(txt As Control, line As Long) As String
    Dim a As String
    Dim i As Long
    Dim linecnt As Long
 
    linecnt = 1
    a = ""
    For i = 1 To Len(txt.text)
        If InStr(Mid(txt.text, i, 2), vbCrLf) Then
            linecnt = linecnt + 1
            i = i + 2
        End If
        If linecnt > line Then
            Exit For
        End If
        If linecnt = line Then
            a = a + Mid(txt.text, i, 1)
        End If
    Next
 
    SelectLine = a
End Function

Tags: Textbox, VB, Visualbasic

Wer schon ein wenig mit Visualbasic zu tun hatte, dem ist sicher bekannt, dass VB zwar C ähnlich ist aber ansonsten nicht viel mit C gemeinsam hat.
Und so schert sich VB auch nichts um Internationale Standards wie z.B. den 32-Bit Float Standard (siehe Wiki.

Darum war ich gezwungen, mir eine Funktion zu schreiben, welche die Umrechnung vom VB-Format Single in das Float-Format übernimmt.

Static Function SingleToFloat(X)
    Dim e As Integer
    Dim float As Long
    Dim m As Long
 
    If X <> 0 Then
        e = Math.Round(Log2(Abs(X)) - 0.5)
        m = (Abs(X) / (2 ^ e) - 1) * 2 ^ 23
        e = e + 127
        float = m
        float = float Or (e * &H800000)
        If X < 0 Then
            float = float Or &H80000000
        End If
    Else
        float = 0
    End If
 
    SingleToFloat = float
End Function
 
Static Function Log2(X)
   Log2 = Log(X) / Log(2#)
End Function

Und die Umkehrung dazu:

Static Function FloatToSingle(X)
    Dim e As Integer
    Dim m As Long
    Dim singl As Single
    Dim vz As Boolean
 
        If X And &H80000000 Then
            vz = 1
        Else
            vz = 0
        End If
 
        m = X And &H7FFFFF
        e = (X And &H7F800000) / &H800000
 
        FloatToSingle = (-1) ^ vz * (1 + m / (2 ^ 23)) * 2 ^ (e - 127)
End Function

Tags: Float, Single, Umwandlung, VB, Visual Basic

Da ich ziemlich viel mit Programmierung, vor allem in C, zu tun habe, habe ich nun beschlossen ein kleines Codearchiv anzulegen. So tue auch ich mir leichter, Funktionen die ich immer wieder benötige zu finden.

Hier geht’s zum Codearchiv.

Tags: Programmierung

Gerade stand ich vor dem Problem, den Wochentag aus einem beliebigen Datum am PIC zu berechnen. Aber anscheinend hat mein Compiler keine Zeit/Datums-Funktionen inkludiert. Da bin ich glücklicher Weise im Netz auf folgende Berechnungsmethode gestoßen.

int dayofweek(int y, int m, int d)
  /*0 = Sonntag*/
  /*1 <= m <= 12,  y > 1752 oder so*/
{
  static int t[] = {0,3,2,5,0,3,5,1,4,6,2,4};
 
    y-=m<3;
 
  return (y+y/4-y/100+y/400+t[m-1]+d)%7;
}

Einfach aber genial!

Tags: C, Mikrokontroller, PIC, Wochentag

Mein letzter Beitrag ist ja nun schon ein wenig her (nicht zuletzt weil der Kilu-Server beschlagnahmt wurde). Darum möchte ich nun kurz zusammenfassen, was sich seit Summersplash
getan hat.
Zunächst war Summersplash einfach toll, es hat mir wirklich Spaß gemacht. Jedoch laugt einen solch eine Woche auch aus.
Mittlerweile ist auch die Einberufung bei mir eingelangt. Ich muss Anfang Oktober nach Feldbach einrücken. Wenn es soweit ist, werde ich natürlich ein ausführliches “Soldaten-Tagebuch” führen.
Auch die Arbeitswelt hat mich nun einvernahmt. Ich arbeite bei einer kleinen Firma im Burgenland – bei der ich mich wirklich wohl fühle – und programmiere derzeit an einem GSM-Modul (was sage ich, eigentlich bin ich schon fertig). Dieses Modul dient zur Benachrichtigung und soll entsprechende Personen bei einem Fehler in irgendeiner Anlage (z.B. zu hohe Temperatur) benachrichtigen. Auch kann man mit diesem Modul und einem Telefon eine Fernsteuerung vornehmen.

Ich hoffe ich finde demnächst etwas mehr Zeit und kann wieder interessante Beiträge schreiben.