materi sistem berkas edisi ketiga april 2010

buat rekan-rekan yang tidak hadir dalam mata kuliah sistem berkas edisi ke tiga april 2010 jangan khawatir, karena semua materi dapat kamu download pada link berikut ini,..oc dch silahkan ngelink lagi,...lagi...lagi...lagi...dan lagi....

http://www.ziddu.com/download/9608457/SistemBerkas.rar.html

materi struktur data edisi ketiga april 2010

buat rekan-rekan yang tidak hadir dalam mata kuliah struktur data edisi ke tiga april 2010 jangan khawatir, karena semua materi dapat kamu download pada link berikut ini,..oc dch silahkan ngelink lagi,...lagi...


http://www.ziddu.com/download/9608456/StrukturData.rar.html

Function, procedure, menghitung luas dan keliling dalam visual basic 6

buat rekan-rekan yang tidak hadir dalam mata kuliah visual basic edisi ke tiga april 2010 jangan khawatir, karena semua materi dapat kamu download pada link berikut ini,..oc dch silahkan ngelink lagi,...


http://www.ziddu.com/download/9608385/FungsidanArray.rar.html

Download Animasi Flash

Bagi rekan-rekan yang tidak hadir pada mata kuliah flash edisi minggu ke dua april 2010, nch kebetulan di sini ada link untuk mendownload aneka macam animasi standard dalam flash, yang mana banyak digunakan untuk sebagai dasar pembuatan animasi,..oc dch, silahkan ngelink aja,...gratis lho,..hehehhehe

http://www.ziddu.com/download/9608359/Flash.rar.html

jawaban visual basic

"hei..hei..hei..dch lama JARKOMLAN kasih update-an nch,..
ohya udah pada tau lum jawabanny?? wch, pasti pada bingung ych,..SAMA donk,..hehehehhe,.tapi selama kita berusaha dan yang penting ingat "JANGAN MENYERAH...JANGAN MENYERAH..."..pasti ada jalan keluarnya,..oc dch, ga usah berpanjang-panjang ria,..langsung ke jawabannya,...lets rollin,..

tulis jawaban ini di form sub load ych,..jangan lupa pada form buat text box dulu,..lanjut..

Private Sub Form_Load()
'jawaban untuk soal 1,1,2,3,5,8,13,21,34
Dim bilangan As Integer
A = 1
B = 1
Text1.Text = Text1.Text & A & ","
Text1.Text = Text1.Text & B & ","
For i = 1 To 7
bilangan = A + B
Text1.Text = Text1.Text & bilangan & ","
A = B
B = bilangan
Next i

jawaban untuk soal
1
222
33333
44444444
55555555555
6666666666666 dst sampai 9
Text1.Text = ""
Dim ulang As Integer
ulang = 1
For i = 1 To 9
For z = 1 To 9 - i
Text1.Text = Text1.Text & " "
Next
For j = 1 To ulang
Text1.Text = Text1.Text & i
Next
Text1.Text = Text1.Text & vbCrLf
ulang = ulang + 2
Next

'jawaban soal 1,2,6,7,21,22,66,67,201
Dim bilangan As Integer
A = 1
B = 2
Text1.Text = Text1.Text & A & ","
Text1.Text = Text1.Text & B & ","
For i = 1 To 4
bilangan1 = B * 3
bilangan2 = bilangan1 + 1
Text1.Text = Text1.Text & bilangan1 & ","
Text1.Text = Text1.Text & bilangan2 & ","
A = B
B = bilangan2
Next i

End Sub

"untuk jawaban no.1 dan matrix masih dlm tahap pencarian nch, bagi rekan2 yang udah ketemu share-share ych,..yar dapat ilmu bareng2, masuk sorga bareng2,..hehehehhe

membuat klasifikasi nilai siswa

"sobat stikom lagi-lagi jarkomlan mau bagi2 rezeki berupa ilmu lagi nih,...masih ingat dunk, tugas yang tadi pagi,..gimana membuat program untuk menentukan klasifikasi A,B,C,D dan E terhadap nilai siswa jika ketentuannya sbg brkt ;

90<=nilai<=100 = A
70<=nilai<=90 =B
60<=nilai<=70 = C
60<=nilai<=60 = D
0 <=nilai<60 = E
<= maksudnya kurang dari sama dengan

ohya, untuk refresh lagi, program yang kita buat berisi:
2 LABEL dengan caption berupa NILAI UJIAN dan HASIL
2 TEXT BOX kosong
1 COMMAND BUTTON dengan caption berupa CEK

[untuk sobat stikom yang belum paham cara pembuatannya, bisa di lihat pada http://kyzaazka.blogspot.com/ kategori visual basic 6]

nch, klik 2 kali pada COMMAND BUTTON maka kotak dialog Private Sub Command1_Click() akan muncul,..isi dengan program di bawah ini,..
Private Sub Command1_Click()

If Val(Text1.Text) <= 100 Then
Text3.Text = "A"
End If

If Val(Text1.Text) <= 90 Then
Text3.Text = "B"
End If

If Val(Text1.Text) <= 70 Then
Text3.Text = "C"
End If

If Val(Text1.Text) <= 60 Then
Text3.Text = "D"
End If

If Val(Text1.Text) < 60 Then
Text3.Text = "E"
End If
End Sub

coba di run, lalu isi nilai,..maka jika kita CEK hasilnya akan sama dengan ketentuan di atas. Yo wis,Monggo, silahkan di coba,...

by;admin