Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/01/2019 10:05
Konu Sahibi
xctr
Yorumlar
5
Okunma
322
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
xctr

xctr

Üye
45388
 Belirtilmemiş
 1
 4
 25/01/2012
0
 Belirtilmemiş
 
 Ofis 2003
 24/01/2019,14:16
Çözüldü 
Günaydın
Dernekler-Takımlar arası yapılan BALIKAVI yarışmalarında kullanmak üzere yapmaya çalıştığımız bir progamdır.
Düşünülen çalışma şekli.
Listeden seçilen balık türüne göre değerler alınıyor.
Eğer listedeki türlerden biri ise ve ölçülen boy limit boya eşit veya büyükse ,DURUM "GEÇERLİ" kabul ediliyor ve PUAN=BOY+10 olarak hesaplanacak
Eğer listedeki türlerden biri ama ölçülen boy limit boydan küçükse DURUM "LİMİTALTI" olarak kabul ediliyor ve  PUAN=BOY+1 olarak hesaplanacak
Üçüncü seçenek tür liste dışı ise DİĞER olarak seçiliyor ÖLÇÜM boyu etkisizleşiyor ve PUAN=5 olarak kabul ediliyor.
Bir kısmını yapabildim ancak bu şartlara göre formüle etme veya ifade oluştuma kısmını beceremedim.
Benzer örneklerden yola çıkıp yapmaya çalıştım ama maalesef olmadı.
Cumartesi günü bir yarışmada kullanamaya başlamak düşüncesindeyiz.
Yardımcı olabileceklere şimdiden teşekkür ederiz.
Saygılarımızla.




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Merhaba, Forma hesaplama için kod ekledim, mesajınızda belirttiğiniz hususlara göre hesaplamayı yapar. Ancak, sondaki çarpan vs kısımdaki hesaplama ile ilgili fikrim olmadığı için bu kısım hesaplamaya dahil edilmemiştir.

İnceleyip olumlu/olumsuz bildirimde bulununuz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
xctr

xctr

Üye
45388
 Belirtilmemiş
 1
 4
 25/01/2012
0
 Belirtilmemiş
 
 Ofis 2003
 24/01/2019,14:16
(24/01/2019 10:44)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, Forma hesaplama için kod ekledim, mesajınızda belirttiğiniz hususlara göre hesaplamayı yapar. Ancak, sondaki çarpan vs kısımdaki hesaplama ile ilgili fikrim olmadığı için bu kısım hesaplamaya dahil edilmemiştir.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

Öncelikle ilginiz için teşekkür ederim.
GEÇERLİ-LİMİT ALTI Belirtilemsi ksımı tamam.
Ama PUANI hesaplamada biraz daha açıklama yazmam gerekecek sanırım.

Örnek1 :Çipura 22cm
GEÇERLİ
22CM Boy+10 Puan =32 PUAN

örnek2:Çipura 17cm
LİMİT ALTI
17cm Boy+1 Puan=18 Puan

Örnek3:Çipura 18cm (LİmitBoya eşit)
18cm Boy+10 Puan=28 Puan


Örnek4LolİĞER xx.cm
Durum GEÇERLİ , Puan SABİT ve Puan=5

Geçerli ve Listede olan balıklarda PUAN=BOY+10

Limitaltı ve listede olan balıklarda PUAN=BOY+1

DİĞER olması durumunda BOY önemli değil GEÇERLİ ama PUAN SABİT 5 puan 

Faydalı olurmu acaba.
Teşekkürler



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Örnek uygulamayı tekrar test ettiğimde sadece DİĞER ile ilgili sorun vardı, 

ilgili kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Hesapla()

Dim GBalik As String
Dim GPuan, GBoy As Integer

GPuan = Me.BALIK.Column(3)
GBoy = Me.BALIK.Column(2)
GBalik = Me.BALIK.Column(1)

Me.BOY = GBoy

If GBalik <> "DİĞER" And Val(Me.ÖLÇÜM) >= GBoy Then

    Me.Metin19 = "GEÇERLİ"
    Me.PUAN = Me.ÖLÇÜM + 10

ElseIf GBalik <> "DİĞER" And Me.ÖLÇÜM.Value < GBoy Then

    Me.Metin19 = "LİMİTALTI"
    Me.PUAN = Me.ÖLÇÜM + 1

ElseIf GBalik = "DİĞER" Then
    Me.Metin19 = "DİĞER"
    Me.PUAN = 5

End If

End Sub



"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
xctr

xctr

Üye
45388
 Belirtilmemiş
 1
 4
 25/01/2012
0
 Belirtilmemiş
 
 Ofis 2003
 24/01/2019,14:16
(24/01/2019 11:20)ozanakkaya Adlı Kullanıcıdan Alıntı: Örnek uygulamayı tekrar test ettiğimde sadece DİĞER ile ilgili sorun vardı, 

ilgili kodu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Hesapla()

Dim GBalik As String
Dim GPuan, GBoy As Integer

GPuan = Me.BALIK.Column(3)
GBoy = Me.BALIK.Column(2)
GBalik = Me.BALIK.Column(1)

Me.BOY = GBoy

If GBalik <> "DİĞER" And Val(Me.ÖLÇÜM) >= GBoy Then

    Me.Metin19 = "GEÇERLİ"
    Me.PUAN = Me.ÖLÇÜM + 10

ElseIf GBalik <> "DİĞER" And Me.ÖLÇÜM.Value < GBoy Then

    Me.Metin19 = "LİMİTALTI"
    Me.PUAN = Me.ÖLÇÜM + 1

ElseIf GBalik = "DİĞER" Then
    Me.Metin19 = "DİĞER"
    Me.PUAN = 5

End If

End Sub


Deneyip bilgi vereceğim,teşekkürler



xctr

xctr

Üye
45388
 Belirtilmemiş
 1
 4
 25/01/2012
0
 Belirtilmemiş
 
 Ofis 2003
 24/01/2019,14:16
Çok teşekkür ederim , tam istediğimiz gibi oldu Adana-Mersin-Tarsus-OSmaniye den değişik grup ve derneklerdeki arkadaşlarım adına teşekkür ederiz.
Saygı ve Selamlar



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 132 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Raporda Sayfa Alt Bilgisi Liste Boyuna Göre Yapışık Olsun Yardım okumas 2 174 30/05/2019, 15:38
Son Yorum: okumas
Çözüldü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 376 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Girilen Sipariş Miktarına Göre Makinanın Üretm Doluluğu gimbo25 7 325 14/05/2019, 14:10
Son Yorum: halily
Çözüldü Stok Bakiye Depoya Göre Seçilerek Arama ahmetbal 1 252 06/05/2019, 21:26
Son Yorum: C*e*l*o*y*c*e

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.