:::Bilgipasajı Forum:::

Visual Basicte Basit Bir Telefon Programı

PROGRAMLAMA bölümündeki Visual Basic alt forumunda bulunan Visual Basicte Basit Bir Telefon Programı konusunu görüntülemektesiniz özet:Option Explicit DefInt A-Z Dim CancelFlag Private Sub CancelButton_Click() CancelFlag = True CancelButton.Enabled = False End Sub Private Sub Dial(N$) ...



Geri git   :::Bilgipasajı Forum::: > PROGRAMLAMA & WEBMASTER > PROGRAMLAMA > Visual Basic

Kayıt ol Yardım Üye Listesi Ajanda Forumları Okundu Kabul Et
       

Visual Basicte Basit Bir Telefon Programı
Etiketler: , , ,

Yeni Konu aç  Cevapla

 

LinkBack Seçenekler Stil
Alt 01-11-2008, 08:41 PM   #1
ışık
||MéT|A|MoR|P|HoSis.
 
ışık - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2008
Nerden: Jél'BooOnN şéHr! =)
Mesajlar: 932
Konular: 308
Üye No: 179598

Teşekkürler: 338
166 Mesajına 382 Kere Teşekkür Edildi
Tecrübe Puanı: 116 ışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond reputeışık has a reputation beyond repute
Post Visual Basicte Basit Bir Telefon Programı


Option Explicit

DefInt A-Z

Dim CancelFlag

Private Sub CancelButton_Click()
CancelFlag = True
CancelButton.Enabled = False
End Sub

Private Sub Dial(N$)
Dim DialString$, FromModem$, dummy

DialString$ = "ATDT" + N$ + ";" + vbCr

' Bağlantı Port ayarları
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

' Bağlantı portunu aç
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
Exit Sub
End If

MSComm1.InBufferCount = 0

'Numarayı çevir
MSComm1.Output = DialString$

' modeme geri dönmek için tamamı bekle
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input
' Tamam'ı Kontrol et
If InStr(FromModem$, "OK") Then
'Kullanıcı telefonu kaldırırsa
Beep
MsgBox "Lütfen Ahizeyi Kaldırıp ENTER a Basın"
Exit Do
End If
End If

' Kullanıcı iptali seçerse
If CancelFlag Then
CancelFlag = False
Exit Do
End If
Loop

' Modemle bağlantıyı kes
MSComm1.Output = "ATH" + vbCr

' Portu kapat
MSComm1.PortOpen = False
End Sub

Private Sub Command1_Click(Index As Integer)
Durum.Text = Durum.Text + Command1(Index).Caption
End Sub

Private Sub Command2_Click()
Text1.Visible = False
Text2.Visible = False
Command2.Visible = False
End Sub

Private Sub Command3_Click()
Durum.Text = Num.Caption
Command4.Visible = True
End Sub

Private Sub Command4_Click()
Data1.*******
Command4.Visible = False
Command3.Visible = True

End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
On Error Resume Next
End Sub

Private Sub DialButton_Click()
Dim N$, T$

DialButton.Enabled = False
QuitButton.Enabled = False
CancelButton.Enabled = True
' Çevirmek için gerekli numara
N$ = Durum.Text

T$ = Durum
Durum = "Çevriliyor - " + N$

' Çevrilecek Telefon Numarasını Seç
Dial N$

DialButton.Enabled = True
QuitButton.Enabled = True
CancelButton.Enabled = False

Durum = T$
End Sub

Private Sub Form_Load()
MSComm1.InputLen = 0

End Sub

Private Sub Kay_Click()
Data1.Recordset.AddNew
Text2.Visible = True
Command2.Visible = True
Text1.Visible = True
End Sub

Private Sub Label1_DblClick()
Data1.*******
End Sub

Private Sub Label4_Click()

End Sub

Private Sub QuitButton_Click()
End
End Sub

Private Sub Sil_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveLast
If Err Then
MsgBox ("Silinecek Kayıt Yok")
End If
End Sub


ışık isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Seçenekler
Stil

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz aktif değil dir.

Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 03:37 AM .


|Teknobeta Hosting & Domain | Web Tasarım | Super Forumuz | Oyun Oyna - İndir | Sanal Alışveriş | | En Kolay Kredi | Dağ Yapı | Define Yeri|Sözlük | | Program indir | Cep Forum | Balık Avı | Türk Ansiklopedi | Şevval Sam Clup | Web Hazinesi | Webüssü | Hapkido-Kick Boks | Gönül Penceresi


Powered by Bilgipasajı
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.2.0
Bütün Hakları Saklıdır 2007 Bilgipasaji.com

  Bismillahirrahmanirrahim Kul e'uzü birabbilfelak - - Minşerri ma halak - - Ve min şerri ğasikın iza vekab - - Ve min şerrinneffasati fiyl'ukad - - Ve min şerri hasidin iza hased - - -Bismillahirrahmanirrahim- Kul e'uzü birabbinnas - - Melikinnas - - İlahinnas - - Min şerrilvesvasil hannas - - Elleziy yüvesvisü fiysudurinnas - - Minel cinnetivennas - - - Bismillahirrahmanirrahim - - El hamdü lillahi rabbil alemin - - Er rahmanir rahıym - - Maliki yevmid din - - İyyake na'büdü ve iyyake nesteıyn - - İhdinas sıratal müstekıym - - Sıratallezine en'amte aleyhim ğayril mağdubi aleyhim ve lad dallin -Bismillahirrahmanirrahim- Allahü lâ ilâhe illâ hüvel hayyül kayyûm. Lâ te’huzühû sinetün ve lâ nevm. Lehû mâ fis-semâvâti vemâ fil erd. Menzellezî yeşfeu indehû illâ biiznihi. ya’lemü mâ beyne eydîhim vemâ halfehüm velâ yühîtûne bişey’in min ilmihî illâ bimâ şâe vesia kürsiyyühüssemâvâti vel erd. Velâ yeûdühü hıfzuhumâ ve hüvel aliyyül azîm.

del.icio.us
digg
technorati favorite
Furl
BlinkList
blogmarks
Ma.gnolia
Reddit
YahooMyWeb
İngilizce-Türkçe Sözlük
Atasözleri
Peygamberler
Sahabeler
Şairler Yazarlar
Deyimler
Rüya Tabirleri

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279