Italia
Fonte/ Codesnippets

Binärzähler

 

Michael
Dell

KompilierenMarkierenSeparieren
Def cRB(1) Create(RadioButton,&(1),,0,0,20,20)
Def cST(1) Create(Text,%Hwnd,,&(1),20,20,20)
Declare Gl_ST&[8],Gl_RBT&[8],Gl_ZW$
Clear Gl_ST&[],Gl_RBT&[]

Proc cStuBt

    Parameters cStuBt_X&,cStuBt_Nr&
    Gl_ST&[cStuBt_Nr&]  = cST(cStuBt_X&)
    Gl_RBT&[cStuBt_Nr&] = cRB(Gl_ST&[cStuBt_Nr&])

EndProc

Proc BinView

    Parameters BV_BinIn$

    WhileLoop 0,7,1

        SetCheck Gl_RBT&[&Loop],Val(Mid$(BV_BinIn$,(&Loop + 1),1))

    EndWhile

EndProc

Cls

WhileLoop 1,8,1

    cStuBt((&Loop * 20),(&Loop - 1))
    SetCheck Gl_RBT&[(&Loop - 1)],0

EndWhile

Binärzähler (0-255)

WhileLoop 0,255,1

    Gl_ZW$ = Bin$(&Loop)
    Case (Len(Gl_ZW$) < 8): Gl_ZW$ = (MkStr$(Chr$(48),(8 - Len(Gl_ZW$))) + Gl_ZW$)
    BinView(Gl_ZW$)
    Sleep 100

EndWhile

WaitInput
End
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
19.06.2008  
 




Jac
de
Lad
Auf was per Ideen du wieder kommst.
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
19.06.2008  
 




Michael
Dell
Für den Testmodus in einem Elektronik- CAD Programm kann mans brauchen.
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
20.06.2008  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

4.819 Views

Untitledvor 0 min.
H.Brill26.09.2024
RudiB.31.01.2016

Themeninformationen

Dieses Thema hat 2 subscriber:

Michael Dell (2x)
Jac de Lad (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie