Dim nNilaib As Integer
nNilaib = b(1)
Function b(a As Integer) As Integer
Select Case a
Case 1
b = 10
Case 2
b = 12
Case 3
b=11
End Select
End Function
-----Original Message-----
From: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Date: Monday, October 09, 2000 8:01 AM
Subject: [MIKRODATA] Perintah case pada Visual Basic
>Rekan-rekan Mikrodata untuk perintah case pada visual basic contohnya
>bagaimana?
>
>Misalkan
>Jika a = 1 maka b = 10
>Jika a = 2 maka b = 12
>Jika a = 3 maka b = 11
>
>Atas informasi dan penjelasannya saya ucapkan banyak terima kasih.
>dani
>
>
>------------------------------------------------------------------------
>Forum Komunikasi Penulis-Pembaca MIKRODATA (FKPPM)
>
>Informasi : http:[EMAIL PROTECTED]
>Arsip : http://www.mail-archive.com/forum%40mikrodata.co.id/
>WAP : http://mikrodata.co.id/wap/index.wml
>
>Milis ini menjadi kontribusi beberapa rubrik yang diasuh tim MIKRODATA.
>Termasuk rubrik-rubrik yang ada di media lain.
>
>Memakai, Menyebarluaskan, dan Memperbanyak software bajakan adalah
>tindakan kriminal.
>
>Please check with the latest AVP update before you ask about virus:
>ftp://mikrodata.co.id/avirus_&_security/AntiViral_Toolkit_Pro/avp30.zip
------------------------------------------------------------------------
Forum Komunikasi Penulis-Pembaca MIKRODATA (FKPPM)
Informasi : http:[EMAIL PROTECTED]
Arsip : http://www.mail-archive.com/forum%40mikrodata.co.id/
WAP : http://mikrodata.co.id/wap/index.wml
Milis ini menjadi kontribusi beberapa rubrik yang diasuh tim MIKRODATA.
Termasuk rubrik-rubrik yang ada di media lain.
Memakai, Menyebarluaskan, dan Memperbanyak software bajakan adalah
tindakan kriminal.
Please check with the latest AVP update before you ask about virus:
ftp://mikrodata.co.id/avirus_&_security/AntiViral_Toolkit_Pro/avp30.zip
