Bilgisayar Parça Takip Programı Vb.Net
Programımızda 10 adet button, 4adet groubox, 26 adet Label, 3adet pıcturebox ve 2 adet combobox kullandım.
Amaç burada Parça takip programında parça takibi söz konusudur.Programda müşteri platformu, yüzdelik oylama, indirimli ürünler, parça çeşitleri ve belirli zaman içersinde fırsat sunulan indirimli ürünler yer almaktadır.
İlk olarak Publıc class Form1′in içine değişkenlerimizi tanımlıyoruz.
Dim l, y As Integer //mödcdxgcds
Dim k() As String = {"ATI ekranKartı 512MB 23.00$", "SAMSUNG Harddisk 160MB 35.00$", "TOSHİBA FlashBellek 2Gb 8 $", "AOPEN Dvd-writer 15.00$", "INTEL İşlemciler core duo CPU 75.00$"}
İndirimli ürünler: Burada Groupbox’ın içine 3tane pıcturebox,3button ve 7 label eklıyoruz.
If MsgBox("Satın almak istiyor musunuz?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Soru") = _
MsgBoxResult.Yes Then
MsgBox("Aşağıdaki müşteri platformuna gerekli bilgilerinizi giriniz...")
End If
Burada button1′e tıklandığında kullanıcıya “satın almak istiyor musunuz?” sorusunu yöneltiyor.Evet dersek bu sefer kullanıcıya müşteri platformuna bilgilerini girmemizi isticektir.
Aynı şekilde diğer butonlarada aynı kodları yazıyoruz.
Button2′nın click’ne
If MsgBox("Satın almak istiyor musunuz?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Soru") = _
MsgBoxResult.Yes Then
MsgBox("Aşağıdaki müşteri platformuna gerekli bilgilerinizi giriniz...")
End If
Button3′ün click’ne de aynı şekilde
If MsgBox("Satın almak istiyor musunuz?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Soru") = _
MsgBoxResult.Yes Then
MsgBox("Aşağıdaki müşteri platformuna gerekli bilgilerinizi giriniz...")
End If
Müşteri platformu:Burada 3textbox,6label, 2button ve 1groupbox kullandım.Burada ki amaç yukarıda ki indirimli ürünlerden faydalanmak için girilmesi istenen müşteri bilgileri yer almaktadır.
Güvenlik metninde 3adet karakter vermektedir.Yenile butonuna basıldığında ise her tıklamada değişik karakterler yer alacaktır.İlk olarak aşağıdaki değişkenleri yazıyoruz.
Dim a, b As Integer
Dim s, g, u As Integer
Dim z() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z"}
Dada sonra yenile adlı butonun click’ine
Randomize() s = Int(Rnd() * 10) g = Int(Rnd() * 10) u = Int(Rnd() * 23) Label26.Text = s & z(u) & g
” s ” değişkeninde 10′a kadar olan sayıları değişik hallerde yazdırır.
” g ” değişkeninde 10′a kadar olan sayıları değişik hallerde yazdırır.
” u ” değişkeninde ise yukarıda tanıttığımız harflerden değişik hallerde yazdırır.
Onayla adlı butonun içine ise
Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False GroupBox1.Enabled = False
Onayla butonuna tıklandığı takdirde buton1,buton2,buton3 ve groupbox’ı komple kitleyecektir.
Yüzdelik Oylama:Burada da 4buton,9label kullandım.Daha form load’ın içine değişkenlerimizi tanıttım.
deger1 = 0 deger2 = 0 deger3 = 0 deger4 = 0
Ve sonra 1.button’un click’ine [code=VB.Net']
deger1 = deger1 + 1
h = (deger1 + deger2 + deger3 + deger4)
j = 100 / h
Label11.Text = deger1 * j
Label12.Text = deger2 * j
Label13.Text = deger3 * j
Label14.Text = deger4 * j
[/code]
Aynı şekilde 2.button’un click’nede aynı kodları yazıyoruz.
deger1 = deger1 + 1 h = (deger1 + deger2 + deger3 + deger4) j = 100 / h Label11.Text = deger1 * j Label12.Text = deger2 * j Label13.Text = deger3 * j Label14.Text = deger4 * j
Aynı şekilde 3.button’unda click’ne aynı kodları yazıyoruz.
deger1 = deger1 + 1 h = (deger1 + deger2 + deger3 + deger4) j = 100 / h Label11.Text = deger1 * j Label12.Text = deger2 * j Label13.Text = deger3 * j Label14.Text = deger4 * j
Ve son olarak 4.Button’un da click’ne aynı kodları yazıyoruz.
deger1 = deger1 + 1 h = (deger1 + deger2 + deger3 + deger4) j = 100 / h Label11.Text = deger1 * j Label12.Text = deger2 * j Label13.Text = deger3 * j Label14.Text = deger4 * j
Parça çeşitleri:Burada 2adet combobox,2adet label ile 1 adet groupbox kullandım.Burada ki amaç combobox1′de seçilen seçeneği combobox2′de göstermesini sağlamaktır.
Burada groupbox’ın click’ne içine
ComboBox1.Items.Clear()
ComboBox1.Items.Add("Intel uyumlu Anakart")
ComboBox1.Items.Add("Amd uyumlu Anakart")
ComboBox1.Items.Add("Ekran Kartı")
ComboBox1.Items.Add("Ram")
ComboBox1.Items.Add("İşlemci")
ComboBox1.Items.Add("Harddisk")
ComboBox1.Items.Add("Monitör")
ComboBox1.Items.Add("Ses Kartı")
ComboBox1.Items.Add("Cd-Dvd Rom")
ComboBox1.Items.Add("Ethernet Kartı")
ComboBox1.Items.Add("Klavye-Fare")
ComboBox1.Items.Add("Yazıcı")
ComboBox1.Items.Add("Wep Cam")
ComboBox1.Items.Add("Tv-Radyo Kartı")
Yukarıda Combobox’ın içine bazı terimler ekledim.Program çalıştığında bu terimler combobox1′de gözükecektir.
Ve daha sonra combobox1′ın click’ne aşağıdaki kodları yazıyoruz.
If (ComboBox1.Text = "Intel uyumlu Anakart") Then
ComboBox2.Text = "" // Burada ilk başta hiçbir terim göstermesin diye boş bıraktım.
ComboBox2.Items.Clear() // Burada ise terimleri üstüste göstermesin die her tıklandğında kendi temizler.
ComboBox2.Items.Add("MSI MS-7043-010 SC-478 MSI PX8 NEO-V P4X533 SES+LAN 44.00$")
ComboBox2.Items.Add("MSI MS-7082-020 SC-775 SIS661FX FM3-L SES/VGA/LAN DDR400 SATA ANAKART 66.00$")
ComboBox2.Items.Add("MSI MSI MS-7053-010 SC-775 I925X Ses/LAN FSB800 DDRII-533 SATA RAID I1394 179.00$")
ComboBox2.Items.Add("ASUS ASUS-P5AD2-E SC-775 I925XE Ses/LAN FSB1066 DDRII-711/533 SATA RAID ANAKART 248.00$")
ComboBox2.Items.Add("ASUS P4V8X-X SC-478 VIA Ses/LAN FSB 800/533 DDR400 SATA ATX 46.00$")
ComboBox2.Items.Add("ASUS ASUS-P5S800-VM SC-775 SIS 661FX Ses/VGA/LAN FSB 800 DDR400 mATX SATA Anakart 72.00$")
ComboBox2.Items.Add("GIGABYTE GA8IPE775G Sc-775 I865Pe Ses/Lan FSB800 DDR400 SATA-PATA ATX 89.00$")
ComboBox2.Items.Add("GIGABYTE GA8S648-RZC SC-478 SiS648 Ses FSB533 DDR333 HT ATX 46.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GA8TRX330-L SC-478 ATI RX330 SES/LAN FSB800 DDR400 SATA RAID 67.00$")
End If
If (ComboBox1.Text = "Amd uyumlu Anakart") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("MSI MS-7021-030 KT4A-V VIA KT400A Ses/LAN FSB400 DDR400 AMD ATX 44.00$")
ComboBox2.Items.Add("MSI MS-7021-020 MAB SC-A KT6V-LSR VIA KT600 AMD 48.00$")
ComboBox2.Items.Add("MSI MSI MS-6570E-020 K7N2 Delta nForce2 Ultra Ses/LAN DDR400, FSB400 ATX AMD Anakart 59.00$")
ComboBox2.Items.Add("ASUS A7V600-X SC-A VIAKT600 Ses/LAN FSB400 DDR400 SATA ATX AMD 53.00$")
ComboBox2.Items.Add("ASUS A7V400-MX SC-A VIA KM400A SES/VGA/LAN FSB400 DDR333 AMD MicroATX 54.00$")
ComboBox2.Items.Add("ASUS ASUS-K8V-X VIA K8T800 AMD Athlon64 ATX Anakart 70.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GAK8NS Sc-754 NForce3 250 Ses/LAN DDR400 8X Agp 70.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GAK8NF9 SC-939 NFORCE4 SES/LAN FSB1600 DDR400 SATA AMD Athlon64-FX ATX 115.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GAK8NSNXP Sc-754 NForce3 250 Ses/LAN DDR400 8X-Agp SATA RAID FIREWIRE 166.00$")
End If
If (ComboBox1.Text = "Ekran Kartı") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("MSI MSI Vga 128Mb Agp Msı Gf FX5200-T128 DDR TV-OUT 64 Bit 49.00$")
ComboBox2.Items.Add("MSI MSI Vga 128Mb Agp Msı Gf FX5200-T128 DDR TV-OUT 64 Bit 49.00$")
ComboBox2.Items.Add("MSI MS-8952-070 128Mb Ati R9200SE TV-OUT 49.00$")
ComboBox2.Items.Add("ASUS 128MB GEFORCE FX5200 DDR TV Out DVI Çıkışlı Ekran Kartı 54.00$")
ComboBox2.Items.Add("ASUS ASUS-EAX300SE-X-TD 128Mb Asus Ati RX300SE TV-OUT DVI-D Ekran Kartı 62.00$")
ComboBox2.Items.Add("ASUS ASUS 256Mb Asus Ati R9250 TV-OUT DVI Ekran Kartı 79.00$")
ComboBox2.Items.Add("ASUS ASUS-A9550-GE-TD 128Mb Agp Asus Ati Radeon 9550GE/TD/128MB TV Out 79.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GV-R925128T 128MB GIGABYTE ATI RADEON 9250 TV-OUT 43.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GV-N52128TE 128MB GIGABYTE GEFORCE FX5200 DDR TV Out 47.00$")
ComboBox2.Items.Add("GIGABYTE GIGABYTE GV-R955256D 256Mb Ati Radeon 9550 TV Out DVI DX9.0 128bit Ekran Kartı 88.00$")
End If
If (ComboBox1.Text = "Ram") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("KİNGSTON DDRAM 512MB PC3200 400MHz 50.00$")
ComboBox2.Items.Add("KİNGSTON KINGSTON 256MB PC4300 533Mhz DDR2 51.00$")
ComboBox2.Items.Add("KİNGSTON KINGSTON 256MB PC3200 400Mhz DDRRAM 30.00$")
ComboBox2.Items.Add("GEIL GEIL DDRAM 512MB PC3200 400Mhz CL 2,5 6-3-3-2T, Isı Dağıtıcılı Kutulu 65.00$")
ComboBox2.Items.Add("GEIL GEIL DDRAM DUAL CHANNEL 256MBx2 PC3200 400Mhz CL 2.5, Isı Dağıtıcılı 73.00$")
ComboBox2.Items.Add("GEIL GEIL DDRAM 512MB PC4400 550Mhz CL 2,5 7-4-4 Ultra X, Overclock 180.00$")
ComboBox2.Items.Add("V-DATA V-Data DDRAM 1GB PC3200 400MHz 143.00$")
ComboBox2.Items.Add("V-DATA 256MB PC3200 400Mhz DDRRAM 23.00$")
ComboBox2.Items.Add("V-DATA 512MB PC3200 400Mhz DDRRAM 42.00$")
End If
If (ComboBox1.Text = "İşlemci") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("INTEL P4 2.8GHz LGA 775 Kutulu Fanlı 478PIN 800MHz PRESCOTT CPU 170.00$")
ComboBox2.Items.Add("INTEL 2.8GHz Kutulu Fanlı 478PIN 533MHz PRESCOTT CPU 173.00$")
ComboBox2.Items.Add("INTEL P4 3.0GHz Kutulu Fanlı 478PIN 800MHz PRESCOTT CPU 187.50$")
ComboBox2.Items.Add("INTEL P4 3.0GHz Kutulu Fanlı LGA775 800MHz PRESCOTT CPU 189.00$")
ComboBox2.Items.Add("INTEL P4 3.2GHz Kutulu Fanlı LGA775 800MHz PRESCOTT CPU 231.00$")
ComboBox2.Items.Add("INTEL 2.26GHz Kutulu Fanlı 478PIN 512K 533FSB CPU 113.00$")
ComboBox2.Items.Add("INTEL 2.4GHz Kutulu Fanlı 478PIN 533MHz PRESCOTT CPU 130.00$")
ComboBox2.Items.Add("ASUS P5GD2 SC-775 I915P Ses/LAN FSB800 Dual-DDRII-533 SATA ATX ANAKART 147.00$")
End If
If (ComboBox1.Text = "Harddisk") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("SAMSUNG IDE 80GB 7200RPM 2MB Cache HDD 60.00$")
ComboBox2.Items.Add("SAMSUNG SAMSUNG 80GB 7200RPM 8MB Cache HDD 61.004$")
ComboBox2.Items.Add("SAMSUNG IDE 80GB 7200RPM 8MB Cache SATA 64.00$")
ComboBox2.Items.Add("SAMSUNG IDE 120GB 7200RPM 2MB Cache Ultra ATA 133 69.00$")
ComboBox2.Items.Add("SAMSUNG SAMSUNG IDE 120GB 7200RPM 8MB Cache SERI ATA HDD 64.00$")
ComboBox2.Items.Add("SAMSUNG SAMSUNG IDE 160GB 7200RPM 8MB Cache SERI ATA HDD 100.00$")
ComboBox2.Items.Add("SEAGATE 80GB 7200RPM 2MB Cache Ultra ATA 100 64.00$")
ComboBox2.Items.Add("SEAGATE 80GB 7200RPM 8MB Cache SERIAL ATA 150 66.00$")
ComboBox2.Items.Add("SEAGATE IDE 120GB 7200RPM 2MB Cache Ultra ATA 100 79.00$")
ComboBox2.Items.Add("MAXTOR IDE 120GB 7200RPM 2MB Cache HDD 78.00$")
ComboBox2.Items.Add("MAXTOR IDE 120GB 7200RPM 8MB Cache HDD 85.00$")
ComboBox2.Items.Add("MAXTOR MAXTOR IDE 160GB 7200RPM 8MB Cache SERIAL ATA HDD 100.00$")
ComboBox2.Items.Add("MAXTOR MAXTOR IDE 160GB 7200RPM 2MB Cache HDD 89.00$")
ComboBox2.Items.Add("MAXTOR MAXTOR SCSI 73GB 15000RPM 68PIN U320 8MB Cache HDD 558.00$")
ComboBox2.Items.Add("MAXTOR MAXTOR IDE 200GB 7200RPM 8MB Cache HDD 113.00$")
ComboBox2.Items.Add("MAXTOR MAXTOR SCSI 146GB 10000RPM 80PIN U320 HOT SWAP HDD 608.00$")
End If
If (ComboBox1.Text = "Monitör") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("LIKOM LIKOM L70617L CRT 17, 1280x1024, 0,27mm Bej 91.00 $ ")
ComboBox2.Items.Add("LG LG CRT 15, 1024x768, 0.28mm Siyah Monitör 92.00 $ ")
ComboBox2.Items.Add("LIKOM LIKOM CRT 17, 1280x1024, 0,27mm FLAT Bej Monitör 102.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.23mm Bej Monitör 104.00 $ ")
ComboBox2.Items.Add("LG CRT 17,1280x1024, 0.27mm Monitör 106.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.23mm Siyah Monitör 106.00 $ ")
ComboBox2.Items.Add("HYUNDAI HYUNDAI_QV770 CRT 17, 1280x1024, 0.230mm TCO 99`lu 112.00 $ ")
ComboBox2.Items.Add("VERSTEL VESTEL 17 1280x1024, 0.27mm Flat Bej Monitör 113.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.20mm Bej Monitör 128.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.20mm Ön tarafı gri, arka tarafı Siyah Monitör 130.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.20mm Siyah Monitör 130.00 $ ")
ComboBox2.Items.Add("PHILPS PHILIPS CRT 15, 1024x768, 0.28mm Bej Monitör 131 TL ")
ComboBox2.Items.Add("HYUNDAI HYUNDAI CRT 17, 1280x1024, 0.20mm TCO 99'lu Flat Monitör 131.00 $ ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG CRT 17, 1280x1024, 0.20mm Ön tarafı Gümüş, arkası Siyah Monitör 149.00 $ ")
ComboBox2.Items.Add("PHILPS PHILIPS CRT, 17, 1280x1024, 0.27mm Bej Monitör 150 TL ")
ComboBox2.Items.Add("PHILPS PHILIPS CRT 17, 1280x1024, 0.27mm Siyah Monitör 155 TL ")
End If
If (ComboBox1.Text = "Ses Kartı") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("CREATIVE Lıve Value 5.1 Box 33.00 $ ")
ComboBox2.Items.Add("CREATIVE CREATIVE Car Ses Creatıve SB Lıve 5+1 34.00 $ ")
ComboBox2.Items.Add("CREATIVE CREATIVE Audigy2 ZS 7.1 Ses Kartı 96.00 $ ")
ComboBox2.Items.Add("CREATIVE CREATIVE Audigy2 NX 7.1 Ses Kartı 133.00 $ ")
ComboBox2.Items.Add("CREATIVE Creative Audigy2 ZS Platinum Pro 7.1 Harici Kutulu Ses Kartı 227.00 $ ")
ComboBox2.Items.Add("PHILPS PHILIPS PSC605 Sonic Edge Ses Kartı 5.1 kanal 42.00 $ ")
End If
If (ComboBox1.Text = "Cd-Dvd Rom") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("LG LG 52X CD-ROM Sürücü 16.00 $ ")
ComboBox2.Items.Add("LG LG 52X32X52 Internal CDRW 26.00 $")
ComboBox2.Items.Add("AOPEN AOPEN CD-RW Internal 52X32X52 E-IDE kutusuz 27.00 $ ")
ComboBox2.Items.Add("AOPEN AOPEN AOpen 52x32x52x CD-RW Sürücü Siyah Kutusuz 28.00 $")
ComboBox2.Items.Add("ASUS ASUS DVDRW INT 16x8x16 DOUBLE LAYER (+/-) Beyaz 78.00 $ ")
ComboBox2.Items.Add("ASUS ASUS DVDRW INT 16x8x16 DOUBLE LAYER (+/-) Siyah 80.00 $ ")
ComboBox2.Items.Add("PHILPS PHILIPS DVDRW INT 16x4x16 PHILIPS DL.(±) LightScribe 122 TL ")
ComboBox2.Items.Add("SAMSUNG SAMSUNG DVDRW INT 16x4x12 SAMSUNG DOUBLE LAYER (+/-) Siyah Kutusuz 70.00 $ ")
ComboBox2.Items.Add("PLEXTOR PLEXTOR INTERNAL DVDRW+/-IDE KUTULU SIYAH 148.00 $ ")
End If
If (ComboBox1.Text = "Ethernet Kartı") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("USROBOTICS USR997900 10/100 Mbps Network Card 14.00 $ ")
ComboBox2.Items.Add(" USROBOTICS USR997902 U.S. Robotics Gigabit Ethernet PCI Card 24.00 $ ")
ComboBox2.Items.Add("3COM 3COM 10/100 PCI, yönetilebilir, Wake On Lan özellikli ethernet kartı 29.00 $ ")
ComboBox2.Items.Add("DLINK DLINK DFE-550FX PCI 100FX 32bit Fiber ethernet kartı 74.00 $ ")
ComboBox2.Items.Add(" EDIMAX EDIMAX 10/100 PCI Realtek ethernet kartı 6.00 $ ")
ComboBox2.Items.Add("PLANET PLANET ENW-9504 10/100 PCI Ethernet Kartı 8.00 $ ")
ComboBox2.Items.Add("PLANET PLANET ENW-9503A 10/100 PLANET Wake on LAN PCI 8.00 $")
ComboBox2.Items.Add(" PLANET PLANET ENW-9607 10/100/1000 64bit PCI Ethernet Kart (marvell chipset) 44.00 $ ")
ComboBox2.Items.Add("LADOX LADOX LD-2202-64T PCI 64-Bit 10/100/1000Mbps Gigabit Ethernet 42.00 $ ")
End If
If (ComboBox1.Text = "Klavye-Fare") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("IT SPEED ITSPEED 8012B-SM03-BL Q PS/2 ITSPEED SIYAH STD KLAVYE + MOUSE 9.00 $ ")
ComboBox2.Items.Add("IT SPEED ITSPEED 8042B-SM03-SG Q PS/2 ITSPEED SIY.-GRI MM KLAVYE+MOUSE 10.00 $ ")
ComboBox2.Items.Add("IT SPEED ITSPEED 8042B-SM03-PW Q PS/2 ITSPEED BEYAZ MM KLAVYE+MOUSE 10.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH KB720-SWW35 PS/2 Q TR Standart Klavye+SWW35 Mouse 10.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH PS/2 Q TR Klavye + Mouse (Anti-RSI) 26.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH KBS-827R PS/2 Q TR Multimedya Kablosuz Klavye + Kablosuz Mouse (Anti-RSI) 31.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH KBA-2350ZRP PS/2 Q TR Klavye+Mouse (Anti-RSI)RF Kablosuz Klavye ve Mouse Set 38.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH PS/2 Q TR Klavye + Mouse (Anti-RSI)RF Kablosuz Klavye ve Mouse Seti 38.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH KBS-2680RP USB Q TR Klavye + Mouse (Anti-RSI) 41.00 $ ")
ComboBox2.Items.Add("A4 TECH A4 TECH USB Q TR Klavye + Mouse (Anti-RSI) 45.00 $ ")
ComboBox2.Items.Add("MICROSOFT OEM MICROSOFT OEM CA9-00023 SIYAH KLAVYE MOUSE SETI TURKCE KLAVYELI 2.0 Tekli Paket 29.00 $ ")
End If
If (ComboBox1.Text = "Yazıcı") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("HP Deskjet 3745c A4 USB Mürekkep Püskürtmeli Yazıcı 65.00 $ ")
ComboBox2.Items.Add("HP Deskjet 3845C A4 USB Mürekkep Püskürtmeli Yazıcı 77.00 $ ")
ComboBox2.Items.Add("HP Deskjet 5740C A4 USB Mürekkep Püskürtmeli Yazıcı 83.00 $ ")
ComboBox2.Items.Add("HP PhotoSmart 7450 USB A4 Mürekkep Püskürtmeli Foto Yazıcı 84.00 $")
ComboBox2.Items.Add(" HP Q3399B PhotoSmart 8150 USB A4 Mürekkep Püskürtmeli Foto Yazıcı 159.00 $")
ComboBox2.Items.Add("HP Deskjet 6840C A4 USB+WIRELESS Mürekkep Püskürtmeli Yazıcı 233.00 $ ")
ComboBox2.Items.Add(" HP PhotoSmart 8450 USB A4 Mürekkep Püskürtmeli Foto Yazıcı 262.00 $ ")
ComboBox2.Items.Add(" HP DeskJet 450Cbi A4 Taşınabilir Mürekkep Püskürtmeli Yazıcı 306.00 $ ")
End If
If (ComboBox1.Text = "Wep Cam") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add("IT SPEED ITSPEED ITP-PCC-359A Internet Kamera 300k (Siyah) 17.00 $ ")
ComboBox2.Items.Add("DLINK DLINK DSB-C310 USB digital video kamera w/mikrofon 34.00 $ ")
ComboBox2.Items.Add("INCA INCA_WEBCAM300 Internet Kamera 21.00 $ ")
ComboBox2.Items.Add("CODEGEN CODEGEN COD3U High Quality Web Cam 450K 31.00 $ ")
ComboBox2.Items.Add(" CODEGEN CODEGEN COD12U High Quality Web Cam 1300K 31.00 $ ")
End If
If (ComboBox1.Text = "Tv-Radyo Kartı") Then
ComboBox2.Text = ""
ComboBox2.Items.Clear()
ComboBox2.Items.Add(" FLY-TV-PRIME-30 TV + Radyo, Philips 7130 Capture, U. Kumanda, Teletex 33.00 $ ")
ComboBox2.Items.Add(" FLY-TV-PRIME-34 PRIME 34 TV Kartı+Radyo Philips7134, Capture, U.Kumanda, Teletex 34.00 $ ")
ComboBox2.Items.Add("LEADTEK LEADTEK WinFast TV2000 XP Deluxe TV Kartı+Radyo Capture, U.Kumanda, Teletex 55.00 $ ")
ComboBox2.Items.Add(" INCA INCA PREMIUM-TV-TUNER Premium TV Kartı+Radyo BT878 Capture, U.Kumanda, Teletex 39.00 $ ")
ComboBox2.Items.Add("INCA INCA_DIGITAL_TV TV Kartı + Radyo, Uzaktan Kumanda, Teleteks, Dijital Uydu 63.00 $ ")
ComboBox2.Items.Add("INCA INCA PREMIUM-USB-20 USB TV Box TV Kartı + Radyo, Capture, U.Kumanda 77.00 $ ")
ComboBox2.Items.Add("AVERMEDIA AVERMEDIA E-TV Philips-713x Chipset Radio+Kumandalı Tv Kartı(Avermedia destekli) 33.00 $ ")
ComboBox2.Items.Add("AVERMEDIA AVERMEDIA TV Kartı + Radyo Connexant 878A, Capture Uzaktan Kumanda Teletex 59.00 $ ")
ComboBox2.Items.Add(" AVERMEDIA AVERMEDIA-DVB-S DIGITAL TV Video Radio uydudan + Kumandalı TV KARTI 76.00 $ ")
ComboBox2.Items.Add(" AVERMEDIA AVERMEDIA AVERTV-CARD-BUS NOTEBOOK İÇİN PCMCIA'DAN ÇALIŞAN TV KARTI 84.00 $ ")
ComboBox2.Items.Add(" AVERMEDIA AVERMEDIA-TVBOX7 TV Dönüştürücü EXTERNAL PIP (Picture in Picture) 93.00 $ ")
ComboBox2.Items.Add("AVERMEDIA AVERMEDIA USB 2,0 TV MPEG 1/2/4 96.00 $ ")
ComboBox2.Items.Add(" AVERMEDIA AVERMEDIA-TVBOX9 TV Dönüştürücü EXTERNAL (PIP Özelliği) 128.00 $ ")
ComboBox2.Items.Add(" AVERMEDIA AVERMEDIA-TVBOX9 TV Dönüştürücü EXTERNAL (PIP Özelliği) 128.00 $ ")
ComboBox2.Items.Add("LA CONTE LA CONTE CARD BUS NOTEBOOK İÇİN PCMCIA'DAN ÇALIŞAN TV KARTI 75.00 $ ")
End If
Son olarakta gün içinde belirli zaman dilimleri içersinde 2 kereliğe mahsus 10′ar saniyelik bi zamanda fırsatlardan faydalanma şansı tanımasını sağlamaktır.
Burada yine 1adet groupbox,3label ,Timer ve son olarakta 1adet button kullandım .
İlk önce form load’ına
Timer1.Interval = 1000 Timer1.Enabled = True
l = l + 1 If l = 10 Then // Burada 10saniye sonra GroupBox4'ün açılmasını sağlamaktadır. GroupBox4.Enabled = True End If Label28.Text = l If l = 20 Then // // Burada 10saniye sonra GroupBox4'ün kapanmasını sağlamaktadır. GroupBox4.Enabled = False End If Label28.Text = l If l = 30 Then //// Burada 10saniye sonra GroupBox4'ün açılmasını sağlamaktadır. GroupBox4.Enabled = True End If Label28.Text = l If l = 40 Then // // Burada 10saniye sonra GroupBox4'ün kapanmasını sağlamaktadır. GroupBox4.Enabled = False End If
Değişkenlerimizide tanımlıyoruz.
Dim k() As String = {"ATI ekranKartı 512MB 23.00$", "SAMSUNG Harddisk 160MB 35.00$", "TOSHİBA FlashBellek 2Gb 8 $", "AOPEN Dvd-writer 15.00$", "INTEL İşlemciler core duo CPU 75.00$"}
İndirimlerden faydalanmak için tıkla adlı button’nun click’ne ise
Randomize() y = Int(Rnd() * 5) // Yukarıda public form'a değişkenlerimizi tanımlamıştık.5 tane indirimli kayıt girmiştik. Label29.Text = k(y) // Yani burada Randomize'de 5kullanmamın sebebi 5 kayıt olduğundandır.
Çok uzun kodlar zaten bundan anlamıyorum
10 numara bi program bayıldımmmmmmmmmmmmmm
tşk ederimm: )
GERÇEKTEN ÇOK GÜZEL ELİNE SAĞLIK
yapan arkadasım bu programı ındırebılıyomuyuz bencı ındıremedım acaba yardımcı olursanız sevınırım uye olmak mı gereklı acaba???
Linki yeniledim.Proje indir linkinden indirebilirsiniz.Kolay gelsin
pardon yaa bu program c# da yazılmıs deıl mı
Hayır. Vb.net’de yazılmış.
Nasıl indirebiliriz… linki göremedim ben…
Projeyi_İNDİR yazan yere tıklandğında indirme işlemi gerçekleşecektir.Kolay gelsin.
Çok teşekkür ederim. Acemiyim Ögrenmeyi çok istiyorum. Gördüğüm kadarıyla bayağa emek harcamışsınız. Elinize sağlık.
Rica ederim.Bizlerde ilk başta hiç birşey bilmiyorduk.En önemli şey sabır.Belli bir süre sonra sendende böyle örnekler bekleriz.Buradaki basit örneklerden başlayabilirsin çalışmalara. Kolay gelsin.
valla helal olsun yapana