THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Visualbasic 6 kod isteği

lozenge - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Yaş:
26
Mesajlar:
246
Konular:
46
Teşekkür (Etti):
36
Teşekkür (Aldı):
14
Ticaret:
(0) %
15
892
05-11-2012 19:21
#1
arkadaslar sizden bir kod isteyim olacak ben bir serial le ilgili program yapmak istiyorum elimdeki 35 40 tane serial var bunları vb6 da bir koda ekliyip butona basınca her basmamda serialin biri tezxt boxa gelsin istiyorum varmıdır böyle bi kod
Baysal - ait Kullanıcı Resmi (Avatar)
Genel Sorumlu
Üyelik tarihi:
10/2012
Mesajlar:
15.171
Konular:
872
Teşekkür (Etti):
553
Teşekkür (Aldı):
5311
Ticaret:
(0) %
05-11-2012 19:39
#2
Vallahi unuttum bu kodu .s yanlız butona tıklayınca mesaj verebilir örneğin dene bir

1 command at sonra bu kodu yaz olduğu gibi

Private Sub Command1_Click()
MsgBox " kod 1 "
End Sub
lozenge - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Yaş:
26
Mesajlar:
246
Konular:
46
Teşekkür (Etti):
36
Teşekkür (Aldı):
14
Ticaret:
(0) %
05-11-2012 19:41
#3
saol ginede bunu biliyordum bana dediğim kod lazım kardes
Baysal - ait Kullanıcı Resmi (Avatar)
Genel Sorumlu
Üyelik tarihi:
10/2012
Mesajlar:
15.171
Konular:
872
Teşekkür (Etti):
553
Teşekkür (Aldı):
5311
Ticaret:
(0) %
05-11-2012 20:09
#4
Bir araştırayım senin için mesaj atarım sana
---------------------
Ayağın topal olsun, yüreğin olmasın lenk !



İstek, öneri ve şikayetleri yalnızca özel mesajdan alıyorum.

Ban itiraz hattı ve diğer konular: [email protected]
Vip: [email protected]
Baysal - ait Kullanıcı Resmi (Avatar)
Genel Sorumlu
Üyelik tarihi:
10/2012
Mesajlar:
15.171
Konular:
872
Teşekkür (Etti):
553
Teşekkür (Aldı):
5311
Ticaret:
(0) %
05-11-2012 20:11
#5
aa yazdım ben tamam

Private Sub Command1_Click()
Text1.Text = " kod 1 "
End Sub

1 text 1 command yap text boş kalsın

2. command ve text içinse böyle

Private Sub Command2_Click()
Text2.Text = " kod2 "
End Sub


bundan yola çıkarak devamını getirebilirsin aradığın bu değilmi ?=
---------------------
Ayağın topal olsun, yüreğin olmasın lenk !



İstek, öneri ve şikayetleri yalnızca özel mesajdan alıyorum.

Ban itiraz hattı ve diğer konular: [email protected]
Vip: [email protected]
Orlion - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
01/2012
Nereden:
YokGibiBişey
Mesajlar:
1.755
Konular:
165
Teşekkür (Etti):
109
Teşekkür (Aldı):
187
Ticaret:
(0) %
05-11-2012 20:25
#6
Select Case olayı yapacaksın bununla ilgili yazılım ekibinden detaylı bir şekilde yardım alabiirsin.
---------------------
Bende 1 Lira Vardı Sende 1 Lira Vardı Paraları Değiştik Yine Sende 1 Lira Var Yine Bende 1 Lira Var;
Bende 1 Bilgi Var Sen de 1 Bilgi Var Bilgileri Değiştik, Şimdi Sen de 2 Bilgi Bende de 2 Bilgi Var.
İşte Paylaşım Ruhu Budur.
sezgin1444 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
02/2012
Mesajlar:
3.061
Konular:
110
Teşekkür (Etti):
215
Teşekkür (Aldı):
371
Ticaret:
(0) %
05-11-2012 20:36
#7
veya bir veritabanı oluştur basit bir veritabanı oluşturman yeterli ileri geri butonları ekle ileriye tıklayınca yeni bir serial görüntülensin birde güncelleme sistemi yaparsın basit şekilde serialleri sürekli güncellersin.
Unlimited Fps - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2012
Nereden:
İstanbul
Yaş:
24
Mesajlar:
1.370
Konular:
87
Teşekkür (Etti):
13
Teşekkür (Aldı):
100
Ticaret:
(0) %
05-11-2012 21:19
#8
Bu İşte
Private Sub Command1_Click()
Text1.Text = " kod 1 "
End Sub

Bunun Gibi 35-40 Tane Kodları Yazıcan Mesela 2 Buton Biri Avira Diğeri Kaspersky Hepsini 1.Text'e Bağla Hangisine Basarsan Serial Ordan Çıksın
lozenge - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2012
Yaş:
26
Mesajlar:
246
Konular:
46
Teşekkür (Etti):
36
Teşekkür (Aldı):
14
Ticaret:
(0) %
06-11-2012 17:06
#9
Alıntı:
Unlimited Fps´isimli üyeden Alıntı Mesajı göster
Bu İşte
Private Sub Command1_Click()
Text1.Text = " kod 1 "
End Sub

Bunun Gibi 35-40 Tane Kodları Yazıcan Mesela 2 Buton Biri Avira Diğeri Kaspersky Hepsini 1.Text'e Bağla Hangisine Basarsan Serial Ordan Çıksın
Olmadı kardeş ya
Coder10 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2012
Mesajlar:
867
Konular:
150
Teşekkür (Etti):
78
Teşekkür (Aldı):
145
Ticaret:
(0) %
06-11-2012 17:22
#10
Private Sub Command1_Click()
label1.caption "Serial Numara"
End Sub

1 label 1 button

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler