Comments on: Program Input Nilai Mahasiswa http://www.nusinau.com/program-input-nilai-mahasiswa/ Belajar Dengan Semangat dan Kerja Keras Sat, 05 Nov 2011 02:30:18 +0000 hourly 1 By: Nu http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-4058 Nu Thu, 20 Oct 2011 15:26:41 +0000 http://localhost/nusinau/?p=11#comment-4058 Ini delphi ya... baiklah... Yang jelas Ini salah mbak rayi... pertama penggunaan <strong>begin</strong>... coba di cek lagi... nilai <strong>x</strong> didapet dari mana mbak? trus variabel <strong>na</strong> mau diapakan? variabel <strong>total</strong> seharusnya dapet nilai dari mana? variabel <strong>ket</strong> juga mau di apain ini... coba deh mbak rayi belajar basic dulu ya... coba pelajari dasar-dasar dulu biar mateng.... :) maksudnya mau bikin yang seperti apa toh? (pura-pura mbak, boleh ya.... :p) Ini delphi ya… baiklah…

Yang jelas Ini salah mbak rayi…
pertama penggunaan begin… coba di cek lagi…
nilai x didapet dari mana mbak?
trus variabel na mau diapakan?
variabel total seharusnya dapet nilai dari mana?
variabel ket juga mau di apain ini…
coba deh mbak rayi belajar basic dulu ya… coba pelajari dasar-dasar dulu biar mateng…. :)

maksudnya mau bikin yang seperti apa toh?
(pura-pura mbak, boleh ya…. :p)

]]> By: rayi http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-4057 rayi Thu, 20 Oct 2011 13:53:12 +0000 http://localhost/nusinau/?p=11#comment-4057 <pre lang="delphi" line="1"> procedure TForm1.Button1Click(Sender: TObject); var x,h,g,k,t,a,na:real; total:integer; ket:string[25]; begin h:=StrToFloat(edit1.Text); h:=10/100*x; begin g:=StrToFloat(edit2.Text); g:=15/100*x; begin k:=StrToFloat(edit3.Text); k:=20/100*x; begin t:=StrToFloat(edit4.Text); t:=25/100*x; begin a:=StrToFloat(edit5.Text); a:=30/100*x; end; begin na:=h+g+k+t+a; edit6.Text:=IntToStr(total); begin if total =50) and (total=60) and (total=70)and (total=75) and (total=80) and (total<84) then ket:='B+' else ket:='E'; edit7.Text:='ket'; end; end; end. </pre> mas tolong dicek apa yg salah. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

procedure TForm1.Button1Click(Sender: TObject);
var
x,h,g,k,t,a,na:real;
total:integer;
ket:string[25];
begin
h:=StrToFloat(edit1.Text);
h:=10/100*x;
 
begin
g:=StrToFloat(edit2.Text);
g:=15/100*x;
 
begin
k:=StrToFloat(edit3.Text);
k:=20/100*x;
 
begin
t:=StrToFloat(edit4.Text);
t:=25/100*x;
 
begin
a:=StrToFloat(edit5.Text);
a:=30/100*x;
 
end;
begin
na:=h+g+k+t+a;
edit6.Text:=IntToStr(total);
begin
if total =50) and (total=60) and (total=70)and (total=75) and (total=80) and (total<84) then
ket:='B+'
else
ket:='E';
edit7.Text:='ket';
end;
 
end;
 
end.

mas tolong dicek apa yg salah.

]]> By: Nu http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-4032 Nu Sat, 27 Aug 2011 08:39:29 +0000 http://localhost/nusinau/?p=11#comment-4032 Sami-sami Sami-sami

]]> By: Abdul http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-3122 Abdul Fri, 19 Aug 2011 00:43:33 +0000 http://localhost/nusinau/?p=11#comment-3122 Thanks atas bantuannya Thanks atas bantuannya

]]> By: Nu http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-4031 Nu Mon, 12 Jul 2010 13:34:10 +0000 http://localhost/nusinau/?p=11#comment-4031 Sudah saya cek program kiriman mas <strong>devy</strong> diatas.. Bisa jalan kok mas... Sudah saya cek program kiriman mas devy diatas..
Bisa jalan kok mas…

]]> By: ramdani http://www.nusinau.com/program-input-nilai-mahasiswa/comment-page-1/#comment-692 ramdani Sat, 10 Jul 2010 04:37:12 +0000 http://localhost/nusinau/?p=11#comment-692 gan, maaf ni mau tanya kok pas di runing program input nilai mahasiswa ga bisa ya? ada eror di bagian If jum>= 90 Then tl:='A' Else If jum>80 Then tl:='B' Else If jum>60 then tl:='C' Else If jum >50 Then tl:='D' turbo menjelaskan ada eror di bagian jum> kenapa ya? tolong di jawab ya gan makasih banget sebelumnya.. gan, maaf ni mau tanya kok pas di runing program input nilai mahasiswa ga bisa ya?
ada eror di bagian
If jum>= 90 Then tl:=’A’
Else
If jum>80 Then tl:=’B’
Else
If jum>60 then tl:=’C’
Else
If jum >50 Then tl:=’D’
turbo menjelaskan ada eror di bagian jum> kenapa ya?
tolong di jawab ya gan makasih banget sebelumnya..

]]>