TUGAS VB_DATA DIRI

CODING

Private Sub Form_Load()

Combo1.AddItem "1"

Combo1.AddItem "2"

Combo1.AddItem "3"

Combo1.AddItem "4"

Combo1.AddItem "5"

Combo1.AddItem "6"

Combo1.AddItem "7"

Combo1.AddItem "8"

Combo1.AddItem "9"

Combo1.AddItem "10"

Combo1.AddItem "11"

Combo1.AddItem "12"

Combo1.AddItem "13"

TUGAS VISUAL BASIC 2

Form Data Nilai

A.    Coding Listing Program  

a.      Form 1 (Kelulusan)

Private Sub Command1_Click()

nilai = Val(Text1.Text)

If nilai >= 70 Then

Text2.Text = "Lulus"

Else

Text2.Text = "Tidak Lulus"

End If

End Sub 

Private Sub Command2_Click()

Form2.Show

End Sub

Private Sub Command3_Click()

MDIForm1.Show

End Sub

TUGAS C++

1. Menentukan Rumus

#include <iostream.h>
#include <conio.h>
#include <stdio.h>

void main()
{
float pilihan,s,r,t,VK,LL,VS;

cout<<"1. Menghitung Volume Kubus "<<endl;
cout<<"2. Menghitung
Luas Lingkaran "<<endl;
cout<<"3. Menghitung Volume Silinder "<<endl;
cout<<"\n";
cout<<"Pilih rumus ke- berapa yang ingin anda pilih? ";
cin>>pilihan;