är Dialogrutor används inom datorsystem för att förmedla information till användarna , eller för att interagera med användare . Ett typiskt exempel på en dialogruta är ett pop - up fönster som visas när du klickar på en knapp eller utföra en åtgärd när du använder ett program . Dessa har oftast ett budskap och en " OK " och " Avbryt " -knappen du klickar för att skicka ditt samtycke , eller avsaknaden därav , tillbaka till programmet . Den X - Windows -operativsystem ( X11 ) på UNIX stöder dialogrutor i Perl genom Tk ramverket , vilket är ett grafiskt användargränssnitt ( GUI ) system som utökar funktionaliteten av Perl programmeringsspråk , förenkla kodningen av dialogrutor . Instruktioner
1
Starta din Perl redaktör ansökan . En enkel textredigerare räcker , förutsatt att du sparar filen med ett " . PL " förlängning , eftersom detta kommer att indikera att systemet att filen är ett Perl -program .
2
Type Perl programhuvud och lansera ett nytt program , däribland " Tk :: DialogBox " modul genom att placera följande rader överst i filen :
# /bin /perl - w
användning Tk ; använder Tk :: DialogBox ,
$ min huvudsakliga = MainWindow - > ny , Addera 3
Skapa en enkel , snabb " ja /nej " i dialogrutan genom att skriva följande kod i editorn :
$ dialog = $ main - > DialogBox ( - title = > " Skriv din titel här " , - knapparna = > [ " Ja" , " Nej " ] ) ;
Detta ger dig en dialogruta med två knappar , en märkt " Ja " och den andra heter " No "
4
Lägg till ett meddelande till knappen med hjälp av en etikett genom att skriva följande kod i editorn :
$ dialog - > add ( " Skriv din etikett /meddelande här " , - text = > $ _ [ 0 ] ) - > pack ;
5
visa dialogrutan genom att skriva följande kod i editorn :
$ button_clicked = $ dialog - > Show ( ) ;
6
typ i varje önskad kod för behandling som bör ske när användaren klickar på " Ja" eller " Nej " -knappen :
if ( $ button_clicked eq " Yes " ) { kod om " Yes "alternativet är vald } elsif ( $ button_clicked eq " Nej " ) { kod om " Nej "alternativet är vald } else { felhanteringskodsegment går här } Addera
