Visual Basic / Kayit Programi - Hazır Kod

toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler Hoşgeldiniz, bugün 20 December 2025 aktif üye 8,903 Yeni Üyelik Üye Girişi Şifremi Unuttum

• ANASAYFA
• YENİ ÜYELİK
• ÜYE GİRİŞİ
• SEN DE YAZ
• İLETİŞİM

SEN DE YAZ HazırKod ziyaretçilerinin katkıları bizim için çok önemli! Sizde hazırkod üyesi olun, ekleyeceğiniz kodlar yapacağınız yorumlarla hazirkod.com'a katkıda bulunun. ETİKETLER toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler yaziya yuvarlak girilen kayan rakam kutusunda eliptik kendi kontrol açip ekran basic makinesi rakamlari araba saat windows basit veya satir paralel mouse karakter formu program dosya nasil hesap kutusuna kayit form textbox açma dosyayi titreyen yeni zaman access güzel karakterlerin active-x visual küçük sayi tarih text kutusunu resim yazi metin Lütfen bekleyiniz.. İşleminiz gerçekleştiriliyor... Geçen süre:

Konu:

Yorum:

<HK>buraya kod</HK>

Ekle Vazgeç

Programalama > VISUAL BASIC VISUAL BASIC / Kayit Programi Kayit Programi Etiketler: kayit, programi Ort. 0 Puan ver: hazirkod 03 July 19:34 0 0 kişiden 0 puan aldı 19492 modüle bölümü Type kayitbilgisi adı As String * 20 soyadı As String * 20 sicil As String * 20 cins As String * 20 dep As String * 20 adres As String * 20 tel As String * 20 End Type Global alanlar As kayitbilgisi form bölümü Dim kayitno As Integer Private Sub Command1_Click() a = MsgBox("KAYDEDİLSİN Mİ?", 4) If a = 6 Then Text1.Text = kayitno alanlar.adı = Text2.Text alanlar.soyadı = Text3.Text alanlar.sicil = Text4.Text alanlar.adres = Text5.Text alanlar.tel = Text6.Text If Option1.Value = True Then Else Option2.Value = Option2.Caption End If alanlar.dep = Combo1.Text Put #1, kayitno, alanlar kayitno = kayitno + 1 Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End If End Sub Private Sub Command2_Click() Text1.Text = kayitno Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Combo1.Text = "" Option1.Value = False Option2.Value = False Text2.SetFocus End Sub Private Sub Command3_Click() Close #1 Unload Me End Sub Private Sub Form_Activate() Text2.SetFocus End Sub Private Sub Form_Load() Open "kenan.dat" For Random As #1 Len = Len(alanlar) kayitno = LOF(1) / Len(alanlar) kayitno = kayitno + 1 End Sub Yorumlar Yorum Yaz Bu hazır kod'a ilk yorumu siz yapın! KATEGORİLER ADO.NET - ADO - 8ASP - 240ASP.NET - 24C# - 75C++ - 174CGI - 8COMPONENT - 5DATABASE - 8DELPHI - 247FLASH - 49HTML - 536JAVA - JSP - 43JAVA SCRIPT - 494PASCAL - 246PERL - 11PHP - 160VISUAL BASIC - 337VISUAL BASIC.NET - 39WML - 9XML - 2Tüm Kategoriler GİZLİLİK İLKELERİ | BİZE ULAŞIN Copyright © 2002 - 2025 Hazır Kod - Tüm Hakları Saklıdır. Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz. hazirkod.com bir İSOBİL projesidir.