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 12 January 2026 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 saat karakter windows rakamlari dosyayi basic visual eliptik active-x araba program kayan sayi kontrol kutusuna kendi rakam textbox karakterlerin kutusunda access metin nasil zaman kutusunu text satir yaziya resim küçük kayit form dosya yazi veya makinesi açma titreyen yuvarlak formu ekran açip paralel tarih girilen güzel yeni mouse basit hesap 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ı 19508 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 - 2026 Hazır Kod - Tüm Hakları Saklıdır. Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz. hazirkod.com bir İSOBİL projesidir.