Rabu, 11 Maret 2020

Tutorial membuat thresholding (program matlab) tugas kuliah

Tutorial membuat thresholding
(program matlab)

Thresholding merupakan salah satu metode segmentasi citra di mana prosesnya didasarkan pada perbedaan derajat keabuan citra.
Marilah kita simak penjelasan tentang cara pembuatan thresholding di bawah ini :
1.      Langkah pertama kita membuat disegn thresholding

2.      Lalu kita mengisi skrip yang pertama open image
% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
[name_file1,name_path1] = uigetfile(...
    {'*.bmp;*.jpg;*.tif','files of type (*.bmp,*.jpg,*.tif)';
    '*.bmp','file Bitmap (*.Bmp)';...
    '*.jpg','file jpeg (*.jpg)';
    '*.tif','file Tif (*.tif)';
    '*.*','All Files (*.*)'},...
    'Open image');
   
    if ~isequal(name_file1,0)
      handles.data1 = imread(fullfile(name_path1,name_file1));
      guidata(hObject,handles);
      axes(handles.axes1);
      imshow(handles.data1);
    else
        return;
    end





3.      Lalu kita mengisi skrip yang ke dua grayscale
% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
image1 = handles.data1;
gray = rgb2gray(image1);
axes(handles.axes2);
imshow(gray);
handles.data2 = gray;
guidata(hObject,handles);




4. Lalu kita mengisi skrip yang ke tiga slider1_Callback
% --- Executes on slider movement.
function slider1_Callback(hObject, eventdata, handles)
gray = handles.data2;
value = get(handles.slider1,'value');
thresh = imcomplement(im2bw(gray,value/255));
axes(handles.axes2);
imshow(thresh);
handles.data3 = thresh;
guidata(hObject,handles);
set(handles.edit1,'string',value)




5.      Lalu kita mengisi skrip yang ke empat save
% --- Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
thresh = handles.data3;
[name_file_save,path_save] = uiputfile( ...
    {'*.bmp','file Bitmap (*.bmp)';...
    '*.jpg','file jpeg (*.jpg)';
    '*.tif','file Tif (*.tif)';
    '*.*','All Files (*.*)'},...
'save image');

if~isequal(name_file_save,O)
    imwrite(thresh,fullfile(path_save,name_file_save));
else
    return
end       





Selasa, 12 Desember 2017

TUGAS 3.7 PT. PULANG PETANG SETIAP HARI

TUGAS 3.7 PT. PULANG PETANG SETIAP HARI



source kode :

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
End Sub

Private Sub cmdproses_Click()
Dim x As String
txtgolongan.Text = Mid(txtnik.Text, 5, 1)
txtkode.Text = Mid(txtnik.Text, 7, 1)
txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)
If x = "S" Then
txtstatus.Text = "Single"

ElseIf x = "M" Then
txtstatus.Text = "Menikah"

ElseIf x = "J" Then
txtstatus.Text = "Janda"

ElseIf x = "D" Then
txtstatus.Text = "Duda"

End If

x = Mid(txtnik.Text, 5, 1)
If x = "A" Then
txtjabatan.Text = "Manager"
txtgaji.Text = "4000000"
txttunjangan.Text = "1025000"

ElseIf x = "B" Then
txtjabatan.Text = "Ka.Seksi"
txtgaji.Text = "3500000"
txttunjangan.Text = "975000"

ElseIf x = "C" Then
txtjabatan.Text = "Staff"
txtgaji.Text = "3000000"
txttunjangan.Text = "925000"

End If

x = Right(txtnik.Text, 3)
If x = "KEU" Then
txtbagian.Text = "Accounting"

ElseIf x = "ADM" Then
txtbagian.Text = "Administrasi"

ElseIf x = "SDM" Then
txtbagian.Text = "General Affair"

ElseIf x = "EDP" Then
txtbagian.Text = "IT Unit"

ElseIf x = "SPM" Then
txtbagian.Text = "Security"
End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub


TUGAS 3.6 DATA BUKU STMIK PRINGSEWU


TUGAS 3.6 DATA BUKU STMIK PRINGSEWU




source kode :

Private Sub cmdbatal_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim K As String
K = Left(txtkode.Text, 3)
If K = "SIM" Or K = "sim" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf K = "EDP" Or K = "edp" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf K = "MNJ" Or K = "mnj" Then
txtjudul = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf K = "CDR" Or K = "cdr" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf K = "RPL" Or K = rpl Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
K = Right(txtkode.Text, 1)
If K = "A" Or K = "a" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf K = "I" Or K = "i" Then
txtpenerbit = "Indah Surabaya"
ElseIf K = "S" Or K = "s" Then
txtpenerbit = "Salemba Empat"
ElseIf K = "E" Or K = "e" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf K = "M" Or K = "m" Then
txtpenerbit = "Maxicom"
End If
txttahun.Text = "20" & Mid(txtkode.Text, 5, 2)
End Sub

Private Sub Form_Activate()
txtkode.SetFocus
txtkode.Text = ""
txtjudul.Text = ""
txtpengarang.Text = ""
txttahun.Text = ""
txtpenerbit.Text = ""
txtharga.Text = ""

End Sub

TUGAS 3.5 PENJUALAN TIKET KERETA API


TUGAS 3.5 PENJUALAN TIKET KERETA API


source kode :

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim DIK As String
DIK = Left(txtkt, 3)
If DIK = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf DIK = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf DIK = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf DIK = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * (txtjt)
End If

End Sub

TUGAS 3.4 BUKU STMIK


TUGAS 3.4 BUKU STMIK


source kode :


Private Sub cbokode_Click()
Select Case cbokode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub

Private Sub cmdbatal_Click()
cbokode = ""
txtjudul = ""
txtp = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjudul = ""
txtp = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(cbokode, 3, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtp = "Yati Nur Oktavia"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtp = "Imam Tarmizi"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtp = "Valentina Mariana Adiwianti"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtp = "Riyan Suhandi"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtp = "Sinta Umpu Singa"
txtharga = "83000"
End If
txttahun = "20" & Right(cbokode, 2)
End Sub

Private Sub Form_Load()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MNJ-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"

End Sub

TUGAS 3.3 PENJUALAN LAPTOP

TUGAS 3.3 PENJUALAN LAPTOP 
  

source kode :

Private Sub Form_Load()
cbokode.AddItem "Apple MC965 Macbook Air"
cbokode.AddItem "Apple MC966 Macbook Air"
cbokode.AddItem "Apple MC968 Macbook Air"
cbokode.AddItem "Apple MC969 Macbook Air"
cbokode.AddItem "Apple MC700 Macbook Pro"
cbokode.AddItem "Apple MC721 Macbook Pro"
cbokode.AddItem "Apple MC723 Macbook Pro"
cbokode.AddItem "Apple MC311 Macbook Pro"
cbokode.AddItem "Apple MC313 Macbook Pro"
cbokode.AddItem "Apple MC314 Macbook Pro"
cbokode.AddItem "Apple MC318 Macbook Pro"
cbokode.AddItem "Apple MC322 Macbook Pro"
cbokode.AddItem "Apple MC965 Macbook Air"
cbokode.AddItem "Apple MC966 Macbook Air"
End Sub

Private Sub cbokode_Click()
Dim dika, hrg As String
Select Case cbokode.Text
Case "Apple MC965 Macbook Air"
dika = "Apple Macbook Air MC965"
hrg = "12800000"
Case "Apple MC966 Macbook Air"
dika = "Apple Macbook Air MC965"
hrg = "15800000"
Case "Apple MC968 Macbook Air"
dika = "Apple Macbook Air MC968"
hrg = "9900000"
Case "Apple MC969 Macbook Air"
dika = "Apple Macbook Air MC969"
hrg = "11900000"
Case "Apple MC700 Macbook Pro"
dika = "Apple Macbook Pro MC700”"
hrg = "10800000"
Case "Apple MC721 Macbook Pro"
dika = "Apple Macbook Pro MC721"
hrg = "15900000"
Case "Apple MC723 Macbook Pro"
dika = "Apple Macbook Pro MC723"
hrg = "19300000"
Case "Apple MC311 Macbook Pro"
dika = "Apple Macbook Pro MC311"
hrg = "24200000"
Case "Apple MC313 Macbook Pro"
dika = "Apple Macbook Pro MC313"
hrg = "11900000"
Case "Apple MC314 Macbook Pro"
dika = "Apple Macbook Pro MC314"
hrg = "14700000"
Case "Apple MC318 Macbook Pro"
dika = "Apple Macbook Pro MC318"
hrg = "17600000"
Case "Apple MC322 Macbook Pro"
dika = "Apple Macbook Pro MC322"
hrg = "21300000"
Case "Apple  MC965 Macbook Pro"
dika = "Apple Macbook Pro MC965"
hrg = "12800000"
Case "Apple  MC966 Macbook Pro"
dika = "Apple Macbook Pro MC966"
hrg = "15800000"
End Select
txtmerk.Text = dika
txthargas.Text = hrg
txtjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
cbokode.Text = ""
txtmerk.Text = ""
txthargas.Text = ""
txtjj.Text = ""
txtdis.Text = ""
txttotal.Text = ""
txthargap = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
txthargap = Val(txtjj) * Val(txthargas)
If txthargap > 140000000 Then
txtdis = (0.15) * Val(txthargap)
ElseIf txthargap > 135000000 Then
txtdis = (0.1) * Val(txthargap)
ElseIf txthargap > 130000000 Then
txtdis = (0.5) * Val(txthargap)
ElseIf txthargap > 125000000 Then
txtdis = (0.2) * Val(txthargap)
End If
txttotal.Text = Val(txthargap) - Val(txtdis)

End Sub

TUGAS 3.2

TUGAS 3.2


source kode :

Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjuru.Text = ""
txtps.Text = ""
txtmasuk.Text = ""
txturut.Text = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjuru.Text = ""
txtps.Text = ""
txtmasuk.Text = ""
txturut.Text = ""
End Sub
Private Sub Cmdproses_Click()
Dim dika As String
txtmasuk.Text = "20" & Left(txtnpm.Text, 2)
dika = Mid(txtnpm.Text, 3, 1)
If dika = "1" Then
txtjuru.Text = "Sistem Informasi"
ElseIf dika = "2" Then
txtjuru.Text = "Manajemen Informatika"
ElseIf dika = "3" Then
txtjuru.Text = "Tehnik Informatika"
ElseIf dika = "4" Then
txtjuru.Text = "Manajemen & Komp. Akuntansi"
End If
dika = Mid(txtnpm.Text, 4, 2)
If dika = "01" Then
txtps.Text = "Strata Satu"
ElseIf dika = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf dika = "03" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjuru.Text = ""
txtps.Text = ""
txtmasuk.Text = ""
txturut.Text = ""
End Sub
Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If

End Sub

TUGAS 3.1 PROGRAM GAJI


TUGAS 3.1 PROGRAM GAJI


source kode :

Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Form_load()
cbogolongan.AddItem "I"
cbogolongan.AddItem "II"
cbogolongan.AddItem "III"
cbogolongan.AddItem "IV"
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub cbogolongan_Click()
Dim gaji, pajak, tunjangan, total As Variant
Select Case cbogolongan.Text
Case "I"
gaji = 1500000
tunjangan = 150000
Case "II"
gaji = 2000000
tunjangan = 200000
Case "III"
gaji = 2500000
tunjangan = 250000
Case "IV"
gaji = 3000000
tunjangan = 300000
Case Else
gaji = 0
tunjangan = 0
End Select
total = gaji + tunjangan
pajak = total * 0.1
txtgaji.Text = gaji
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total - pajak
End Sub
Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = ""
txtnama.Text = ""
cbogolongan.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txtpajak.Text = ""
txttotal.Text = ""
End Sub

Private Sub txtnind_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

Selasa, 21 November 2017

Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress


Source kode :

Private Sub cbonpm_click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100032"
nama = "Dika adi pratama"
jurusan = "Sistem Informasi"
Case "17100033"
nama = "Robiyanto"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100023"
nama = "Danang pandu aji"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
Case "17100010"
nama = "Novia Anggraini"
jurusan = "Sistem Informasi"
Case "17100011"
nama = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apringga"
jurusan = "Sistem Informasi"
End Select
txtmaha.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmaha.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtakhir.Text = ""
txtmutu.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim akhir As Integer
Dim mutu As String
quis = Val(txtquis.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
akhir = (quis + tugas + uts + uas) / 4
txtakhir.Text = akhir

Select Case txtakhir.Text
Case Is > 80
mutu = "A"
Case Is > 70
mutu = "B"
Case Is > 60
mutu = "C"
Case Is > 50
mutu = "D"
Case Is < 50
mutu = "E"
End Select
txtmutu.Text = mutu
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100023"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"
End Sub

Private Sub txtquis_keypress(keyascii As Integer)
If keyascii = 13 Then
txttugas.SetFocus
End If
End Sub

Private Sub Txttugas_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuts.SetFocus
End If
End Sub

Private Sub txtuts_keypress(keyascii As Integer)
If keyascii = 13 Then
txtuas.SetFocus
End If
End Sub

Private Sub txtuas_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim akhir As Integer
Dim mutu As String
quis = Val(txtquis.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
akhir = (quis + tugas + uts + uas) / 4
txtakhir.Text = akhir

Select Case txtakhir.Text
Case Is > 80
mutu = "A"
Case Is > 70
mutu = "B"
Case Is > 60
mutu = "C"
Case Is > 50
mutu = "D"
Case Is < 50
mutu = "E"
End Select
txtmutu.Text = mutu
End If
End Sub


Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress


Source kode :

Private Sub cbonpm_click()
Dim nama, jurusan, hm As String

Select Case cbonpm.Text
Case "17100032"
nama = "Dika adi pratama"
jurusan = "Sistem Informasi"
Case "17100033"
nama = "Robiyanto"
jurusan = "Sistem Informasi"
Case "17100003"
nama = "Renaldi Zainal Arifin"
jurusan = "Sistem Informasi"
Case "17100023"
nama = "Danang pandu aji"
jurusan = "Sistem Informasi"
Case "17100006"
nama = "Rosi elvia"
jurusan = "Sistem Informasi"
Case "17100008"
nama = "M.Galih algofur"
jurusan = "Sistem Informasi"
Case "17100010"
nama = "Novia Anggraini"
jurusan = "Sistem Informasi"
Case "17100011"
nama = "Ariansyah"
jurusan = "Sistem Informasi"
Case "17100012"
nama = "Dimas Apringga"
jurusan = "Sistem Informasi"
End Select
txtmaha.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub

Private Sub cmdbatal_Click()
cbonpm.SetFocus
cbonpm.Text = ""
txtmaha.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtakhir.Text = ""
txtmutu.Text = ""
End Sub


Private Sub cmdproses_Click()
Dim akhir As Integer
Dim mutu As String
quis = Val(txtquis.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
akhir = (quis + tugas + uts + uas) / 4
txtakhir.Text = akhir

Select Case txtakhir.Text
Case Is > 80
mutu = "A"
Case Is > 70
mutu = "B"
Case Is > 60
mutu = "C"
Case Is > 50
mutu = "D"
Case Is < 50
mutu = "E"
End Select
txtmutu.Text = mutu
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
cbonpm.AddItem "17100032"
cbonpm.AddItem "17100033"
cbonpm.AddItem "17100003"
cbonpm.AddItem "17100023"
cbonpm.AddItem "17100006"
cbonpm.AddItem "17100008"
cbonpm.AddItem "17100010"
cbonpm.AddItem "17100011"
cbonpm.AddItem "17100012"
cbonpm.AddItem "17100013"

End Sub

Tugas 2.6

Tugas 2.6



Source kode :

Private Sub cmdok_Click()
lbl2.Caption = txttulis
End Sub

Private Sub cmdse_Click()
End
End Sub


Private Sub opnbi_Click()
lbl2.ForeColor = vbBlue
End Sub

Private Sub opnme_Click()
lbl2.ForeColor = vbRed
End Sub

Private Sub chkte_Click()
If chkte.Value = 1 Then
lbl2.FontBold = True
Else
lbl2.FontBold = False
End If
End Sub

Private Sub chkmi_Click()
If chkmi.Value = 1 Then
lbl2.FontItalic = True
Else
lbl2.FontItalic = False
End If

End Sub

Popular Posts

Followers

About