Vigyan Prasar Science Portal
For anything and everything on science from India
Home
Audio/Video: Popular Science Lecture series
 

Topic

Speaker

Venue

Listen
The Excitement of Science

Professor V.S.Ramamurthy
Secretary, Department of Science & Technology
Govt. Of India

National Science Centre
New Delhi
on 7th September 2005

click here to Listen!
Albert Einstein:Glimpses of His Life and Work

Dr. Arvind kumar
Director,Homi Bhabha Centre for Science Education,Tata Institute of Fundamental Research,Mumbai

National Science Centre
New Delhi
on 14th September 2005

click here to Listen!
20th Century Physics and Beyond

Dr. R. Chidambaram
Principal Scientific Advisor to Govt. of India
and
DAE Homi Bhabha Chair Professor

National Science Centre
New Delhi
on 7th November 2005

 click here to Listen!
The Challenges of Energy Generation

Dr.Amit Roy
Director, Inter-University Accelerator Centre
New Delhi

Kurukshetra Panorama & Science Centre
Kurukshetra
on 8th November 2005

click here to Listen!

Nuclear Energy for the benefit of Mankind

Dr. Ashok Mohan
Chairman, P P C, National Science Centre and
Former Technical Advisor to Chairman,
Atomic Energy Commission

National Science Centre
New Delhi
on 17th November 2005

click here to Listen!
The Peaceful Atom

Dr.Amit Roy
Director, Inter-University Accelerator Centre
New Delhi

National Science Centre
New Delhi
on 3rd December 2005

click here to Listen!
Learning Physics from Simple Experiments

Prof.  H.C. Verma
Professor, Department of Physics, IIT Kanpur
 

National Science Centre
New Delhi
on 20th December 2005

click here to Listen!
<% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %> You are Visitor No.: <%=CounterHits%>