BASIC: Revizyonlar arasındaki fark
[kontrol edilmemiş revizyon] | [kontrol edilmemiş revizyon] |
İçerik silindi İçerik eklendi
45. satır:
Bir değişken "'''Dim''' ''degisken_ismi'' '''as''' ''tür''" seklinde tanımlanır.
<source lang="
Dim damdaki_kedi as byte
Dim Burak, gonen, kedi, damdaki as boolean
55. satır:
=== Örnek program ===
Merhaba Dünya çıktısı
<source lang="
10 PRINT "Merhaba Dünya!"
Dim cerban, ismail as string
64. satır:
EndIf''
End Sub
</source>
=== Sunucuya Bağlanma ===
<source lang="QBasic">
# Bir siteye bağlanmak ve veri akışı
site$ = "tr.wikipeda.org"
port = 80
NETCONNECT site$, port
print "connected to " + site$ + ":" + port
get$ = "GET http://" + site$ + "/ HTTP/1.0" + chr(13) + chr(10)
get$ = get$ + chr(13) + chr(10)
NETWRITE get$
print "request written"
s$ = ""
do
chunk$ = netread
print "chunk '" + left(chunk$,10) + "..." + right(chunk$,10) + "'" + length(chunk$)
s$ = s$ + chunk$
# bekleyin / yavaş bağlantılar için bazı ayarlamar gerekebilir
pause .2
until not netdata
NETCLOSE
print "response"
print s$
print length(s$)
</source>
|