Hỏi & đáp lập trình

Muốn nhấp nháy thì dùng tag blink.
 
sr spam
Mấy bạn cho mình hỏi 1 chút
mình muốn làm 1 chương trình đơn giản bằng VB6,chương trình thế này
cho label hiển thị số chạy từ 1 tới 9, sau khi tới 9 nó sẽ về lại 1 và chạy tiếp,cứ như thế lặp đi lặp lại
lúc trước mình dùng Timer trong VB6 để làm nhưng giờ quên cách viết code
rất mong mấy bạn giúp mình
thanks nhìu
 
bỏ VB nhiều năm rồi nên ko nhớ lắm :'> nên ko viết đc code hoàn chỉnh , đại loại thế này
trên form có 1 label đặt tên tùy ý. giả sử là lableA
1 Timer là tmrTest
1 biến integer . Dim i as Integer
i=0 // khởi tạo giá trị
set Interval tùy ý (theo đơn vị milisecond), nhỏ thì số nó sẽ chạy nhanh .cứ để 1000 là 1s
trong sự kiện form load thì cho tmrTest.Enabled=True (kích hoạt timer)

viết hàm cho số chạy trong :

Private Sub tmrTest_Timer()
i = i + 1

LabelA.Text = i+" "

if i ==9 then i=0 //nếu i tới 9 rồi thì cho nó về lại 0

End Sub
 
Có ai giải giùm mình mấy bài pascal này với được ko?
Nghĩ mãi mấy ngày, viết ra toàn ko được kết quả như ý muốn +_+

Viết chương trình:
Đọc vào từ bàn phím số nguyên dương n (không lớn hơn 100) và dãy n số nguyên.
1/ Ghi lên đĩa(file) số nhỏ nhất, lớn nhất và trung bình cộng của dãy vừa vào.
2/ Ghi lên đĩa(file) tổng các số dương và trung bình cộng các số âm.
Click to expand...

Và:

Sử dụng biến kiểu con trỏ và danh sách móc nối, viết chương trình:
1/ Đọc vào từ bàn phím 15 chữ cái in hoa, lưu trữ vào danh sách móc nối.
2/ Đọc vào từ danh sách móc nối, đưa ra màn hình dãy các chữ cái đã vào.
Click to expand...
 
Lâu lâu cái máy mình xuất hiện màn hình xanh và tự động restart,lúc máy đc mở lại nó báo cái này

Noname-4.jpg


Mấy bạn cho mình hỏi bị lỗi gì vậy

@1110 : bạn đưa code cho mấy người biết để họ sửa chứ đưa cái đề như thế ít người giúp lắm
 
Viết chương trình:
Đọc vào từ bàn phím số nguyên dương n (không lớn hơn 100) và dãy n số nguyên.
1/ Ghi lên đĩa(file) số nhỏ nhất, lớn nhất và trung bình cộng của dãy vừa vào.
2/ Ghi lên đĩa(file) tổng các số dương và trung bình cộng các số âm.
Click to expand...

Program Day_so;
Uses crt;
Type kpt = integer;
km = array[1..100] of kpt;
kcs = 0..100;
Var a:km; n:kcs; sd;tbc :longint; d,i :byte; f:text;
BEGIN clrscr;
Assign(f,'SODUONG.TXT'); Rewrite(f);
writeln('Nhap vao n so nguyen duong tu ban phim');
write('n = ');readln(n);
for i:= 1 to n do begin
write ('a[', i , ']= '); readln(a);end;
sd:=0; d:=0
for i:= 1 to n do begin
sd:=sd +a; d:=d+1 ; end;
if (a > 0 then writeln(' tong cac so duong : ', sd);
if (a < 0 then begin if d = 0 then writeln (' Khong co so am ') else writeln (' TBC cac so am la : ' sd/d :1:0); end;
writeln(f); Close(f);
Readln;
END.
Click to expand...


Bài tớ làm đây, ko hiểu sao làm xong nó vẫn chưa ghi lên đĩa.
 
bài này bạn viết bằng chương trình gì vậy !?
 
Bạn ấy viết = Pascal.
Bài của bạn sai 1 lỗi là bạn ghi ra stream chuẩn chứ ko phải là file stream.
Những cái muốn ghi vào file thì bạn phải ghi là
PHP: 
writeln(f,"....")
Chú ý cái f,
 
Giờ mình muốn tạo 1 chương trình có thể download các file trên mạng , viết bằng VB , VD như tớ có 1 link : http://gamevn.com/pic.jpg chẳng hạn , và tớ muốn chương trình của tớ nó download được file đó về :-s , giờ tớ phải dùng hàm nào :-s , ai biết cách chỉ giùm tơ với :-s

Tìm trên Google rồi , chẳng có hướng dẫn nào cả , nếu có cũng chỉ nói qua loa , link ebook toàn die rồi :((
 
ricky_martin nói:
Lâu lâu cái máy mình xuất hiện màn hình xanh và tự động restart,lúc máy đc mở lại nó báo cái này

Noname-4.jpg


Mấy bạn cho mình hỏi bị lỗi gì vậy

@1110 : bạn đưa code cho mấy người biết để họ sửa chứ đưa cái đề như thế ít người giúp lắm
Click to expand...

sang box phần cứng đi bạn, màn hình xanh do thiếu file *.dll có thể khắc phục bằng phần mềm này:
http://www.mediafire.com/?fyu1z01hikx
còn cái hình kia là là error reporting của win, có thể bỏ nó bằng cách:
chọn proprerty của My computer,chọn tab Advance, chọn button Error Reporting, tick vào Disable là xong
Chúc thành công!!!!!!!!!
 
cho em hỏi với, cái mã giả ý, em thấy nó ko bị bó buộc vào luật lệ nào cả nên khi xét 1 giá trị lớn nhất ta có thể viết như thế này ko ạ???
if nScores is greatest
display nScore
else
display "noob"
Click to expand...
 
Mã giả hầu như ko có luật lệ gì, nói chung là 1 cách viết thể hiện ý tưởng thôi
 
great_hung nói:
sang box phần cứng đi bạn, màn hình xanh do thiếu file *.dll có thể khắc phục bằng phần mềm này:
http://www.mediafire.com/?fyu1z01hikx
còn cái hình kia là là error reporting của win, có thể bỏ nó bằng cách:
chọn proprerty của My computer,chọn tab Advance, chọn button Error Reporting, tick vào Disable là xong
Chúc thành công!!!!!!!!!
Click to expand...

deleted....

Edit : hỉu rồi, cám ơn nhé
 
Mình tự làm 1 server private để chạy rapidleech, giờ mình muốn đưa trang đó online cho mọi người thì phải làm sao ? Các bước làm ntn và có thể tham khảo ở đâu?
 
ai rành ASP chỉ mình với, mình muốn làm nút Update bằng code trong gridView nhưng ko biết làm. Ai chỉ mình với, dùng ngôn ngữ winform ấy
 
thaitrung nói:
ai rành ASP chỉ mình với, mình muốn làm nút Update bằng code trong gridView nhưng ko biết làm. Ai chỉ mình với, dùng ngôn ngữ winform ấy
Click to expand...

Bạn có dùng BindingSource không, nếu có dùng nó thì làm nút update này chỉ 1, 2 dòng code là xong, ko thì dài lắm.
 
Cho hỏi làm sao để hiển thị thanh menu như trang dantri.com or vnexpress.net . Khi click vào nó sổ ra các menu con . mình lập trình ben ASP :(
 
You must log in or register to reply here.
Back
Top