bykarizma - chat

<******> if (!confirm(kürşat )) window.location=history.go(-1) NonStop Eğlence


	bykarizma

by-kürşat


	chat

Get KoC_TeAm chat group | Goto KoC_TeAm website

<-Geri

Devam->

İsim:	ßy_ß!Lo
E-mail:	ask_hanceri-63windowslive.com
Site:	http://radyoumut.tc
Zaman:	27.05.2008, 14:22 (UTC)
Mesaj:	kanka hayırlı ugurlu olsun sıten topalcım snde guzl tasarım yapmısın elıne saglık kardesım;)

Kullanıcı:	serkansenter Kapalı
Zaman:	07.05.2008, 12:53 (UTC)
Mesaj:	amınısdsadadadsayımmmmmmmdasdasdsa;-)

Bugün 3 ziyaretçi (3 klik) kişi burdaydı!

Sayfa hakkında

border=0>

naazimca!

naazimca music!

naazimca

Star Tv kürşat

» LimeWire Basic 4.12.4

» Windows Live Messenger (Türkçe) 8.0.0792

» Winamp Surround Edition 5.25 Full Beta 801

» Ares Lite Edition 1.8.1

» MSN Messenger (Türkçe - Windows 98/ME için) 7.0.0816

» Google Earth 4.0.1693 Beta

» WinRAR (Türkçe) 3.60 Beta 8

» BvT Live TV 2.0

» Avast! 4 Home Edition 4.7.871

» Turing Translator 6.02

Bir gün toprak yağmurun değerini anlayacak ama artık ogün yağmur yağmayacakkk!!!

Online Müzik Dinlemek İçin Tıklayınız

Dim a As Double

Dim a As Double
Dim b As Double
Private Sub Command1_Click()
Label1.Caption = a & "1"
a = Label1.Caption
If a = 1 Then
Label1.Caption = "1"
End If
End Sub
Private Sub Command2_Click()
Label1.Caption = a & "2"
a = Label1.Caption
If a = 2 Then
Label1.Caption = "2"
End If
End Sub
Private Sub Command3_Click()
Label1.Caption = a & "3"
a = Label1.Caption
If a = 3 Then
Label1.Caption = "3"
End If
End Sub
Private Sub Command4_Click()
Label3.Caption = Val(a) + Val(b)
End Sub
Private Sub Command5_Click()
Label3.Caption = Val(a) * Val(b)
End Sub
Private Sub Command6_Click()
Label2.Caption = b & "1"
b = Label2.Caption
If b = 1 Then
Label2.Caption = "1"
End If
End Sub
Private Sub Command7_Click()
Label2.Caption = b & "2"
b = Label2.Caption
If b = 2 Then
Label2.Caption = "2"
End If
End Sub
Private Sub Command8_Click()
Label2.Caption = b & "3"
b = Label2.Caption
If b = 3 Then
Label2.Caption = "3"
End If
End Sub

Dim a As Double Dim b As Double Private Sub Command1_Click() Label1.Caption = a & "1" a = Label1.Caption If a = 1 Then Label1.Caption = "1" End If End Sub Private Sub Command2_Click() Label1.Caption = a & "2" a = Label1.Caption If a = 2 Then Label1.Caption = "2" End If End Sub Private Sub Command3_Click() Label1.Caption = a & "3" a = Label1.Caption If a = 3 Then Label1.Caption = "3" End If End Sub Private Sub Command4_Click() Label3.Caption = Val(a) + Val(b) End Sub Private Sub Command5_Click() Label3.Caption = Val(a) * Val(b) End Sub Private Sub Command6_Click() Label2.Caption = b & "1" b = Label2.Caption If b = 1 Then Label2.Caption = "1" End If End Sub Private Sub Command7_Click() Label2.Caption = b & "2" b = Label2.Caption If b = 2 Then Label2.Caption = "2" End If End Sub Private Sub Command8_Click() Label2.Caption = b & "3" b = Label2.Caption If b = 3 Then Label2.Caption = "3" End If End Sub Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?

Ücretsiz kaydol