SimpleHistogram[thisData_] := Manipulate[
Histogram[thisData,{rangemin,rangemax,width},
PlotLabel-> StringJoin["mean = ",ToString[N[ Mean[Select[thisData,#≥rangemin && # ≤ rangemax&]]]],
" , sigma = ",ToString[N[ StandardDeviation[Select[thisData,#≥rangemin && # ≤ rangemax&]]]]
],

AxesLabel -> {"data value","counts per bin"}
],
{{rangemin,Min[thisData],"Minimum"},Min[thisData],Max[thisData]},
{{rangemax,Max[thisData],"Maximum"},Min[thisData],Max[thisData]},
{{width,N[(Max[thisData]-Min[thisData])/10],"Bin width"},(Max[thisData]-Min[thisData])/300,(Max[thisData]-Min[thisData])},
ControlType->{InputField,InputField,InputField}
]

Physics 128 Simple Histogram Notebook
This notebook will allow you to type in the simplest possible data—a list of measurement results—and make a histogram of it.   Select "Evaluate Notebook" from the "Evaluation" menu to see it run using my made-up data.   (Or, click on the cell and press shift-return.) 
   
Type your own array of measurements into MyData in order to histogram those.   Inspect my SampleData to understand the syntax.

SampleData = {10,11,10,9.5,10,10,12,9.8,15,1,6,9,10,11}
MyData = SampleData
Print["The mean of MyData is: ",Mean[MyData]] 
Print["The standard deviation of MyData is: ",StandardDeviation[MyData]] 
Print["The max and min are ",Max[MyData]," and ",Min[MyData]]
SimpleHistogram[MyData]

You will eventually need to learn histogram syntax in order to write your own analysis notebooks.   In the space below this cell, type Histogram[MyData] and evaluate that.