1 Leh at 13) Bims- Write © Java Progsarn using Siding components Source Code ¢- Tmpook Javox. swing A 5 Twopost Savor aut 5 Tort Java. atot event #5 Class MyFrame extends Sesame ‘iwplements ActtonLtstenen Apeitote containen ¢ 5 Privote Tlabel title +, Poivate Lobel names Privote TTextFeld thames private Ttobet lapoxs; pivate JposswosdField PasA5 privote JLobe} yno 5 Psivate JrextFeld -tmno; Privote — jrabel genders Private —JRodfoButton male 5 Private Thadio Button female + Private — Bultondwoup gengps Poivote Label obs, private, TComboBox date Poivote Iombogox month §, Poivate — JcomboBox yan ; Poivote Tlobel acs, private Tyextaven tadd 5 Private — Teheck Box tem, Poivate — Button Sub 5 Private — gButton Fests resol Poivate §— TyextAwea tout 5 ye IN Parar Tha bel Bess PoWote 7, Teathvea yesadd; Private BtoIng datesey= 494% ug 9 ae Hug "M4 M19", ih, Sat Ng uu aed M9" Maoh, Vela "RRM qn S30", "31" 5 Privecte Stoing months “4 "yan", "eb yan" aps” "Nays", Jun", Tub") "Aug", “Sep",“oct "Nyon Private sts > teers 9 “taaq" *2000"', "'2001'%,"\ net, Sey Sr W thet tig tt 14515", Nie"! ta! a3", "24", 926" toes, Noa", HQ Yeorsey HUIS M9904, M999" “naae’, 2002", "200% "reoy", 2008", “ 2006", "2003 "2008 ""2008", "2010", "owls on", " 2013", oi", "2015", "2016", "2018", "2013", "2019" 35 Public MyFsame ty 3 SetTitte cm Registoation Fos"); Set Bounds (300,90 200 , 600), Set Deftultcloseopenation (ex TT-ON-CLOSE); Set Restzable (false) res Je tcomtentpane ()*, C+ setLouout Crus title =new TLobel C"Registoation Fosm')s title Setfont(new Font ( “€ov0l" Font PLATN,30))3 title Set sire (300 ,30)5 title set Locortion (309,30) Cc. add (title); nome =new) Label ("Nome") s hawe .setfont (now Font Ct Aviad", Font. pLAxN,26))5 name + etsize (100,20) 4 Name + SetLocod Foy, Cloo , 100) C1 add Crome); tnawe = new Jtext Field ()5brome -setfont Crew FontCas trame . Set Site (190,20)5 tname *SetLocation (260,100) Gadd (tname) 5 lapass, = new TLabel ("password"), lopass. set Font (new Font C\Avioh", Font, PLAsw ,20))5 lapass + set Sie (100,20) lapasy - set Location Ctoo,25)5 Cradd Clapass), Pass = newo TParswosd Field ()s Pass. Sets Tee (190,20), Pass. SetLocation Co0 J25}, [Link] Cpass)y, mMno=New Jlabel C"moabile")5 ™Nno+ Set Font Chew Font ("Astal", Font «LAIN, 26))5 MnO’ Setsize (100 120) 3, ™no: SetLocatron Cloo ,150)s, Codd Cmno)s, tmno = new TextField), tmno. set Font (mew Font ("fatal " Fovtt: PLATA,I5))5 tno: setsize (1 $0,20)%, tmno-set Location (200,150)+, ¢radd (mn) *, genden =neus Fabel (Gender). Gevder settont (new Font C'A¥al" Font “PLAIN 20); gevden. set site Coo 1203, Genden -Set Locactfon (too ,200)', Cr Odd Cgemden):, male = new TRodio gutton ("male"). wale-setFont Cnew Font (\pst ") Font, PLA, Is))5 wale: setdlected Ctoue ), male, setstre (45,20); wale + set Location (200,200)3 30 ee | fat", Font PLAIN, IS))5Cradd (male); male =new JPodfopution C"Fewmalo")5 PemalesetFont(wew Font C'aviak", Font ALATN IS))5 [Link] selected Calse)s, Female + set Location (225, 200)*, Pewmale « Set sfre(30,20)*, rey) Cradd emale)s gengp =hew Burttongwoupl) 4 gengp-add Cale) 5 ger gp add. CRemale) dob= new Trabel CoB"); dob: set Font Crew Font (Aaial's Font. PLAIN, 20))35 dob « SetsT2e (100,20)5 dob. SetLocation Cto0 250) 5 [Link])s, dete =newo JcomboBox Cdater)s date: setEont (new Font ("'Aviad”, Font - PLAIN ,15))5 date: selsi te (50,20)s dude + SetLocatfon (200 ,280);, cradd Cdate):, month =neLo combo Box Cmanths)5 [Link] Font (new Font ("Avtal”, FontePLAsa,tS))s month Setsire{ 60 ,20)s wonth « SetLocation(250, 250); cradd Cmonth)*, Year =hew —TcomboBox( yeons)+, YearesetFont (new Font ("Aytad", Font-PLATA,IS))5 Yeon + SetsTze (60,20)+, ‘Yyean-set Location (320 pte) 1 add Cyean)*, add= new Slabel (" Aldyews")*, addssetFont Chew Font (Arial, Fonts PLAIA,20)) 3 a 7 UPA, | a.Gd Set size Cioo,20)5 Odd + SetLocat ion (00,200) 5 CrOdd Caddy 5 tadd =new dyertAveat % | tadd .SetFont Chew Font C'Astal", Font. PLATH,IS)) 5 todd - setstee (200,75)5 | tadd + set Location C200 ,300) 5 | todd * setLtne woap Couey, | cradd Ctadd )4 tesm =hew ITeheck Box (! ‘accept tess And cord? tied), ‘team, set Foret (new Font Casta", Font pLarn,15))% tesm- Setsize (250,20); tesm Set Loartion (150, Koo) Crdd Cesm) 5 Sub =rew Button C''submtt!"); Sub. set Font (new Eont C(“Astak", Font «PLAIN,1S))5 Sub: Setstze (loo ,20)5 Sub: 5et Location (150,450), Sub: add ActfoyListenen (4uis)', Gadd Csub) 4 Beset = now Button (Reser! )s, deset +Settowt (Mew Font C'asiat", Font PLAIN, 15) +, deset + Set Size C100,20)+, deset + Set Loartton (270, 450)’, Beset + odd ActTonLfstenen (-4uix)s, Codd (aeset)s, tout =new grextAvea(): tout setEont (new Font ("Astat", Font-PLAINIS))§ tout-setstze (300,400)5 tout. SetLocotfon C500 ,160)3 tout. set Linehisap Ctaue )s ut Set Edftable (alse )*, caddCtout)sBes = new Tlabe|(" ")5 es «set Font Chew Font C'Avial', Fonts PLALA,20)) 5 Yes. setsire (S009) 5 %S« Setlocation Cloo ,500)3 Cradd (ses), Besadd = new Trext Aseacy, desodd « set Font (new Font ("Axial Font. PLAT ,15))5 Besadd - SetsTre (200,25) | Besadd -Set Location Cs80,lF5)5 | | Besadd . setLinewrapltsue) + Cadd C¥esadd); Set vistble Crue) 3 Public vord actionpesfomned CAactionevent ¢) : TP ([Link] ¢) = =sub) TP (tevm. fs selectedey) Stoing dato 5 Stoimg dota = "Nawe s''4 trame gettext + "in" +" mobile 2+ tmno getrex tc) +" W's iP Cmale «fs selectedd) eto. 4 =" Gremden + wale! "in''5 else datat =" Gemden * Female" + "ny"! > String dala.a = "Dob +4 (stoTnaldate getselecledstent + "714 (Stotng mon the getselected temo) +4 Gbing)yewn. get selected Tem()+" n'y Sing Gerla. =NAddwess :"[Link] text 4 out. setyext (dota+dotod tdota2r+datas);, tout «Set Edftable (falye):, ves. set text ("Reg% Velie cass Registootton Fea Set Text (deP):, ‘ ublic static york reain(Stoing angst 3) Throws Excep tio} else Pai Gil gL ens Bs add. settext (* ")4 pesiset Text C'Pleabe accept the "4" Feanes + conditions, .!s = else 7P Cegetsouscety = =seset) Stotng dep =" "5 tname set-rexrt(de?), Pass. settext (def): todd: SetText (def); twno + Setqext (def); Ses. SetText Cdef):, touts set text (def) tes. set selected (false)+, date . setselected sndex (0)$ worth Setselected index (0); yearn set selacted Index os, MyFome P=new MYyPromecy+,+ Fypryseee Ug oapsiBay [re=ya| (rs) FAoypPYD PUY sweaL yda20y FA fl | ees les mane | ssasppy “NSOPOAgoAM Pay Slee] SEALs aoa “yscoproRo.y 4Se0q as) SminWeL ¢ sseappy PFOUUB® sow O gapuag bbbi/ Bry /3:40g BjOued + xepHaD| [xsoen ete] GOW ESIOMHELEL + 9.9001 [ee] promssay Jw yS407- 8 + owoN | (EAST) won W904 Wor por}si Bay