Springen naar inhoud


- - - - -

Mijn Kleinste 'Programma'


  • Log in a.u.b. om te beantwoorden
Er zijn 5 reacties in dit onderwerp

#1 tromt

tromt

    Professional Developer

  • Leden
  • PipPipPipPip
  • 303 berichten
    Laatst bezocht 17 apr 2018 10:02
  • LocatieRijen (NB)

Geplaatst op 22 december 2012 - 18:03

Toen ik nog werkzaam was (d.w.z. voor een baas) had ik te maken met zo'n 150 collega's die allemaal hun eigen inlog hadden op het netwerk.
Voor de bedrijfsapplicatie (en allerlei andere andere programma's) was die inlogwijze opgenomen in de tblMedewerker (SQLdatabase) en aan de hand daarvan werden hun rechten geregeld. Kan natuurlijk ook anders, maar dit was makkelijk, snel en betrouwbaar en ongevoelig voor de zoveelste wijziging in het besturingssysteem van de servers.
Het kwam nogal eens voor dat als (nieuwe) collega's werd gevraagd hoe ze inlogden, er dan allerlei foutjes inslopen.
"je inlog was toch  . . . . . .?" Ja, zeiden ze dan, maar mooi niet.
Met dit dingetje kon ik snel achterhalen (nadat hun scherm was overgenomen) hoe ze waren ingelogd.
Omdat het zo saai was zijn er wat grapjes aan toegevoegd.
Het toont het gebruik van MousEnter en MouseLeave en het gebruiik van geluidjes, niks spannends.
Code:
Public Class frmMain
Public Sub New()
	 InitializeComponent()
	 lblUser.Text = Environment.UserName
End Sub
Private Sub Me_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
	 If e.KeyCode = Keys.Escape Then Me.Close()
End Sub
Private Sub lblUser_MouseEnter(sender As Object, e As System.EventArgs) Handles lblUser.MouseEnter
	 Situatie(1)
End Sub
Private Sub lblUser_MouseLeave(sender As Object, e As System.EventArgs) Handles lblUser.MouseLeave
	 Situatie(0)
End Sub
Private Sub Situatie(Sit As Integer)
	 Select Case Sit
		 Case 0 ' niet op het naamlabel
			 Me.BackColor = Color.Yellow
			 lblTip.BackColor = Color.Yellow
			 Me.Icon = My.Resources.ernst
		 Case 1 ' wel op het naamlabel
			 Me.BackColor = Color.Red
			 lblTip.BackColor = Color.Red
			 Me.Icon = My.Resources.lacht
			 My.Computer.Audio.Play(My.Resources.giggle, AudioPlayMode.Background)
	 End Select
End Sub
End Class

Bijgevoegde Bestanden



#2 josk79

josk79

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 614 berichten
    Laatst bezocht 30 jan 2017 23:38

Geplaatst op 22 december 2012 - 19:46

Hihihi.

Mijn kleinste (nuttige) programmaatje ooit heb ik nog in de DOS-tijd geschreven in assembler. Het heette dip (naar het commando dir). Het betrof een soort van filebrowser waarmee je in een venstertje waar alle submappen en executables werden getoond. Zo kon je door je mappen bladeren en een programma uitvoeren. Er zat zelfs een configuratiemenu in om de kleuren van de interface aan te passen, dit werd in het executable (.com) bestand weggeschreven. Programma was kleiner dan 1kb.

Helaas heb ik hem niet meer.....

#3 tromt

tromt

    Professional Developer

  • Leden
  • PipPipPipPip
  • 303 berichten
    Laatst bezocht 17 apr 2018 10:02
  • LocatieRijen (NB)

Geplaatst op 22 december 2012 - 20:40

jammer. . . . want dat soort dingen zijn vaak inspirerend voor beginners

#4 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 14 jul 2018 15:51
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 22 december 2012 - 20:47

lol, toevallig.. op mijn werk heeft  IT een soortgelijke (denk script file) tool in gebruik wat je login id, domain etc weergeeft als je aanlogt.

2 keer raden hoe het noemt, juist... whoami ;)

#5 Robbert

Robbert

    Senior Developer

  • Leden
  • PipPipPip
  • 100 berichten
    Laatst bezocht 05 mei 2013 10:03

Geplaatst op 23 december 2012 - 11:08

Mijn kleinste programma ooit was een klein icoontje naast de klok waar je met rmb uit een popupmenu een aantal vaste waardes kon kiezen die je op je clipboard kon zetten eventueel met wat variabelen zodat je snel een standaard regel kon maken. Heeft een hoop typewerk gescheeld :)

#6 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 638 berichten
    Laatst bezocht 10 jul 2018 19:47
  • LocatieMechelen (BE)

Geplaatst op 09 oktober 2015 - 14:48

Ik maak geen kleine programma's :mrgreen:




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)