الكود المستخدم في برنامج الطقس في برنامج NSB

Sub Main()
  Label2.textContent = “”
End Sub

Function Button1_onclick()
  var city = encodeURIComponent(TextBox1.value);
    var appid = “353512748302df6979f81368da00e279”;
    GetJSON(“http://api.openweathermap.org/data/2.5/weather“,”q=” + city + “&appid=” + appid,weatherData);
End Function

Sub weatherData(data)
  Label2.textContent = CInt(data.main.temp – 273.15) & ” C”
  Image1.firstChild.src = “http://openweathermap.org/img/w/“_
  & data.weather[0].icon & “.png”
End Sub