
Panduan Praktis untuk membuat blog di Blogger, dan Kumpulan Program Komputer.
When the user selects "Roman Numerals to Decimal Number" for the conversion type, note that the captions change and the reverse conversion is performed: Ketika pengguna memilih "angka Romawi ke Desimal Nomor" untuk jenis konversi, perhatikan bahwa perubahan keterangan dan konversi sebaliknya dilakukan:
Example of invalid input: Contoh input tidak valid:
Private Sub tebakhasil(ByRef B As Integer, ByVal A As Integer, ByVal C As Integer, D As Integer)
A = 5
B = 2 * A
C = A + B
D = A + B + C
End Sub
Private Sub Form_Activate()
Dim A As Integer, B As Integer, C As Integer, D As Integer
A = 1: B = 2: C = 3: D = 4
Print " Angka Awal : "; A; B; C; D
tebakhasil A, B, C, D
Print " Angka Akhir : "; A; B; C; D
End Sub
Sub Tukar(ByRef x As Single, ByRef y As Single)
Dim Temp As Single
Temp = x
x = y
y = Temp
End Sub
Private Sub cmdTukar_click()
Dim x As Single, y As Single
x = TxtX.Text: y = TxtY.Text
Tukar x, y
TxtX.Text = x: TxtY.Text = y
End Sub