có ai có code pascal chuyển động 3d siêu sinh động ko xin code
2 câu trả lời
#Source Code Tỏ Tình Bằng Qrcode
import pyqrcode
import string
import os
from time import time, ctime
a = 1
for a in range (7): print("")
print(" ░██████╗░██████╗░░█████╗░░█████╗░██████╗░███████╗")
print(" ██╔═══██╗██╔══██╗██╔══██╗██╔══██╗██╔══██╗██╔════╝")
print(" ██║██╗██║██████╔╝██║░░╚═╝██║░░██║██║░░██║█████╗░░")
print(" ╚██████╔╝██╔══██╗██║░░██╗██║░░██║██║░░██║██╔══╝░░")
print(" ░╚═██╔═╝░██║░░██║╚█████╔╝╚█████╔╝██████╔╝███████╗")
print(" ░░░╚═╝░░░╚═╝░░╚═╝░╚════╝░░╚════╝░╚═════╝░╚══════╝")
print("")
print(" Việt đẹp trai !!!")
print("")
fname = '.png'
s = str(input(" >>>CONTENT: "))
t = str(ctime(time()))
t = t.replace(':',"'")
fname = '[' + t + ']' + fname
print(" >>>Processing...")
url = pyqrcode.create(s, encoding='utf-8')
url.png(fname, scale = 10)
print(" >>>Done!")
os.startfile(fname)
while (True): a = a + 1
để chạy code này:
bước 1:bạn phải vào cmd gõ lệnh là pip install pyqrcode
bước 2 bạn đổi tên ở print(" Việt đẹp trai !!!") dòng này bạn đổi tên của bạn vào
bước 3 bạn chạy code trên cmd
chúc bạn thanh công
uses crt,graph; const r=50; s=3; var gd,gm,x,y,mx,my,nen: integer; c: char; procedure Bong(x,y,mau: word); begin setcolor(mau); setfillstyle(1,mau); fillellipse(x,y,r,r); end; begin gd:= detect; initgraph(gd,gm,”); nen:=cyan; setbkcolor(nen); mx:= getmaxx; my:= getmaxy; randomize; x:= random(mx-2*r)+r; y:=random(my-2*r)+r; bong(x,y,red); repeat c := readkey; if (c = #0) then begin c := readkey; case c of #75: while (not keypressed) and (x>r) do begin bong(x,y,nen);x:=x-s;bong(x,y,red);delay(100) end; #77: while (not keypressed) and (x begin bong(x,y,nen);x:=x+s;bong(x,y,red);delay(100) end; #72: while (not keypressed) and (y>r) do begin bong(x,y,nen);y:=y-s;bong(x,y,red);delay(100) end; #80: while (not keypressed) and (y begin bong(x,y,nen);y:=y+s;bong(x,y,red);delay(100) end; end; end; until c=#27; closegraph; end.