tugas 3d softskill

TUGAS 3D SOFTSKILL PENG. ANIMASI & DESAIN GRAFIS # MENGGUNAKAN ASSEMBLR

                                                           NAMA ANGGOTA :

LUTFIANI SUCI HAPSARI (13117371)
OKSA SATYA SIGIT(14117649)
HABIB ZAIN ANIS ALATTAS
BOYKE IRAWAN

1. tampak depan

                                                             2.tampak samping

                                                          3.tampak belakang

                                                             4. tampak samping kanan

                                                         



                                                             detailnya:

Poetry Dougherty

Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie

I see you standing there
In your Hulk outerwear
And all I can think
Is where is the ring
Cause I know you wanna ask
Scared the moment will pass
I can see it in your eyes
Just take me by surprise

And all my friends they tell me they see
You planing to get on one knee
But I want it to be out of the blue
So make sure I have no clue
When you ask

Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie

Now we're having dinner
And baby you're my winner
I see the way you smile
You're thinking about the aisle
You reach in your pocket
Emotion unlocking
And before you could ask
I answer too fast

And all my friends they tell me they see
You planing to get on one knee
So now I can't stop thinking about you
I figured out all the clues
So now I ask

Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie

Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoilers please

Baby, take my hand
I want you to be my husband
Cause you're my Iron Man
And I love you three thousand
Baby, take a chance
Cause I want this to be something
Straight out of a Hollywood movie, baby

Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoilers please
Pa da da da da dam
No spoiler please
Pa da da da da dam
And I love you three thousand

CARA MEMBUAT TUMIS KANGKUNG

By : Oksa Satya 

Bahan-bahan   :

1.      Kangkung

2.      5 siung bawang merah

3.      3 siung bawang putih

4.      Cabai secukupnya

Cara memasak :

1.      Pisahkan kangkung dengan batang-batangnya.

2.      Potong tipis bawang merah, bawah putih dan cabai.

3.      Cuci kangkung yang sudah dipisahkan.

4.      Tumis bawang merah, bawang putih dan cabai yang sudah dipotong.

5.      Setelah tumisan harum, masukkan kangkung yang telah dicuci.

6.      Beri garam dan gula secukupnya.

7.      Tumis hingga kangkung layu.

8.      Beri sedikit air jika ingin tumis kangkung berkuah sedikit.

9.      Tumis kangkung siap disajikan.

CARA MEMBUAT CILOK KUAH

By : Oksa Satya Sigit

Bahan   :  

o   10 sdm tepung terigu

o   10 sdm tepung sagu

o   1 sdt garam

o   ¼ sdt gula putih

o   1 buah daun bawang

o   Air panas secukupnya

Cara Membuat  : 

o   Campurkan tepung terigu, tepung sagu, garam dan daun bawang.

o   Beri air panas secukupnya pada bahan-bahan yang telah dicampurkan.

o   Aduk adonan hingga kalis dan dapat dibentuk menjadi bulat-bulat.

o   Jika ingin ditambahkan isian, bisa menjadi optional.

o   Sembari membulatkan adonan, rebus air untuk merebus adosan tersebut.

o   Setelah air mendidih, masukkan cilok tersebut kedalam air rebusan.

o   Tunggu sekitar 15-20 menit hingga cilok matang luar dalam.

o   Setelah cilok matang, tiriskan.

Cara Membuat Kuah      :

o   Tumis bawang merah, bawah putih dan cabai.

o   Setelah harum, masukkan 1 gelas air putih kedalamnya.

o   Lalu masukkan bumbu (garam, gula dan kaldu ayam)

o   Setelah kuah mendidih, masukkan cilok yang sudah ditiriskan.

o   Diamkan selama 10 menit.

o   Cilok kuah siap disajikan.

o    

PROJECT 1 Tugas Bu Ito Riris (Algoritma Pemrograman 2B)

Tampilan Sebelum di Run

Keterangan        :

Nama Pelanggan	Text 4
Nama Operator	Combo 1
Nominal Pulsa	Combo 2
Nomor Telepon	Text 5
Harga Jual	Text 1
Jumlah Bayar	Text 2
Uang Kembali	Text 3
Hitung	Command 1
Keluar	Command 3
Waktu	Label 10
Tanggal	Label 9
Tulisan Berjalan	Label 8
Gambar	Image 1
Untuk koding waktu dan tanggal	Timer 2
Untuk Koding Tulisan berjalan	Timer 1
Berikut Kodingannya Private Sub Text1_Change() If Combo2.Text = "5000" Then Text1.Text = 7000  ElseIf Combo2.Text = "10000" Then Text1.Text = 12000  ElseIf  Combo2.Text = "20000" Then Text1.Text = 22000  ElseIf  Combo2.Text = "50000" Then Text1.Text = 52000  End If End Sub

Private Sub Command1_Click()

hargajual = Val(Text1.Text)

jumlahbayar = Val(Text2.Text)

kembali = jumlahbayar - hargajual

Text3.Text = kembali

End Sub

Private Sub Timer2_Timer()

Label9.Caption = Format(Date, "dd mm yyyy")

Label10.Caption = Format(Time, "hh:mm:ss")

End Sub

Private Sub Label8_Click()

Private Sub Form_Load()

Label8.FontSize = 10

Label8 = "SELAMAT DATANG DI LSH CELL TEMPAT BELI PULSA AMAN DAN TERPERCAYA"

End Sub

Private Sub Timer1_Timer()

Label8.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

If (Label8.Left + Label8.Width) <= 0 Then

Label8.Left = Me.Width

End If

Label8.Left = Label8.Left - 100

End Sub

Private Sub Command1_Click()

hargajual = Val(Text1.Text)

jumlahbayar = Val(Text2.Text)

kembali = jumlahbayar - hargajual

Text3.Text = kembali

End Sub

Private Sub Command3_Click()

pesan = MsgBox("Yakin akan keluar dari aplikasi ini ?", vbYesNo + vbQuestion, "Keluar")

If pesan = vbYes Then

Unload Me

End If

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "SIMPATI" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\TELKOMSEL.jpg")

ElseIf Combo1.Text = "MENTARI" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\MENTARI.jpg")

ElseIf Combo1.Text = "IM3" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\IM3.jpg")

ElseIf Combo1.Text = "3" Then

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\3.jpg")

Else

Image1.Picture = LoadPicture("C:\Users\HP\Pictures\OPERATOR\AXIS.jpg")

End If

End Sub

Tampilan sesudah di Run

PROJECT 2 Bu Ito Riris (Algoritma Pemrograman 2B)

(Merupakan lanjutan dari Project 1)

Tampilan Sebelum di Run

Keterangan        :

Nama Pelanggan	Text 4
Nama Operator	Combo 1
Jumlah Pulsa	Combo 3
Nominal Pulsa	Combo 2
Nomor Telepon	Text 5
Harga Jual	Text 1
Jumlah Bayar	Text 2
Uang Kembali	Text 3
Hitung	Command 1
Keluar	Command 3
Waktu	Label 10
Tanggal	Label 9
Tulisan Berjalan	Label 8
Gambar	Image 1
Untuk koding waktu dan tanggal	Timer 2
Untuk Koding Tulisan berjalan	Timer 1
Tambah	Command 2
Hapus	Command 4
Update	Command 5

Cara menyambungkan ms access ke VB

1.       Membuat database dengan berekstensi .mdb 

2.       Pada VB klik kanan pada properti lalu klik components dan akan muncul gambar seperti ini, klik yang diceklis

3.       Akan muncul di properti

4.       Setelah itu, klik kanan pada Adodc1 dan pilih ADODC Properties

5.       Klik build dan pilih 

Lalu klik Next

6.       Pilih database yang sudah kamu simpan di ms access tadi

 

Sehingga ada tulisan 

7.       Lalu disemua Text bagian Datafieldnya diubah menjadi Adodc1

8.       Lalu klik Datagrid

9.       Dibuat seperti ini

·         Kodingan untuk Tambah

·         Kodingan Untuk Hapus

·         Kodingan untuk Update

Tampilan setelah di Run