Ayooooo siap-siap untuk bergabung Bersama LP2IM ^_^

Program GLB dengan V.B 6.0

Dim hasil As Single
Dim jarak As Single
Dim kecepatan As Single
Dim waktu As Single

Private Sub cmd1_click()
'menghitung kecepatan

lbl1.Caption = "Jarak (s) ="
lbl2.Caption = "Waktu (t) ="
lbl3.Caption = "m"
lbl4.Caption = "s"
cmdhitung2.Enabled = False
cmdhitung3.Enabled = False
cmdhitung.Enabled = True
End Sub
Private Sub cmd2_click()
'menghitung Jarak

lbl1.Caption = "Kecepatan (v) ="
lbl2.Caption = "Waktu (t) ="
lbl3.Caption = "m/s"
lbl4.Caption = "s"
cmdhitung.Enabled = False
cmdhitung3.Enabled = False
cmdhitung2.Enabled = True

End Sub

Private Sub cmd3_click()
'menghitung waktu

lbl1.Caption = "Jarak (s) ="
lbl2.Caption = "Kecepatan (v) ="
lbl3.Caption = "m"
lbl4.Caption = "m/s"
cmdhitung.Enabled = False
cmdhitung2.Enabled = False
cmdhitung3.Enabled = True

End Sub
Private Sub cmdhitung_click()
kecepatan = CSng(txt1.Text) / CSng(txt2.Text)
hasil = kecepatan
lblpesan.Caption = " Kecepatan = " & Format(hasil) + " m/s"
End Sub
Private Sub cmdhitung2_click()
jarak = CSng(txt1.Text) * CSng(txt2.Text)
hasil = jarak
lblpesan.Caption = "Jarak = " & Format(hasil) + " m"
End Sub
Private Sub cmdhitung3_click()
waktu = CSng(txt1.Text) / CSng(txt2.Text)
hasil = waktu
lblpesan.Caption = "Waktu = " & Format(hasil) + " s"
End Sub
Private Sub cmdlanjut_click()
lbl1.Caption = ""
lbl2.Caption = ""
lbl3.Caption = ""
lbl4.Caption = ""
txt1.Text = ""
txt2.Text = ""
lblpesan.Caption = ""
cmd1.Enabled = True
cmd2.Enabled = True
cmd3.Enabled = True
cmdhitung.Enabled = True
cmdhitung2.Enabled = True
cmdhitung3.Enabled = True
End Sub
Private Sub cmdreset_click()
txt1.Text = ""
txt2.Text = ""
lbl1.Caption = ""
lbl2.Caption = ""
lblpesan.Caption = ""
lbl3.Caption = ""
lbl4.Caption = ""
End Sub

Private Sub cmdselesai_click()
'mengakhiri program
End
End Sub

Contoh sederhana program konversi suhu menggunakan Matlab

Contoh perintah dalam Matlab sederhana untuk menkonversi suhu dari derajat Celcius ke Fahrenheit:

%konversi suhu
%
clear ;
clc;
%konversi celcius ke fahrenheit
disp(' ');
C = input('Nilai suhu Celcius , C = ');
F = (9/5 * C) + 32;
disp (' ');
disp ([' ', num2str(C), 'C = ',num2str(F), 'F']);
disp (' ');

Hasil Tampilan pada Command Window :