NOT HESAPLAMA PROGRAMI dim not1, not2 as integer dim sonuc as single not1 : txtnot1. text not2 : txtnot2. text if(( not1>0) or (not1 > 100 )) or ((not2 < 0 ) or ( not2 > 100 )) lblsonuc. text = " hatalı not girişi " else sonuc = (not1+not2) /2 If (sonuc < 25 ) then lblsonuc. text = sonuc & "=sıfır" elseıf sonuc <45 then lblsonuc. text = sonuc & ":bir" elseıf sonuc <55 then lblsonuc. text sonuc & " : iki " elseıf sonuc < 70 then lblsonuc. text sonuc & " : üç " elseıf sonuc < 85 then lblsonuc. text = sonuc & " : dört " else lblsonuc. text = sonuc & " : beş " end if end if Arkadaşlar bu programın mantığını bana anlatabilirisin bu devirde web programcılığı bölümünde okumak zulüm imkanın yoksa imkanını olan yürüyor benimde imkanım yok ve web programcılığını öğrenmek istiyorum sınıfta hemen hemen herkes yardım alıyor programcı abilerden kurslardan falan ama benim ne programcı bir tanıdığım ne de özel kursa gidecek kadar param var benim azmim var ama o da zamanla düşüyor bana bu ve bunun gibi programların mantığını anlatırsanız sevinirim yarın sınav var ve ben hiç bişey yapamıyorum.