اكواد NSB البرمجية لكافة البرامج المشروحة بالموقع

  

البرنامج الاول ) السلام عليكم (

Function Button1_onclick ()

MsgBox "وعليكم السلام ورحمة الله تعالى وبركاته "

End Function

البرنامج الثاني )الالة الحاسبة (

Dim x,y,z

Function Button1_onclick()

x = CInt (TextBox1.value)

y = CInt (TextBox2.value)

z = x + y

Label4.textContent=z

End Function

Function Button2_onclick()

x = CInt (TextBox1.value)

y = CInt (TextBox2.value)

z = x - y

Label4.textContent=z

End Function

Function Button3_onclick()

x = CInt (TextBox1.value)

y = CInt (TextBox2.value)

z = x * y

Label4.textContent=x * y

End Function

Function Button4_onclick()

x = CInt (TextBox1.value)

y = CInt (TextBox2.value)

z = x / y

Label4.textContent=x / y

End Function

Function Button5_onclick()

TextBox1.value=""

TextBox2.value=""

Label4.textContent=""

End Function

البرنامج الرابع )المسابقة (

Form1

Function RadioButton1_onchange()

If RadioButton1.getValue(2)= True Then

MsgBox " الاجابة صحيحة "

Else

MsgBox " الاجابة خاطئة ... حاول مرة اخرى "

End If

End Function Form2

Function RadioButton1Copy_onchange()

If RadioButton1Copy.getValue(1)= True Then

MsgBox " الاجابة صحيحة "

Else

MsgBox " الاجابة خاطئة ... حاول مرة اخرى "

End If

End Function Form3

Function RadioButton1CopyCopy_onchange()

If RadioButton1CopyCopy.getValue(3)= True Then

MsgBox " الاجابة صحيحة "

Else

MsgBox " الاجابة خاطئة ... حاول مرة اخرى "

End If

End Function

التدريب الخامس ) حساب العمر(

TextBox1.value=Date()

Function Button1_onclick()

Dim born

born=CDate(TextBox2.value)

If Checkbox1.getValue(1)= True Then

TextBox3.value=DateDiff("d",born,Date)

End If

If Checkbox1.getValue(2)= True Then

TextBox4.value=DateDiff("m",born,Date)

End If

If Checkbox1.getValue(3)= True Then

TextBox5.value=DateDiff("yyyy",born,Date)

End If

End Function

Function Button2_onclick()

Form1.reset()

TextBox1.value=Date()

End Function

التدريب السابع ) 4 كلمات وصورة(

Form1

Function Image1_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Image2_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Image3_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Image4_onclick()

Audio1.play()

Audio2.pause()

End Function

Function Select1_onchange()

If Select1.selectedIndex()=0 Then

Exit Sub

End If

If Select1.selectedIndex()=1 Then

Form2.show()

Form1.hide()

End If

End Function

Form2

Function Image1_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Image2_onclick()

Audio1.play()

Audio2.pause()

End Function

Function Image3_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Image4_onclick()

Audio1.pause()

Audio2.play()

End Function

Function Select1_onchange()

If Select1.selectedIndex()=1 Then

Exit Sub

End If

If Select1.selectedIndex()=0 Then

Form1.show()

Form2.hide()

End If

End Function

التدريب الثامن ) المفكرة(

Dim saves()

Sub Main

If localStorage.note = undefined Then

localStorage.note=JSON.stringify([])

End If

saves=JSON.parse(localStorage.note)

fillTextArea()

End Sub

Function Button1_onclick()

If TextBox1.value="" Then

MsgBox " لم يتم تحديد الموعد "

Else

myArray={noteDate: TextBox1.value, Note: TextArea1.value}

saves=JSON.parse(localStorage.note)

saves.push(myArray)

localStorage.note=JSON.stringify(saves)

fillTextArea()

End If

End Function

Sub fillTextArea()

TextArea2.value=""

For i=0 To UBound(saves)

TextArea2.value = TextArea2.value & saves[i].noteDate & " : " & saves[i].Note & vbCRLF

Next

End Sub

التدريب العاشر ) قصار السور(

Sub Main()

HTMLview1.refresh()

End Sub

Function Button1_onclick()

HTMLview1.innerHTML="<iframe width='300' height='300'"_

& "src='https://www.youtube.com/embed/3eGQfzVbUb4'>"_

& "</iframe>'"

HTMLview1.refresh()

End Function

Function Button2_onclick()

HTMLview1.innerHTML="<iframe width='300' height='300'"_

& "src='https://www.youtube.com/embed/fLRB6b5egFY'>"_

& "</iframe>'"

HTMLview1.refresh()

End Function

Function Button3_onclick()

HTMLview1.innerHTML="<iframe width='300' height='300'"_

& "src='https://www.youtube.com/embed/zav73NMag88'>"_

& "</iframe>'"

HTMLview1.refresh()

End Function

التدريب الحادي عشر ) الطقس(

Sub Main()

Label2.textContent = ""

End Sub

Function loadScript(URL)

Dim head, script

head = document.getElementsByTagName("head")[0]

script = document.createElement("script")

script.src = URL

script.async = True

head.appendChild (script)

End Function

Function Button1_onclick()

Dim city = encodeURIComponent(TextBox1.value)

loadScript("http://api.openweathermap.org/data/2.5/weather?q=" & city & "&callback=weatherData")

End Function

Sub weatherData(data)

Dim a

Label2.textContent =CInt(data.main.temp - 273.15) & "°C"

a=CInt(data.main.temp - 273.15)

Image1.firstChild.src = "http://openweathermap.org/img/w/" & data.weather[0].icon & ".png"

End Sub

التدريب الثاني عشر )الكاميرا(

reader= new FileReader()

Function TextBox1_onchange()

reader.readAsDataURL(TextBox1.files[0])

End Function

Function reader_onload(e)

pb= PictureBox1.getContext("2d")

pb.addImage(e.target.result,0,0,0,0,0,0,PictureBox1.Width,PictureBox1.height)

End Function

Function Button1_onclick()

location ="mailto:" & "?subject=" & "&body=" + "<img src='" & PictureBox1.toDataURL() & "'/>"

End Function