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.
gschem-symbols.tar.gz
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 FunctionUnd 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
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
Lange habe ich darauf gewartet, aber nun ist es soweit. Nach 5 langen aber doch freudigen, guten, netten, interessanten, spaßigen Jahren habe ich endgültig meine HTL-Ausbildung zum Was-Auch-Immer abgeschlossen. 
(Laut Maturazeugnis sind nun ua. die Tätigkeitsfelder Automatisierung, Prozessoptimierung, Datenkommunikation, Elektroniker, Elek… usw. für mich zugänglich.)
Irgendwie Blicke ich nun recht wehleidig auf die vergangenen Jahre zurück, da es eine wirklich schöne Zeit war aber auch dass ich meine Klassenkameraden nun viel seltener sehe schmerzt sehr. Doch trotzdem freue ich mich nun auf das Kommende und bin gespannt was mir die Zukunft bietet.
Aber jetzt geht es erst einmal ab in die Türkei zu Summersplash. 
Tags: Abschluss, Diplomprüfung, HTL, Matura, Reifeprüfung, Zeugnis
