Quellcode

Jemand, der sich bemüht besonders hübschen und gut lesbaren Quellcode zuschreiben, ist ein Codedesigner.
Komischerweise ist Codedesigner kein Ausbildungsberuf, dabei haben Programmierer so ein ausgeprägtes ästhetisches Empfinden, daß eigentlich jeder einen persönlichen Codedesigner bräuchte, der Ihnen empfiehlt, wie ihr Quellcode am Bsten zu layouten ist, damit sie nicht unglücklich werden.

In fast allen Dingen (ausgenommen von Nahrungsmitteln vielleicht) findet sicht heute eine ganze Menge Elektronik. Von der Armbanduhr bishin zur elektrischen Zahnbürste mit Einspritz-Automatik und dem Mobiltelefon sind da richtige Computer drin. Diese Computer werden natürlich irgendwo programmiert. Was genau diese Programme dann machen, kann niemand sagen, weil die Programme geheim sind und der Herstellern gehören. Vielleicht sendet die Zahnbürste Daten über die wirkliche Häufigkeit Deines Zähneputzens an Deinen Zahnarzt. Oder Dein tolles tragbares Telefon rechnet per Rechenzeitverteilung an irgend einem amerikanischem Atomtest mit, und Du wunderst Dich, warum sich die Buchstaben auf der Anzeige so langsam aufbauen ...

Jedenfalls gibt es Leute, die fordern, daß man von seinem Telefon oder seinem Staubsauger auf Nachfrage beim Hersteller den Quellcode beziehen können sollte. Andere sagen natürlich, daß ihnen das alles vollkommen egal sei, und wer ihnen Rechenzeit oder Gespräche abzweigt ist ihnen auch wurscht, weil sie ja eh so klein und unwichtig sind, daß wahrscheinlich niemand ihre Daten haben möchte. Man kann sich ja nicht um alles kümmern und die freie Regulierung des Marktes wirz schon richten, daß niemand was böses tut.

Eines Tages kam eine harmlose alte Kuh zum Wasser, um etwas zu trinken. In der Nähe entsprang auch gleich die Quelle, und die Kuh war schlau genug anzunehmen, dass das Wasser dort am frischesten sei. Also trabte die alte Kuh zur Quelle. Und wie sie sich so am frischen Wasser labte, drängte und rumorte es plötzlich in ihrem Darm. Ei Weh, sie musste ihre Notdurft verrichten! Und das hier, an der schönen, duftig-zarten frischen Quelle! Doch es ging nicht anders. Die Kuh machte ihren Haufen. Ein Bauer kam des Weges, der durstig war, und sah dies.
»Ei«, rief der Bauer, »ein Quell-Kot!«
Er fand dies wohl sehr lustig. Die Kuh schämte sich sehr und lief eilig nach Hause. Der Bauer aber hatte das gar nicht witzig gemeint! Er wusste nämlich, und das ist eine alte Bauernweisheit, dass der Kot an der Quelle Glück bringt. Also sammelte er den Quell-Kot ein und trug ihn ehrfürchtig nach Hause. In späteren Zeiten, als die Menschen die Geschichte der Bauern und der Kühe erforschen wollten, fand man in einem alten Kirchenbüchlein die Geschichte jenes Bauern, dem seit diesem Tage unglaubliches Glück widerfahren war bis ans Ende seines Lebens. Doch konnte man leider die Schrift des uralten Pfaffen nicht recht lesen und übersetzte sein Geschmier daher mit: »Quell-Code«. Und so ist es geblieben. Heutzutage meint man mit Quell-Code immer noch etwas, das einer Person sehr viel Glück und Ehr bringen kann, nur ist die ursprüngliche Bedeutung leider niemandem mehr geläufig.

Könnte gestern nacht nicht schlafen:

Dim fs As Object, d As Object, dletter As String, vname As String, _
sname As String, t As String


Private Sub cmdInfo_Click()
If txtLaufwerk.Text <> »« And Right(txtLaufwerk, 1) = »:« Then
Call ShowVolumeInfo(txtLaufwerk.Text)
Else
MsgBox »Laufwerk eingeben - z.B. d: «, vbExclamation
End If
End Sub

Sub ShowVolumeInfo(drvpath)
Set fs = CreateObject(»Scripting.FileSystemObject«)
If fs.DriveExists(drvpath) = True Then
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))

Select Case d.DriveType
Case 0: t = »kenn ich nicht...«
Case 1: t = »Wechseldatenträger«
Case 2: t = »Festplatte«
Case 3: t = »Netzwerk«
Case 4: t = »CD-ROM«
Case 5: t = »RAM Disk«
End Select

If d.IsReady Then
dletter = d.DriveLetter
vname = d.VolumeName
sname = d.ShareName
Call Ausgabe
Else
MsgBox »Drive is not Ready.«
End If

Else
MsgBox »Laufwerk « & txtLaufwerk.Text & » existiert nicht!«
End If
End Sub

Private Sub Ausgabe()
txtDriveletter = dletter
txtVolumename = vname
txtSharename = sname
Label4.Caption = »Laufwerk « & txtLaufwerk.Text & » ist vom Typ « & t
End Sub

Private Sub cmdAlleAnzeigen_Click()
Dim dc, s, n
Set fs = CreateObject(»Scripting.FileSystemObject«)
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & » - «
If d.IsReady Then
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
Else
n = »nicht bereit...«
End If
s = s & n & vbCrLf
n = »«
Next
MsgBox s
End Sub

Private Sub Command1_Click()
End
End Sub

Konvertierung von dezimalen Zahlen in Zahlen zu Basis b
BASIC
FUNCTION d2n$ (n, b)
nstart = n
z$ = »0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ«
conv$ = »)« + MID$(z$, (b + 1), 1)
WHILE (n > 0)
p = n MOD b
conv$ = MID$(z$, (p + 1), 1) + conv$
REM concate z.p an den Ausgabestring
n = ((n - (n MOD b)) / b)
WEND
conv$ = »(« + conv$
convert$ = conv$
END FUNCTION

REXX
D2N: procedure
arg n,b
/* initialisierung */
z='0123456789ABCDEFGHIJKLMNOPQRSTUVW'
conv = ')'||b
nstart = n
DO WHILE n > 0
p = n // b
conv = substr(z,(p+1),1)||conv
n = n % b
END
conv = '('||conv
return conv

Ein Programm, daß die externe Funktion d2n aufruft
call load 'convert.r'
do forever
pull zahl
pull base
call d2n zahl,base
say zahl'='result
end

Perl
sub d2n
{
local $n = $_[0];
local $b = $_[1];
#initialisierung
$z = »0123456789ABCDEFGHIJKLMNOPQRSTUVW«;
$conv = »)« . substr($z, $b, 1);
$nstart = $n;
while ($n > 0)
{
$p = $n % $b;
$conv = substr($z, $p, 1) . $conv;
$n = (($n - ($n % $b)) / $b);
}
$conv = »(« . $conv;
return $conv;
}

Python
def d2n(n,b):
#initialisierung
z='0123456789ABCDEFGHIJKLMNOPQRSTUVW'
conv = ')' + z[b:b+1]
nstart = n
while n > 0:
p = n % b
conv = z[p:p+1] + conv
n = n / b
conv = '(' + conv
return conv

AWK
function convert (n, b) {
nstart = n
z = »0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ«
conv = »)« substr(z, (b + 1), 1)
while (n > 0) {
p = n % b
conv = substr(z, (p + 1), 1) conv
n = ((n - (n % b)) / b)
}
conv = »(« conv
return conv
}