Ohjelmointi

Ohjelmoitua on tullut aika monenlaisilla kielillä: C++, C, Visual Basic, Cobol, RPG, APL, Pascal, Fortran, eri assemblerit, erilaisilla skriptauskielillä  VBSript, Javascript etc. Laitoin malliksi pari satunnaista koodin pätkää (ja laitan lisää, kunhan saan ne 8"-levykkeiltä :-).

Sivuilta löytyy myös esimerkki siitä miten VBScriptillä voi laskea iän näppärästi.

VBScript

[... snip ...]

' Haetaan rakennetulla kyselyllä
oRs.Open sSelect, oCnn, 1, 2

' Tarkastetaan onnistuiko 
If err.Number > 0 Then
	' Tulostetaan viesti
	response.Write "Virhe " & err.Number & ": " & err.Description
	response.End
End If

' Jos löytyi laitetaan talteen, jos ei niin virheilmoitus näytettäväksi
if NOT oRs.EOF then
     sAcronym = oRs("acronym")
     sDescription = oRs("description")
else
     sDescription = "Lyhennettä """ & Session("Acronym") &_

     """ ei tällä kertaa löytynyt."

[... snip ...]

Javascript

[... snip ...]

function isEmail(s){
// Tarkastaa sähköpostiosoitteen syntaksin oikeellisuuden

   var emailExp = "^[\\w-_\.]*[\\w-_\.]\@[\\w]\.+[\\w]+[\\w]";
   var reEx = new RegExp(emailEx);

   return reEx.test(s);
}

function chkField(f, msg) {
// Tarkastaa onko lomakkeen kentässä jotain

if (isEmpty(f.value)||isWhiteSpace(f.value))

[... snip ...]

C-kieli

[... snip ...]

 /* Näyttää merkkijonot vastaavalla standardilaitteella*/
 void DispMsg(byte bHide, int iType, char *pszStr, ...)
 {
     va_list ArgPtr;  /* Perusta listaosoitin */

     va_start (ArgPtr, pszStr); /* Osoita merkkijonoa */

     /* Jos saa n„ytt„„ tai virheilmoitus... */
     if (!bHide || iType == ERRMSG) {
          if (iType == ERRMSG)
               vfprintf(stderr, pszStr, ArgPtr);
          else
               vprintf(pszStr, ArgPtr);
     }

     va_end (ArgPtr); /* Nollaa osoitin */
 
[... snip ...]

Assembler (intel)

[... snip ...]

; painettuna alas). Jos ei ole hotkey, niin hyp„t„„n vanhaan n„pp„in
; keskeytykseen.
;
                  Sti               ;Keskeytykset sallitaan
                  Push  AX          ;Tallenna rekisteri pinoon
                  In    AL,60h      ;Luetaan merkki portista
                  Cmp   AL,HotKey   ;Onko se meid„n
                  Je    NewKbdInt2  ;Jos on,niin hyp„t„„n jatkoon
   NewKbdInt1:    Pop   AX          ;Rekisteri pinosta
                  Jmp   OldInt09    ;Hyp„t„„n vanhaan keskeytykseen
 ;
 ; Meid„n hotkey oli painettuna, joten tutkitaan onko Alt-, Ctrl- ja
 [... snip ...]