Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

visual basic 6.0 ödev yardımm

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
17
Cevap
0
Favori
304
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaslar ödevim var yardım edebilecek arkadaş var mı ?



  • Sorunu yazsaydin yardım ederdik :)

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • ÖNEMLİ NOT: PROGRAM ÇALIŞTIĞINDA ÜRÜN ADI GİRİLDİĞİNDE STOK KODU, BİRİM FİYATI, KDV ORANI OTOMATİK OLARAK GELMELİ, İSTENİLEN MİKTAR GİRİLDİĞİNDE İSE PROGRAM “ARA TOPLAMI”, “KDV’Yİ” VE “GENEL TOPLAMI” KENDİSİ HESAPLAMALI.

    ÜRÜN CİNSİ STOK KODU BİRİM FİYAT/KG KDV ORANI
    ERİK Y-9532 1250 TL %6
    KİRAZ Z-1250 1500 TL %8
    ÇİLEK H-2548 2000 TL %8
    KARPUZ Z-1255 350 TL %5
  • buda foto hali
    visual basic 6.0 ödev yardımm
  • arkadaşlar lütfenn 
  •  
      Private Sub Combo1_Click() 
       
      Select Case Combo1.ListIndex 
       
       
                  Case 0 
                       Label9.Caption = "Y-9532" 
                       Text1.Text = "1250" 
                        Text2.Text = "6" 
                  Case 1 
                       Label9.Caption = "Z-1250" 
                       Text1.Text = "1500" 
                        Text2.Text = "8" 
                  Case 2 
                      Label9.Caption = "H-2548" 
                      Text1.Text = "2000" 
                       Text2.Text = "8" 
                        Case 3 
                       Label9.Caption = "Z-1255" 
                       Text1.Text = "350" 
                        Text2.Text = "5" 
                  
          End Select 
       
      End Sub 
       
      Private Sub Text3_Change() 
       
      Dim arasonuç As Double 
      Dim sonuç As Double 
      Dim kdv As Double 
       
      If Text3.Text = "" Then 
       
      Else 
      kdv = CDbl(Text1.Text) * CDbl(Text2.Text) / 100 
      arasonuç = CDbl(Text1.Text) * CDbl(Text3.Text) 
      sonuç = arasonuç + kdv 
      Label10.Caption = arasonuç 
      Label11.Caption = kdv 
      Label12.Caption = sonuç 
       
      End If 
       
       
      End Sub




  • quote:

    Orijinalden alıntı: Gökşen PASLI 

     
      Private Sub Combo1_Click() 
       
      Select Case Combo1.ListIndex 
       
       
                  Case 0 
                       Label9.Caption = "Y-9532" 
                       Text1.Text = "1250" 
                        Text2.Text = "6" 
                  Case 1 
                       Label9.Caption = "Z-1250" 
                       Text1.Text = "1500" 
                        Text2.Text = "8" 
                  Case 2 
                      Label9.Caption = "H-2548" 
                      Text1.Text = "2000" 
                       Text2.Text = "8" 
                        Case 3 
                       Label9.Caption = "Z-1255" 
                       Text1.Text = "350" 
                        Text2.Text = "5" 
                  
          End Select 
       
      End Sub 
       
      Private Sub Text3_Change() 
       
      Dim arasonuç As Double 
      Dim sonuç As Double 
      Dim kdv As Double 
       
      If Text3.Text = "" Then 
       
      Else 
      kdv = CDbl(Text1.Text) * CDbl(Text2.Text) / 100 
      arasonuç = CDbl(Text1.Text) * CDbl(Text3.Text) 
      sonuç = arasonuç + kdv 
      Label10.Caption = arasonuç 
      Label11.Caption = kdv 
      Label12.Caption = sonuç 
       
      End If 
       
       
      End Sub


    hocam çok sağol allah razı olsun. peki program çalışıyor mu yani bide ekran görüntüsü olsaydı çok iyi olucaktı benim pc de VB 6.0 olmadıgı için deneyemiyorum nerden indireceğimide bulamadım. bide ekran görüntüsü atsan olurmu ?




    • Yapay Zeka’dan İlgili Konular
    Visual Basic Hesaplama Sorunsalı
    8 yıl önce açıldı
    Visual basic satır atlama
    5 yıl önce açıldı
    Startallback Windows 11 Online Installer 1.0
    geçen yıl açıldı
    Daha Fazla Göster
  • quote:

    Orijinalden alıntı: Gökşen PASLI 

     
      Private Sub Combo1_Click() 
       
      Select Case Combo1.ListIndex 
       
       
                  Case 0 
                       Label9.Caption = "Y-9532" 
                       Text1.Text = "1250" 
                        Text2.Text = "6" 
                  Case 1 
                       Label9.Caption = "Z-1250" 
                       Text1.Text = "1500" 
                        Text2.Text = "8" 
                  Case 2 
                      Label9.Caption = "H-2548" 
                      Text1.Text = "2000" 
                       Text2.Text = "8" 
                        Case 3 
                       Label9.Caption = "Z-1255" 
                       Text1.Text = "350" 
                        Text2.Text = "5" 
                  
          End Select 
       
      End Sub 
       
      Private Sub Text3_Change() 
       
      Dim arasonuç As Double 
      Dim sonuç As Double 
      Dim kdv As Double 
       
      If Text3.Text = "" Then 
       
      Else 
      kdv = CDbl(Text1.Text) * CDbl(Text2.Text) / 100 
      arasonuç = CDbl(Text1.Text) * CDbl(Text3.Text) 
      sonuç = arasonuç + kdv 
      Label10.Caption = arasonuç 
      Label11.Caption = kdv 
      Label12.Caption = sonuç 
       
      End If 
       
       
      End Sub


    Elinize sağlık aynı ödev benim de umarım çalışıyordur, çalışıyorsa baya iş görücek bu sağolun

    < Bu ileti mobil sürüm kullanılarak atıldı >




  • Bunlar sadece event kodları arkadaşlar. Programı sizin baştan tasarlamanız lazım. Bu kodu kopyalayıp atmayın hocaya falan :)
  • GorunmezBKZ kullanıcısına yanıt
    Word belgesinde istiyor kodları bunun dışında başka bir kod var mı ki?
  • quote:

    Orijinalden alıntı: GorunmezBKZ

    Bunlar sadece event kodları arkadaşlar. Programı sizin baştan tasarlamanız lazım. Bu kodu kopyalayıp atmayın hocaya falan :)

    hocam şimdi ben bunu VB kodları yazsam çalışmaz mı ?
  • hoodblod_405 H kullanıcısına yanıt
    Word belgesinde atacaksanız sorun olmaz, hoca nasıl yaptığınıza bakar geçer. Ama program olarak isteseydi arayüzü tasarlayıp combobox itemlerini sizin atamanız gerekecekti.

    Siz VB bende yok, böyle kesin çalışıyor mu deyince ona istinaden demiştim.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • quote:

    Orijinalden alıntı: GorunmezBKZ

    Word belgesinde atacaksanız sorun olmaz, hoca nasıl yaptığınıza bakar geçer. Ama program olarak isteseydi arayüzü tasarlayıp combobox itemlerini sizin atamanız gerekecekti.

    Siz VB bende yok, böyle kesin çalışıyor mu deyince ona istinaden demiştim.

    çalışıtıgında bide ekran görüntüsü SS i lazım hocam ondan çalışıyor mu direk dedim
  • Not hesaplama programında girilen not 0 dan küçük 100 den büyük olmaması için visual studio 2008 de yazılacak kod verebilrmisiniz.tesekkurler.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • Birde select case deyiminde en sona case 90 to 100 : textbox4.text="AA"
    Case else : textbox4.text="Hata"
    Yazdım ancak notları 90 üzerinde girince AA yazmiyor Hata yazıyor. Nersi yanlış.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • Resimleri ekledim nerde yanlış yapıyorum. kodlar bu şekilde 90 dan yukarı not girince harf notu yanlış yazıyor.
    visual basic 6.0 ödev yardımm visual basic 6.0 ödev yardımm




  • Select Case Val(Textbox7.text)
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum