: Muritler acil birkaç sorum olacak cevaplarsanız sevinirim. Soru 1- Bilgisayar klavyesinden girilen tarihe ait ayların kaç gün olduğunu hesaplayan MS VB bilgisayar program kodları nelerdir? (Bunu yazmaya çalıştım ancak olmadı. Şubat 4 yılda bir 29 çektiği için bir türlü beceremedim.)Soru 2- Bilgisayar klavyesinden girilen bir başlangıç sayısına gre list bileşeninin içerisinde 1 ile 100 arasında rastgele 20 sayı yazan ve bu sayıların ortalamasını alarak form bileşeni üzerine yazdıran MS VB kodları nelerdir?Soru 3- Pi sayısının tam formunu form bileşeni üzerine yazdıran MS VB kodları nelerdir? (Programı yaptım ama virgülden sonra sadece 14 hane yazıyo bunu nasıl arttırabiliriz?)Cevaplarınız için şimdiden teşekkür ederim...@Adam gibi başlıkla acın, acil yardım gibi şeyler yasak 1. yaparsan upload edermisin. Kolay gelsin Sabrımla yazı tura oynama.. Damarıma basanın.. Kan dolaşımını durdururum!

Muritler acil birkaç sorum olacak cevaplarsanız sevinirim. Soru 1- Bilgisayar klavyesinden girilen tarihe ait ayların kaç gün olduğunu hesaplayan MS VB bilgisayar program kodları nelerdir? (Bunu yazmaya çalıştım ancak olmadı. Şubat 4 yılda bir 29 çektiği için bir türlü beceremedim.)Soru 2- Bilgisayar klavyesinden girilen bir başlangıç sayısına gre list bileşeninin içerisinde 1 ile 100 arasında rastgele 20 sayı yazan ve bu sayıların ortalamasını alarak form bileşeni üzerine yazdıran MS VB kodları nelerdir?Soru 3- Pi sayısının tam formunu form bileşeni üzerine yazdıran MS VB kodları nelerdir? (Programı yaptım ama virgülden sonra sadece 14 hane yazıyo bunu nasıl arttırabiliriz?)Cevaplarınız için şimdiden teşekkür ederim...@Adam gibi başlıkla acın, acil yardım gibi şeyler yasak Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

dim a as stringdim b as integera=text1. textb=val(text2. text)select case acase "ocak", "mart", "mayıs", "temmuz", "ağustos", "ekim", "aralık"msgbox a & "Ayı 31 Gündür"case "nisan", "haziran", "eylül", "kasım"msgbox a & "Ayı 30 Gündür"case "şubat"if (b mod4)=0 thenmsgbox "Şubat Ayı 29 Gündür"elsemsgbox "Şubat Ayı 28 Gündür"else ifend select Kasnak yuvarlandı elek oldu, eski orospular melek oldu...

Forever ertan ;) | :)) Kral nerde diye Sorma. SENde.. BENde.. SİZde.. Onda Çıplak giyen kral olur.. Taç giyen oturur tahtına::. Emeğe Saygı.. kürtaja hayır!! Soruya bak: Dünyaya Tekrar Gelseniz Ne Yaparsınız? E dedim ben; Eminim herkez yine aynı şeyi yapar aynı şeyi yaşardı... Hani szüm ona; .. Ben siktiğim eşşeğin huyunu bilmem mi? die... E sen syle bilmem mi usta :)

1- ayların gün sayısı sabittir hoca.. sadece değişim şubatta var.. onu da mesela şubat 2008 da 29 çekmiş olsun.. sen hep o yıla 4 ekleyerek bulabilirsin.. mesela if yıl = mod (4) then msgbox "şubat 29 çekiyor" diğer yıllar ise onları programda belirt. dim ayselect case aycase 1: 'ocak ayı oluyorcase 2: 'şubat..'... end select 2- başlangıç sayısı text1 içindeki sayı olsun, bi de aritmatik için label1 koylabel1 = 0 for 1 = 1 to 20randomize timer 'hep aynı sayıları atamasın diye sistem saati çalışıyosayi = int(rnd (100-text1)list1. additem sayi label1 = ((val(label1) + val /20)next 'int sayının tam olarak çıkmasını sağlar.. yani virgüllü çıkmasını engeller.. programı denemedim.. umarm çalışır... burası baya bi kalabalık.. kafamı tam veremedim kodlara :) 3- eniac 2035 sayısını buldu pi sayısını.. eğer tamamını grmek istiyorsan pi sayısı kitabını alıp, kitap boyunca rakamlarını grebilirsin.. bildiğim kadarıyla bu işlemci ile alakalı birşey... belli bir değerden sonra rakam yerine onu E' + diye gsteriyor.. eğer birşeyler yapmak istiyorsan çok derine girmen gerekir.. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...