Dialog dozen worden gebruikt in computer applicaties om informatie aan gebruikers , of voor interactie met gebruikers . Een typisch voorbeeld van een dialoogvenster is een pop - up venster dat verschijnt wanneer u op een knop of het uitvoeren van een actie tijdens het gebruik van een programma . Deze hebben meestal een boodschap en een "OK " en " Cancel " knop te klikken om uw toestemming geven , of het ontbreken daarvan , terug naar de applicatie . De X - besturingssysteem Windows ( X11 ) op UNIX ondersteunt dialoogvensters in Perl door de Tk kader, dat is een grafische user interface ( GUI ) systeem dat breidt de functionaliteit van de programmeertaal Perl , de vereenvoudiging van de codering van dialoogvensters . Instructies
1 Start uw Perl editor toepassing . Een eenvoudige tekst-editor zal volstaan , mits u het bestand op te slaan met een " pl . ' Extensie , omdat dit zal geven aan het systeem dat het bestand is een Perl-programma .
Type 2 het Perl-programma header en start van een nieuw programma , met inbegrip van de " Tk :: DialogBox " module door het plaatsen van de volgende regels aan de bovenkant van het bestand : Geld verdienen # /bin /perl - w gebruik Tk
; gebruik Tk :: DialogBox ;
$ mijn belangrijkste = MainWindow - > nieuw ;
3 Creëer een eenvoudig, snel " ja /nee " dialoogvenster openen door het volgende code in de editor :
$ dialog = $ main - > DialogBox ( - title = > " Type Your title Here " , - knoppen = > [ " Ja " , " Nee" ] ) ;
Dit zal u een dialoogvenster met twee knoppen, een label te geven " Yes " en de andere met het label " No "
4 Voeg een bericht op de knop met behulp van een label door in de editor het volgende te typen code :
$ dialog - > add ( " Typ uw label /bericht hier " , - text = > $ _ [ 0 ] ) - > pak ;
5 Geeft het dialoogvenster weer door in de editor het volgende te typen code :
$ button_clicked = $ dialog - > Toon ( ) ;
6 type in elke gewenste code voor de bewerking die moet plaatsvinden wanneer de gebruiker klikt op de "Ja" of "Nee " knop :
if ( $ button_clicked eq " Yes " ) { code als " Yes " optie wordt gekozen } elsif ( $ button_clicked eq " No " ) { code als " Nee " optie wordt gekozen } else { error handling code gaat hier }
|
