راهنمایی در مورد lcd در بسکام

[mashroti]

سلام خدمت دوستان ...
این برنامه به زبان سی نوشته شده
lcd_clear();
strcpy(buffer,"digital lock");
for(i=0;i<12;i++)
{
lcd_gotoxy(i+2,0);
lcd_putchar(buffer[i]);
lcd_gotoxy(i+3,0);
if(i<11)
{
lcd_putsf("\xff");
sound(3000,100);
}
delay_ms(200);
}
و میاد اون نوشته digital lock رو یکی یکی روی ال سی دی نمایش میده
میخواستم بدونم معادل بسکام این برنامه چجوریه هرچی گشتم چیزی پیدا نکردم

[mashroti]

پاسخ : راهنمایی در مورد lcd در بسکام

خیلی ممنون از جوابای قشنگتون
فهمیدم چجوریه

Dim S1 As String * 9
Dim S As String * 9
Dim a As byte

s1="abcdefghi"
for a=1 to 9
s=left(s1,a)
locate 1,2:lcd s
waitms 100
next