Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/03/2010 13:39
Konu Sahibi
HırÇıN
Yorumlar
3
Okunma
1772
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

HırÇıN

Üye
Kullanici Avatari
Üye
4
1
11/03/2010
0
Kocaeli
Ofis XP
10/04/2010,18:07
Çözüldü 
BiLmiyorum beLki kodLarı çok bassittir ama iki gündür uğraşmama rağmen haLa başarı eLde edemedim. konu şöyLe 1 iLe 2000.000.000 arasında oLan arkadaş sayıLarı programı. Nette vardır die arama yaptım bu tatLı siteye denk geLdim. ufakta oLsa bu konuda fikri oLan varmı acaba?


ALish BiLe harikaLar diyarındayken ben neden haLa okuLa gitmek zorundayımm
Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.995
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Çözüldü 
örnek ekleyin
ayrıca toplam ile ilgili arama yaparsak çok örnek bulursunuz
https://www.accesstr.net/search.php?acti...order=desc


Cevapla

HırÇıN

Üye
Kullanici Avatari
Üye
4
1
11/03/2010
0
Kocaeli
Ofis XP
10/04/2010,18:07
Çözüldü 
Cidden harikasın Tşkrederim, işte bazen böyLe basit şeyLeri düşünemicek kadar daLgın oLabiLiyoruz. programı bitirince payLaşırım sizLerLe. =)))))


ALish BiLe harikaLar diyarındayken ben neden haLa okuLa gitmek zorundayımm
Cevapla

HırÇıN

Üye
Kullanici Avatari
Üye
4
1
11/03/2010
0
Kocaeli
Ofis XP
10/04/2010,18:07
Çözüldü 
VisuaL Basic programında arkdaş sayıyı buLma..... Umarım faydasını görürsünüz.

Burda sayıları ben elle girdim ekrandan almayı bilmiyorum çünkü =)))
Umarım çalışır, ama algoritma olarak doğru oluyor, diğer dillerde
yazdım çalışıyor.
Dim fs1 As Integer = 220
Dim fs2 As Integer = 284
Dim tmp1 As Integer = 0
Dim tmp2 As Integer = 0

For i As Integer = 1 To fs1
If (fs1%i==0) Then tmp1+=i
Next i

For j As Integer = 1 To fs2
If (fs2%i==0) Then tmp2+=i
Next j

If (fs1==tmp1 && fs2==tmp2) Then
Bu iki sayı arkadaştır diye yazdırırsın.
Else
Bu iki sayı arkadaş değildir diye yazdırırsın.


ALish BiLe harikaLar diyarındayken ben neden haLa okuLa gitmek zorundayımm
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Ortalama Bulma metin02 6 174 24/09/2017, 13:41 metin02
Çözüldü IT Envanter programı için ön çalışma mengok 4 2.398 12/09/2017, 15:01 team_quash
Çözüldü Combobox Açılan Kutu Yazdığım Metne Göre Otomatik Bulma keskin78 3 330 30/06/2017, 01:16 keskin78
Çözüldü Ayın Gün Sayısını Bulma odin 5 310 21/06/2017, 07:50 odin
Çözüldü Küçük Bir Telefon Programı İhtiyacı beyazgecede 8 678 25/05/2017, 14:55 beyazgecede

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.