Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Pc Toplama ve satıs programı
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

VB de SQL dizeleri yazarken karsilasilan ondalik ayrici ve tarihte kullanilan ayraçlardan

Yazar: hg77tr

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10014
Yayın Tar:27.02.2008
Yazar : brscengiz
Hit :3754

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Kendi acılıs ekranımı koymadım. Çünkü sadece görsellik olsun diye koymustum o kadarda önemli degiL. İsteyen kendisine Acılıs ekranı yapabilir.

Dedigim gibi veri tabanı olmadıgı için içerigi additem ile ekleyecegiz. Her bir parca için bir ComboBox koymamız gerekiyor program içerisinde de onların içine degerleri eklememiz gerekiyor.

[1.Form için(Secim);]

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub img_hesapla_Click() [HESAPLA command butonu için;]
[burdada Form3'e toplam Normal kdv'siz fiyatı almak icin gizli bir text koydum fiyat formunda kdv'sini YtL sini ayarlıyoruz.Burada direk combobox'daki fiyatları toplayıp arka planda tutuyor.]
txt_hesap.Text = Val(cmb_cpu) + Val(cmb_anakart) + Val(cmb_ram) + Val(cmb_hdd) + Val(cmb_ekrankarti) + Val(cmb_monitor) + Val(cmb_kasa) + Val(cmb_yazici) + Val(cmb_tvkart) + Val(cmb_klavye_mouse) + Val(cmb_cd_dvd_yazici) + Val(cmb_hoparlor) + Val(cmb_kasa_psu) + Val(cmb_webcam)
[Burda her combobox'a birde text ayarlıyoruz. Ben böyle tercih ettim comboboxun içerigini kabul sayfasında gösterirken comboboxdan aldıramadıgım için comboboxın içerigini texte aktarıp diger formda da textin içinden aldım :)]
txt_cpu.Text = cmb_cpu.Text
txt_anakart.Text = cmb_anakart.Text
txt_ram.Text = cmb_ram.Text
txt_hdd.Text = cmb_hdd.Text
txt_ekrankarti.Text = cmb_ekrankarti.Text
txt_monitor.Text = cmb_monitor.Text
txt_kasa.Text = cmb_kasa.Text
txt_yazici.Text = cmb_yazici.Text
txt_tv_kart.Text = cmb_tvkart.Text
txt_klavye_mouse.Text = cmb_klavye_mouse.Text
txt_cd_dvd_yazici.Text = cmb_cd_dvd_yazici.Text
txt_hoparlor.Text = cmb_hoparlor.Text
txt_kasa_psu.Text = cmb_kasa_psu.Text
txt_webcam.Text = cmb_webcam.Text
Form2.Visible = False
Form4.Show
End Sub
----------------------------------------------------------------------------------------------------------------
İletişim Formuna karısmıyorum ben önemli kısımları yazıyorum sadece iletişim olayı size kalmıs gayet basit bir form.

[2.Form için(Secilen parcaları gösterme);


Private Sub btn_yazdir_Click()Not:Bu kodu sitedeki bi arkadasımdan aldım.YAZDIRMA]
Dim ex As Excel.Application
Set ex = New Excel.Application

With ex
.Visible = True
.Workbooks.Add
[Burada yazıcıdan cıktı için ayar yapıyoruz. Yeni olusturmak için üst kısımdaki satırı kullanıyoruz. Fakat elimizde hazır varsa ki ben kendim yaptım herkes kendisi için yapabilir bunun için sitede arama yapabilirsiniz.ALt satırdaki kod ise hazır excel sayfası yaptıysak kullanıyoruz.
'.Workbooks.Open ("c:excelim.xls") [Bunu da eger hazır bir excel sayfamız varsa onun üzerinde çalışmak istiyorsak .Workbooks.Add yerine kullanırız.]
[Alttaki kodlar ise Excel Sayfasındaki parcaları yerlestirmek istedigimiz kısımlar.Bu basit olarak bos excel sayfasına a1 den asagıya dogru a14 e kadar yazıyor.]

.Range("a1").Value = Label10.Caption
.Range("a2").Value = Label11.Caption
.Range("a3").Value = Label12.Caption
.Range("a4").Value = Label13.Caption
.Range("a5").Value = Label14.Caption
.Range("a6").Value = Label15.Caption
.Range("a7").Value = Label16.Caption
.Range("a8").Value = Label17.Caption
.Range("a9").Value = Label18.Caption
.Range("a10").Value = Label19.Caption
.Range("a11").Value = Label20.Caption
.Range("a12").Value = Label21.Caption
.Range("a13").Value = Label22.Caption
.Range("a14").Value = Label23.Caption

.Sheets.PrintOut 'yazdır
'.Sheets.PrintPreview yazıcı onizlemesi için kullanılabilir
.ActiveWorkbook.Close False 'false degeri yaptıklarımızın kaydedilmemesi için
.Quit
End With

Set ex = Nothing

End Sub

Private Sub Command1_Click()()[Evet butonu fiyat forumuna donmemizi saglar.]
Form2.Visible = False
Form3.Show
End Sub

Private Sub Command2_Click()[HaYıR butonu tekrar ana forma donmemizi saglar.Seçim Formuna]
Form2.Visible = False
Form1.Show
End Sub

[Bilgi: Asagıda gordugunuz labellar(örn: lbl_cpu) her parça için hazırlanmıstır.
Altta yazdıgım kodlar diger formda acıkladıgım kısımı gerçeklestiriyor texte aktardıklarımızı bize kabataslak gösteriyor.]

Private Sub Form_Load()
lbl_cpu.Caption = Form1.txt_cpu.Text
lbl_anakart.Caption = Form1.txt_anakart.Text
lbl_ram.Caption = Form1.txt_ram.Text
lbl_hdd.Caption = Form1.txt_hdd.Text
lbl_ekran_karti.Caption = Form1.txt_ekrankarti.Text
lbl_monitor.Caption = Form1.txt_monitor.Text
lbl_kasa.Caption = Form1.txt_kasa.Text
lbl_yazici.Caption = Form1.txt_yazici.Text
lbl_tvkart.Caption = Form1.txt_tv_kart.Text
lbl_klavye_mouse.Caption = Form1.txt_klavye_mouse.Text
lbl_cd_dvd_yazici.Caption = Form1.txt_cd_dvd_yazici.Text
lbl_hoparlor.Caption = Form1.txt_hoparlor.Text
lbl_kasa_psu.Caption = Form1.txt_kasa_psu.Text
lbl_webcam.Caption = Form1.txt_webcam.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub
----------------------------------------------------------------------------------------------------------------
[3.Form için(Fiyat);

Burada Fiyat dönüşümleri yapılıyor.
Private Sub Form_Load()
txt_kdvsiz_dolar.Text = Form1.txt_hesap.Text
txt_kdvsiz_ytl.Text = Form1.txt_hesap.Text * 1.2
txt_kdv_dolar.Text = txt_kdvsiz_dolar.Text * 0.18
txt_kdv_ytl.Text = txt_kdvsiz_ytl.Text * 0.18
txt_tutar_dolar.Text = Val(txt_kdvsiz_dolar.Text) + Val(txt_kdv_dolar.Text)
txt_tutar_ytl.Text = Val(txt_kdvsiz_ytl.Text) + Val(txt_kdv_ytl.Text)
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

----------------------------------------------------------------------------------------------------------------
Umarım isinize yarar. ilk paragrafımda da belirttigim gibi hatam varsa mazur görün. SOnucta acemiyim.




Yorumlar, eklemeler ve düşünceler
        benim ve benim gibi arkadaşların çok işine yarar bi program herkese öneririm

   analiz, 29.02.2008 10:45
   çok güzel bir programm

   mhmtksm, 04.03.2008 19:49
   Abiler yillik ödevim var pc Toplama Sihirbazi Bu kodlari yerlestirmek İcin Neler gerekli Yani kac Tane Texbox kac tane form kafan karisti simdiden Tskler k.g

   furkanbs16, 27.03.2009 20:23
   Merhaba kardeş

bu program benim için önemli varsa bu çalışmayı siteye koyabilir misin?

   coder44, 24.05.2012 10:37
   Ellerine sağlık çok yardımcı oldu.

   diklan, 28.03.2013 22:49
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin