personel progranı yapımı - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

b_j_k_38 · **personel progranı yapımı -** 01-02-2008

Option Base 1
Dim kayıt(5) As String
Dim ad(5) As String, soyadı(5) As String
Dim yas(5) As Integer
Dim tckimlikno(5) As Integer

Private Sub Command2_Click()
goster = Combo1.Text
For v = 1 To 2
If ad(v) = goster Then
Print "ad:"; ad(v)
Print "soyadı:"; soyadı(v)
Print "tckimlikno:"; tckimlikno(v)
Print "yas:"; yas(v)
Exit For
End If
Next v
End Sub
Private Sub Form_Load()
For v = 1 To 2
ad(v) = InputBox("adı giriniz", aa)
soyadı(v) = InputBox("soyadı giriniz", aa)
tckimlikno(v) = InputBox("tckimlikno giriniz", 11)
yas(v) = InputBox("yası giriniz", 11)
Combo1.AddItem ad(v)
Next v
End Sub

SťﻦnΞя · **Cevap: personel progranı yapımı -** 01-06-2008

Yaf yazıyorum hepsini ama tc kımlık no da hata verıyor bendemı sorun var ne

shed · **Cevap: personel progranı yapımı -** 01-25-2008

Birazcık Açıklama yapsaydın ??

cuneytgurler · 04-21-2008

integer tanımlşarını string yapın çalışır

Konu Bilgileri
	Konu Başlığı personel progranı yapımı	Konudaki Cevap Sayısı 3
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)