vb kod renkli test

[ALPEN]

[vb]dim i as integer
dim z as variant
for i = 1 to 3
next i
select case
end select
do while
loop[/vb]

 

[ALPEN]

[vb:1:1e89ee2af4]dim i as integer
dim z as variant
for i = 1 to 3
i = i + 1
next i
select case z
case 5
case 6
end select

do while i = 1
i = i + 1
loop

if i= 1 then
y= true
else
y = false
end if
[/vb:1:1e89ee2af4]

 

[jale]

Deneme

[vb:1:6915d4a664]Private Sub Command2_Click()
sndplaysound "c:\windows\media\ringin.wav", sndplaysoundA
End Sub[/vb:1:6915d4a664]

 

[ALPEN]

:mrgreen: vb içine alacaksın arkadaşım.

 

[jale]

efendim bir şey mi dediniz duyamadım :hiho: :hiho:

 

[ALPEN]

ben yanlış görmüşüm. :mrgreen:

 

[xxrt]

Birde ben deneyeyim bari.
[vb:1:88ca00f9bc]Sub vergiiade_hesapla()
Dim a, tutar, iade As Integer
a = InputBox("tutarınızı girin")
If a > 5000 Then
iade = 5000 * 0.08
tutar = a - 5000
iade = iade + (tutar * 0.07)
Else
iade = a * 0.08
End If
MsgBox iade
End Sub
[/vb:1:88ca00f9bc]

 

[bedersu]

[vb:1:b9af9d627f]dim sayfa as integer[/vb:1:b9af9d627f]

 

[METE]

gelir vergisi hesaplama

merhaba

 

[isakarakus]

:hiho:

 

[H.Ç.Ç]

denemedir. inceledim.çok güzel bir site hazırlanmış. fırsat oldukça inceleyeceğim.Tam bir excel hastasıyım.Makro-visual basic ilgimi çekiyor. Kendimin yaptığı özel formüllü exceller sayesinde üretimi takip ediyorum ama daha fazla detaylı yapmak için herkesin bilgisine ihtiyacım var..UNUTMAYALIM ki bilgi paylaşıldıkça değer kazanır.