Maaş Hesaplama

Basic.Net’te Maaş hesaplama programı yapalım..

Butona  Yazılacak kodlar;

12345678Dim ad, yevmiye, gun, maas, netmaas
ad = InputBox("Adınız?")
gun = Val(InputBox("Çalıştığınız gün sayısı?"))
yevmiye = Val(InputBox("Yevmiyeniz?"))
maas = yevmiye * gun
MsgBox(" Sayın " &ad & " Bey maaşınız " &maas & " TL'dir. ")
netmaas = maas - (maas * 20 / 100)
MsgBox(" Sayın " &ad & " Bey net maaşınız " &netmaas & " TL'dir. ")